#!/usr/bin/perl

# ubb.index v1.5 - Alley Shops Index - dbashops.cgi RoX 8.2006
# Released 03/14/2004 (Original released 01/05/2004)
#
# You may not distribute this program in any manner, modified or otherwise,
# without the express, written consent from Allen Ayres. Assistance can be found at www.ubbdev.com
#
$UBBPath = 'C:/websites/ubb6_dragboatalley/cgi-bin';
BEGIN {
	($0 =~ m!(.*)(\\|/)[^/\\]+!) && unshift(@INC, $1, "$1$2Modules");
	$| = 1;
};
END {
	$filehandle && ref($filehandle) && $filehandle->cleanup();
};

use lib("./Modules", ".");
use lib("C:/websites/ubb6_dragboatalley/cgi-bin/Modules", ".");

use strict;
use Fcntl ':flock';
use UBBCGI qw(:cgi);
use UBBCGI::Carp qw(fatalsToBrowser set_message);

BEGIN {
	do "Digest/MD5.pm";
	if (!$Digest::MD5::VERSION) {
		require Digest::Perl::MD5;
		import Digest::Perl::MD5 'md5_hex';
	} else {
		import Digest::MD5 'md5_hex';
	}
};

use constant SEVENSEVENSEVEN => 0777;
use constant SIXSIXSIX => 0666;

use vars qw(
	$filehandle $forum_threads $alpha_threads %forum_thread_data @alltheforums
	@allthecategories @memberslist_array %ProfileNumber %in %GotTime $vars_groups
	%vars_version_information %vars_style_reference %vars_wordlets_criterr
	%forum_recentmeta %forum_topics %todays_active_topics

	%vars_ci %vars_config $vars_graemlins %vars_misc %vars_mods %vars_cats
	%vars_registration %vars_forums %vars_styles %vars_display %vars_style
	%vars_email %vars_time %vars_search %vars_pm %vars_pntf %vars_poll

	%vars_wordlets %vars_wordlets_err %vars_wordlets_email %vars_wordlets_pntf
	%vars_wordlets_img %vars_wordlets_date %vars_wordlets_poll

	%template_html %template_match $standard_title_table

	$user_permissions $username $password $last_login_dt
	$session_login_dt $last_login_j $session_login_j $days_prune
	$pubname $user_topic_view $user_number @ubber @login @session

	$Header_Popup $Footer_Popup $TBB_Popup $TBT_Popup $ThisHTML $HeaderClean
	$FooterClean $CurrentTab $Hiddens $direct_to $Legend $LoginWording
	$MainButtonsLine $ContactLine $TBT $TBB $Header $Footer $EmailHeader
	$show_logout $show_logout_noreg $instant_jscript $title_wording

	$poll $PNTF $pntf_cookie_data $default_style

	$ULTIMATEBB $CONTROLPANEL $trademark $trade $InfopopCopyright
	$version $version_number $masterCharset $release_j $exact_path
	@memberslist $memlistopen $summary %member_profile
	%FILE_CACHE %GENERIC_GLOBALS $frontend $backend %ULTIMATEBB
	$MainButtonsLine $ErrorString $common_header_javascript
	$board_time_format $board_date_format $vers @checkTheProfile

	$pver %vars_wordlets_db @datafile $DataPath $thisline @linearray $on $off $bulb
	$ProfileNumber @theprofile %opt $UBBPath
);

require "$UBBPath/vars_config.cgi";
require "$UBBPath/ubb_lib.cgi";

	&InitImportantStuff;

	&RequireCode("$vars_config{CGIPath}/ubb_lib_files.cgi");
	&RequireCode("$vars_config{CGIPath}/ubb_lib_time.cgi");
	&RequireCode("$vars_config{CGIPath}/ubb_lib_filehandler.cgi");
	&RequireCode("$vars_config{CGIPath}/ubb_lib_filehandle.cgi");
	&RequireVars("$vars_config{CGIPath}/vars_template_match.cgi");
	&RequireCode("$vars_config{VariablesPath}/vars_display.cgi");
	&RequireCode("$vars_config{VariablesPath}/vars_misc.cgi");
	&RequireCode("$vars_config{VariablesPath}/vars_registration.cgi");
	&RequireCode("$vars_config{VariablesPath}/vars_wordlets.cgi");
	&RequireCode("$vars_config{VariablesPath}/vars_wordlets_err.cgi");
	&RequireCode("$vars_config{NonCGIPath}/Templates/public_common.pl");
	&RequireCode("$vars_config{VariablesPath}/vars_wordlets_calendar.cgi");

	$filehandle = new UBB::FileHandler(\%vars_config, "global");

&InitImportantStuff;

