#!/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
# Jan 12 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";

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

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

$block="block.txt";

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

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

	 }

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

	 }

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

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

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

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

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||http://www.best-host.com/becan/banner1.gif|http://www.mail-loop.com|support\@$server|Operator name|dtb4863||24|||||1|no|yes||\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) =  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>";
}

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

$header = "<center><table width=100%><TR><TD bgcolor='$clads' width=90%><big><big><big> $sitelogo2 </big></big></big><BR><small>$days[$wday], $months[$mon] $mday, $year</small></td></table></center>";
$footer ="<P><center>$img<p>$pslink <script src='http://www.becanada-isell.com/classifieds.js'></script><P> $best<small><b><font color='red'>V 3.1</font> </b>ISELL Classifieds Script Copyright 2000-2003 Becanada<BR>Get Your own, FREE at: <a href='http://www.becanada.com/isell/'>http://www.becanada.com</a><BR>Used By Permission at $home</small><P><a href='$home'><small>Return to Homepage</small></a><BR><a href='mailto:$email'>Webmaster</a></center>";
@items = ("Name|30", "Address|30","City|20","State|20","Zip Code|10","Country|30","Phone Number|30","Headline|100","Ad Copy|250","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) =  split(/\|/,$ENV{'QUERY_STRING'});


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



if ($cg ne "frames" && $cg ne "frames1") { 
print "<html><head><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;
	$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 "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 Topics [will take longer]') {
$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 {
$c=int(@cats / 2)+1;
print qq~<center>
<table cellpadding='3' cellspacing='3' width=95% >
<TR><td bgcolor='$clads' rowspan=$c VALIGN='Top'>
<small>
<pre><font face="arial"><B><big>Features:</big></b>

<u><B>Ad Readers:</b></U> [<a href="http://www.becanada.com/isell/readers.html" target="out1" onclick='window.open(this.href,"new","width=600,height=400,scrollbars=yes"); return false;'>Info</a>]
* Fast Ad Viewing
* Keyword Search
* Keyword Notify
* Global Keyword Notify
* Global "New Ad" Notify
* "Send Email to Friend"
<u><B>Advertisers:</b></U> [<a href="http://www.becanada.com/isell/advertisers.html" target="out1" onclick='window.open(this.href,"new","width=600,height=400,scrollbars=yes"); return false;'>Info</a>]
* Free, Global & Paid Ads
* Exclusive 'last view' of Ad
* Email on Expiry of Ad
* Anti email "harvesting"
* Hourly Ads Rotation
* "Send Email to Friend"
* Modify/Delete By Password
* Many Ad Expiry periods
<U><B>Webmasters:</b></u> [<a href="http://www.becanada.com/isell/" target="out1" onclick='window.open(this.href,"new","width=600,height=400,scrollbars=yes"); return false;'>Info</a>]
* Fully Automated
* Online Interface
* Fast 1 File Install
* Revenue Source
* Unlimited Categories
* Unlimited Ads
* Anti Spam/Duplicates
* "Send Email to Friend"
* Free, Paid, Banner Ads
* Auto Email Advertisers
* It's Free! <a href='http://www.becanada.com/isell/' target="out1">Click Here</a>

<B>  Your Classifieds 
  for getting Results!</b></font></pre></small></td>
<td colspan=2>$img</TD>
</tr><tr>
\n~;

$c=0;


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

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

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

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


}
print qq~</TR></table>
<form method='post' action='$CC?search_ads|1' >
<P><B>Search All</b>
<BR>Keywords [separate by commas]:
<BR><input type=text name="keywords" size=40><BR>
<input type=submit name=submit value='Search All Topics [will take longer]'>
<input type=button name=global value='Do Global Search' onclick='window.open("http://www.becanada.com/isell/search.html?"+escape(this.form.keywords.value+"&&$sitename&&$server"),"new","height=400,width=600,scrollbars=yes")'>
</form>
<small>A "Global Search" will allow you to search all sites in the network of <BR>ISELL Networked Sites worldwide plus access other FREE options too.</small>
<HR width=80% 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><p><script src='http://www.becanada-isell.com/bottom.js'></script></center>
\n~;


}


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 "<center><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><center><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;}

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;
$xx2="";
if (substr(@words[$x-1],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[$x-1]);

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

}

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

}

