#!/usr/bin/perl

#
# BECANADA - ISELL Classifieds Script
# Copyright 2000 - All Rights Reserved.
# Website: http://www.becanada.com 
# E-Mail : sales@becanada.com
# Version 3.1 - PAID SILVER VERSION
# Jan 13 2003
#
# !!!!! WARNING !!!!!!
#
# - Variables below this line are default values.
# - Any attempt to set values below this line will NOT work.
# - The script name (classifieds.cgi) CAN NOT be changed.
#
# If you want to suggest modifications or want to purchase
# more advanced versions, visit the BECANADA site above.
#
# ! DO NOT MODIFY below this line, you will be in violation
# of copyrights, and this program will cease to function.
#
# You may also cause harm to your data files, and server.
#
# ! DO NOT MODIFY - this program will inform the script
# maker BECANADA of ANY modifications - automatically.
# 
# All unlawful modifications will result in court action.
# International fines are $250,000 or 5 years in jail PER infraction.
#
# Absolutely no copying, reverse engineering, or use of any part
# of this source code in ANY way, shape or form
# is allowed without PERMISSION from BECANADA.
#
##################################################################

# Data & Categories filename
$categories = "category.txt";

$block="block.txt";
$blockemail="blockemail.txt";

$topslogan1 = "topad1.txt";
$topslogan2 = "topad2.txt";

$topslogan3 = "topad3.txt";
$topslogan4 = "topad4.txt";
$banners = "banners.txt";
$banners2 = "count.txt";

$header1="header.txt";
$footer1="footer.txt";
$leftside="leftside.txt";
$subject1="subject1.txt";
$subject2="subject2.txt";
$permdatabase="database.txt";

$server = $ENV{'HTTP_HOST'};
@referers = ("$server");

@checkfl = ($header1,$footer1,$leftside,$subject1,$subject2,$banners,$banners2,$topslogan1,$topslogan2,$topslogan3,$topslogan4,$permdatabase);

for ($i=0;$i<@checkfl;$i++) {

if (-e "@checkfl[$i]") {  }
else { open(HTML, ">@checkfl[$i]") || print "I can't create that file\n";
	 print FILE "";
	 close(FILE);
	 chmod 0644, '@checkfl[$i]'; 
	 }

}

if (-e "$categories") { 
	open(FILE, $categories ) || print "I can't open that file\n";
	@cats = <FILE>;
	close(FILE);    
	 }

else {	
	@cats[0]="/usr/sbin/sendmail|webmaster\@$server|http://$server|$server Free Classifieds|25|1500|||||gold|blue|black|white||||support\@$server|Operator name|dtb4863||24||||||no||||0|0|0|100|0|0|yes|no|no|arial|highest|\n";
	open(HTML, ">$categories") || print "I can't create that file\n";
	print HTML @cats;
print HTML qq~Advertising|Advertising|Promotion, Software, Services|
Business|Business Opportunities|Work at home, income opportunities|
Cars|Cars For Sale|Cars, Trucks, Motorcycles|
Commission|Commission Sales|Affliate programs, reseller programs, sales|
Computers|Computers|Computers, Hardware, Software, Etc.|
Dealerships|Dealerships|Franchises, Businesses for sales, Lease|
Financial|Financial|Services, and Investments|
Freebies|Freebies|Free Stuff, promotional material, discounts|
Health|Health Nutrition|Vitamins, Get Well, Self Help|
HBusiness|Home Business|Home Based Business, No investment/low investment|
Mail|Mail Order|Mail order publications, income opportunities|
Miscellaneous|Miscellaneous|Everything but the kitchen sink|
MLM|MLM|Multi-Level Marketing, Consumer Direct Marketing|
Publications|Publications|How Tos, Information|
Services|Services|Professional Services, Services offered.|
RealE|Real Estate|Houses, Land for sale|\n~;
	close(HTML);
	chmod 0644, '$categories';
open(FILE, $categories ) || print "I can't open that file\n";
	@cats = <FILE>;
	close(FILE);
	}

($sendmail,$email,$home,$sitename,$showads,$maxads,$slogantop,$sloganbottom,$slogantop2,$sloganbottom2,$clads,$lnks,$txt,$bgcolor,$imgbck,$topimg,$toplnk,$emcopy,$opname,$adminpassword,$paidlink,$hourly,$slogantop3,$sloganbottom3,$slogantop4,$sloganbottom4,$yesbest,$spamable,$showpslink,$adsendhtml,$sitelogo,$adoptions,$globaladyes,$htmlinads,$adcopysize,$allowimages,$postadsubject,$expireadsubject,$webmasterverify,$verifyuseremail,$basefont,$priorityofemail) =  split(/\|/,@cats[0]);

$CC="classifieds.cgi";
$ret = "[<a href='$CC'>Click Here To Return to Classifieds</a>]";
$purge=20;

open(FILE, $banners ) || print "I can't open that file\n";
@ads = <FILE>;
close(FILE); 

# change for possible bug with multiple ads.

$zz=0;
@adbanner=('');

for ($i=0;$i<@ads;$i++) {

if (index(@ads[$i],"%%")>-1) {
@words=split(/%%/,@ads[$i]);
for ($x=0;$x<@words;$x++) {
@adbanner[$zz]=@adbanner[$zz] . @words[$x];
$zz++;
}

}

else {
@adbanner[$zz]=@adbanner[$zz] . @ads[$i];
}

}



@days   = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday');
@months = ('January','February','March','April','May','June','July','August','September','October','November','December');

($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6];
$year = substr($year, 1);    
$time = sprintf("%02d:%02d:%02d",$hour,$min,$sec);
$year += 2000;
$date = "$days[$wday], $months[$mon] $mday, $year at $time";
$dup=0;
$sear=0;
$img="";
$best="";
$pslink="";
if ($topimg ne "") { $img="<a href='$toplnk' target='123'><img src='$topimg' border=0></a><BR>"; }


if (@adbanner ne "") { 	

open(FILE, $banners2 ) || print "I can't open that file\n";
$count = <FILE>;
close(FILE); 

$img= $img . "@adbanner[$count]"; 
$count++;

if ($count > @adbanner || $count eq @adbanner ) { $count="0"; }

open(FILE, ">$banners2" ) || print "I can't open that file\n";
print FILE "$count";
close(FILE); 
		}


if ($yesbest eq "1") {
$best="<script src='http://www.best-host.com/isell/sell.js'></script><P>";
}

if ($showpslink eq "yes") {
$pslink="<script src='http://www.becanada-isell.com/power.js'></script><P>";
}

$showclasslink="";
if ($expireadsubject eq "yes") {
$showclasslink="<script src='http://www.becanada-isell.com/classifieds.js'></script><P>";
}

$sitelogo2="";

if (index($sitelogo,"http://")>-1) {
$sitelogo2="<img src=$sitelogo>";
}

# PAID

open(FILE, $header1 ) || print "I can't open that file\n";
@headerads = <FILE>;
close(FILE);

open(FILE, $footer1 ) || print "I can't open that file\n";
@footerads = <FILE>;
close(FILE); 


$header = "$sitelogo2 @headerads";

$footer ="<P>$img<p>$showclasslink $pslink $best<P> @footerads";


@items = ("Name|40", "Address|40","City|30","State|30","Zip Code|20","Country|30","Phone Number|20","Headline|50","Ad Copy|$adcopysize","Email Address|50||@","Website Address|100","Password|10");
@expiry=("10 Minutes|.005","1 Hour|.05","1 Day|1","7 Days|7","14 Days|14","30 Days|30","ADMIN 60 Days|?60","ADMIN 3 Monthes|?90","ADMIN 4 Monthes|?120","ADMIN 6 Monthes|?180","ADMIN 12 Monthes|?365","ADMIN NEVER Expiry|?never");

($cg,$data,$singlead,$extra1) =  split(/\|/,$ENV{'QUERY_STRING'});


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

if ($cg ne "frames" && $cg ne "frames1") { 
print "<html><head><basefont face=$basefont ><title>$sitename</title></head>\n";
print "<body LINK='$lnks' VLINK='$lnks' TEXT='$txt' BGCOLOR=$bgcolor BACKGROUND=$imgbck >\n$header\n";
}


if ($cg eq "post_ad" || $cg eq "do_delete_ad" || $cg eq "add_to_categories" || $cg eq "do_delete_cat" || $cg eq "do_email" || $cg eq "search_ads" || $cg eq "email_ad_friend" || $cg eq "admin_access" ) {

read(STDIN, $input, $ENV{'CONTENT_LENGTH'});

	# split the input
	@pairs = split(/&/, $input);

	# split the name/value pairs
	foreach $pair (@pairs) {

	($name, $value) = split(/=/, $pair);

	$name =~ tr/+/ /;
	$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	$value =~ tr/+/ /;

# change value to allow Returns.

	if ($cg eq "do_email" || $cg eq "add_to_categories" ) {	

	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	$value =~ s/<!--(.|)-->//g;


	}

	else {

	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	
	if ($name eq "Ad Copy" && $htmlinads eq "1") {
	$value =~ s/|\n*//g;
	}
	else {
	$value =~ s/<([^>]|\n)*>//g;
	}

	$value =~ s/(\s+|\n)?,(\s+|\n)?/,/g;
	$value =~ s/(\s+)?\n+(\s+)?//g;

	}


  $FORM{$name} = $value;
    }

}


