#!/usr/bin/perl



# THINGS TO MAKE THE PROGRAM WORK ########################################
use lib "./lib";
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use Digest::MD5 qw(md5_hex);
use common;
use sitevariables;
use functions;
use lang;


package default;




# PREPARATIONS ###########################################################
our $cur = CGI->new;
our $mode = $cur->param('mode');
our $viewcategory = $cur->param('viewcategory');
$viewcategory =~ s/_/ /ig;
our $adindex = $cur->param('adindex');
our $emailcookie = $cur->cookie('email');
our $passcookie = $cur->cookie('pass');

our $randlimit = 1000000000000;
srand(time);

our $content;




# log in/out stuff must be done before the page is printed ###############
if ($mode eq "newlogin" or $mode eq $lang::register){
	firststuff();
}elsif($mode eq "logout"){
	dologout();
}
if ($svb::runautodelete eq "yes" && $svb::autodelete != 0){
	`./autodelete.pl`;
}




### MAIN PROGRAM #########################################################
print "Content-type:text/html\n\n";




## if they just came to index.cgi print the front page ###################
if (!$mode){
	$content .= frontpage();




# if the mode needs a password check #####################################
}elsif($mode eq "place" or 
	$mode eq "edit" or 
	$mode eq "deletead" or 
	$mode eq $lang::submit_ad or 
	$mode eq $lang::update_ad or 
	$mode eq "confirm"){




# do password check and send them on to the right page if its correct ####
	if (fcn::checkcookie($emailcookie,$passcookie) eq "yes"){
		if ($mode eq "place"){
			$content .= place();
		}elsif($mode eq "edit" && $adindex){
			$content .= editad();
		}elsif($mode eq $lang::update_ad){
			$content .= updatead();
		}elsif($mode eq "edit"){
			$content .= edit();
		}elsif($mode eq "deletead" && $adindex){
			$content .= confirmdelete();
		}elsif($mode eq "deletead"){
			$content .= deletead();
		}elsif($mode eq $lang::submit_ad){
			$content .= savead();
		}elsif($mode eq "confirm"){
			$content .= dodelete();
			$content .= deletead();
		}




# if its wrong, go back to login page ####################################
	}else{
		$content .= login();
	}




# for pages that dont require password checks, send them straight there ##
}elsif($mode eq "login"){
	$content .= login();
}elsif($mode eq "view" && $adindex){
	$content .= viewsinglead();
}elsif($mode eq "view" && $viewcategory){
	$content .= viewcategory();
}elsif($mode eq "view"){
	$content .= frontpage();
}elsif($mode eq $lang::register){
	$content .= redirect("registerpage");
}elsif($mode eq "registerpage"){
	$content .= newregister();
}elsif($mode eq "newlogin"){
	$content .= redirect("loginpage");
}elsif($mode eq "loginpage"){
	$content .= newlogin();
}elsif($mode eq "search"){
	$content .= searchpage();
}elsif($mode eq $lang::search){
	$content .= searchresults();
}elsif($mode eq "email"){
	$content .= email();
}elsif($mode eq "logout"){
	$content .= logout();
}else{
	$content .= frontpage();
}





# make the page and print it out #########################################
print printpage($content);






sub printpage {
	my $content = $_[0];
	$content .= $cmn::fuzzymonkey; 
	my $page;
	open (TEMPLATE, "./$svb::templatefile")
			|| cmn::dienice("$lang::read_file_error ./$svb::templatefile\: $!");
	while (<TEMPLATE>){
		$page .= $_;
	}
	$page =~ s/<!-- ?content ?-->/$content/ig;
	close TEMPLATE;
	return $page;
}