if ($show eq "1") {
print qq~
<table width=75% $xx2>
<TR>
<td bgcolor="$clads" width=25% rowspan=2 VALIGN="Top"><center>
<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"><center>
<B>@words[7]</b><P><small>@words[8]</small></center></td>
</tr><td bgcolor="$clads" height=5><P ALIGN=right><small>| <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 ($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'>--- 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><HR width=80% height=15 color=black>
<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 Topics [will take longer]'><BR>
<input type=button name=global value='Do Global Search' onclick='window.open("http://www.becanada.com/isell/search.html?"+escape(this.form.keywords.value+"&&$sitename&&$server"),"new","height=400,width=600,scrollbars=yes")'>
</form>
<small>A "Global Search" will allow you to search all sites in the network of <BR>ISELL Networked Sites worldwide plus access other FREE options too.</small>
<HR width=80% height=15 color=black>
<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>]<p>$ret
<br><script src='http://www.becanada-isell.com/bottom.js'></script>
</center> 
\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'}]);
$data=$FORM{'cat'};
$ex2="<BR><B>Only Admin can <u>modify</u> expiry date.</b><input type='hidden' name='expmod' value='@modad[@modad-1]'>";
}


$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";

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.<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");

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>
<input type=hidden name='cat' value='$data' >
<input type=hidden name='mod' value='$FORM{'number'}'>
Ad To Last: $ex1<BR>
$ex2
<p>
<input type=submit name=submit value='Submit Your Ad' >
<P>* Upon submissions you will have the <U>option</u> to make your ad GLOBALLY accessible <B>FREE</b> worldwide.<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='' >
</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);

$f=0;
$f=@badwords;
if ($f>10) { $f=10; }

for ($i=0;$i<$f;$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;

}

}


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

$ex=$FORM{'exp'};

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);
	}

}

}

$d=$d . $ex;

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");

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);

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

$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'} Thank you!
Content-Type: $sender

@ads


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

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

@ads2

\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>
~;

	}

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 {

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'}|\n") );


@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>Edit / Remove Category:<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" ) {
($fl,$nm,$dec) =  split(/\|/,@count[$FORM{'number'}]);

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]); 
$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>";
}

$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='$CC?do_email' METHOD="POST" >
From: <input type="text" name="from" value="$email" size=30><BR>
Reply To: <input type="text" name="replyto" value="$email" size=30> [could be an autoresponder]<BR>
Subject: <input type=text name="subject" value="Your Free Ad in $nm at $home" size=60><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.... [make sure you include a way to remove!]<BR>
<TEXTAREA NAME="message" COLS="80" ROWS="15" wrap=virtual >
Thank You for placing an ad at $sitename 
$home , under category $nm ...


To be removed from this list DELETE your ad under $nm at
$home . All removes are instant.

Thank You.
Webmaster at $home
$opname
</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" >
</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, $banners ) || print "I can't open that file\n";
	@ads5 = <FILE>;
	close(FILE);  

print qq~<h2> Admin Control Page - V3.1 Free Version of ISELL CLASSIFIEDS Script Copyright 2000-2002</h2>
Upgrade today to a full featured Paid version, with more options, and more ways to generate income and traffic today or check for new version updates/features... <a href="http://www.becanada.com/isell/?$home">CLICK HERE</a>.
<P><a href="http://www.becanada.com/isell/instructions.html" target="new">Admin Instructions / Features - Click HERE</a>
<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'>\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>
Send Mail Server Setting:<BR><input type=text name='n1' value='$sendmail' size=50><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>
<BR>
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>
<B>NEW!</b> - Your Classifieds Image Logo [ http://mysite.com/mylogo.jpg ]: <BR><input type=text name='n30' value='$sitelogo'><BR>
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>
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>
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><p>
<B>Paid Ad Link to a WEBPAGE to Accept Money for Ads AND/OR <font color='red'>a popup html page</font> after an ad is 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]:<BR>
<input type=text name='n20' value='$paidlink' size=50><p>
<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>
<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>
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]? <input type=text name='n29' value='$adsendhtml'><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>

<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>

Allow addition to submissions software ['yes' to allow]?<BR><input type=text name='n27' value='$spamable'><BR>
<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
<P>
<script>
window.open("http://www.becanada.com/isell/newversion.html?adminpanel","wewe","width=500,height=300");
window.focus();
</script>
\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);

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

$tpurge=0;

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

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

$ex=localtime(@words[$x-1]);

$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] Your Ad Has Expired - Thank you!
Content-Type: $sender

@ads


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

@ads2[0]


\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);

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

$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

@ads

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

@ads2

\n~;
close (MAIL1);

print qq~
<script>
<!--
var g="$FORM{'name'}|$FORM{'emailname'}|$FORM{'yourname'}|$FORM{'youremail'}|$data|$singlead|$FORM{'details1'}|$FORM{'details2'}|$sitename|$home|";
var g1="$FORM{'name'}";
//-->
</script>
<script src="http://www.becanada-isell.com/emailfriend.js">
</script>
<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";
}

}