$modify=0;
$multisearch=0;

#display ads
$did=0;

if ($cg eq "display_ads") {
&displayads;
$did=1;
}

if ($cg eq "verify_AD") {
&go_verify_ads;
$did=1;
}

if ($cg eq "remove") {
&remove_ALL;
$did=1;
}

if ($cg eq "place_ads") {

if ($spamable ne "yes") { &check_url; }
&place_ads;
$did=1;
}

if ($cg eq "post_ad") {
if ($spamable ne "yes") { &check_url; }
&post_ad;
$did=1;
}

if ($cg eq "delete_ad") {
&delete_ad;
$did=1;
}

if ($cg eq "do_delete_ad") {
&do_delete_ad;
$did=1;
}

if ($cg eq "add_category") {
&add_category;
$did=1;
}

if ($cg eq "add_to_categories") {
&add_to_categories;
$did=1;
}

if ($cg eq "delete_cat") {
&delete_cat;
$did=1;
}

if ($cg eq "do_delete_cat") {
&do_delete_cat;
$did=1;
}

if ($cg eq "admin_access") {
&check_url;
&admin_access;
$did=1;
}

if ($cg eq "do_email") {
&check_url;
&do_email;
$did=1;
}

if ($cg eq "friend") {
&check_url;
&friend;
$did=1;
}

if ($cg eq "frames") {
&frames;
$did=1;
}


if ($cg eq "frames1") {
&frames1;
$did=1;
}


if ($cg eq "email_ad_friend") {
&check_url;
&email_ad_friend;
$did=1;
}


if ($cg eq "search_ads") {
@keywords = split(/,/,$FORM{'keywords'});
&check_url;
@keywords = split(/,/,$FORM{'keywords'});
$sear=1;

if ($FORM{'submit'} eq 'Search All') {
$multisearch=1;
for ($data=1;$data<@cats;$data++) {
&displayads;
}

}
else {
&displayads;
}

$did=1;
}

if ($did eq "0") {
&showcategories;
}

if ($cg ne "frames1") {
print "$footer </body></html>\n";
}

exit;


#
# End main
#


sub showcategories {

open(FILE, $leftside ) || print "I can't open that file\n";
@leftads = <FILE>;
close(FILE);

$c=int(@cats / 2)+1;
print qq~
<table cellpadding='3' cellspacing='3' width=99% >
<TR><td width=15% rowspan=$c VALIGN='Top'>@leftads</td>
<td colspan=2>$img</TD>
</tr><tr>
\n~;

$c=0;
$cwid=2;
$cwid2=int( 85/ $cwid ) . "%";

for ($a = 1; $a < @cats; $a++) {
	
@words = split(/\|/,$cats[$a]); 

if (@words[0] ne '' ) {
	&newdatabasecreate("@words[0]");
	}

print qq~<TD width=$cwid2 VALIGN="Top" ><a href="$CC?display_ads|$a">@words[1] - View ads / Post Ads</a><BR>
<small>@words[2]</small></td>\n~; 	

$c++; 
if ($c eq $cwid ) {
	$c=0;
	print "</tr><tr>\n";
	}


}
print qq~</TR><tr><td></td><td colspan=2><form method='post' action='$CC?search_ads|1' >
<P><small><B>Search all ads by keywords/phrases: </b>[separate by commas]:</small><BR><input type=text name="keywords" size=80><input type=submit name=submit value='Search All'>
</form></td></tr></table>~;

$footer=$footer . qq~<HR height=15 color=black><P>
<small><i><form method='post' action='$CC?admin_access|$a'><B>Admin ONLY Settings</b><BR>Password: <input type='password' name='password'><input type='submit' name='access' value='Go Admin!'></form></small></center>
~;

}


sub newdatabasecreate {
local ($x) = @_;

if (-e "$x") {      }

else {

	open(HTML, ">$x") || print "I can't create that file\n";
	print HTML "";
	close(HTML);
	chmod 0644, '$x';

	}

}


sub displayads {

($fl,$nm,$dec) =  split(/\|/,@cats[$data]);

open(HTML,$fl) || print "I can't access that file\n";
@count = <HTML>;
close(HTML);

$c=@count;
$results=0;

$ct=$c * ($hour/$hourly);
$ct=int($ct);
$adnum=0;

if ($sear ne "1") { 
print "<big><big>$nm</big></big> {$c ads }<BR><i><FONT COLOR='#8000ff'><u>$dec</u></font></i><p>$img<P> \n";
}

if ($showads eq "0" ){ $showads= @count;}
if ($singlead ne "") {	$adnum=$singlead; }
else {$adnum=$adnum+$ct;}

if ($adnum>= @count) {$adnum=0;}

if ($sear eq "1") {
	$showads=@count;
	$adnum=0;
	print "<P><big><B>$nm</b></big> {$c listings } <i><BR><FONT COLOR='#8000ff'><u>$dec</u></font></i><P>\n";
	print "<BIG>Search Results [maximum 25] for:</big><BR> @keywords<P>\n";
	}

$dodelete=0;
$rlv=0;
$keepad=$adnum;
$ttads=0;

if (@count eq 0) {print "<P>No Ads in this category.\n"; $showads=-1;}

#
# Start show loop
#

for ($a = 0; $a < $showads; $a++) {

@words = split(/\|/,@count[$adnum]); 
$show=1;

if ($sear eq "1") {
	$show=0;
	for ($i = 0; $i < @keywords; $i++) {
	if (index(@count[$adnum],@keywords[$i])>=0){$show++;}
	}
	if ($show eq @keywords) {$show=1; $results++;}
	else {$show=0; }
	}


$adnum++;
$ttads++;

if ($ttads > @count ) {last;}

$x=@words;


if (index(@words[12],"hold") eq 0) {
$show=0;
@words[12]=substr($x,4);
}


$xx2="";
if (substr(@words[12],0,6) eq "?never") {
	$dt="<font color='green'><BIG><big><B>Never Expiry <BR>Premium Ad</b></big></Big></font>"; 
	$xx2="bgcolor=green border=5";}
else {

$dt=localtime(@words[12]);

if (substr(@words[12],0,1) eq "?") {
@words[12]=substr(@words[12],1);
$dt=localtime(@words[12]) . "<BR><font color='green'><BIG><BIG><B>Premium Ad</b></big></bIG></font>"; 
$xx2="bgcolor=green border=5";

}

if (time>@words[12] && @words[12] !="") {
$dodelete=1;
$dt="<font color='red'><BIG>!! Now - Last Viewing</big></font>";
}

}

if ($show eq "1" && $adoptions ne "1" || ($adoptions eq "1" && $singlead ne "" && $extra1 ne "nextads" ) ) {

$xshowad="";
$xshowad2="";
$sddd1=$adnum - 1;

if ($adoptions eq "1" && $singlead ne "" ) { 
if (@words[13] ne "") { $xshowad=qq~<a href="@words[10]" target="newad" ><img src="@words[13]"></a><P>~; }
}
else {
if (@words[13] ne "") { $xshowad2=qq~<a href="@words[13]" target="newadimg" ><B>PICTURE</b></a> | ~; }
}

print qq~
<table width=75% $xx2>
<TR>
<td bgcolor="$clads" width=25% rowspan=2 VALIGN="Top">
<small>Posted By: <i>@words[0]</i><BR>@words[3], @words[5]<p><small><small>Ad $adnum Expires:<BR> $dt
</small></small></center></td>
<TD width=75% bgcolor="#ffffff">$xshowad
<B>@words[7]</b><P><small>@words[8]</small></td>
</tr><td bgcolor="$clads" height=5><P ALIGN=right><small>$xshowad2<a href="$CC?friend|$data|$adnum">Email this ad to a Friend</a> | <a href="@words[10]" target="newad">Go to Website</a> | <a href="mailto:@words[9]">Send An Email</a> |</small></td></tr>
</tr>
</table>
<BR>
\n~; 

if ($adoptions eq "1" && $singlead ne "" ) { 
$a=$showads; $ttads=$a; last; 
}
	
}

else {

if ($show eq "1" && $adoptions eq "1" ) {

$sddd=substr(@words[8],0,40);
$sddd1=$adnum - 1;

$xshowad2="";
if (@words[13] ne "") { $xshowad2=qq~<a href="$CC?display_ads|$data|$sddd1">PICTURE</a><P>~; }

print qq~
<table width=75% $xx2>
<TR><td width=10%>$xshowad2</td>
<TD bgcolor="#ffffff"><B>Ad # $adnum :<a href="$CC?display_ads|$data|$sddd1">@words[7]</a></b><BR><small>$sddd ...</small></td>
</tr></table>
\n~; 	
}

}


if ($adnum >= @count  ) {$adnum=0; }
if ($results>25 ) { $a=$showads; $ttads=$a; last;}

}

if ($ttads < @count ) {
print "<P>[<i><a href='$CC?display_ads|$data|$adnum|nextads'>--- Next Ads ----</a></i>]\n";

}

if ($dodelete eq "1") {
&purge_data;
}

if (($multisearch eq "1" && $data eq (@cats-1) ) || $multisearch eq "0") {
print qq~
<P>
<form method='post' action='$CC?search_ads|$data' >
<P><B>Search All Ads in $nm:</b>
<BR>Keywords [separate by commas]:
<BR><input type=text name="keywords" size=40><BR>
<input type=submit name=submit value='Search'><input type=submit name=submit value='Search All'><BR>
</form>
<P>[<i><a href='$CC?place_ads|$data'>Post Ad in This Category</a></i>] 
[<i><a href='$CC?delete_ad|$data'>Modify / Delete Ad in This Category</a></i>]<br>$ret
 
\n~;

}

}