sub frontpage {
	my ($urlcat,$filename,$count,$count2,$category,$return);
	$return .= "
<table bgcolor=$svb::tableborder width=98% cellpadding=2 cellspacing=0 align=center>
	<tr>
		<td>
			<table bgcolor=$svb::tablebg width=100% cellpadding=5 cellspacing=0>";
			





# print the personalization ##############################################
	if(fcn::checkcookie($emailcookie,$passcookie) eq "yes"){
		$return .= "
				<tr>
					<td>
						<table>
							<tr>
								<td align=left valign=top height=5>
<font face=$svb::fontface color=$svb::darkcolor size=-1>$lang::logged_in_as\:<br>  $emailcookie
								</td>
							</tr>
						</table>
					</td>
				</tr>";
	}
	$return .= "						<tr>
								<td align=center colspan=2>
$svb::fontheader <b>$lang::view_classifieds</b><br>
								</td>
							</tr>
				<tr>
					<td valign=top>";
	$return .= cmn::leftmenu();
	
	
	$return .= "
					</td>
					<td valign=top>
						<table bgcolor=$svb::darkcolor width=100% valign=top align=right cellpadding=0 cellspacing=0 border=0><tr><td>
						<table width=100%>

							<tr>
								<td bgcolor=$svb::headercellcolor>
$svb::fontsmall <b>$lang::browse_classifieds\:</b><br>
								</td>
							</tr>
							<tr>
								<td bgcolor=$svb::lightcolor>
$svb::fontsmall <blockquote>$lang::click_text<br>\n";	
	$count = 0;
	




# print out a link for each category for browsing ########################
	foreach $category(@svb::categories){
		$filename = $category;
		$filename =~ s/[_ \s\/\.!#\$\&\\\[\]\(\),-=\+]//ig;
		unless (-e "./data/$filename.dat"){
			open (OUTFILE,">>./data/$filename.dat")
					||cmn::dienice("$lang::write_file_error $./data/$filename.dat: $!!");
			close OUTFILE;
		}
		$count2 = fcn::get_ad_count_scalar($filename);
		$urlcat = $category;
		$urlcat =~ s/ /_/ig;
		$return .= "<a href=index.cgi?mode=view&viewcategory=$urlcat>$svb::categories[$count]</a> ($count2)<br>\n";
		$count++;
	}
	
	$return .= "</blockquote></font>
								</td>
							</tr>
						</table>
						</td></tr></table>
					</td>
				</tr>
			</table>
		</td>
	</tr>
</table>";
	return $return;
}








sub place{
	my ($return,$category,$count);
	



# check cookie - they aren't allowed to post if they aren't logged in ####
	cmn::dienice("$lang::invalid_email_and_password") unless (fcn::checkcookie($emailcookie,$passcookie) eq "yes");


	



# find out what needs to be printed out in the form and add the personalization and left menu to $return.
	$count = 4;
	$count ++ if($svb::allowpicurl eq "yes");
	$count ++ if($svb::allowpicupload eq "yes");
	$return .= "
<table bgcolor=$svb::tableborder width=98% cellpadding=2 cellspacing=0 align=center>
	<tr>
		<td>
			<table bgcolor=$svb::tablebg width=100% cellpadding=5 cellspacing=0>";




# print the personalization ##############################################
	$return .= "
				<tr>
					<td>
						<table>
							<tr>
								<td align=left valign=top height=5>
<font face=$svb::fontface color=$svb::darkcolor size=-1>$lang::logged_in_as\:<br>  $emailcookie
								</td>
							</tr>
						</table>
					</td>
				</tr>
				<tr>
					<td colspan=4>
$svb::fontheader <center>$lang::place_an_ad</center></font>
					</td>
				</tr>
				<tr>
					<td valign=top>\n";
	$return .= cmn::leftmenu();





# put the form together and add it to $return ############################
	$return .= "
					</td>
					<td>
&nbsp;
					</td>
					<td colspan=2>
						<table>
							<tr>
								<td>
<form method=post action=index.cgi enctype='multipart/form-data'>
$svb::fontsmall*&nbsp;$lang::category\:&nbsp;&nbsp;
								</td>
								<td>
<select name=itemcategory><option disabled selected>- $lang::please_choose_a_category -</option>
<option disabled>----------------------------</option>";
	foreach $category(@svb::categories){
		$return .= "<option value='$category'>$category</option>\n";
	}
	$return .= "</select>
								</td>
							</tr>
							<tr>
								<td width=100>
$svb::fontsmall* $lang::type_of_ad\:&nbsp;&nbsp;
								</td>
								<td>
<select name=adtype>
<option disabled selected>- $lang::please_choose_a_type -</option>
<option disabled>------------------------<option>
<option>$lang::for_sale</option>
<option>$lang::want_to_buy</option>
<option>$lang::for_rent</option>
<option>$lang::want_to_rent</option>
<option>$lang::for_free</option>
<option>$lang::want_for_free</option></select>
								</td>
							</tr>
							<tr>
								<td width=100>
$svb::fontsmall* $lang::subject\:&nbsp;&nbsp;
								</td>
								<td>
<input type=text name=subject value='5-50 $lang::characters'>
								</td>
							</tr>\n";
	if($svb::allowpicurl eq "yes"){
		$return .= "
							<tr> 

								<td width=100>
$svb::fontsmall $lang::picture_url\:&nbsp;&nbsp;
								</td>
								<td>
<input type=text name=picurl size=40>
								</td>
							</tr>\n";
	}
	$return .= "
							<tr> 

								<td width=100>
$svb::fontsmall $lang::website_url\:&nbsp;&nbsp;
								</td>
								<td>
<input type=text name=weburl size=40>
								</td>
							</tr>\n";

	if($svb::allowpicupload eq "yes"){
		$return .= "
							<tr>
								<td width=100>
$svb::fontsmall $lang::upload_a_picture\:&nbsp;&nbsp;
								</td>
								<td>
<input type=file name=picture>
								</td>
							</tr>\n";
	}
	$return .= "
							<tr>
								<td width=100 valign=top>
$svb::fontsmall*&nbsp;$lang::description\:&nbsp;&nbsp;
								</td>
								<td>
<textarea name=descrip rows=8 cols=40>$lang::descrip_text</textarea>
								</td>
							</tr>
							<tr>
								<td>
<input type=submit name=mode value='$lang::submit_ad'>
								<td>
<font face=$svb::fontface size=1 color=$svb::darkcolor>* - $lang::required_fields.</font>
								</td>
							</tr>
						</table>
					</td>
				</tr>
			</table>
		</td>
	</tr>
</table>\n";
	return $return;
}









sub deletead{
	my ($return,$urlcat,$filename,$count,@temp,$pre,$count2,$date,$line,
	@dates,$category,%alldata,$email,$itemcategory,$subject,$adtype,
	$picurl,$adindex,$descrip,$weburl,$datenum,$prettydate);
	
	$return .= "
<table bgcolor=$svb::tableborder width=98% cellpadding=2 cellspacing=0 align=center>
	<tr>
		<td>
			<table bgcolor=$svb::tablebg width=100% cellpadding=5 cellspacing=0>";








# print the personalization ##############################################
	if(fcn::checkcookie($emailcookie,$passcookie) eq "yes"){
		$return .= "
				<tr>
					<td>
						<table>
							<tr>
								<td align=left valign=top height=5>
<font face=$svb::fontface color=$svb::darkcolor size=-1>$lang::logged_in_as\:<br>  $emailcookie
								</td>
							</tr>
						</table>
					</td>
				</tr>";
	}
	$return .= "
				<tr>
					<td colspan=4>
$svb::fontheader <center>$lang::delete_your_ads</center></font>
					</td>
				</tr>
				<tr>
					<td valign=top>\n";
	$return .= cmn::leftmenu();
	$return .= "
					</td>
					<td width=75% valign=top>
						<table bgcolor=$svb::darkcolor width=100% align=right cellpadding=0 cellspacing=0 border=0><tr><td>
						<table width=100%>";







# print out every ad belonging to the logged in user #####################
	foreach $category(@svb::categories){
		$count = 0;
		$urlcat = $category;
		$urlcat =~ s/ /_/ig;
		$filename = $category;
		$filename =~ s/[_ \s\/\.!#\$\&\\\[\]\(\),-=\+]//ig;
		($count,@dates) = fcn::get_own_dates_array($filename);
		@temp = fcn::get_own_data_array($filename);
		foreach $pre(@temp){
			chomp $pre;
			($email,$itemcategory,$subject,$adtype,$picurl,$adindex,$descrip,$weburl,$datenum) = split(/###/,$pre);
			$alldata{$datenum} = $pre;
		}
		undef @temp;
		if ($count){
			$return .= "
							<tr>
								<td colspan=3 bgcolor=$svb::headercellcolor>
$svb::fontsmall<b>$category</b> ";
			$return .= "</font>
								</td>
							</tr>";
		}
		$count2 = $count2 + $count;
		$count = 0;
		@dates = sort(@dates);
		@dates = reverse(@dates);
		foreach $date (@dates){
			my $prettydate = cmn::mydate($date);
			($email,$itemcategory,$subject,$adtype,$picurl,$adindex,$descrip,$weburl,$datenum) = split(/###/,$alldata{$date});
			if ($email){
				$return .= "
							<tr bgcolor=$svb::cellcolors[$count]>
								<td>
$svb::fontsmall $adtype</font>
								</td>
								<td>
$svb::fontsmall <a href='index.cgi?mode=deletead&viewcategory=$urlcat&adindex=$adindex'>$subject</a></font>
								</td>
								<td>
$svb::fontsmall $prettydate</font>
								</td>
							</tr>";
			}
			$count++;
			$count = 0 if ($count == 2);
		}
		undef %alldata;
		undef @dates;
	}
	if (!$count2){
		$return .= "
							<tr>
								<td colspan=3 bgcolor=$svb::headercellcolor>
$svb::fontsmall<b>$lang::no_ads</b></font>
								</td>
							</tr>";

	}
	$return .= "
					</td>
				</tr>
			</table>
		</td>
	</tr>
</table>
		</td>
	</tr>
</table>
		</td>
	</tr>
</table>";
	return $return;

}











sub dodelete{
	my $curadindex = $cur->param('adindex');
	my $filename = $cur->param('viewcategory');
	$curadindex =~ s/[\D]+//ig;
	$filename =~ s/[_ \s\/\.!#\$\&\\\[\]\(\),-=\+]//ig;
	my @data = fcn::get_all_data_array($filename);
	fcn::func_dodelete($filename,$curadindex,@data);
	undef @data;
}
	







sub edit{
	my ($email,$itemcategory,$subject,$adtype,$picurl,$adindex,$descrip,$weburl,$datenum,$return,
		$count,$filename,$urlcat,@dates,%alldata,$line,$date,$category,$pre,@temp,$prettydate);
	
	$return .= "
<table bgcolor=$svb::tableborder width=98% cellpadding=2 cellspacing=0 align=center>
	<tr>
		<td>
			<table bgcolor=$svb::tablebg width=100% cellpadding=5 cellspacing=0>";









# print the personalization ##############################################
	if(fcn::checkcookie($emailcookie,$passcookie) eq "yes"){
		$return .= "
				<tr>
					<td>
						<table>
							<tr>
								<td align=left valign=top height=5>
<font face=$svb::fontface color=$svb::darkcolor size=-1>$lang::logged_in_as\:<br>  $emailcookie
								</td>
							</tr>
						</table>
					</td>
				</tr>";
	}
	$return .= "
				<tr>
					<td colspan=4>
$svb::fontheader <center>$lang::edit_your_ads</center></font>
					</td>
				</tr>
				<tr>
					<td valign=top>\n";
	$return .= cmn::leftmenu();
	$return .= "
					</td>
					<td width=75% valign=top>
						<table bgcolor=$svb::darkcolor width=100% align=right cellpadding=0 cellspacing=0 border=0><tr><td>
						<table width=100%>";









# print out all the ads of the logged in user ############################
	foreach $category(@svb::categories){
		$count = 0;
		$urlcat = $category;
		$urlcat =~ s/ /_/ig;
		$filename = $category;
		$filename =~ s/[_ \s\/\.!#\$\&\\\[\]\(\),-=\+]//ig;
		($count,@dates) = fcn::get_own_dates_array($filename);
		@temp = fcn::get_own_data_array($filename);
		foreach $pre(@temp){
			chomp $pre;
			($email,$itemcategory,$subject,$adtype,$picurl,$adindex,$descrip,$weburl,$datenum) = split(/###/,$pre);
			$alldata{$datenum} = $pre;
		}
		if ($count != 0){
		$return .= "
							<tr>
								<td colspan=3 bgcolor=$svb::headercellcolor>
$svb::fontsmall<b>$category</b></font>
								</td>
							</tr>";
		}
		$count = 0;
		@dates = sort(@dates);
		@dates = reverse(@dates);
		foreach $date (@dates){
			$prettydate = cmn::mydate($date);
			($email,$itemcategory,$subject,$adtype,$picurl,$adindex,$descrip,$weburl,$datenum) = split(/###/,$alldata{$date});
			if ($email){
				$return .= "
							<tr bgcolor=$svb::cellcolors[$count]>
								<td>
$svb::fontsmall $adtype</font>
								</td>
								<td>
$svb::fontsmall <a href='index.cgi?mode=edit&viewcategory=$urlcat&adindex=$adindex'>$subject</a></font>
								</td>
								<td>
$svb::fontsmall $prettydate</font>
								</td>
							</tr>";
			}
			$count++;
			$count = 0 if ($count == 2);
		}
		undef %alldata;
		undef @dates;
	}
	$return .= "
					</td>
				</tr>
			</table>
		</td>
	</tr>
</table>
		</td>
	</tr>
</table>
		</td>
	</tr>
</table>";
	return $return;
}










sub login{
	my $return;
	$return .= "
<table bgcolor=$svb::tableborder width=98% cellpadding=2 cellspacing=0 align=center>
	<tr>
		<td>
			<table bgcolor=$svb::tablebg width=100% cellpadding=5 cellspacing=0>
				<tr>
					<td valign=top colspan=3>
<center>$svb::fontheader <b>$lang::please_log_in</b></center>
					</td>
				</tr>
				<tr>
					<td align=right>
						<table>
							<tr>
								<td colspan=2>
<center>$svb::fontsmall <b>$lang::log_in</b></font></center>
								</td>
							</tr>
							<tr>
								<td>
<form method=post action=index.cgi>
$svb::fontsmall $lang::email\:<br>
$lang::password\:
								</td>
								<td>
<input type=text name=email><br><input type=password name=pass>
								</td>
							</tr>
							<tr>
								<td>
&nbsp;
								</td>
								<td>
<input type=submit value='$lang::log_in'><input type=hidden name=mode value=newlogin>
</form>
								</td>
							</tr>
						</table>
					</td>
					<td width=100>
		&nbsp;
					</td>
					<td>
						<table>
							<tr>
								<td colspan=2>
<center>$svb::fontsmall <b>$lang::register</b></font></center>
								</td>
							</tr>
							<tr>
								<td>
<form method=post action=index.cgi>$svb::fontsmall $lang::email\:<br>
$lang::password\:
								</td>
								<td>
<input type=text name=email><br><input type=password name=pass>
								</td>
							</tr>
							<tr>
								<td>
&nbsp;
								</td>
								<td>
<input type=submit value='$lang::register'><input type=hidden name=mode value=$lang::register>
<input type=hidden name=count value=one>
</form>
								</td>
							</tr>
						</table>
					</td>
				</tr>
			</table>
		</td>
	</tr>
</table>";
	
	return $return;
}













sub confirmdelete {
	my ($return,$line,$email,$itemcategory,$subject,$adtype,$picurl,$curadindex,$descrip,$datenum,@stuff);
	
	$return .= "
<table bgcolor=$svb::tableborder width=98% cellpadding=2 cellspacing=0 align=center>
	<tr>
		<td>
			<table bgcolor=$svb::tablebg width=100% cellpadding=5 cellspacing=0>";






# print the personalization ##############################################
	if(fcn::checkcookie($emailcookie,$passcookie) eq "yes"){
		$return .= "
				<tr>
					<td>
						<table>
							<tr>
								<td align=left valign=top height=5>
<font face=$svb::fontface color=$svb::darkcolor size=-1>$lang::logged_in_as\:<br>  $emailcookie
								</td>
							</tr>
						</table>
					</td>
				</tr>";
	}

	my $urlcat = $cur->param('viewcategory');
	my $curadindex = $cur->param('adindex');
	my $filename = $urlcat;
	$urlcat =~ s/ /_/ig;
	$filename =~ s/[_ \s\/\.!#\$\&\\\[\]\(\),-=\+]//ig;
	@stuff = fcn::get_one_ad_array($filename,$curadindex);
	cmn::dienice("$lang::ownership_error") unless ($emailcookie eq $stuff[0]);
	
	$return .= "
				<tr>
					<td colspan=2>
<center>$svb::fontheader <b>$lang::confirm_delete</b></center>
					</td>
				</tr>
				<tr>
					<td valign=top>";
	$return .= cmn::leftmenu();
	$return .= "</td>
					<td>
$svb::fontsmall $lang::delete_this_ad (\"$stuff[2]\")?<br><br><center>
<a href=index.cgi?mode=confirm&viewcategory=$urlcat&adindex=$adindex>$lang::delete</a><br><a href=index.cgi?mode=deletead>$lang::cancel</a></font>
					</td>
				</tr>
			</table>
		</td>
	</tr>
</table>";

	return $return;
}











sub newregister{
	my $return;
	
	$return .= "
<table bgcolor=$svb::tableborder width=98% cellpadding=2 cellspacing=0 align=center>
	<tr>
		<td>
			<table bgcolor=$svb::tablebg width=100% cellpadding=5 cellspacing=0>";







# print the personalization ##############################################
	if(fcn::checkcookie($emailcookie,$passcookie) eq "yes"){
		$return .= "
				<tr>
					<td>
						<table>
							<tr>
								<td align=left valign=top height=5>
<font face=$svb::fontface color=$svb::darkcolor size=-1>$lang::logged_in_as\:<br>  $emailcookie
								</td>
							</tr>
						</table>
					</td>
				</tr>";
	}
	$return .= "
				<tr>
					<td colspan=2>
<center>$svb::fontheader <b>$lang::thanks_register</b></center>
					</td>
				</tr>
				<tr>
					<td valign=top>";
	$return .= cmn::leftmenu();
	$return .= "			</td>
					<td>
$svb::fontsmall $lang::thanks_register_text
					</td>
				</tr>
			</table>
		</td>
	</tr>
</table>";

	return $return;
}







sub newlogin{
	my $return;
	
	$return .= "
<table bgcolor=$svb::tableborder width=98% cellpadding=2 cellspacing=0 align=center>
	<tr>
		<td>
			<table bgcolor=$svb::tablebg width=100% cellpadding=5 cellspacing=0>";



# print the personalization ##############################################
	if(fcn::checkcookie($emailcookie,$passcookie) eq "yes"){
		$return .= "
				<tr>
					<td>
						<table>
							<tr>
								<td align=left valign=top height=5>
<font face=$svb::fontface color=$svb::darkcolor size=-1>$lang::logged_in_as\:<br>  $emailcookie
								</td>
							</tr>
						</table>
					</td>
				</tr>";
	}
	$return .= "
				<tr>
					<td colspan=2>
<center>$svb::fontheader <b>$lang::welcome_back</b></center>
					</td>
				</tr>
				<tr>
					<td valign=top>";
	$return .= cmn::leftmenu();
	$return .= "
					</td>
					<td>
$svb::fontsmall $lang::welcome_back_text
					</td>
				</tr>
			</table>
		</td>
	</tr>
</table>";

	return $return; 
}


sub firststuff{
	my $email = $cur->param('email');
	my $pass = $cur->param('pass');
	my $passmd5 = Digest::MD5::md5_hex($pass);
	my ($line,$allow);
	if ($email !~ /^[\w\-\.]+\@[\w\-\.]+\.[\w\-\.]+$/i){
		print "Content-type:text/html\n\n";
		cmn::dienice("$lang::invalid_email");
	}
	if($pass !~ /\w+/i){
		print "Content-type:text/html\n\n";
		cmn::dienice("$lang::invalid_password");
	}

	
	
	
# If we are logging in ###################################################
	if($mode eq "newlogin"){
		$allow = fcn::checkcookie($email,$passmd5);
		if($allow eq "BANNED"){
			print "Content-type:text/html\n\n";
			cmn::dienice($lang::you_have_been_banned);
		}
		if($allow ne "yes"){
			print "Content-type:text/html\n\n";
			cmn::dienice("$lang::invalid_login_combo");
		}
	}



# If we are registering for the first time ###############################
	if ($mode eq $lang::register){
		if ($pass =~ /\W/i or !$pass){
		print "Content-type:text/html\n\n";
				cmn::dienice("$lang::valid_password_check");
		}
		unless($email =~ /[\w\-]+\@[\w\-]+\.[\w\-]+/i){
			print "Content-type:text/html\n\n";
			cmn::dienice("$lang::invalid_email");
		}
		my $already = fcn::compare_email_for_register($email);
		unless ($already eq "yes"){
			fcn::add_user($email,$passmd5);
		}else{
			print "Content-type:text/html\n\n";
			cmn::dienice("$lang::unique_email");
		}
	}
	print "Set-Cookie: email=$email\n";
	print "Set-Cookie: pass=$passmd5\n";
}


sub dologout{
	print "Set-Cookie: email=\n";
	print "Set-Cookie: pass=\n";
}



sub savead {
	my ($return,$itemok,$picturename,$category,$count,$buffer,$urlcat);
	my $itemcategory = $cur->param('itemcategory');
	my $adtype = $cur->param('adtype');
	my $subject = $cur->param('subject');
	my $picurl = $cur->param('picurl');
	my $weburl = $cur->param('weburl');
	my $picture = $cur->param('picture');
	my $descrip = $cur->param('descrip');
	my $email = $cur->cookie('email');
	my $adindex = int(rand($randlimit));
	$adindex =~ s/\.\d+$//i;
	$picurl = "http://$picurl" if ($picurl && $picurl !~ /http:\/\//i);
	$weburl = "http://$weburl" if ($weburl && $weburl !~ /http:\/\//i);

# check everything for hack attempts, illegal characters, and stupidity ##
	$descrip =~ s/<table[\w\d\s\=\-\.\'\"\$\%\#\/\\]+>//ig;
	$descrip =~ s/<td[\w\d\s\=\-\.\'\"\$\%\#\/\\]+>//ig;
	$descrip =~ s/<tr[\w\d\s\=\-\.\'\"\$\%\#\/\\]+>//ig;
	$descrip =~ s/<\/table>//ig;
	$descrip =~ s/<\/td>//ig;
	$descrip =~ s/<\/tr>//ig;
	$descrip =~ s/<img[\w\d\s\=\-\.\'\"\$\%\#\/\\]+>//ig;
	foreach $category(@svb::categories){
		$itemok = "okeydokey" if ($itemcategory eq $category);	
	}
	cmn::dienice("$lang::please_choose_a_type") unless ($adtype);
	cmn::dienice("$lang::choose_category") unless ($itemok eq "okeydokey");
	cmn::dienice("$lang::check_subject") unless ($subject =~ /^.{5,50}$/i);
	cmn::dienice("$lang::fill_in_subject") if ($subject eq "5-50 $lang::characters");
	
	unless (!$picture){
		unless($picture =~ /\.jpg$/i or 
			$picture =~ /\.png$/i or 
			$picture =~ /\.gif$/i){
			cmn::dienice("$lang::file_type");
		}
	}
	cmn::dienice("$lang::check_long_words") if ($descrip =~ /\S{30,30}/i);
	$picturename = $adindex;
# right now we are only checking picture filetypes by extension in order to cut down on the number of dependancies
	if ($picture =~ /\.jpg$/i){
		$picturename .= ".jpg";
	}elsif($picture =~ /\.png/i){
		$picturename .= ".png";
	}elsif($picture =~ /\.gif/i){
		$picturename .= ".gif";
	}

# get the picture from the user's computer and save it to the appropriate directory
	mkdir "$svb::htmlsystempath/pictures" unless (-d "$svb::htmlsystempath/pictures");
	if ($svb::allowpicupload eq "yes"){
		if ($picture){
			open (OUTFILE,">$svb::htmlsystempath/pictures/$picturename")
					||cmn::dienice("$lang::write_file_error $svb::htmlurl/pictures/$picturename\: $!!"); 
			while(my $bytesread = read($picture,$buffer,1024)){
				print OUTFILE $buffer;
				$count++;
				if ($count > $svb::maxpicsize){
					unlink "$svb::htmlsystempath/pictures/$picturename";
					cmn::dienice("$lang::pic_too_big");
				}
			}
			close OUTFILE;
		}
	}

# write the data out to the data files ###################################
	fcn::add_ad($itemcategory,$subject,$adtype,$picurl,$adindex,$descrip,$email,$weburl);


# print the successful message ###########################################
	$urlcat = $itemcategory;
	$urlcat =~ s/ /_/ig;

# print the personalization ##############################################
	$return .= "
<table bgcolor=$svb::tableborder width=98% cellspacing=0 cellpadding=2 align=center>
	<tr>
		<td>
			<table bgcolor=$svb::tablebg width=100% cellspacing=0 cellpadding=5>
				<tr>
					<td>
						<table>
							<tr>
								<td align=left valign=top height=5>
<font face=$svb::fontface color=$svb::darkcolor size=-1>$lang::logged_in_as\:<br>  $emailcookie
								</td>
							</tr>
						</table>
					</td>
				</tr>
				<tr>
					<td valign=top>";
	$return .= cmn::leftmenu(); # make the left menu
	$lang::placed_successfully =~ s/<link1>/<a href='index.cgi?mode=view&viewcategory=$urlcat&adindex=$adindex'>$lang::here<\/a>/;
	$return .= "
					</td>
					<td><br>
$svb::fontsmall $lang::placed_successfully 
					</td>
				</tr>
			</table>
		</td>
	</tr>
</table>";
	return $return; # spit out the results
}
  


sub updatead {
	my ($return,$itemok,$buffer,$count,$urlcat,$category,$picturename);
	my $itemcategory = $cur->param('itemcategory');
	my $adtype = $cur->param('adtype');
	my $subject = $cur->param('subject');
	my $picurl = $cur->param('picurl');
	my $weburl = $cur->param('weburl');
	my $picture = $cur->param('picture');
	my $descrip = $cur->param('descrip');
	my $email = $cur->cookie('email');
	my $adindex = $cur->param('adindex');

# check everything for hack attempts, illegal characters and stupidity ###
	foreach $category(@svb::categories){
		$itemok = "okeydokey" if ($itemcategory eq $category);		
	}
	$picurl = "http://$picurl" if ($picurl && $picurl !~ /http:\/\//i);
	$weburl = "http://$weburl" if ($weburl && $weburl !~ /http:\/\//i);
	cmn::dienice("$lang::please_choose_a_type") unless ($adtype);
	cmn::dienice("$lang::choose_category") unless ($itemok eq "okeydokey");
	cmn::dienice("$lang::check_subject") unless ($subject =~ /^.{5,50}$/i);
	cmn::dienice("$lang::fill_in_subject") if ($subject eq "5-50 $lang::characters");
	$subject =~ s/(\S{30,30})/$1 /ig if ($subject =~ /.{30,30}/i);
	
	unless (!$picture){
		unless($picture =~ /\.jpg$/i or 
			$picture =~ /\.png$/i or 
			$picture =~ /\.gif$/i){
			cmn::dienice("$lang::file_type");
		}
	}
	cmn::dienice("$lang::check_long_words") if ($descrip =~ /\S{46,46}/i);
	$picturename = $adindex;
	
# right now we are only checking picture filetypes by extension in order to cut down on the number of dependancies
	if ($picture =~ /\.jpg$/i){
		$picturename .= ".jpg";
	}elsif($picture =~ /\.png$/i){
		$picturename .= ".png";
	}elsif($picture =~ /\.gif$/i){
		$picturename .= ".gif";
	}

	if ($picture){
		unlink "$svb::htmlsystempath/pictures/$adindex.jpg";
		unlink "$svb::htmlsystempath/pictures/$adindex.gif";
		unlink "$svb::htmlsystempath/pictures/$adindex.png";
	}
# upload a new picture if applicable #####################################
	if ($svb::allowpicupload eq "yes"){
		if ($picture){
			open (OUTFILE,">$svb::htmlsystempath/pictures/$picturename")
					||cmn::dienice("$lang::write_file_error $svb::htmlurl/pictures/$picturename\: $!!");
			while(my $bytesread = read($picture,$buffer,1024)){
				print OUTFILE $buffer;
				$count++;
				cmn::dienice("$lang::pic_too_big") if ($count > $svb::maxpicsize);
			}
			close OUTFILE;
		}
	}

# write the data out to the mysql database ###############################
	fcn::update_ad($adindex,$itemcategory,$subject,$adtype,$picurl,$descrip,$weburl);

	$urlcat = $itemcategory; 
	$urlcat =~ s/ /_/ig;

	$return .= "
<table bgcolor=$svb::tableborder width=98% cellpadding=2 cellspacing=0 align=center>
	<tr>
		<td>
			<table bgcolor=$svb::tablebg width=100% cellpadding=5 cellspacing=0>
				<tr>
					<td>
						<table>
							<tr>
								<td align=left valign=top height=5>
<font face=$svb::fontface color=$svb::darkcolor size=-1>$lang::logged_in_as\:<br>  $emailcookie
								</td>
							</tr>
						</table>
					</td>
				</tr>
				<tr>
					<td valign=top>";
	$return .= cmn::leftmenu();
	$lang::updated_successfully =~ s/<link1>/<a href='index.cgi?mode=view&viewcategory=$urlcat&adindex=$adindex'>$lang::here<\/a>/;
	$return .= "
					</td>
					<td><br>
$svb::fontsmall $lang::updated_successfully  
					</td>
				</tr>
			</table>
		</td>
	</tr>
</table>";
	return $return;
}





sub viewsinglead{
	
	my ($return,$email,$itemcategory,$subject,$adtype,$picurl,$adindex,$descrip,
	$weburl,$datenum,$urlcat,$line,$filename,$prettydate,@addata,$atag,$aclose);
	my $selectedadindex = $cur->param('adindex');
	fcn::counter($selectedadindex);
	my $counter = fcn::getcount($selectedadindex);
	my $viewcategory = $cur->param('viewcategory');
	$viewcategory =~ s/_/ /ig;
	$urlcat = $viewcategory;
	$urlcat =~ s/ /_/ig;
	$return .= "
<table bgcolor=$svb::tableborder width=98% cellpadding=2 cellspacing=0 align=center>
	<tr>
		<td>
			<table bgcolor=$svb::tablebg width=100% cellpadding=5 cellspacing=0>";

# print the personalization ##############################################
	if(fcn::checkcookie($emailcookie,$passcookie) eq "yes"){
		$return .= "
				<tr>
					<td>
						<table>
							<tr>
								<td align=left valign=top height=5>
<font face=$svb::fontface color=$svb::darkcolor size=-1>$lang::logged_in_as\:<br>  $emailcookie
								</td>
							</tr>
						</table>
					</td>
				</tr>";
	}
	$return .= "
				<tr>
					<td colspan=4>
$svb::fontheader <center>$lang::view_classifieds</center></font>
					</td>
				</tr>
				<tr>
					<td valign=top>\n";
	$return .= cmn::leftmenu();
	$return .= "
					</td>
					<td width=75% valign=top>
						<table bgcolor=$svb::darkcolor width=100% align=right cellpadding=0 cellspacing=0 border=0><tr><td>
						<table width=100%>";
	$return .= "
							<tr>
								<td colspan=2 bgcolor=$svb::headercellcolor>
$svb::fontsmall<b>$viewcategory</b> - <a href=index.cgi?mode=view&viewcategory=$urlcat>$lang::back</a></font>
								</td>
							</tr>";

# print out the ad formatted very nicely #################################
	$filename = $viewcategory;
	$filename =~ s/[ _\s\/\.!#\$\&\\\[\]\(\),-=\+]//ig;
	@addata = fcn::get_one_ad_array($filename,$selectedadindex);
	$prettydate = cmn::mydate($addata[8]);
	$return .= "
							<tr>
								<td bgcolor=$svb::cellcolors[0] colspan=2>
								<table width=100%>
								<tr>
								<td>$svb::fontsmall <b>$addata[2]</b> - $prettydate - $counter $lang::views</font>
								</td>
								<td bgcolor=$svb::cellcolors[0]>$svb::fontsmall <a href='email.cgi?viewcategory=$viewcategory&adindex=$addata[5]'>$lang::email_the_seller</a></font>
								</td>
								</tr>";
	$return .= "
								<tr>
								<td>
								$svb::fontsmall $addata[3]:  $addata[6]</font>
								</td>
								</tr>";
	if ($addata[7]){
		$atag = "<a href=$addata[7] target='_new'>";
		$aclose = "</a>";
	}
	if ($svb::allowpicurl =~ /yes/i){
		if ($addata[4]){
			$return .= "<tr><td colspan=2><center>$atag<img src='$addata[4]' border=0>$aclose</center></td></tr>";
			undef $atag;
			undef $aclose;
		}
	}
	if ($svb::allowpicupload =~ /yes/i){
		if (-e "$svb::htmlsystempath/pictures/$addata[5].png"){
			$return .= "<tr><td colspan=2><center>$atag<img src='$svb::htmlurl/pictures/$addata[5].png' border=0>$aclose</center></td></tr>";
			undef $atag;
			undef $aclose;
		}
		if (-e "$svb::htmlsystempath/pictures/$addata[5].jpg"){
			$return .= "<tr><td colspan=2><center>$atag<img src='$svb::htmlurl/pictures/$addata[5].jpg' border=0>$aclose</center></td></tr>";
			undef $atag;
			undef $aclose;
		}
		if (-e "$svb::htmlsystempath/pictures/$addata[5].gif"){
			$return .= "<tr><td colspan=2><center>$atag<img src='$svb::htmlurl/pictures/$addata[5].gif' border=0>$aclose</center></td></tr>";
			undef $atag;
			undef $aclose;
		}
	}
	if ($atag){
		$return .= "<tr><td colspan=2 align=center>$svb::fontsmall$atag$lang::click_for_info$aclose</font></td></tr>";
	}
	$return .= "
								</table>
							</tr>
						</table>
					</td>
				</tr>
			</table>
					</td>
				</tr>
			</table>
		</td>
	</tr>
</table>";
	return $return;

}



sub viewcategory{ 
	
	my ($return,$email,$itemcategory,$subject,$adtype,$picurl,$adindex,$descrip,
		$weburl,$datenum,@dates,%alldata,$count,@temp,$pre,$date);
	my $adindex = $cur->param('adindex');
	my $viewcategory = $cur->param('viewcategory');
	$viewcategory =~ s/_/ /ig;
	my $urlcat = $viewcategory;
	$urlcat =~ s/ /_/ig;
	$return .= "
<table bgcolor=$svb::tableborder width=98% cellpadding=2 cellspacing=0 align=center>
	<tr>
		<td>
			<table bgcolor=$svb::tablebg width=100% cellpadding=5 cellspacing=0>";

# print the personalization ##############################################
	if(fcn::checkcookie($emailcookie,$passcookie) eq "yes"){
		$return .= "
				<tr>
					<td>
						<table>
							<tr>
								<td align=left valign=top height=5>
<font face=$svb::fontface color=$svb::darkcolor size=-1>$lang::logged_in_as\:<br>  $emailcookie
								</td>
							</tr>
						</table>
					</td>
				</tr>";
	}
	$return .= "
				<tr>
					<td colspan=4>
$svb::fontheader <center>$lang::view_classifieds</center></font>
					</td>
				</tr>
				<tr>
					<td valign=top>\n";
	$return .= cmn::leftmenu();
	$return .= "
					</td>
					<td width=75% valign=top>
						<table bgcolor=$svb::darkcolor width=100% align=right cellpadding=0 cellspacing=0 border=0><tr><td>
						<table width=100%>";
	$return .= "
							<tr>
								<td colspan=3 bgcolor=$svb::headercellcolor>
$svb::fontsmall<b>$viewcategory</b>";

# get the data and print out all the ads from the category ###############
	my $filename = $viewcategory;
	$filename =~ s/[ _\s\/\.!#\$\&\\\[\]\(\),-=\+]//ig;
	($count,@dates) = fcn::get_all_dates_array($filename);
	@temp = fcn::get_all_data_array($filename);
	foreach(@temp){
		chomp;
		($email,$itemcategory,$subject,$adtype,$picurl,$adindex,$descrip,$weburl,$datenum) = split(/###/,$_);
		$alldata{$datenum} = $_;
	}
	undef @temp;
	@dates = sort(@dates);
	@dates = reverse(@dates);
	$count = 0;
	foreach $date(@dates){
		my $prettydate = cmn::mydate($date);
		($email,$itemcategory,$subject,$adtype,$picurl,$adindex,$descrip,$weburl,$datenum) = split(/###/,$alldata{$date});
		$return .= "
							<tr bgcolor=$svb::cellcolors[$count]>
								<td>
$svb::fontsmall $adtype</font>
								</td>
								<td>
$svb::fontsmall <a href='index.cgi?mode=view&viewcategory=$urlcat&adindex=$adindex'>$subject</a> - " . fcn::getcount($adindex) . " views.</font>
								</td>
								<td>
$svb::fontsmall $prettydate</font>
								</td>
							</tr>";	
		$count++;
		if ($count == 2){
			$count = 0; # go back to the first color
		}                 ###
	}
	
	$return .= "
						</td></tr></table>
						</table>
					</td
				</tr>
			</table>
		</td>
	</tr>
</table>";

	return $return;
}



sub editad{
	my ($return,$count,$category,$line,@stuff,$forsale,$wanttobuy,$forrent,
		$wanttorent,$forfree,$wantforfree,$filename);
	my $viewcategory = $cur->param('viewcategory');
	$viewcategory =~ s/_/ /ig;
	my $adindex = $cur->param('adindex');

# make sure the user is logged in ########################################
	cmn::dienice("$lang::invalid_login_combo") unless(fcn::checkcookie($emailcookie,$passcookie) eq "yes");

# figure out how we need to format the form ##############################
	$count = 4;
	$count++ if($svb::allowpicurl eq "yes");
	$count++ if($svb::allowpicupload eq "yes");
	$return .= "
<table bgcolor=$svb::tableborder width=98% cellpadding=2 cellspacing=0 align=center>
	<tr>
		<td>
			<table bgcolor=$svb::tablebg width=100% cellpadding=5 cellspacing=0>";

# print the personalization ##############################################
	if(fcn::checkcookie($emailcookie,$passcookie) eq "yes"){
		$return .= "
				<tr>
					<td>
						<table>
							<tr>
								<td align=left valign=top height=5>
<font face=$svb::fontface color=$svb::darkcolor size=-1>$lang::logged_in_as\:<br>  $emailcookie
								</td>
							</tr>
						</table>
					</td>
				</tr>";
	}
	$return .= "
				<tr>
					<td colspan=4>
$svb::fontheader <center>$lang::edit_an_ad</center></font>
					</td>
				</tr>
				<tr>
					<td valign=top>\n";
	$return .= cmn::leftmenu();
	$filename = $viewcategory;
	$filename =~ s/[_ \s\/\.!#\$\&\\\[\]\(\),-=\+]//ig;
	@stuff = fcn::get_one_ad_array($filename,$adindex);
	cmn::dienice("$lang::ownership_error") unless ($emailcookie eq $stuff[0]);
	$return .= "
					</td>
					<td>
&nbsp;
					</td>
					<td colspan=2>
						<table>
							<tr>
								<td>
<form method=post action=index.cgi enctype='multipart/form-data'>
$svb::fontsmall&nbsp;$lang::category\:&nbsp;&nbsp;
								</td>
								<td>
<select name=itemcategory><option selected value='$stuff[1]'>$stuff[1]</option>\n";
	if ($stuff[3] =~ $lang::for_sale){
		$forsale = "selected";
	}elsif ($stuff[3] =~ $lang::want_to_buy){
		$wanttobuy = "selected";
	}elsif ($stuff[3] =~ $lang::for_rent){
		$forrent = "selected";
	}elsif ($stuff[3] =~ $lang::want_to_rent){
		$wanttorent = "selected";
	}elsif ($stuff[3] =~ $lang::for_free){
		$forfree = "selected";
	}elsif ($stuff[3] =~ $lang::want_for_free){
		$wantforfree = "selected";
	}
		$return .= "</select>
								</td>
							</tr>
							<tr>
								<td width=100>
$svb::fontsmall* $lang::type_of_ad\:&nbsp;&nbsp;
								</td>
								<td>
<select name=adtype>
<option disabled selected>- $lang::please_choose_a_type -</option>
<option disabled>------------------------</option>
<option $forsale >$lang::for_sale</option>
<option $wanttobuy >$lang::want_to_buy</option>
<option $forrent >$lang::for_rent</option>
<option $wanttorent >$lang::want_to_rent</option>
<option $forfree >$lang::for_free</option>
<option $wantforfree >$lang::want_for_free</option></select>
								</td>
							</tr>
							<tr>
								<td width=100>
$svb::fontsmall* $lang::subject\:&nbsp;&nbsp;
								</td>
								<td>
<input type=text name=subject value='$stuff[2]'>
								</td>
							</tr>\n";
	if($svb::allowpicurl eq "yes"){
		$return .= "
							<tr>
								<td width=100>
$svb::fontsmall $lang::picture_url\:&nbsp;&nbsp;
								</td>
								<td>
<input type=text name=picurl size=40 value='$stuff[4]'>
								</td>
							</tr>\n";
	}
	$return .= "
							<tr>
								<td width=100>
$svb::fontsmall $lang::website_url\:&nbsp;&nbsp;
								</td>
								<td>
<input type=text name=weburl size=40 value='$stuff[7]'>
								</td>
							</tr>\n";

	if($svb::allowpicupload eq "yes"){
		$return .= "
							<tr>
								<td width=100>
$svb::fontsmall $lang::upload_a_picture\:&nbsp;&nbsp;
								</td>
								<td>
<input type=file name=picture>
								</td>
							</tr>\n";
	}
	$return .= "
							<tr>
								<td width=100 valign=top>
$svb::fontsmall*&nbsp;$lang::description\:&nbsp;&nbsp;
								</td>
								<td>
<textarea name=descrip rows=8 cols=40>$stuff[6]</textarea>
								</td>
							</tr>
							<tr>
								<td>
<input type=hidden name=adindex value=$adindex>
								<input type=submit name=mode value='$lang::update_ad'>
								<td>
<font face=$svb::fontface size=1 color=$svb::darkcolor>* - $lang::required_fields.</font>
								</td>
							</tr>
						</table>
					</td>
				</tr>
			</table>
		</td>
	</tr>
</table>\n";
	return $return;
}



sub logout{
	my $return;

	$return .= "
<table bgcolor=$svb::tableborder width=98% cellpadding=2 cellspacing=0 align=center>
	<tr>
		<td>
			<table bgcolor=$svb::tablebg width=100% cellpadding=5 cellspacing=0>
				<tr>
					<td valign=top colspan=3>
<center>$svb::fontheader <b>$lang::logout</b></center>
					</td>
				</tr>
				<tr>
									<td valign=top>\n";
	$return .= cmn::leftmenu();
	$return .= "
					</td>
					<td align=center>
					$svb::fontsmall $lang::logout_successful</td>
				</tr>
			</table>
		</td>
	</tr>
</table>";
	
	return $return;
}


sub searchpage{
	my ($return,$category);

	$return .= "
<table bgcolor=$svb::tableborder width=98% cellpadding=2 cellspacing=0 align=center>
	<tr>
		<td>
			<table bgcolor=$svb::tablebg width=100% cellpadding=5 cellspacing=0>
				<tr>
					<td valign=top colspan=3>
<center>$svb::fontheader <b>$lang::search</b></center>
					</td>
				</tr>
				<tr>
					<td rowspan=4 valign=top>\n";
	$return .= cmn::leftmenu();
	$return .= "
					</td>
					<td align=right valign=bottom>
					<form action=index.cgi method=post>
					$svb::fontsmall $lang::search_this_category\:</font></td>
					<td valign=bottom><select name=viewcategory>
					<option selected>$lang::all_categories
					<option disabled>------------------------";
	foreach $category(@svb::categories){
		$return .= "<option>$category\n";
	}
	$return .= "</select>
					</td>
				</tr>
				<tr height=40>
					<td align=right valign=top>
					$svb::fontsmall $lang::search_for\:</font>
					</td>
					<td valign=top>
					<input type=text name=searchfor>
					</td>
				</tr>
				<tr height=40>
					<td>
					&nbsp;
					</td>
					<td valign=top>
					<input type=submit name=mode value=$lang::search>
					</td>
				</tr>
				<tr>
					<td>
					&nbsp;
					</td>
					<td>
					&nbsp;
					</td>
				</tr>
			</table>
		</td>
	</tr>
</table>";
	
	return $return;
}



sub searchresults{
	my ($email,$itemcategory,$subject,$adtype,$picurl,$adindex,$descrip,$weburl,$datenum,
		$return,$urlcat,$count4,$category,$entry,$searchthing,$filename,@searcharray,
		$count,$count1,$count2,$count3,$count4,$line,$prettydate,$number);
	my $viewcategory = $cur->param('viewcategory');
	$viewcategory =~ s/_/ /ig;
	my $searchfor = $cur->param('searchfor');
	cmn::dienice($lang::search_category) if($viewcategory =~ /-{10,10}/i);
	my @searchthings = split(/ /,$searchfor);
	$searchthings[0] = " " if(!$searchthings[0]);
	
	$return .= "
<table bgcolor=$svb::tableborder width=98% cellpadding=2 cellspacing=0 align=center>
	<tr>
		<td>
			<table bgcolor=$svb::tablebg width=100% cellpadding=5 cellspacing=0>";

# print the personalization ##############################################
	if(fcn::checkcookie($emailcookie,$passcookie) eq "yes"){
		$return .= "
				<tr>
					<td>
						<table>
							<tr>
								<td align=left valign=top height=5>
<font face=$svb::fontface color=$svb::darkcolor size=-1>$lang::logged_in_as\:<br>  $emailcookie
								</td>
							</tr>
						</table>
					</td>
				</tr>";
	}
	$return .= "
				<tr>
					<td colspan=4>
<center>$svb::fontheader $lang::your_search_results</font><br>
$svb::fontsmall <a href=index.cgi?mode=search>$lang::search_again</a></font></center>
					</td>
				</tr>
				<tr>
					<td valign=top>\n";
	$return .= cmn::leftmenu();
	$return .= "
					</td>
					<td width=75% valign=top>
						<table bgcolor=$svb::darkcolor width=100% align=right cellpadding=0 cellspacing=0 border=0><tr><td>
						<table width=100%>";
	if($viewcategory =~ /$lang::all_categories/i){
		$count4 = 0;
		foreach $category(@svb::categories){
			$urlcat = $category;
			$urlcat =~ s/ /_/ig;
			$filename = $category; 
			$filename =~ s/[_ \s\/\.!#\$\&\\\[\]\(\),-=\+]//ig;
			(@searcharray) = fcn::get_all_data_array($filename);
			$number = @searcharray;
			foreach $searchthing(@searchthings){
				$count1 = 0; # total in the array
				$count2 = 0; # index number for the search array
				$count3 = 0; # start over counting the total search results for each category
				while ($count1 <= $number){
					if ($searcharray[$count2] =~ /$searchthing/i){
						$count3++; # count the matches in this category
						$count1++; # count all attempts
						$count2++; # only move to the next entry to search through if we dont delete one - if we delete one, it will shift the array, so no moving is necessary.
					}else{ 
						splice(@searcharray,$count2,1);
						$count1++;
					}
				}
			}
			$count4 = $count4 + $count3;
			if ($count3 != 0){
				$return .= "
							<tr>
								<td colspan=3 bgcolor=$svb::headercellcolor>
$svb::fontsmall<b>$category</b></font>
								</td>
							</tr>";
			}
			$count = 0; # start the count over for colors
			foreach $entry (@searcharray){
				chomp $entry;
				($email,$itemcategory,$subject,$adtype,$picurl,$adindex,$descrip,$weburl,$datenum) = split(/###/,$entry);
				$prettydate = cmn::mydate($datenum);
				if ($subject){
					$return .= "
							<tr bgcolor=$svb::cellcolors[$count]>
								<td>
$svb::fontsmall $adtype</font>
								</td>
								<td>
								$svb::fontsmall <a href='index.cgi?mode=view&viewcategory=$urlcat&adindex=$adindex'>$subject</a></font>
								</td>
								<td>
$svb::fontsmall $prettydate</font>
								</td>
							</tr>";
					$count++; # go to the next color
				}
				$count = 0 if ($count == 2);
			}
			undef @searcharray;
		}
		if ($count4 == 0){
			$return .= "<tr><td bgcolor=$svb::lightcolor>$svb::fontsmall $lang::no_ads_found</font></td></tr>"
		}
	}else{
		$count4 = 0; # count the total matches overall - not just the current category
		$urlcat = $viewcategory;
		$urlcat =~ s/ /_/ig;
		$filename = $viewcategory;
		$filename =~ s/[_ \s\/\.!#\$\&\\\[\]\(\),-=\+]//ig;
		(@searcharray) = fcn::get_all_data_array($filename);
		$number = @searcharray;
		foreach $searchthing(@searchthings){
			$count1 = 0; # total in the array
			$count2 = 0; # index number for the search array
			$count3 = 0; # start over counting the total search results for each category
			while ($count1 <= $number){
				if ($searcharray[$count2] =~ /$searchthing/i){
					$count3++; # count the matches in this category
					$count1++; # count all attempts
					$count2++;    # only move to the next entry to search through if we dont delete one - if we delete one, it will shift the array, so no moving is necessary.
				}else{
					splice(@searcharray,$count2,1);
					$count1++; # count all attempts
				}
			}
		}
		$count4 = $count4 + $count3;
		if ($count3 != 0){
			$return .= "
							<tr>
								<td colspan=3 bgcolor=$svb::headercellcolor>
$svb::fontsmall<b>$viewcategory</b></font>
								</td>
							</tr>";
		}
		$count = 0; # start the count over for colors
		foreach $entry (@searcharray){
			chomp $entry;
			($email,$itemcategory,$subject,$adtype,$picurl,$adindex,$descrip,$weburl,$datenum) = split(/###/,$entry);
			$prettydate = cmn::mydate($datenum);
			if ($subject){
				$return .= "
						<tr bgcolor=$svb::cellcolors[$count]>
								<td>
$svb::fontsmall $adtype</font>
								</td>
								<td>
$svb::fontsmall <a href='index.cgi?mode=view&viewcategory=$urlcat&adindex=$adindex'>$subject</a></font>
								</td>
								<td>
$svb::fontsmall $prettydate</font>
								</td>
							</tr>";
				$count++; # go to the next color
			}
			$count = 0 if ($count == 2);
		}
		undef @searcharray;
		if ($count4 == 0){
			$return .= "<tr><td bgcolor=$svb::lightcolor>$svb::fontsmall $lang::no_ads_found</font></td></tr>"
		}

	}


	$return .= "
					</td>
				</tr>
			</table>
		</td>
	</tr>
</table>
		</td>
	</tr>
</table>
		</td>
	</tr>
</table>";
	return $return;
}




sub redirect{
        my $return .= "                                                                                           
<html>
<head>
<title>$svb::title</title>
<META HTTP-EQUIV=\"Refresh\" CONTENT=\"0; URL=index.cgi?mode=$_[0]\">
</head>
<body bgcolor=#FFFFFF>
<center>
$svb::fontsmall$lang::logging_you_in</font>
</center>
</body>
</html>";
	return $return;
}