&LoadTemplate("public_common");
%vars_style = &LoadStyleTemplateRaw("11");
&set_page_elements;
tie(%ULTIMATEBB, 'UBB::TiedURL');
$MainButtonsLine = &MainButtonOptions;

%in = map{
	my @z = param($_);
	( scalar(@z) > 1 ?
		( $_ => join(",", @z) ) :
		( $_ => $z[0] )
		)
	} param();


$pver = "<center><font size=\"$vars_style{FDTextSize}\" face=\"$vars_style{FontFace}\"><a href=\"http://www.ubbdev.com/ubb/ultimatebb.php?ubb=get_topic;f=33;t=000136\" target=\"_blank\">ubb.index v1.5</a></font></center>";
if ($@) {
	print ("Content-type: text/html\n\n");
	print "Error including required files: $@\n";
	print "Make sure these files exist, permissions are set properly, and paths are set correctly.";
	exit;
	}


@ubber = cookie("ubber$vars_config{Cookie_Number}");
if ($ubber[0] ne '') { $username        = $ubber[0]; }
if ($ubber[1] ne '') { $password        = $ubber[1]; }
if ($ubber[2] ne '') { $pubname         = $ubber[2]; }
if ($ubber[3] ne '') { $user_topic_view = $ubber[3]; }
if ($ubber[4] ne '') { $user_number     = $ubber[4]; }

if (@ubber) {
	@checkTheProfile = &verify_id_num_2($username, $password, $user_number);
	unless ($checkTheProfile[4] =~ /Write/) {
		print header(
		-charset => "$masterCharset",
			-type    => "text/html",
		);
		&StandardHTML($vars_wordlets_err{user_not_approved});
	}
} elsif ($opt{members_only}) {
		print header(
			-charset => "$masterCharset",
			-type    => "text/html",
		);
	&StandardHTML(qq!$vars_wordlets_err{not_logged_in}<p> <a href="$vars_config{CGIURL}/ultimatebb.cgi?ubb=login" target="_blank">$vars_wordlets{login_now}</a> $vars_wordlets{or} <a href="$vars_config{CGIURL}/ultimatebb.cgi?ubb=agree" target="_blank">$vars_wordlets{register_title}</a></p>!);
}

if ($@) {
	print ("Content-type: text/html\n\n");
	print "Error including required files: $@\n";
	print "Make sure these files exist, permissions are set properly, and paths are set correctly.";
	exit;
	}


NAVIGATION: {
	my %options = (
		main		=> \&ShowMain,
	);
	my $action	= $in{'action'}		|| 'main';
	my $function	= $options{$action}	|| undef;

	$function ? $function->() : display_error("No such function: $action");
}

exit;

###########################################################################################

sub ShowMain{

my $tabmenu = &Include_A_File('c:/websites/dragboatalley/p-menuS.inc');
my $page = $in{'page'} || 1;
my $pages = 2;
my $mainlabel = "Alley Shops Index";
my $pglabel= "Shops";
# my $pshops = &Include_A_File('c:/websites/dragboatalley/shops/pshops$page.inc');
# my $fshops = &Include_A_File('c:/websites/dragboatalley/shops/fshops$page.inc');

   my $show_pages;
   my $numberer = "";
   for (1..$pages) {
      $show_pages .=  ($page == $_) ? "<b>$_</b> "
                                      : qq~<a href="../cgi-bin/dbashops.cgi?page=$_"}">$_</a> ~;
   }

my $hf = &generic_wrapper({
	page_title => "Drag Boat Alley Shops Index",
	show_buttons => 1,
	before_navbar => qq~$tabmenu~,
	breadcrumb => [$pglabel],
});
		print header(
			-charset => "$masterCharset",
			-type    => "text/html",
		);
print qq(
$hf->[0]

$TBT
	<tr bgcolor="$vars_style{TableColorStrip}">
	<td colspan="2"><font color="$vars_style{TableStripTextColor}" size="$vars_style{TextSize}" face="$vars_style{FontFace}"><b>$mainlabel</b></font></td>
	</tr>
	<tr bgcolor="$vars_style{AltColumnColor2}">
	<td><font size="$vars_style{TextSize}" face="$vars_style{FontFace}"><b>Alley Pit Shops</b></font></td>
	<td><font size="$vars_style{TextSize}" face="$vars_style{FontFace}"><b>Featured Shops</b></font></td>	</tr>
	<tr><td bgcolor="$vars_style{AltColumnColor1}" align="center" valign="top" width="50%">
	...<br>
	</td><td bgcolor="$vars_style{AltColumnColor1}" align="center" valign="top" width="50%">
	...<br>
	</td></tr>

<tr bgcolor="$vars_style{AltColumnColor1}"><td align="center" colspan="2">
<b><small>Page $show_pages </small></b></td></tr>

$TBB

<br /><br />

$hf->[1]
);

} #end ShowMain


1;