sub place_ads {

($fl,$nm,$dec) =  split(/\|/,@cats[$data]);

if ($modify eq "1") {
($fl,$nm,$dec) =  split(/\|/,@cats[$FORM{'cat'}]);

open(HTML,$fl) || print "I can't access that file\n";
@count = <HTML>;
close(HTML);

@modad=split(/\|/,@count[$FORM{'number'}]);
chomp(@modad);
$data=$FORM{'cat'};
$ex2="<BR><B>Only Admin can <u>modify</u> expiry date.</b><input type='hidden' name='expmod' value='@modad[12]'>";
}


$ex1="<select name='exp'>\n";
$fww="SELECTED";

for ($b=0;$b<@expiry;$b++) {
($exnm,$exvl) =  split(/\|/,@expiry[$b]);
$ex1=$ex1 . "<option value='$exvl' $fww>$exnm \n";
$fww="";
}
$ex1=$ex1 . "</select>\n";

$fggth="";
if ($htmlinads eq "1") { 
$fggth="- <b>EXCEPT in AD COPY.</b>";
}

$showimageok="";
if ($allowimages eq "1") {
$showimagesok=qq~<b>OPTIONAL:</b> Image for Ad [http://mydomain.com/myadimage.jpg]: <BR><input type='text' name='adimage' size=60 value='@modad[13]'>~;
}

if ($verifyuseremail eq "1" && $webmasterverify ne "1" ) {
$showimagesok=$showimagesok . "<P><B>NOTICE: </b>You must verify your email address via email sent to you prior to your ad being posted.";
}

if ($webmasterverify eq "1") {
$showimagesok=$showimagesok . "<P><B>NOTICE: </b>Webmaster of this classifieds must verify your ad, BEFORE it is visible to the public.";
}

print qq~<h2>$nm</h2><p><i>$dec</i><P><B>Post Your FREE Ad</B>:
<P>* All Fields are required.<BR>
* Only name, email, url, headline and ad copy will appear online.<BR>
* If you want to have more contact info included, add it to your ad copy only.<BR>
* HTML is not allowed $fggth.<BR>
* If there is an error you will get a pop up notice.<BR>
* If you do not have a website, leave the website field BLANK.<BR>

<form method='post' action='$CC?post_ad' name='newad' onSubmit='if (check() == true) { return true; } else {return false;}'>
<table>
\n~;

$sc="<script>\n <!-- \nvar x1=new Array(); var x2=new Array(); var x3=new Array(); var x4=new Array();\n";

for ($b = 0; $b < @items; $b++) {

($i1,$i2,$ty,$req) = split(/\|/,@items[$b]); 

$sc=$sc . "x1[$b]='$i1';\n x2[$b]='$i2';\n x3[$b]='$ty';\n x4[$b]='$req';\n";

if ($b eq '8') { 
print qq~
<tr><TD>$i1 [<small>$i2 characters</small>]</td><td><textarea name="$i1" cols=60 rows=4>@modad[$b]</textarea></td></td>
\n~; 
	}

else {
print qq~
<tr><TD>$i1 [<small>$i2 characters</small>]</td><td><input type="text" name="$i1" value="@modad[$b]" size='$i2'></td></td>
\n~; 	
	}

}

print qq~
</table><BR>
$sc
function check() {

var error = "";
var ff="";
var ch="";
var forbid="|<>"+'"';
var sk=unescape("%0A");
var allhtml=$htmlinads;

if (allhtml == 1) {
forbid="|";
}

for (i=0; i<x1.length; i++) {

ff=document.forms['newad'].elements[i].value;
ch=document.forms['newad'].elements[i].name;

if (ff=="" && i!=10 ) {error=error+"Blank Field: "+ch+sk;}
if (ff.indexOf(x4[i])<0 && x4[i]!="" && i!=10 ) {error=error+"Missing Required Value: "+ch+ " Needs: "+x4[i]+sk;}
if ( i==9 && ff.indexOf('.')<0) {error=error+"Missing Required Value: "+ch+ " Needs: ."+sk;}
if (ff.length>x2[i]) {error=error+"Over Size Limit for "+ch+" by "+(ff.length-x2[i])+" characters."+sk;}

for (j=0; j<forbid.length; j++) {
	if (ff.indexOf(forbid.charAt(j))>-1) {
	error=error+"Illegal Character [ "+forbid.charAt(j)+" ] in Field: "+ch+sk;
	break;
	}
    }

}

if (error!="") { alert("Submissions Aborted"+sk+sk+"Please Correct the Following Error(s):"+sk+sk+error+sk+"Click OK To Continue."); return false;}
else {return true;}

}
//-->
</script>
Ad To Last: $ex1<BR>
$ex2
<p>
$showimagesok
<P>
<input type=hidden name='cat' value='$data' >
<input type=hidden name='mod' value='$FORM{'number'}'>
<input type=submit name=submit value='Submit Your Ad' >
<P>* Upon submissions you may have additional <U>options</u>.<p>
<small><U>By submitting your FREE AD, you agree to accept:</u><p>
---> 1 AUTOMATED email confirming submissions of your ad, <BR>
---> 1 AUTOMATED email confirming expiration of your ad <BR>
---> An occasional email direct from the operator of this site.<P> 
-----> <I><B>Which you will NOT consider SPAM under ANY circumstances.</b></i></small>
<P><table ><tr><td bgcolor="black"><font color="white"><B>Admin Only</b>:<P> Enter your Password for "ADMIN" Time periods ,"NEVER" expiry, "Modify" Expiry and "duplicate override".]</font></td></tr></table>

Admin Password: <input type=text name='pass-admin' value='' ><BR>
</form>
<P>[<a href='$CC?display_ads|$data'>Click Here To Return to $nm </a>] $ret 
\n~; 

}

