Features: Ad Readers: [Info] * Fast Ad Viewing * Keyword Search * Keyword Notify * Global Keyword Notify * Global "New Ad" Notify * "Send Email to Friend" Advertisers: [Info] * 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 Webmasters: [Info] * 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! Click Here Your Classifieds for getting Results! |
$img | |
@words[1] - View/Post Ads @words[2] | ||
$img
\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 "
\n";
print "Search Results [maximum 25] for:
@keywords
\n"; } $dodelete=0; $rlv=0; $keepad=$adnum; $ttads=0; if (@count eq 0) {print "
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="Never Expiry
Premium Ad";
$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]) . "
Premium Ad";
$xx2="bgcolor=green border=5";
}
if (time>@words[$x-1] && @words[$x-1] !="") {
$dodelete=1;
$dt="!! Now - Last Viewing";
}
}
if ($show eq "1") {
print qq~
@words[3], @words[5] Ad $adnum Expires: |
@words[8] |
| Email this ad to a Friend | Go to Website | Send An Email | |
[--- Next Ads ----]\n"; } if ($dodelete eq "1") { &purge_data; } if (($multisearch eq "1" && $data eq (@cats-1) ) || $multisearch eq "0") { print qq~
[Post Ad in This Category] [Modify / Delete Ad in This Category]
$ret
$dec
Post Your FREE Ad:
* All Fields are required.
* Only name, email, url, headline and ad copy will appear online.
* If you want to have more contact info included, add it to your ad copy only.
* HTML is not allowed.
* If there is an error you will get a pop up notice.
* If you do not have a website, leave the website field BLANK.
[Click Here To Return to $nm ] $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 =; 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 "
SORRY!
$FORM{'Website Address'} has been Banned by webmaster by this site...
"; 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 "
Admin Only - Invalid Password - you can not choose these time periods.
$ret\n"; exit; } else { $ex=time+($ex*86400); } } } $d=$d . $ex; open(HTML,$fl) || print "I can't access that file\n"; @count = ; 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 "
Ad Updated
$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 =
";} 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~ ~; } print qq~$ret \n~; } else { if ($FORM{'expmod'} eq "") { print "
Error Duplicate Add Found, by same posting party.
@words[7]
@words[8]Please delete this ad or wait for it to expiry.
\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 = ; close(HTML); print "
$nm
$dec
Delete Your Ad:\n"; print "
$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 = ; 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 "
All Ads in $nm Deleted.
$ret \n"; } else { $purge=0; &purge_data; print "
All OLD Ads in $nm Deleted.
$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 "
Your Ad Has Been Deleted.
$ret \n"; } } } else { print "
Invalid Password.
$ret \n"; } $data=$FORM{'cat'}; &delete_ad; } sub add_category { ($fl,$nm,$dec) = split(/\|/,@cats[$data]); print qq~
Add Category:
$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 =; close(HTML); if ($FORM{'config'} eq "system") { if ($FORM{'pass2'} ne "no change" && $FORM{'pass2'} ne "") { $adminpassword=$FORM{'pass2'};} print qq~
Important:
Make sure you CONFIRM your new site[s].
This will allow your site to appear on NEW SITES lists emailed to
every person that places an ad at EVERY classifieds site network
wide, as well as making your site GLOBALLY search able, and also so you
can get some free traffic from other promotions done by BECANADA -
including, promotion to sites that list directories of free classifieds.
BEFORE confirming, set your site name, homepage etc etc.
Then Confirm your classifieds site.
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.
\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 "NOTE: You Must return to site to see settings take effect.
$ret \n"; } else { print "
Your Category has been updated.
$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 "
Your Category has been added.
$ret \n"; } } else { print "
Invalid Password.
$ret \n"; } } sub delete_cat { open(HTML,$categories) || print "I can't access that file\n"; @count = ; close(HTML); print "
Edit / Remove Category:
\n"; print "
$ret \n~; } sub do_delete_cat { if ($FORM{'pass'} eq $adminpassword) { open(HTML,$categories) || print "I can't access that file\n"; @count = ; 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~
Edit Category:
$ret
\n~;
}
else {
open(HTML,$fl) || print "I can't access that file\n";
@count = ;
close(HTML);
$em1="";
$em2="";
$em3="";
$em4="";
for ($a=0; $a<@count; $a++) {
@words = split(/\|/,@count[$a]);
$em1=$em1 . "@words[0],@words[9]
";
$em2=$em2 . "@words[9]
";
$em3=$em3 . "@words[9],";
$em4=$em4 . "@words[0],@words[1],@words[2],@words[3],@words[4],@words[5],@words[6],@words[9]
";
}
$em3=substr($em3,0,length($em3)-1);
print qq~
Email List for $nm
Notes: It is not recommended to email more than once daily ,once a week/biweekly/monthly is best.
Name, Email * | Emails Only | Name, Address, City, State, Zip, Country, Phone, Email...* |
$em1 | $em2 | $em4 |
Email To List RIGHT NOW!!
* Notes on Names & Emails.
Customizing your email to each person will boost response rates SEVERAL
times over sending it via BCC. A great program to automate this task is
MAIL-LOOP.
"Spend your time marketing and promoting your business, not doing the daily tasks!
Get software that will do all your "dirty work" for you. There is software that will
automatically filter your email, run your newsletters, import your leads or orders
into a database, automatically email your personalized customer database, take
care of an unlimited amount of autoresponses, etc.
To learn more about software that can do this for you...."
Mail-Loop Website - Click Here
$ret \n"; } } else { print "Invalid Password.
$ret \n";
}
}
sub show_admin {
open(FILE, $topslogan1 ) || print "I can't open that file\n";
@ads =
Admin Instructions / Features - Click HERE
\n~; &add_category; print "
Email Category
[Get list of names/email, email only, and email entire list instantly]:
\n"; print "
$ret \n~; print "
Config Section:
$ret
\n~; } sub do_email { $sender="text/plain \n"; if ($FORM{'htmlsend'} eq '1') { $sender="text/html \n
";} 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 "List has been Emailed - you will get a copy.
$ret \n"; } sub purge_data { open(HTML,$fl) || print "I can't access that file\n"; @count2 = ; close(HTML); open(FILE, $topslogan3 ) || print "I can't open that file\n"; @ads =
; close(FILE); open(FILE, $topslogan4 ) || print "I can't open that file\n"; @ads2 = ; 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 ";} 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\n"; exit; } } sub friend { ($fl,$nm,$dec) = split(/\|/,@cats[$data]); $singlead--; open(HTML,$fl) || print "I can't access that file\n"; @count = ; close(HTML); @words = split(/\|/,@count[$singlead]); print qq~
Email This Ad to A Friend:
$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 =
";} 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~$ret \n~; } sub frames { print qq~
$sitename
\n~; } sub frames1 { print qq~
$sitename VIEW / POST ADS
\n~; for ($a = 1; $a < @cats; $a++) { @words = split(/\|/,$cats[$a]); print qq~- @words[1]
\n~; } print "
[Classifieds Home][Homepage]\n"; } sub admin_access { if ($FORM{'password'} eq $adminpassword) { &show_admin ; } else { print "
Invalid Password.
$ret\n";