sub post_ad {

($fl,$nm,$dec) =  split(/\|/,@cats[$FORM{'cat'}]);

$d="";


if (-e "$block") {  }
else { open(HTML, ">$block") || print "I can't create that file\n";
	 print FILE "";
	 close(FILE);
	 chmod 0644, '$block'; 

	 }

open(HTML,$block) || print "I can't access that file\n";
@badwords =<HTML>;
close(HTML);

for ($i=0;$i<@badwords;$i++) {

chomp(@badwords[$i]);

if (index(lc($FORM{'Website Address'}),lc(@badwords[$i]) )> -1) {

print "<P>SORRY!<P>$FORM{'Website Address'} has been Banned by webmaster by this site...<P>";
exit;

}

}


#
# emails
#

if (-e "$blockemail") {  }
else { open(HTML, ">$blockemail") || print "I can't create that file\n";
	 print FILE "";
	 close(FILE);
	 chmod 0644, '$blockemail'; 

	 }

open(HTML,$blockemail ) || print "I can't access that file\n";
@badwords =<HTML>;
close(HTML);

for ($i=0;$i<@badwords;$i++) {

chomp(@badwords[$i]);

if (index(lc($FORM{'Email Address'}),lc(@badwords[$i]) )> -1) {

print "<P>$FORM{'Email Address'} has Banned by webmaster<P>";
exit;

}

}


for ($b = 0; $b < @items; $b++) {
($i1,$i2,$ty,$req) = split(/\|/,@items[$b]); 
$d=$d . $FORM{$i1} . "|";
}

$ex=$FORM{'exp'};

$adimg="|$FORM{'adimage'}";

if ($FORM{'pass-admin'} eq $adminpassword ) { 

	if ($ex ne '?never' && index($ex,'?')> -1 ) {	
	$ex="?" . (time+(substr($ex,1)*86400));
	}

	if ( $FORM{'pass-admin'} eq $adminpassword && index($ex,'?')< 0 ) {
	$ex=time+($ex*86400);
	}

	if ( $FORM{'exp'} eq "" ) {	
	$ex=$FORM{'expmod'};
	}
	
}

else {

	if ( $FORM{'expmod'} ne "" ) {	
	$ex=$FORM{'expmod'};
	}

else {
	if ( index($ex,"?") eq 0 ) {
	print "<P>Admin Only - Invalid Password - you can not choose these time periods.<P>$ret\n";
	exit;
	}
	
	else {
	$ex=time+($ex*86400);
	}

}

}

$holdmail="";
$verifylink="";
$webmasterVV="";

if ($verifyuseremail eq "1" && $FORM{'expmod'} eq "" && $webmasterverify ne "1" ) {

$holdmail="hold";
print "<P><b>IMPORTANT:</b> You will have to verify your email address, in the ad posted email you receive.<P>";

$verifylink=qq~=========== IMPORTANT ==========

for your ad to appear, you MUST click this link to verify your ad:
$home$ENV{'SCRIPT_NAME'}?verify_AD|$FORM{'cat'}|$ex|$FORM{'Email Address'}|
~;

}

if ($webmasterverify eq "1" && $FORM{'expmod'} eq "") {

$holdmail="hold";

print "<P><B>NOTICE: </b>Webmaster of this classifieds must verify your ad, BEFORE it is visible to the public.";

$webmasterVV=qq~=========== IMPORTANT ==========

Click this link to allow ad to become visible:
$home$ENV{'SCRIPT_NAME'}?verify_AD|$FORM{'cat'}|$ex|$FORM{'Email Address'}|
~;

$verifylink=qq~=========== IMPORTANT ==========

Webmaster review REQUIRED before your ad will be visible to the public. 
Allow 24-48 hours for webmaster to review your ad[s].
~;

}

$d=$d . $holdmail . $ex . $adimg . "|";

open(HTML,$fl) || print "I can't access that file\n";
@count = <HTML>;
close(HTML);

$dup="0";

($xx1,$ty2,$ty,$req) = split(/\|/,@items[9]);
($xx2,$ty,$ty2,$req) = split(/\|/,@items[10]); 

for ($a=0; $a<@count; $a++) {

@words=split(/\|/,@count[$a]);

if (@words[9] eq $FORM{$xx1} ) {
$dup="1"; last;}

}

if ($FORM{'expmod'} ne "") {

if (index($d,'\n') < 0 ) { $d=$d . "\n"; }

@ReturnArray = splice(@count,$FORM{'mod'},1,$d );

&get_file_lock("$fl.lock");
open(FILE, ">$fl") || print "I can't create that file\n";
print FILE @count ;
close(FILE);
&release_file_lock("$fl.lock");

print "<P> Ad Updated<P>$ret \n";

}

if ( ($dup ne "1" || $FORM{'pass-admin'} eq $adminpassword) && $FORM{'expmod'} eq "" ) {

if (@count>$maxads) {
&purge_data;
}

&get_file_lock("$fl.lock");
open(FILE, ">>$fl") || print "I can't create that file\n";
print FILE "$d\n";
close(FILE);
&release_file_lock("$fl.lock");



#
# Add permanent
#

&get_file_lock("$permdatabase.lock");
open(FILE, ">>$permdatabase") || print "I can't create that file\n";
print FILE "$FORM{'Name'}|$FORM{'Email Address'}|$FORM{'Phone Number'}|$FORM{'Headline'}|$FORM{'Website Address'}|\n";
close(FILE);
&release_file_lock("$permdatabase.lock");



if ($ex ne "never") { $ex=localtime($ex); }

if ($FORM{'Password'} eq $adminpassword) {
$FORM{'Password'}="Admin Password";
}


	open(FILE, $topslogan1 ) || print "I can't open that file\n";
	@ads = <FILE>;
	close(FILE);

$zz=0;
@allads=('');

for ($i=0;$i<@ads;$i++) {

if (index(@ads[$i],"%%")>-1) {
@words=split(/%%/,@ads[$i]);
for ($x=0;$x<@words;$x++) {
@allads[$zz]=@allads[$zz] . @words[$x];
$zz++;
}

}

else {
@allads[$zz]=@allads[$zz] . @ads[$i];
}

}

srand;
$ad1=@allads[int(rand($zz))];
if ($zz eq 0) { $ad1=@allads[0]; }

	open(FILE, $topslogan2 ) || print "I can't open that file\n";
	@ads = <FILE>;
	close(FILE);   

$zz=0;
@allads=('');

for ($i=0;$i<@ads;$i++) {

if (index(@ads[$i],"%%")>-1) {
@words=split(/%%/,@ads[$i]);
for ($x=0;$x<@words;$x++) {
@allads[$zz]=@allads[$zz] . @words[$x];
$zz++;
}

}

else {
@allads[$zz]=@allads[$zz] . @ads[$i];
}

}

srand;
$ad2=@allads[int(rand($zz))];
if ($zz eq 0) { $ad2=@allads[0]; }

	open(FILE, $subject1 ) || print "I can't open that file\n";
	@ads = <FILE>;
	close(FILE);  

$zz=0;
@allads=('');

for ($i=0;$i<@ads;$i++) {

if (index(@ads[$i],"%%")>-1) {
@words=split(/%%/,@ads[$i]);
for ($x=0;$x<@words;$x++) {
@allads[$zz]=@allads[$zz] . @words[$x];
$zz++;
}

}

else {
@allads[$zz]=@allads[$zz] . @ads[$i];
}

}

srand;
$subject=@allads[int(rand($zz))];
if ($zz eq 0) { $subject=@allads[0]; }


$sender="text/plain \n";
if ($adsendhtml eq 'html') { $sender="text/html \n<pre>";}


if ($emcopy ne "" ) {
	$emcopy="TO: $FORM{'Name'}<$FORM{'Email Address'}>\n" . 'BCC: ' . $emcopy ;
	}
else {
$emcopy="TO: $FORM{'Name'}<$FORM{'Email Address'}>";
}


open (MAIL1, "|$sendmail -t ");

print MAIL1 qq~$emcopy
FROM: "Classifieds at $home" <$email>
SUBJECT: $FORM{'Name'} $subject
Content-Type: $sender

$ad1

Thank you $FORM{'Name'} for your ad posting:

Headline: $FORM{'Headline'}

Ad Copy: $FORM{'Ad Copy'}

E-Mail: $FORM{'Email Address'}
Name: $FORM{'Name'} 
URL: $FORM{'Website Address'}

Your Ad will expire on: $ex
Your Ad Delete is Password: $FORM{'Password'}

in :

Category: $nm
Detailed: $dec

$verifylink

Posted at Classifieds website:

Site: $home

Please visit us again to re-post your ad.
You will get an expiry notice as well.

Thanks.
Webmaster at $home
$opname

$ad2

\n~;
close (MAIL1);

#
# Email webmaster for confirmation IF set.
# 

if ($webmasterVV ne "") {

open (MAIL1, "|$sendmail -t ");

print MAIL1 qq~TO: "Classifieds at $home" <$email>
FROM: $FORM{'Name'}<$FORM{'Email Address'}>
SUBJECT: Webmaster Review of Ad Required.

Webmaster, please click on link to accept ad below and
allow it to become visible to the public.

$webmasterVV

Category: $nm
Detailed: $dec

Headline: 
$FORM{'Headline'}

Ad Copy: 
$FORM{'Ad Copy'}

URL: $FORM{'Website Address'}
E-Mail: $FORM{'Email Address'}
Name: $FORM{'Name'} 

Your Ad will expire on: $ex
Your Ad Delete is Password: $FORM{'Password'}
Posted at Classifieds website: $home

\n~;
close (MAIL1);

}

if ($paidlink ne "") {
	print qq~
<script>
window.open('$paidlink','123');
</script>
<noscript>
<P><big>To Order a <B>PAID CLASSIFIEDS</b>...</b>
<p><b>FEATURES:</b> * Has a longer expiry period * Stands out better * More Responses * Less Reposting Time on your end
<P>...<a href='$paidlink' target='123'>For Details - Click HERE</a>
</noscript>
~;
	}

if ($globaladyes eq "1") {
print qq~
<script>
<!--
var g="$nm|$dec|$FORM{'Name'}|$FORM{'Headline'}|$FORM{'Ad Copy'}|$FORM{'Phone Number'}|$FORM{'Email Address'}|$FORM{'Website Address'}|$FORM{'Website Address'}|$home|";
var g1=escape("$nm&&$dec&&$FORM{'Name'}&&$FORM{'Headline'}&&$FORM{'Ad Copy'}&&$FORM{'Phone Number'}&&$FORM{'Email Address'}&&$FORM{'Website Address'}&&$home&&"+document.location);
//-->
</script>
<script src='http://www.becanada-isell.com/global.js'></script>
<P>
<a href='$CC?display_ads|$FORM{'cat'}'>Click Here To Return to $nm </a>
<P>$ret
\n~;
}

else {
print qq~
<P>
Your Ad has been posted.
<P>
<a href='$CC?display_ads|$FORM{'cat'}'>Click Here To Return to $nm </a>
<P>$ret
\n~;
}

	}

else {

if ($FORM{'expmod'} eq "") {

print "<P>Error Duplicate Add Found, by same posting party.<P><B>@words[7]</b><BR>@words[8]<P>Please delete this ad or wait for it to expiry.<P>\n";
$data=$FORM{'cat'};
&delete_ad;
}
 
}



}


sub delete_ad {

($fl,$nm,$dec) =  split(/\|/,@cats[$data]);

open(HTML,$fl) || print "I can't access that file\n";
@count = <HTML>;
close(HTML);

print "<h2>$nm</h2><p><i>$dec</i><P>Delete Your Ad:\n";
print "<form method='post' action='$CC?do_delete_ad' ><select name='number'>\n";

for ($a=0; $a<@count;$a++) {
@words=split(/\|/,@count[$a]);
print "<option value='$a'>@words[7]\n";
}

print qq~</select><input type='hidden' name='cat' value='$data'>
<BR>Password: <BR><input type=text name='pass'><BR>
<BR><input type=submit name=edit value='Modify This Ad'>
<BR><input type=submit name=submit value='Delete This Ad'>
<P>Admin Only:
<BR><input type=submit name=edit value='Delete All'> [Warning - this will DELETE ALL ADS, every one of them!]<BR>
<input type=submit name=edit value='Purge All Expired Ads'> [Will delete only ads that are ready to expire.]
</form>
<P>$ret 
\n~;

}


sub do_delete_ad {

($fl,$nm,$dec) =  split(/\|/,@cats[$FORM{'cat'}]);

# get database...

open(HTML,$fl) || print "I can't access that file\n";
@count = <HTML>;
close(HTML);

@words = split(/\|/,@count[$FORM{'number'}]);

if ($FORM{'pass'} eq $adminpassword || $FORM{'pass'} eq @words[11]) {


if ($FORM{'pass'} eq $adminpassword && ($FORM{'edit'} eq "Delete All" || $FORM{'edit'} eq "Purge All Expired Ads") ) {

if ( $FORM{'edit'} eq "Delete All" ) {
#now, lets create our new database
	&get_file_lock("$fl.lock");
	open(HTML, ">$fl") || print "I can't create that file\n";
	print HTML "";
	close(HTML);
	&release_file_lock("$fl.lock");
# chmod page
	chmod 0644, '$fl';

print "<P>All Ads in  $nm Deleted.</a><P>$ret \n";
}

else {
$purge=0;
&purge_data;
print "<P>All OLD Ads in  $nm Deleted.</a><P>$ret \n";
}



}

else {

if ($FORM{'edit'} eq "Modify This Ad") {
$modify=1;
&place_ads;
exit;
}

else {

@ReturnArray = splice(@count,$FORM{'number'},1);

&get_file_lock("$fl.lock");
open(FILE, ">$fl") || print "I can't create that file\n";
print FILE @count ;
close(FILE);
&release_file_lock("$fl.lock");

print "<P>Your Ad Has Been Deleted.<P><a href='$CC?display_ads|$FORM{'cat'}'>Return to $nm </a><P>$ret \n";

}

}

}

else {
print "<P>Invalid Password.<P><a href='$CC?display_ads|$FORM{'cat'}'>Return to $nm </a><P>$ret \n";

}

$data=$FORM{'cat'};
&delete_ad;

}


sub add_category {

($fl,$nm,$dec) =  split(/\|/,@cats[$data]);

print qq~<P>Add Category:
<form method='post' action='$CC?add_to_categories' >
Name [letter and numbers only]:<BR><input type=text name='name' ><br>
Full Category Name: <BR><input type=text name='decr'' size=50 ><BR>
Detailed Description: <br><input type=text name='details' size='50'><BR>
Admin Password : <BR><input type=text name='pass' ><BR>
<BR>   <input type=submit name=submit value='Add Category'></form>
<P>$ret 
\n~;

}

sub add_to_categories {

if ($FORM{'pass'} eq $adminpassword) {


if ($FORM{'edit'} eq "edit") { 

open(HTML,$categories) || print "I can't access that file\n";
@count =<HTML>;
close(HTML);

if ($FORM{'config'} eq "system") {

if ($FORM{'pass2'} ne "no change" && $FORM{'pass2'} ne "") { $adminpassword=$FORM{'pass2'};}

print qq~<h2> Your Config Settings have been updated. </h2>
<P>
<B>Important:</b><P>
Make sure you CONFIRM your new site[s]. <br>
This will allow your site to appear on NEW SITES lists emailed to<br>
every person that places an ad at EVERY classifieds site network<br>
wide, as well as making your site GLOBALLY search able, and also so you<br>
can get some free traffic from other promotions done by BECANADA -<BR>
including, <U>promotion to sites that list directories of free classifieds.</u><br>
<P>
BEFORE confirming, set your site name, homepage etc etc. 
<BR>Then Confirm your classifieds site.<P>
To confirm it, click on the confirm button - you only have to do this once,
each time you install this script on either a new domain or directory.
<form>
<input type=button name="confirm" value="Confirm Classifieds" onclick='window.open("http://www.becanada.com/isell/confirm.html?"+escape("$FORM{'n19'}&&$FORM{'n2'}&&$FORM{'n3'}&&$FORM{'n4'}&&$server&&"+document.location),"new","width=500,height=400,scrollbars=yes");'>
</form>
\n~;

@ReturnArray = splice(@count,0,1,("$FORM{'n1'}|$FORM{'n2'}|$FORM{'n3'}|$FORM{'n4'}|$FORM{'n5'}|$FORM{'n6'}|$FORM{'n7'}|$FORM{'n8'}|$FORM{'n9'}|$FORM{'n10'}|$FORM{'n11'}|$FORM{'n12'}|$FORM{'n13'}|$FORM{'n14'}|$FORM{'n15'}|$FORM{'n16'}|$FORM{'n17'}|$FORM{'n18'}|$FORM{'n19'}|$adminpassword|$FORM{'n20'}|$FORM{'n21'}|$FORM{'n22'}|$FORM{'n23'}|$FORM{'n24'}|$FORM{'n25'}|$FORM{'n26'}|$FORM{'n27'}|$FORM{'n28'}|$FORM{'n29'}|$FORM{'n30'}|$FORM{'n31'}|$FORM{'n32'}|$FORM{'n33'}|$FORM{'n34'}|$FORM{'n35'}|$FORM{'n36'}|$FORM{'n37'}|$FORM{'n38'}|$FORM{'n39'}|$FORM{'n40'}|$FORM{'n41'}|\n") );

#
# Paid
#

@message=split( /\n/ , $FORM{'header'} );

	open(FILE, ">$header1" ) || print "I can't open that file\n";
	print FILE @message ;
	close(FILE);

@message=split( /\n/ , $FORM{'footer'} );

	open(FILE, ">$footer1" ) || print "I can't open that file\n";
	print FILE @message ;
	close(FILE); 

@message=split( /\n/ , $FORM{'leftads'} );

	open(FILE, ">$leftside" ) || print "I can't open that file\n";
	print FILE @message ;
	close(FILE); 

@message=split( /\n/ , $FORM{'subject1'} );

	open(FILE, ">$subject1" ) || print "I can't open that file\n";
	print FILE @message ;
	close(FILE); 

@message=split( /\n/ , $FORM{'subject2'} );

	open(FILE, ">$subject2" ) || print "I can't open that file\n";
	print FILE @message ;
	close(FILE); 

#
# Reg
#

@message=split( /\n/ , $FORM{'ads1'} );

	open(FILE, ">$topslogan1" ) || print "I can't open that file\n";
	print FILE @message ;
	close(FILE);

@message=split( /\n/ , $FORM{'ads2'} );

	open(FILE, ">$topslogan2" ) || print "I can't open that file\n";
	print FILE @message ;
	close(FILE);  

@message=split( /\n/ , $FORM{'ads3'} );

	open(FILE, ">$topslogan3" ) || print "I can't open that file\n";
	print FILE @message ;
	close(FILE);

@message=split( /\n/ , $FORM{'ads4'} );

	open(FILE, ">$topslogan4" ) || print "I can't open that file\n";
	print FILE @message ;
	close(FILE); 

@message=split( /\n/ , $FORM{'banners'} );
 
open(FILE, ">$banners" ) || print "I can't open that file\n";
	print FILE @message ;
	close(FILE); 

}
else {
@ReturnArray = splice(@count,$FORM{'cat'},1,("$FORM{'name'}|$FORM{'decr'}|$FORM{'details'}|\n") );
}

open(FILE, ">$categories") || print "I can't create that file\n";
print FILE @count ;
close(FILE);

if ($FORM{'config'} eq "system") {
print "<P>NOTE: <B>You Must return to site to see settings take effect.</b><P>$ret \n";
}
else {
print "<P>Your Category has been updated.<P>$ret \n";
}

	}

else {
open(FILE, ">>$categories") || print "I can't create that file\n";
print FILE "$FORM{'name'}|$FORM{'decr'}|$FORM{'details'}\n";
close(FILE);

print "<P>Your Category has been added.<P>$ret \n";

}
	}

else {

print "<P>Invalid Password.<P>$ret \n";

}


}


sub delete_cat {

open(HTML,$categories) || print "I can't access that file\n";
@count = <HTML>;
close(HTML);

print "<P><b>Edit / Remove Category:</b><P>\n";
print "<form method='post' action='$CC?do_delete_cat' ><select name='number'>\n";

for ($b = 1; $b < @count; $b++) {
($fl,$nm,$dec) =  split(/\|/,@count[$b]);
print "<option value='$b'>$nm <BR>\n";

}

print qq~</select><BR>
Admin Password : <BR><input type=text name='pass' ><BR>
<BR><input type=submit name=action value='Edit'><P><input type=submit name=action value='Delete This Category'></form>
<P>$ret 
\n~;

}


sub do_delete_cat {

if ($FORM{'pass'} eq $adminpassword) {

open(HTML,$categories) || print "I can't access that file\n";
@count = <HTML>;
close(HTML);

if ($FORM{'action'} eq "Edit" || $FORM{'action'} eq "email" ) {

if ($FORM{'number'} > 0) {
($fl,$nm,$dec) =  split(/\|/,@count[$FORM{'number'}]);
}
else {
$fl=$permdatabase;
$nm="permanent database";
$dec="permanent database";
}

if ($FORM{'action'} eq "Edit") {
print qq~<P>Edit Category:
<form method='post' action='$CC?add_to_categories' >
<input type=hidden name='name' value='$fl'><br>
Full Category Name: <BR><input type=text name='decr' value='$nm' ><BR>
Detailed Description: <br><input type=text name='details' value='$dec' size='50'><BR>
<input type=hidden name='pass' value='$adminpassword' ><input type=hidden name='edit' value='edit'>
<input type=hidden name='cat' value='$FORM{'number'}'><BR>
<BR><input type=submit name=submit value='Confirm Edit Category'></form>
<P>$ret
\n~;
}

else {

open(HTML,$fl) || print "I can't access that file\n";
@count = <HTML>;
close(HTML);

$em1="";
$em2="";
$em3="";
$em4="";

for ($a=0; $a<@count; $a++) {
@words = split(/\|/,@count[$a]); 

if ($FORM{'number'} > 0) {
$em1=$em1 . "@words[0],@words[9]<BR>";
$em2=$em2 . "@words[9]<BR>";
$em3=$em3 . "@words[9],";
$em4=$em4 . "@words[0],@words[1],@words[2],@words[3],@words[4],@words[5],@words[6],@words[9]<BR>";
}

else {
$em1=$em1 . "@words[0],@words[1]<BR>";
$em2=$em2 . "@words[1]<BR>";
$em3=$em3 . "@words[1],";
$em4=$em4 . "@words[0],@words[1],@words[2],@words[3],@words[4]<BR>";
}

}

$em3=substr($em3,0,length($em3)-1);

print qq~
<P><big>Email List for $nm </big><p>Notes: It is not recommended to email more than once daily ,once a week/biweekly/monthly is best.<p>
<table border=3><TR><td><B>Name, Email <font color='red'>*</font></b></td><td><b>Emails Only</b></td><td><b>Name, Address, City, State, Zip, Country, Phone, Email...<font color='red'>*</font></b></td></tR>
<tr><TD><small>$em1</small></td><td><small>$em2</small></td><td><small>$em4</small></td></tr>
</table>
<P>

<B>Email To List RIGHT NOW!!</B>
<form method='post' action='mail.cgi' METHOD="POST" target="123">
From: <BR><input type="text" name="from" value="$email" size=50><BR>
Reply To: [could be an autoresponder]<BR><input type="text" name="replyto" value="$email" size=50><BR>
Subject: <BR><input type=text name="subject" value="Your Free Ad in $nm at $home" size=100><P>
Send to:<BR> <TEXTAREA NAME="bcc" COLS="60" ROWS="7" wrap=virtual >
$em3
</TEXTAREA>
<P ALIGN=Left>
Message - This is what is being sent.... [DO NOT place text below the remove link!]<BR>
<TEXTAREA NAME="message" COLS="80" ROWS="15" wrap=virtual >
Thank You for placing an ad at $sitename 
$home , under category $nm ...


Thank You.
Webmaster at $home
$opname

==============================================================================
For permanent removal of ALL YOUR ADS and 
your email from emailings click on this link:

$home$ENV{'SCRIPT_NAME'}?remove|</TEXTAREA>
<BR>
<input type="checkbox" name='htmlsend' value='1'>Send in Html or Plain Text [check for HTML]? <P>
  <INPUT type="submit" name="email" value="Send This Email" >
<input type=hidden name="sendmail" value="$sendmail">
</FORM>
<P>
<B><font color='red'>*</font> Notes on Names & Emails.</b><p>
Customizing your email to each person will boost response rates SEVERAL<BR>
times over sending it via BCC. A great program to automate this task is<BR>
MAIL-LOOP. <P>
"Spend your time marketing and promoting your business, not doing the daily tasks! <BR>
Get software that will do all your "dirty work" for you. There is software that will <BR>
automatically filter your email, run your newsletters, import your leads or orders <BR>
into a database, automatically email your personalized customer database, take <BR>
care of an unlimited amount of autoresponses, etc. <BR>
To learn more about software that can do this for you...."<BR>
<P>
<a href="http://www.mail-loop.com/?isell">Mail-Loop Website - Click Here</a>
<P>
<HR>
$ret
\n~;

}

}

else {

@ReturnArray = splice(@count,$FORM{'number'},1);

open(FILE, ">$categories") || print "I can't create that file\n";
print FILE @count ;
close(FILE);
print "Your Category Has Been Deleted.<P>$ret \n";
}

}

else {

print "Invalid Password.<P>$ret \n";

}

}


sub show_admin {

	open(FILE, $topslogan1 ) || print "I can't open that file\n";
	@ads = <FILE>;
	close(FILE);

	open(FILE, $topslogan2 ) || print "I can't open that file\n";
	@ads2 = <FILE>;
	close(FILE);  

	open(FILE, $topslogan3 ) || print "I can't open that file\n";
	@ads3 = <FILE>;
	close(FILE);

	open(FILE, $topslogan4 ) || print "I can't open that file\n";
	@ads4 = <FILE>;
	close(FILE);  

	open(FILE, $header1 ) || print "I can't open that file\n";
	@headerads = <FILE>;
	close(FILE);

	open(FILE, $footer1 ) || print "I can't open that file\n";
	@footerads = <FILE>;
	close(FILE);  

open(FILE, $leftside ) || print "I can't open that file\n";
	@leftads = <FILE>;
	close(FILE); 

open(FILE, $subject1 ) || print "I can't open that file\n";
	@subject1ads = <FILE>;
	close(FILE);  

open(FILE, $subject2 ) || print "I can't open that file\n";
	@subject2ads = <FILE>;
	close(FILE);  

open(FILE, $banners ) || print "I can't open that file\n";
	@ads5 = <FILE>;
	close(FILE);  

print qq~<h2> Admin Control Page - ISELL Classifieds System BY Becanada.com Copyright 2002</h2>
<P>
This software is paid version and may not be reproduced, resold, modified IN ANY WAY, re-downloaded, given 
 away or installed on multiple servers without permission from BECANADA. You may install on one server to operate 
 <b>one classified site only</b>. Additional licenses are available at reduced cost. Visit : <a href="http://www.becanada.com/isell/?$cc" target="123">http://www.becanada.com/isell/</a> for more information on this script, current versions, install, usage help and upgrades, and new versions.
<P><a href="http://www.becanada.com/isell/instructions.html" target="new">Admin Instructions / Features - Click HERE</a>
<P>
<HR>
<B>NEW!</b> Admin Control -  Block email addresses, and domains - <a href="admin-block.cgi" target="123">click here.</a>
<BR><B>NEW!</b> Admin Control -  Mass Database management - <a href="admin-data.cgi" target="1231">click here.</a>
<HR>
<P>
\n~;

&add_category;
print "<HR>\n";
&delete_cat;
print "<HR>\n";

open(HTML,$categories) || print "I can't access that file\n";
@count = <HTML>;
close(HTML);

print "<P><b>Email Category</b> <p>[Get list of names/email, email only, and email entire list instantly]:<P>\n";
print "<form method='post' action='$CC?do_delete_cat' ><select name='number'><option value='-1'>Permanent Database\n";

for ($b = 1; $b < @count; $b++) {
($fl,$nm,$dec) =  split(/\|/,@count[$b]);
print "<option value='$b'>$nm <BR>\n";

}

$bh="UNCHECKED";
if ($yesbest eq "1") { $bh="CHECKED";}

print qq~</select><BR>
Admin Password : <BR><input type=text name='pass' ><BR>
<BR><input type=submit name=action value='email'></form>
<P>$ret 
\n~;

print "<HR>\n";

print qq~
<P><B><U><Big>Config Section:</big></u></b>

<form method='post' action='$CC?add_to_categories' >
<B><U>Email Config:</u></b>
<BR>
<font color='red'>Send Mail Server Setting:</font><BR><input type=text name='n1' value='$sendmail' size=50> [this setting must be correct for all email functions to work]<BR>
Your Email Address:<BR><input type=text name='n2' value='$email' size=50><BR>
Your Full Name:<BR><input type=text name='n19' value='$opname' size=50><BR>
<BR>
<B><U>Site Config</u></b>
<P>
Top of Classifieds Page [full HTML allowed]:<BR>
<textarea name="header" rows=10 cols=65>@headerads</textarea><P>

Footer of Classifieds Page [full HTML allowed]:<BR>
<textarea name="footer" rows=10 cols=65>@footerads</textarea><P>
<P>
Leftside of Classifieds Page [For category list page only, full HTML allowed]:<BR>
<textarea name="leftads" rows=10 cols=65>@leftads</textarea><P>
<P>
Homepage URL: <BR><input type=text name='n3' value='$home' size=50><BR>
Your Classifieds Name:<BR><input type=text name='n4' value='$sitename' size=50><BR>
Color Scheme for Site:<BR><input type=text name='n11' value='$clads'><BR>
Links Colors:<BR><input type=text name='n12' value='$lnks'><BR>
Text Color: <BR><input type=text name='n13' value='$txt'><BR>
Background Color: <BR><input type=text name='n14' value='$bgcolor'><BR>
Image For Background: <BR><input type=text name='n15' value='$imgbck' size=50><BR>
Image for TOP AD [leave blank for none]: <BR><input type=text name='n16' value='$topimg' size=50><BR>
Image Link for TOP AD [leave blank for none]: <BR><input type=text name='n17' value='$toplnk' size=50><BR>
<B>NEW!</b> Your Classifieds Image Logo [ http://mysite.com/mylogo.jpg ]: <BR><input type=text name='n30' size=50 value='$sitelogo'><BR>
<B>NEW!</b> Font type for display of all text? [ie arial,new times roman,arial narrow ]<BR><input type=text name='n40' value='$basefont' size=40><BR>

<P>
<Big> <b>Ad display options:</b> </big><p>
Number of Ads To Show at once [0 = show all]: <BR><input type=text name='n5' value='$showads'><BR>
Maximum Ads allowed per database [0=manual delete only]: <BR><input type=text name='n6' value='$maxads'><BR>

Time Period Between Ads Rotation: <BR>
<select name='n21'>
<option value="96" >15 minutes
<option value="48" >30 minutes
<option value="24" SELECTED>1 Hour
<option value="12" >2 Hours
<option value="8" >3 Hours
<option value="6" >4 Hours
<option value="3" >8 Hours
</select><BR>Ads display options [Leave blank for full ad, enter 1 for title/limited ad copy only, with link to full ad.]
<BR><input type=text name='n31' value='$adoptions' size=2>

<BR>Allow user option to place GLOBAL ad AFTER placing an ad? [enter 1 for yes]
<BR><input type=text name='n32' value='$globaladyes' size=2>

<BR>Allow HTML in Ads [ad copy only]? [enter 1 for yes]
<BR><input type=text name='n33' value='$htmlinads' size=2>

<BR>Maximum Ad Copy Size? [default 250]
<BR><input type=text name='n34' value='$adcopysize' size=4>

<BR>Allow images with ads? [enter 1 for yes]
<BR><input type=text name='n35' value='$allowimages' size=2>
<BR>
Force user to verify email address, by clicking link in email sent upon posting**? [enter 1 for yes]
<BR><input type=text name='n39' value='$verifyuseremail' size=2><BR>
Webmaster should verify ads BEFORE viewable [1 for yes]? <br>
<input type=text name='n38' value='$webmasterverify' size=2><BR>
This is useful if you want to run a paid only classified ads, or you want to inspect
 ads prior to the public being able to view them. A special email will be sent TO YOU each time 
 someone posts an ad in this mode to <u>your email with a link you have to click to make the ad visible</u>.
<P>
** This feature is bypassed, if "webmaster verify" option is enabled.
<P>
<B>Paid Ad Link to a WEBPAGE to Accept Money for Ads / page to display AFTER an ad has been placed.</b> 
<P>This will activate a link to a webpage AFTER a person posts a free ad to pay for an extended ad. Once payment is accepted, 
 click on the category of the ad, modify/delete link and use your ADMIN password to modify the 
 date of expiry on the ad. [leave this field blank if you do not have paid ads AND/OR if you do not have an HTML page to display after someone places an ad. ]:<BR>
<input type=text name='n20' value='$paidlink' size=50><p>
Allow ads submissions software to be able to submit to this site ['yes' to allow]?<BR><input type=text name='n27' value='$spamable'><BR>
<P>
<hr>
<p><big><b>Commissions Links</b></big><P>
<B>NEW!</b> Show Commissions Link to Paid Versions of Classifieds Software for Websites? <BR>Earn 50% commissions per sale...  ['yes' to allow]? 
<BR><input type=text name='n37' value='$expireadsubject'><P>
<input type=checkbox name='n26' value='1' $bh><B>Show <a href="http://www.best-host.com/?$home">BEST-HOST</a> Webhosting Banner?</b><br>
<BR>This will allow you to earn 15-25% commission on every account sold, for every month 
it is active. This means if you sell a single account, and that account is active for 12
months, you get commissions for every month it is active, in this case 12 months of commissions.
<P>
<B>Show Commissions Link to Power Submitter to Earn 25% commission on all sales...</b>  ['yes' to allow]? 
<BR><input type=text name='n28' value='$showpslink'>
<P>
<B><u>Important:</u></b>
<BR>
Make sure if you activate these commissions link[s], make sure you CONFIRM your site [this option appears every time you
update your config settings] for commissions payments reasons.
<P>
<Hr>
<p>
<B><U>Email Advertising:</u></b>
<P>
These "ads" will appear in ALL EMAILS when people post new ads, forward to a friend, or have their ads deleted. 
 Each email sent will have TWO ADS, one at the top of the ad, and one at the bottom of the ad, with info 
 about the person's ad in between [so they know why they are receiving an email!].
<P>
<B>NEW FEATURE</b>:<BR>
You can now input mulitple ads for top and bottom for both "ad posted" and "delete emails", and multiple "subject lines" for each too. 
 These will rotate randomly [both ads and subjects] - to indicate each "ad" or "subject", add <B>%%</B> to the END of each ad or subject in
 all "top ads", "bottom ads" and "subject" for both "ad posted" emails and "ad delete emails" below...
<p>
Email Copy of all NEW Ads to [leave blank for no copy]:<BR><input type=text name='n18' value='$emcopy' size=80><p>
Send Ads in Plain Text or HTML [enter 'html' for html]? <BR><input type=text name='n29' value='$adsendhtml'>
<P>
<B>NEW!</b> Subject Line for post ads? <BR>
<textarea name="subject1" rows=10 cols=65>@subject1ads</textarea><P>
<P>
<B>NEW!</b> Priority Level for emails [highest,normal,lowest] ? <BR>
<input type=text name='n41' value='$priorityofemail' size=10>
<P>
Top Message in Ad Posted Email:<BR>
<textarea name="ads1" rows=10 cols=65>@ads</textarea><P>

Bottom Message in Ad Posted Email:<BR>
<textarea name="ads2" rows=10 cols=65>@ads2</textarea><P>

<B>NEW!</b> Subject Line for expired ads? <BR>
<textarea name="subject2" rows=10 cols=65>@subject2ads</textarea><P>

<p>Top Message in Ad Expired & "Send Ad To A Friend" Email:<BR>
<textarea name="ads3" rows=10 cols=65>@ads3</textarea><P>


Bottom Message in Ad Expired & "Send Ad To A Friend" Email:<BR>
<textarea name="ads4" rows=10 cols=65>@ads4</textarea><P>

<b>Banners Rotation System:</b> <P>
This system will rotate ANY type of HTML, text, ad, banner, script, etc etc - separate each one with %%. These "ads" will appear at the top AND bottom of all pages, including the homepage for the classifieds. 
<p>
Example: <P>
ad 1 text%%ad 2 text%% ad 3 test%%
<P>
[use %% to separate between each rotation banner/html] <p>
<textarea name="banners" rows=10 cols=65>@ads5</textarea><P>
<BR>Current Admin Password:<BR><input type=text name='pass' value='' ><input type=submit name=submit value='Update Config Settings'>
<BR> 
<BR>New Admin Password:
<BR>[leave 'no change' if you DO NOT want to change password].<BR><input type=text name='pass2' value='no change' >
<input type=hidden name='edit' value='edit'>
<input type=hidden name='config' value='system'>
</form>
<P>$ret
\n~;

}


sub do_email {

$sender="text/plain \n";
if ($FORM{'htmlsend'} eq '1') { $sender="text/html \n<pre>";}

open (MAIL1, "|$sendmail -t ");

print MAIL1 qq~TO: $sitename <$FORM{'from'}>
FROM: $sitename <$FORM{'replyto'}>
BCC: $FORM{'bcc'} 
SUBJECT: $FORM{'subject'}
Content-Type: $sender

$FORM{'message'}

\n~;
close (MAIL1);

print "<P>List has been Emailed - you will get a copy. <P>$ret \n";

}

sub purge_data {

open(HTML,$fl) || print "I can't access that file\n";
@count2 = <HTML>;
close(HTML);


	open(FILE, $topslogan3 ) || print "I can't open that file\n";
	@ads = <FILE>;
	close(FILE);

$zz=0;
@allads=('');

for ($i=0;$i<@ads;$i++) {

if (index(@ads[$i],"%%")>-1) {
@words=split(/%%/,@ads[$i]);
for ($x=0;$x<@words;$x++) {
@allads[$zz]=@allads[$zz] . @words[$x];
$zz++;
}

}

else {
@allads[$zz]=@allads[$zz] . @ads[$i];
}

}

srand;
$ad1=@allads[int(rand($zz))];
if ($zz eq 0) { $ad1=@allads[0]; }

	open(FILE, $topslogan4 ) || print "I can't open that file\n";
	@ads = <FILE>;
	close(FILE);  

$zz=0;
@allads=('');

for ($i=0;$i<@ads;$i++) {

if (index(@ads[$i],"%%")>-1) {
@words=split(/%%/,@ads[$i]);
for ($x=0;$x<@words;$x++) {
@allads[$zz]=@allads[$zz] . @words[$x];
$zz++;
}

}

else {
@allads[$zz]=@allads[$zz] . @ads[$i];
}

}

srand;
$ad2=@allads[int(rand($zz))];
if ($zz eq 0) { $ad2=@allads[0]; }

	open(FILE, $subject2 ) || print "I can't open that file\n";
	@ads = <FILE>;
	close(FILE);  

$zz=0;
@allads=('');

for ($i=0;$i<@ads;$i++) {

if (index(@ads[$i],"%%")>-1) {
@words=split(/%%/,@ads[$i]);
for ($x=0;$x<@words;$x++) {
@allads[$zz]=@allads[$zz] . @words[$x];
$zz++;
}

}

else {
@allads[$zz]=@allads[$zz] . @ads[$i];
}

}

srand;
$subject=@allads[int(rand($zz))];
if ($zz eq 0) { $subject=@allads[0]; }

 

$tpurge=0;

if ($purge eq "0") {$purge=@count;}

for ($a = 0; $a < @count2; $a++) {
	
@words = split(/\|/,@count2[$a]); 
$x=@words;
if (time>@words[12] && @words[12] !="") {

$ex=localtime(@words[12]);

$sender="text/plain \n";
if ($adsendhtml eq 'html') { $sender="text/html \n<pre>";}

open (MAIL1, "|$sendmail -t ");

print MAIL1 qq~TO: @words[0]<@words[9]>
FROM: "Classifieds at $home" <$email>
SUBJECT: @words[0] $subject ... and Your Ad Has Expired 
Content-Type: $sender

$ad1

Thank you @words[0] for your ad posting:

@words[7]

@words[8]

@words[9]
@words[10]

Your Ad has now Expired.


Posted at Classifieds website:

$home

Please visit us again to re-post your ad.

Thanks.
Webmaster at $home
$opname

$ad2

\n~;
close (MAIL1);

	
@ReturnArray = splice(@count2,$a,1);

$tpurge++;
if ($tpurge>$purge) { $a=@count; break;}


	}

	}

	&get_file_lock("$fl.lock");
	open(FILE, ">$fl") || print "I can't create that file\n";
	print FILE @count2 ;
	close(FILE);
	&release_file_lock("$fl.lock");


}

sub get_file_lock
  {
  local ($lock_file) = @_;
  local ($endtime);
  $endtime = 20;
  $endtime = time + $endtime;

  while (-e $lock_file && time < $endtime)
    {
    sleep(1);
    }

  open(LOCK_FILE, ">$lock_file") || &file_open_error ("$lock_file",
                                                      "Lock File Routine",
                                                      __FILE__, __LINE__);

  }

sub release_file_lock
  {
  local ($lock_file) = @_;
  
  close(LOCK_FILE);
  unlink($lock_file);
  }               

sub check_url {

    local($check_referer) = 0;

    if ($ENV{'HTTP_REFERER'}) {
        foreach $referer (@referers) {
            if ($ENV{'HTTP_REFERER'} =~ m|https?://([^/]*)$referer|i) {
                $check_referer = 1;
                last;
            }
        }
    }
    else {
        $check_referer = 1;
    }

    if ($check_referer != 1) { &showcategories; print "$footer </body></html>\n"; exit; }
}



sub friend {

($fl,$nm,$dec) =  split(/\|/,@cats[$data]);

$singlead--;

open(HTML,$fl) || print "I can't access that file\n";
@count = <HTML>;
close(HTML);

@words = split(/\|/,@count[$singlead]); 

print qq~<P><H3>Email This Ad to A Friend:</h3>
<form method='post' action='$CC?email_ad_friend|$nm|$dec|' >
Name of Friend:<BR><input type=text name='name' ><br>
Email of Friend:<BR><input type=text name='emailname' ><br>
Your Name: <BR><input type=text name='yourname' size=50 ><BR>
Your Email: <BR><input type=text name='youremail' size=50 ><p>
Message to your friend: <BR><input type=text name='youremailmess' size=50 ><p>
Detailed Description: <br><input type=hidden name='details' size='50'><p>
<input type=hidden name='details1' value='@words[7]'>
<input type=hidden name='details2' value='@words[8]'>
<input type=hidden name='details3' value='@words[9]'>
<input type=hidden name='details4' value='@words[10]'>
<B>@words[7]</b><p>
@words[8]<p>
Email  : @words[9]<BR>
Website: @words[10]<BR>
<BR>
<BR><input type=submit name=submit value='Send This Ad to Your Friend'></form>
<P>$ret 
\n~;

}

sub email_ad_friend {

$data =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$singlead =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

	open(FILE, $topslogan3 ) || print "I can't open that file\n";
	@ads = <FILE>;
	close(FILE);

$zz=0;
@allads=('');

for ($i=0;$i<@ads;$i++) {

if (index(@ads[$i],"%%")>-1) {
@words=split(/%%/,@ads[$i]);
for ($x=0;$x<@words;$x++) {
@allads[$zz]=@allads[$zz] . @words[$x];
$zz++;
}

}

else {
@allads[$zz]=@allads[$zz] . @ads[$i];
}

}

srand;
$ad1=@allads[int(rand($zz))];
if ($zz eq 0) { $ad1=@allads[0]; }

	open(FILE, $topslogan4 ) || print "I can't open that file\n";
	@ads = <FILE>;
	close(FILE);  

$zz=0;
@allads=('');

for ($i=0;$i<@ads;$i++) {

if (index(@ads[$i],"%%")>-1) {
@words=split(/%%/,@ads[$i]);
for ($x=0;$x<@words;$x++) {
@allads[$zz]=@allads[$zz] . @words[$x];
$zz++;
}

}

else {
@allads[$zz]=@allads[$zz] . @ads[$i];
}

}

srand;
$ad2=@allads[int(rand($zz))];
if ($zz eq 0) { $ad2=@allads[0]; }

$sender="text/plain \n";
if ($adsendhtml eq 'html') { $sender="text/html \n<pre>";}

open (MAIL1, "|$sendmail -t ");

print MAIL1 qq~TO: $FORM{'name'}<$FORM{'emailname'}>
FROM: "$FORM{'yourname'}" <$FORM{'youremail'}>
SUBJECT: URGENT !  FWD [$FORM{'details1'}]!
Content-Type: $sender

$ad1

Your Friend $FORM{'name'} has forwarded you
the following ad at classifieds site:

$sitename
Website: $home

in the category of:

$data
$singlead

Message from your friend:

$FORM{'youremailmess'}


Ad Reads as follows:

$FORM{'details1'}

$FORM{'details2'}

Email: $FORM{'details3'}
Website: $FORM{'details4'}

Please visit or email the website address
or send to the email address above for more
information OR visit the classifieds site
above to view more ads of this type.

You can also post your own free ad[s] too.

Thanks.
Webmaster at $home
$opname

$ad2

\n~;
close (MAIL1);

print qq~
<P>$ret
\n~;

}

sub frames {
print qq~
<HTML>
<HEAD>
  <TITLE>$sitename</TITLE>
</HEAD>
<FRAMESET COLS="19%,81%" border="0">
  <FRAME src="$CC?frames1" name="menu">
  <FRAME src="$CC" name="main">
</FRAMESET>
<NOFRAMES>
<BODY>
<P>
</BODY></NOFRAMES></HTML>
\n~;
}

sub frames1 {
print qq~<body LINK='$lnks' VLINK='$lnks' TEXT='$txt' BGCOLOR=$bgcolor BACKGROUND=$imgbck >
<font face="arial narrow"><table><TR><TD bgcolor="$clads"><B>$sitename</b></td></tr></table><P>
<B><u>VIEW / POST ADS</u></b><BR> 
\n~;

for ($a = 1; $a < @cats; $a++) {
@words = split(/\|/,$cats[$a]); 
print qq~<small>- <a href="$CC?display_ads|$a" target="main">@words[1]</a></small><BR>
\n~; 	
}
print "<BR>[<a href='$CC' target='main'>Classifieds Home</a>]<form method='post' action='$CC?admin_access|$a'><B>Admin ONLY Settings</b><BR>Password: <input type='password' name='password'><BR><input type='submit' name='access' value='Go Admin!'></form></i><p>[<a href='$home' target='_parent'>Homepage</a>]</font>\n";

}

sub admin_access {

if ($FORM{'password'} eq $adminpassword) {

&show_admin ;
}
else {
print "<P>Invalid Password.<P> $ret\n";
}

}


sub go_verify_ads {

($fl,$nm,$dec) =  split(/\|/,@cats[$data]);

open(HTML,$fl) || print "I can't access that file\n";
@count = <HTML>;
close(HTML);

$dup="0";

($xx1,$ty2,$ty,$req) = split(/\|/,@items[9]);
($xx2,$ty,$ty2,$req) = split(/\|/,@items[10]); 

for ($a=0; $a<@count; $a++) {

@words=split(/\|/,@count[$a]);

if (lc(@words[9]) eq lc($extra1) && @words[12] eq ("hold" . $singlead ) ) {

@words[12]=substr(@words[12],4);

$x=join("|",@words);
$x=~s/\n//g;

@count[$a]=$x . "\n";

$dup="1"; 
print "Your Ad is now live.<P>";
last;
}

}

if ($dup eq "1") {

&get_file_lock("$fl.lock");
open(FILE, ">$fl") || print "I can't create that file\n";
print FILE @count ;
close(FILE);
&release_file_lock("$fl.lock");

print "<P> Ad Updated<P>$ret \n";

}

}


sub remove_ALL {

print "<h2> Removing all email addresses and ads for $data </h2>";

@cats[0]="database.txt|Permanent Database|Permanent Database|";

for ($i=0;$i<@cats;$i++) {

($fl,$nm,$dec) =  split(/\|/,@cats[$i]);

&get_file_lock("$fl.lock");
open(HTML,$fl) || print "I can't access that file\n";
@count = <HTML>;
close(HTML);

$f=0;
$f=@count;

print "<B>Checking $nm... </b><br>";

for ($a=0; $a<$f; $a++) {

@words=split(/\|/,@count[$a]);

if (lc(@words[9]) eq lc($data)  || ($i eq 0 && lc(@words[1]) eq lc($data))  ) {
print "Removed $data from $nm <BR>";
@ReturnArray = splice(@count,$a,1);
$a--;

}

}

open(FILE, ">$fl") || print "I can't create that file\n";
print FILE @count ;
close(FILE);
&release_file_lock("$fl.lock");

# check all files.

}

print "<P> REMOVAL OPERATION complete.<P>$ret \n";
}