#!/usr/bin/perl -w
##############################################################################
#
#  A Global FFA Network Script - The most easy to setup FFA Links Page available!
#
#  Created:	Feb 10, 2002
#  Updated:	Aug 18, 2002
#  URL:		http://www.spcksoftware.com/
#
#  Copyright 2002 Stefan Fahlberg - All rights reserved!
#
##############################################################################
#  Installation 
#  We made this script extremely easy to setup, and you should be able to get 
#  it up and running in a couple of minutes with a low level of CGI knowledge!
# ----------------------------------------------------------------------------
#
# 1. Edit path to Perl at top of script if it differs on your server. 
#    Usual and default path is: /usr/bin/perl 
#    However, on some servers it may be /usr/local/bin/perl. 
#    If in doubt, then refer to a script on your server that
#    does work, or ask your web host.
#
# 2. FTP upload script to it's own directory on your server in ASCII (text), 
#    rename (if needed) to links.cgi and CHMOD 777 (rwx-rwx-rwx). If your server
#    require chmod 755 it's also okay, everything except auto-upgrade will work.
#
# 3. Run the script, i.e.: http://www.yourdomain/cgi-bin/links/links.cgi
#    To login to admin: http://www.yourdomain/cgi-bin/links/links.cgi?mode=admin_menu 
#    Default Admin password is: 1234 (Make sure to change this asap)
#
# > THAT's ALL FOLK's! Don't edit anything BELOW this line if you are not 100% 
# > sure of what you are doing or you might mess it all up.
#
##############################################################################
# We can help you install this script on YOUR Unix server for only $15.00, 
# please contact us on the url below and we send further info. 
# Normal install time is within 24 hours.
#
# http://www.submitad.com/contact
##############################################################################

# Change log:
# Alan Idler, 15Aug2002
# Copyright Idleswell Software Creations, 2002
# 1.01 AI -w - warnings
# 1.02 AI flock - LOCK_EX
# 1.03 AI sub prototypes
# 1.04 AI admin_menu(): missing </table>
# 1.05 AI use strict;
#	  our($globals);
# 1.06 AI read_setup(): $value = '' unless defined($value);
# 1.07 AI $script = "$ENV{DOCUMENT_ROOT}/../$ENV{SCRIPT_NAME}";
# 1.08 AI edit_links(), GetFormData(): checkboxes
#         our (@delinks, @banurls, @banemail);
#         if ($mode eq "link_changes")
# 1.09 AI check_posted_ad(@): grep for bad text
# 1.10 AI read_setup(): join @lines
# 1.11 AI check_files(): print <<DEFAULTS
# Alan Idler, 06Sep2002
# 1.12 AI sub GetFormData(): CGI.pm processing of inputs
# 1.13 AI sub gettime(): sprintf "%02d" leading 0s;
# 1.14 AI sub read_setup(): ($name, $value) = pair =~ /([^=]*)=(.*)/;
# 1.15 AI sub save_setup(): $mode = 'admin_menu'
# Stefan Fahlberg, 07Sep2002
# 1.16 SF Added affiliate_id Field into Admin Panel and a few useful links
# Alan Idler, 08Sep2002
# 1.17 AI sub GetFormData(): @valist = $cgi->param($name);
# 1.18 AI sub gettime(): mon++
# 1.19 AI what's our(s) is my(ne)
# Alan Idler, 17Sep2002
# 1.20 AI sub read_setup(): replace $$name = $value by assignments to each $name
# 1.21 SF Fixed problem with posting not accepted if www. was missing in url
use strict;

use Fcntl ":flock";
use CGI;

my ($mode, $filename, $refer, $remote, $password, $p_mode);
my ($mailprog, $new_mailprog, $smtp, $script_updated);
my ($url, $c_url, $d_url, $email, $title, $section);
my $affiliate_id;
my %FORM;

my ($bg_color, $bg_background, $bg_text, $bg_vlink, $bg_alink, $bg_link);
my ($iNow, $iTot);
my ($p_date, $p_time, $p_remote);
my $maxlinks;
my (@Business, @Computers, @Education, @Entertainment, @Government, @Miscellaneous, @Personal);
my (@delinks, @banurls, @banemail);
my ($date, $time);
my ($confirmation_email_posting, $confirmation_subject_expired, $confirmation_email_address, $confirmation_subject_posting, $confirmation_email_expired);
my ($admin_email, $admin_email_text);
my ($banner_url, $banner_click_url); 

my ($bg_properties, $bg_properties_NO, $bg_properties_YES);
my ($remote_postings, $remote_postings_NO, $remote_postings_YES);
my ($show_admin_email, $show_admin_email_NO, $show_admin_email_YES);
my ($show_admin_link, $show_admin_link_NO, $show_admin_link_YES);
my ($use_file_lock, $use_file_lock_NO, $use_file_lock_YES);
my ($collect_email, $collect_email_NO, $collect_email_YES);
my ($activate_log, $activate_log_NO, $activate_log_YES);
my ($send_confirmation_mail, $send_confirmation_mail_NO, $send_confirmation_mail_POSTED, $send_confirmation_mail_EXPIRED, $send_confirmation_mail_BOTH);
my ($banned_word, $banned_email, $banned_url);
my ($color_ads, $color_ads_NO, $color_ads_YES);
my ($banner_mode_TEXT, $banner_mode_GRAPHIC);

my ($page_title, $page_title_backcolor, $page_title_forecolor, $page_subtitle_backcolor, $page_subtitle_forecolor, $page_subtitle, $border_color);
my ($adbox_head_text1, $adbox_head_forecolor1, $adbox_body_forecolor1, $adbox_body_backcolor1, $adbox_click_url1);
my ($adbox_head_text2, $adbox_head_forecolor2, $adbox_body_forecolor2, $adbox_body_backcolor2, $adbox_click_url2);
my ($adbox_head_text3, $adbox_head_forecolor3, $adbox_body_forecolor3, $adbox_body_backcolor3, $adbox_click_url3);
my ($adbox_head_text4, $adbox_head_forecolor4, $adbox_body_forecolor4, $adbox_body_backcolor4, $adbox_click_url4);
my ($adbox_head_text5, $adbox_head_forecolor5, $adbox_body_forecolor5, $adbox_body_backcolor5, $adbox_click_url5);

my ($adbox_body_text1, $adbox_head_backcolor1);
my ($adbox_body_text2, $adbox_head_backcolor2);
my ($adbox_body_text3, $adbox_head_backcolor3);
my ($adbox_body_text4, $adbox_head_backcolor4);
my ($adbox_body_text5, $adbox_head_backcolor5);

my $admin_password;
my $cgi = new CGI;

#######################################
my $script_name = "Global FFA Network Script";
my $script_version = "1.21";
my $tmp_script = $ENV{SCRIPT_NAME};
my $script;
($script = $tmp_script) =~ s/.*\///;
my $cgiurl = "http://$ENV{SERVER_NAME}$tmp_script";
my $domain = $ENV{SERVER_NAME};
$tmp_script = "";
my $managebase = "http://www.submitad.com/cgi-local/ffamanage";
my $admin_help = "$managebase/help_admin.html";
my $manageurl = "$managebase/ffamanage.cgi";
my ($manage_pw, $manage_id);

#$script = "$ENV{DOCUMENT_ROOT}/../$ENV{SCRIPT_NAME}";
my $perms = (stat($script))[2] & 07777;
my $oct_perms = sprintf "%lo", $perms;
#######################################

use Socket; #For sendmail routine
&check_files();
&read_setup();
&GetFormData();
&CheckMode();

#######################################
# Mode checks
sub CheckMode() {
my ($delink, $ban);
&ShowFFApage() unless defined($mode);
&ShowFFApage() if $mode eq '';
&add_link_to_list() if $mode eq 'Add My Link';
&admin_menu() if $mode eq 'admin_menu';
&save_setup() if $mode eq 'Save Setup';
&view_file($filename) if $mode eq "view_file";
&clear_file($filename) if $mode eq "clear_file";

&load_edit_links_page() if $mode eq "load_edit_links_page";
&edit_links($filename) if $mode eq "edit_links";
if ($mode eq "link_changes") {
	foreach $ban (@banurls) { 
		&add_item_to_file ($ban, "banned_url.txt"); }
	foreach $ban (@banemail) {
		&add_item_to_file ($ban, "banned_email.txt"); }
	foreach $delink (@delinks) {
		&delete_link($delink); }
	print "Pragma: no-cache\n";
	print "Location: $cgiurl?mode=edit_links&password=$password&filename=links.txt\n\n";}

&delete_link($title) if $mode eq "delete_link";
&add_item_to_file ($url, "banned_url.txt") if $mode eq "ban_url";
&add_item_to_file ($email, "banned_email.txt") if $mode eq "ban_email";

&test_send_mail() if $mode eq "test_send_mail";

&login_global_ffa_network() if $mode eq "login_global_ffa_network";
&save_manage_setup() if $mode eq "save_manage_setup";

&upgrade_script() if $mode eq 'upgrade_script';

&return_page('System Error', "Can't load this FFA System!\n");
exit;
}

#######################################
# Get form data
sub GetFormData() {
my $name;
my $buffer = $cgi->query_string;
my @valist;
my @params;

if (($cgi->request_method eq "POST") && defined($ENV{QUERY_STRING})) {
        $buffer .= (length($buffer) ? '&' : '') . $ENV{QUERY_STRING};
	$cgi->param (query_string => $buffer);}

@delinks = ();
@banurls = ();
@banemail = ();
@params = $cgi->param();
foreach $name (@params) {
        @valist = $cgi->param($name);
	if ($name eq "delete_link") {
		@delinks = @valist; }
	elsif ($name eq "ban_url") {
		@banurls = @valist; }
	elsif ($name eq "ban_email") {
		@banemail = @valist; }
        else { $FORM{$name} = pop(@valist); }    # Last value is final
	}

$mode = $FORM{'mode'};
$mode = "" unless defined($mode);
$p_mode  = $FORM{'p_mode'};  
$title   = $FORM{'title'};
$url     = $FORM{'url'};
$email   = $FORM{'email'};
$section = $FORM{'section'};

$refer   = $ENV{HTTP_REFERER};
$remote  = $ENV{REMOTE_ADDR};

$password = $FORM{'password'};
$filename = $FORM{'filename'};
$mailprog = $FORM{'mailprog'};
$new_mailprog = $FORM{'new_mailprog'};
$smtp = $FORM{'smtp'};

$affiliate_id = $FORM{'affiliate_id'};
$manage_id = $FORM{'manage_id'};
$manage_pw = $FORM{'manage_pw'};

$script_updated = $FORM{'script_updated'};

if (defined($remote_postings) && ($remote_postings eq 'yes')) {
	if ((!defined($mode) || ($mode eq '')) && 
		(defined($title) && ($title ne '')) && 
		(defined($url) && ($url ne '')) && 
		(defined($email) && ($email ne '')) && 
		(defined($section) && ($section ne ''))) { 
		$mode = 'Add My Link';
	}	}
}

#######################################
# If these files doesn't exist, we create default
sub check_files() {

&gettime();
unless (-e "setup.txt") {
	open (DATA, ">setup.txt") || &return_page('System Error', "Can't create setup.txt\n");
	#flock DATA, LOCK_EX if $use_file_lock eq 'yes';

print DATA <<DEFAULTS;
admin_password=1234
affiliate_id=
page_title=My Own Great FFA Page
page_title_forecolor=FFFFFF
page_title_backcolor=009999
page_subtitle=Best FFA System On The Internet - HUGE Traffic Booster!
page_subtitle_forecolor=0000FF
page_subtitle_backcolor=FFCC00
banner_url=
banner_click_url=
mailprog=/usr/lib/sendmail
smtp=
bg_background=
bg_color=FFFFFF
border_color=CCCCFF
bg_text=000000
bg_vlink=800000
bg_alink=800080
bg_link=0000FF
admin_email=your_email\@address_here.com
admin_email_text=support
bg_properties=fixed
show_admin_email=yes
maxlinks=50
show_admin_link=yes
color_ads=yes
use_file_lock=yes
collect_email=no
activate_log=no
remote_postings=no
confirmation_subject_posting=Thank's for posting your ad!
confirmation_subject_expired=Your ad has expired!
confirmation_email_address=your_confirmation\@email_address.com
send_confirmation_mail=no

adbox_head_text1=LOW Cost Webhosting
adbox_head_forecolor1=FFFF00
adbox_head_backcolor1=CC0000
adbox_body_text1=<font size=+1><b>200MB</b></font><br><font color=#CC0000><b>\$9.99/month</b></font><br><b>NO Setup Fee</b><br><b>Instant Activation</b><br>Fast Loaded Servers<br><i>Affiliates Wanted!<br>20% Commission</i>
adbox_body_forecolor1=003300
adbox_body_backcolor1=FFFFCC
adbox_click_url1=http://www.newwebsite.com/jona

adbox_head_text2=LOW Cost Dedicated Server
adbox_head_forecolor2=FFFF00
adbox_head_backcolor2=6633CC
adbox_body_text2=<b>20 GB Transfer</b><br><font color=#CC0000><b>\$99/month</b></font><br><b>NO Setup Fee</b><br>Fast Loaded Servers<br><i>Affiliates Wanted!<br>20% Commission</i>
adbox_body_forecolor2=CC0000
adbox_body_backcolor2=CCFFFF
adbox_click_url2=http://www.newwebsite.com/jona

adbox_head_text3=HotLib.com
adbox_head_forecolor3=FFFF00
adbox_head_backcolor3=6633CC
adbox_body_text3=<b>HotLib.com is a new, huge and FAST download site where you will find all the software and tools you ever need!</b>
adbox_body_forecolor3=FFFFFF
adbox_body_backcolor3=0000FF
adbox_click_url3=http://www.hotlib.com

adbox_head_text4=SETUP YOUR OWN FFA PAGE!
adbox_head_forecolor4=FFFF00
adbox_head_backcolor4=000099
adbox_body_text4=Get your own FFA page like this one for <b>FREE</b> and generate thousands of hits/day! <u>Fully automated, extremely easy setup</u> with great admin page that controls everyting! <u>A monkey can set it up within minutes!</u> CLICK HERE! FREE DOWNLOAD!
adbox_body_forecolor4=000000
adbox_body_backcolor4=FFCC00
adbox_click_url4=http://www.submitad.com

adbox_head_text5=HOT MARKETPLACE!
adbox_head_forecolor5=FFFF00
adbox_head_backcolor5=FF6600
adbox_body_text5=Thousands of links to hot software, scripts, tools and marketing programs!<br><br><b>CHECK IT OUT!</b>
adbox_body_forecolor5=CC0000
adbox_body_backcolor5=FFFF00
adbox_click_url5=http://www.hop.clickbank.net/?cinco/marketplace

DEFAULTS
	close(DATA);}

unless (-e "statistic.txt") {
	&gettime();
	open (DATA, ">statistic.txt") || &return_page('System Error', "Can't create statistic.txt\n");
	#flock DATA, LOCK_EX if $use_file_lock eq 'yes';
print DATA "3|255.255.255.255|1/1/2002|12:00:00";
	close(DATA);}

unless (-e "links.txt") {
	open (DATA, ">links.txt") || &return_page('System Error', "Can't create links.txt\n");
	#flock DATA, LOCK_EX if $use_file_lock eq 'yes';
print DATA <<LINKS;
Your Best Submission Tools For FREE Here!|http://www.submitad.com|blabla\@somemorebla.com|Business|255.255.255.255|1/1/2002|12:00:00
Get Your Own FFA page like this one! CLICK HERE!|http://www.submitad.com|blabla\@somemorebla.com|Business|255.255.255.255|1/1/2002|12:00:00
FFA Blaster - Your MAIN submission tool! Get it here!|http://www.submitad.com|blabla\@somemorebla.com|Business|255.255.255.255|1/1/2002|12:00:00
LINKS
	close(DATA);}

unless (-e "email_posted.txt") {
	open (DATA, ">email_posted.txt") || &return_page('System Error', "Can't create email_posted.txt\n");
	#flock DATA, LOCK_EX if $use_file_lock eq 'yes';
print DATA <<EPOSTED;    
Thank's for posting your ad on our high traffic Free For All Links page!

{{title}}
{{url}}
{{email}}
{{section}}
{{date}} - {{time}}
Posted by: {{remote}}

Regards

Submission Staff

This FFA Page system is created, managed and powered by FFA Blaster,
available for FREE download at:
http://www.submitad.com

EPOSTED
	close(DATA);}

unless (-e "email_expired.txt") {
	open (DATA, ">email_expired.txt") || &return_page('System Error', "Can't create email_expired.txt\n");
	#flock DATA, LOCK_EX if $use_file_lock eq 'yes';
print DATA <<MAILEXPIRED;
Your link has expired, and you are welcome to come back to us and re-post it.

{{title}}
{{url}}
{{email}}
{{section}}
{{date}} - {{time}}
Posted by: {{remote}}

Regards

Submission Staff

This FFA Page system is created, managed and powered by FFA Blaster,
available for FREE download at:
http://www.submitad.com

MAILEXPIRED
	close(DATA);}

unless (-e "banned_word.txt") {
	open (DATA, ">banned_word.txt") || &return_page('System Error', "Can't create banned_word.txt\n");
	#flock DATA, LOCK_EX if $use_file_lock eq 'yes';
print DATA <<SWEARING;
fuck
porn
sex
SWEARING
	close(DATA);}

unless (-e "banned_email.txt") {
	open (DATA, ">banned_email.txt") || &return_page('System Error', "Can't create banned_email.txt\n");
	#flock DATA, LOCK_EX if $use_file_lock eq 'yes';
print DATA <<BANMAIL;
abuse\@host4u.net
your\@email.adr
your_email\@address_here.com
webmaster\@linkomatic.com
BANMAIL
	close(DATA);}

unless (-e "banned_url.txt") {
	open (DATA, ">banned_url.txt") || &return_page('System Error', "Can't create banned_url.txt\n");
	#flock DATA, LOCK_EX if $use_file_lock eq 'yes';
print DATA <<BANURL;
eroticgarden.com
freakoutman.com
nastyhabits.com
BANURL
	close(DATA);}

unless (-e "collect.txt") {
	open (DATA, ">collect.txt") || &return_page('System Error', "Can't create collect.txt\n");
	#flock DATA, LOCK_EX if $use_file_lock eq 'yes';
	print DATA "";
	close(DATA);}

unless (-e "log.txt") {
	open (DATA, ">log.txt") || &return_page('System Error', "Can't create log.txt\n");
	#flock DATA, LOCK_EX if $use_file_lock eq 'yes';
	print DATA "";
	close(DATA);}

unless (-e "denied.txt") {
	open (DATA, ">denied.txt") || &return_page('System Error', "Can't create denied.txt\n");
	#flock DATA, LOCK_EX if $use_file_lock eq 'yes';
	print DATA "";
	close(DATA);}

unless (-e "manage.txt") {
	open (DATA, ">manage.txt") || &return_page('System Error', "Can't create manage.txt\n");
	#flock DATA, LOCK_EX if $use_file_lock eq 'yes';
	print DATA "unregistered|";
	close(DATA);}

unless (-e "index.html") {
	open (DATA, ">index.html") || &return_page('System Error', "Can't create index.html\n");
	#flock DATA, LOCK_EX if $use_file_lock eq 'yes';
	print DATA "<html><body>";
	print DATA "<p><center><a href=$cgiurl><h2>Click Here To Continue!</h2></a></center>";
	print DATA "</body></html>";
	close(DATA);}
} # End sub

#######################################
# Get the links from links.txt 
sub get_link_list() {
my @lines;

open (LINKS, "<links.txt") || &return_page('System Error', "Can't read links.txt.\n");
@lines = <LINKS>;
close(LINKS);
return(@lines); 
}

#######################################
# Save @links to links.txt
sub save_link_list(@) {
my @list = @_;  

open (LINKS, ">links.txt") || &return_page('System Error', "Can't save links.txt\n");
flock LINKS, LOCK_EX if $use_file_lock eq 'yes';
print LINKS @list;
close(LINKS);
}

#######################################
# Make sure this ad is okay to post
sub check_posted_ad(@) {
my @list = @_;

if ($title eq '') {
	&errmsg("Ooops, You Forgot To Enter Your Site's Title!","You Must Enter a Title Or Your Ad Will Be Rejected!"); }

# is title longer than 85 char?
if (length($title) > 85) {
	&errmsg("Ooops, Your Title Is Longer Than 85 Characters!","Please Make Your Title Shorter So We Can Accept Your Posting!"); }

# any restricted words in title?
my (@badwords, @swear);
open (FILE, "<banned_word.txt");
@badwords = <FILE>;
close(FILE);
chomp(@badwords);
@swear = grep { s/\s+//g; $title =~ /$_/i; } @badwords;
if (@swear > 0) {
	&errmsg("Sorry, There's A Restricted Word In Your Title!","We Do Not Accept Bad Words / Languages<br>To Be Posted On Our Page!<br><br>Bad Word Rejected: <font color=\"#CC0000\"><b>$swear[0]</b></font>"); }

# is email banned?
my (@bademail, @censor);
open (FILE, "<banned_email.txt");
@bademail = <FILE>;
close(FILE);
chomp(@bademail);
@censor = grep { s/\s+//g; $email =~ /$_/i; } @bademail;
if (@censor > 0) {
	&errmsg("Sorry, You can NOT post a link using that email address!","Your Email Address Have Been Banned By This Page Owner!"); }

# is url there? 
if ($url eq 'http://' || $url eq '') {
	&errmsg("Ooops, You Forgot To Enter Your Site's URL!","You Must Enter a Valid URL Or Your Ad Will Be Rejected!"); }

# is url valid?
#if ($url !~ /^(f|ht)tp:\/\/(\w|\/)+\.\w+/i) {
if ($url !~ /^(f|ht)tp:\/\//i) {
	&errmsg("Ooops, You Entered An Invalid URL!","You Must Enter a Valid URL Or Your Ad Will Be Rejected!"); }

# color coded ads okay?
if ($color_ads eq "no") {
	if ($url =~ /STYLE=/i || $url =~ /STYLE =/i) {
		&errmsg("Ooops, Color Coded Ads Not Allowed!","Color Coded Ads Are Not Allowed On This Page<br>So Your Ad Will Be Rejected!"); }
	}

# is url banned?
my @badurls;
open (FILE, "<banned_url.txt");
@badurls = <FILE>;
close(FILE);

foreach $c_url (@badurls) {
	chomp $c_url;
	$c_url =~ s/\s+//g; # Take out white spaces
	($d_url) = split(/\"/, $c_url);
	if ($url =~ /$d_url/i) {
		&errmsg("Sorry, You Can't Post A Link To That URL Here!","Probably Your URL Have Been Banned By This Page Owner!"); }
	}

# is email there?
if ($email eq '') {
	&errmsg("Ooops, You Forgot To Enter Your Email Address!","You Must Enter a Valid Email Address Or Your Ad Will Be Rejected!"); }

# is email valid?
if ($email !~ /^[\w\d][\w\d\,\.\-]*\@([\w\d\-]+\.)+([a-zA-Z]{3}|[a-zA-Z]{2})$/) {
	&errmsg("Ooops, You Entered An Invalid Email Address!","You Must Enter a Valid Email Address Or Your Ad Will Be Rejected!"); }

($c_url) = split(/\"/, $url);
$c_url =~ s/\s+//g; # Take out white spaces
chomp(@list);
my @repeat = grep /$c_url/, @list;
if (@repeat > 0) {
	&errmsg("Sorry, You Already Have A Link On This Page!","You Can Only Have One Active Link On This Page Linked To Your URL So You Have To<BR>Wait Until Your Current Link Scrolls Off The List!"); }
@repeat = grep /$title/, @list;
if (@repeat > 0) {
	&errmsg("Sorry, You Already Have A Link On This Page!","You Can Only Have One Active Link Using This Title On This Page So You Have To<BR>Wait Until Your Current Link Scrolls Off The List!"); }
} # end sub

#######################################
# Print errmsg and exit
sub errmsg ($$)  {
my ($header, $message) = @_;

print <<ERRMSG;
Content-type: text/html

<html><head>
<title>$header</title>
</head>
<BODY bgColor="#$bg_color" background="$bg_background" bgproperties="$bg_properties" text="#$bg_text" vLink="#$bg_vlink" aLink="#$bg_alink" link="#$bg_link">
 <CENTER>
  <TABLE cellSpacing=0 cellPadding=2 width="80%" bgColor="#E2F8FE" border=1>
   <TR>
    <TD bgColor="#CC0000">
     <CENTER>
      <FONT face=Verdana color="#FFFFFF" size=4>
       <B>$header</B>
      </FONT>
     </CENTER>
    </TD>
   </TR>
   <TR>
    <TD bgColor="#FFCC00">
     <CENTER>
      <FONT face=Verdana color="#0000FF" size=2>
       <b>$message</b><br><br>
       Click <a href="javascript:self.history.go(-1)"><b>Here</b></a> To Go Back And Try Again!
      </FONT><BR>
     </CENTER>
    </TD>
   </TR>
  </TABLE>
 </CENTER>
</BODY>
</HTML>
ERRMSG
exit;
}

#######################################
#
sub add_link_to_list() {
my (@list, @new_list, @sections);
my (@new_ffa_ad, @expired_ffa_ad, $line, $parsed_msg);
my ($c_title, $c_url, $c_email, $c_section, $c_remote, $c_date, $c_time);
my ($i, @counter, $xheader);

&CheckReferer();
@sections = ('Business', 'Computers', 'Education', 'Entertainment', 'Government', 'Miscellaneous', 'Personal');
$xheader = '';

@list = &get_link_list();
&check_posted_ad(@list);
&gettime();
$url =~ s/\\//g; # Take out \ if found
@new_ffa_ad = ("$title", "$url", "$email", "$section", "$remote", "$date", "$time");
@list = reverse(@list);
push @list, $new_ffa_ad[0]."|".$new_ffa_ad[1]."|".$new_ffa_ad[2]."|".$new_ffa_ad[3]."|".$new_ffa_ad[4]."|".$new_ffa_ad[5]."|".$new_ffa_ad[6];
@list = reverse(@list);
foreach $line (@list) {
	chomp($line);
	($c_title, $c_url, $c_email, $c_section, $c_remote, $c_date, $c_time) = split(/\|/, $line);
	for ($i = 0; $i <= 6; $i++) {
		if ($c_section eq $sections[$i]) {
			$counter[$i]++;
			if ($counter[$i] > $maxlinks) {
				if ($send_confirmation_mail eq 'expired' || $send_confirmation_mail eq 'both') {
					@expired_ffa_ad = ("$c_title", "$c_url", "$c_email", "$c_section", "$c_remote", "$c_date", "$c_time"); }
				next; }
			push @new_list, $line."\n"; 
	}	}	}

&save_link_list(@new_list);
&save_log(@new_ffa_ad);
&update_statistic();
if ($collect_email eq "yes") {
	&add_item_to_file ($email, "collect.txt"); }

if (($send_confirmation_mail eq "posted" || $send_confirmation_mail eq "both") && ($email ne ""))  {
	$parsed_msg = &parse_confirmation_mail ($confirmation_email_posting, @new_ffa_ad);
	&email ($confirmation_email_address, $email, $smtp, $confirmation_subject_posting, $parsed_msg, $xheader);}
if (($send_confirmation_mail eq "expired" || $send_confirmation_mail eq "both") && ($expired_ffa_ad[2] ne ""))  {
	$parsed_msg = &parse_confirmation_mail ($confirmation_email_expired, @expired_ffa_ad);
	&email ($confirmation_email_address, $expired_ffa_ad[2], $smtp, $confirmation_subject_expired, $parsed_msg, $xheader);}
print "Pragma: no-cache\n";
print "Location: $cgiurl\n\n";
exit;
}

#######################################
#
sub parse_confirmation_mail ($@) {
my ($mail, @ad) = @_;
my (@check_list, $line);
my $i = 0;

@check_list = ("title", "url", "email", "section", "remote", "date", "time");
foreach $line (@check_list) {
	$mail =~ s#\{\{$line\}\}#$ad[$i++]#g; }
return($mail);
}

#######################################
# Save info to log.txt
sub save_log(@)  {
my @data = @_;
my $log;
my ($c_title, $c_url, $c_email, $c_section, $c_remote, $c_date, $c_time);

$log = $data[0]."|".$data[1]."|".$data[2]."|".$data[3]."|".$data[4]."|".$data[5]."|".$data[6];
open (FILE,">>log.txt") || &return_page('System Error', "Can't save log.txt\n");
flock FILE, LOCK_EX if $use_file_lock eq 'yes';
print FILE "$log\n";
close(FILE);
}

#######################################
#
sub update_statistic() {
my ($stat, $empty);

&gettime();
open (STATS, "+<statistic.txt") || &return_page('System Error', "Can't save statistic.txt\n");
flock STATS, LOCK_EX if $use_file_lock eq 'yes';
$stat = <STATS>;
($iTot) = split(/\|/, $stat);
$iTot++;
$empty = "      ";
seek (STATS,0,0);
print STATS "$iTot|$remote|$date|$time$empty";
close(STATS);
}

#######################################
#
sub read_statistic() {
my $stat;

open (STATS, "<statistic.txt");
$stat = <STATS>;
($iTot, $p_remote, $p_date, $p_time) = split(/\|/, $stat);
close(STATS);
}

#######################################
#
sub Get_Sections(@)  {
my @list = @_;
my ($c_title, $c_url, $c_email, $c_section, $c_remote,$line);

$iNow = 0;
foreach $line (@list) {
	chomp($line);
	$iNow++;
	($c_title, $c_url, $c_email, $c_section, $c_remote) = split(/\|/, $line);
	push @Business, "<li><a href=\"$c_url\">$c_title</a>\n" if $c_section eq "Business";
	push @Computers, "<li><a href=\"$c_url\">$c_title</a>\n" if $c_section eq "Computers";
	push @Education, "<li><a href=\"$c_url\">$c_title</a>\n" if $c_section eq "Education";
	push @Entertainment, "<li><a href=\"$c_url\">$c_title</a>\n" if $c_section eq "Entertainment";
	push @Government, "<li><a href=\"$c_url\">$c_title</a>\n" if $c_section eq "Government";
	push @Miscellaneous, "<li><a href=\"$c_url\">$c_title</a>\n" if $c_section eq "Miscellaneous";
	push @Personal, "<li><a href=\"$c_url\">$c_title</a>\n" if $c_section eq "Personal";}
}

#######################################
#
sub ShowFFApage()  {
my @list;

@list = get_link_list();
&Get_Sections(@list);
&PrintFFApage();
exit;
}

#######################################
#
sub PrintFFApage() {
my $t_admin_email = '<br>';
my $t_admin_link = '<br>';
my $t_banner_url = ''; 
my ($t, $ffa_ad_boxes);
my($text_banner_url);

&read_setup;

if ($show_admin_email eq 'yes') {
	$t_admin_email  = "If you have any questions about this page, please contact ";
	$t_admin_email .= "<a href=\"mailto: $admin_email \">$admin_email_text</a><br><br>";}

if ($show_admin_link eq 'yes') {
	$t_admin_link = "Admin <a href=\"$cgiurl?mode=admin_menu\">Login</a><br>"; }

if ($banner_url ne '')  {
	if ($banner_click_url eq '') { 
    		$t_banner_url .= "<IMG SRC=\"$banner_url\" border=0><p>"; # No click url
	} else {
		$t_banner_url .= "<a href=$banner_click_url><IMG SRC=\"$banner_url\" border=0></a><p>"; } # have click url
	}

	if (!defined($affiliate_id) or ($affiliate_id eq "")) {
	   $text_banner_url = "&#104&#116&#116&#112&#58&#47&#47&#119&#119&#119&#46&#115&#117&#98&#109&#105&#116&#97&#100&#46&#99&#111&#109";
	   #$t="&#84&#104&#105&#115&#32&#112&#97&#103&#101&#32&#105&#115&#32&#99&#114&#101&#97&#116&#101&#100&#32&#97&#110&#100&#32&#112&#111&#119&#101&#114&#101&#100&#32&#98&#121&#32&#60&#97&#32&#104&#114&#101&#102&#61&#34&#104&#116&#116&#112&#58&#47&#47&#119&#119&#119&#46&#115&#117&#98&#109&#105&#116&#97&#100&#46&#99&#111&#109&#34&#62&#60&#98&#62&#70&#70&#65&#32&#66&#108&#97&#115&#116&#101&#114&#60&#47&#98&#62&#60&#47&#97&#62";
	   $t="&#84&#104&#105&#115&#32&#112&#97&#103&#101&#32&#105&#115&#32&#99&#114&#101&#97&#116&#101&#100&#32&#97&#110&#100&#32&#112&#111&#119&#101&#114&#101&#100&#32&#98&#121&#32<A HREF = &#104&#116&#116&#112&#58&#47&#47&#119&#119&#119&#46&#115&#117&#98&#109&#105&#116&#97&#100&#46&#99&#111&#109&#47><b>&#70&#70&#65&#32&#66&#108&#97&#115&#116&#101&#114</b></A>";
	} else {
	  $text_banner_url = "&#104&#116&#116&#112&#58&#47&#47&#119&#119&#119&#46&#115&#117&#98&#109&#105&#116&#97&#100&#46&#99&#111&#109&#47&#103&#111&#46&#99&#103&#105&#63" . $affiliate_id;
	  $t="&#84&#104&#105&#115&#32&#112&#97&#103&#101&#32&#105&#115&#32&#99&#114&#101&#97&#116&#101&#100&#32&#97&#110&#100&#32&#112&#111&#119&#101&#114&#101&#100&#32&#98&#121&#32<A HREF = &#104&#116&#116&#112&#58&#47&#47&#119&#119&#119&#46&#115&#117&#98&#109&#105&#116&#97&#100&#46&#99&#111&#109&#47&#103&#111&#46&#99&#103&#105&#63".$affiliate_id."><b>&#70&#70&#65&#32&#66&#108&#97&#115&#116&#101&#114</b></A>";
	}

$ffa_ad_boxes = &load_ffa_ad_boxes();
&read_statistic();

&gettime();
print <<FFA;
Content-type: text/html

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!--  -->
<!--  $script_name ver: $script_version -->
<!--  -->
<!--  Latest version of this script can always be downloaded from: -->
<!--  http://www.submitad.com/files/ffalinks.zip -->
<!--  -->
<!--  We also created an FFA Script Install Utility that handle  -->
<!--  the installation more or less automatically in 10 sec...  -->
<!--  http://www.submitad.com/files/ffainst.exe  -->
<!--  -->
<!--  Why not also try out FFA Blaster to post your links on thousands FFA pages -->
<!--  http://www.submitad.com/files/blaster1.exe  -->
<!--  -->
<!--  ...or just visit our homepage.. -->
<!--  http://www.SubmitAd.com/  -->
<!--  -->

<HTML>
<HEAD>
 <TITLE>$page_title</TITLE>
</HEAD>

<BODY bgColor="#$bg_color" background="$bg_background" bgproperties="$bg_properties" text="#$bg_text" vLink="#$bg_vlink" aLink="#$bg_alink" link="#$bg_link">

 <!-- START TEXT BANNER BOX -->
 <CENTER>
  $t_banner_url
  <TABLE cellSpacing=0 cellPadding=2 width=500 bgColor="#e2f8fe" border=1>
   <TR>
    <TD bgColor="#$page_title_backcolor">
     <CENTER>
	  <A href="$text_banner_url">
       <SPAN style="TEXT-DECORATION: none">              
        <FONT face=Verdana color="#$page_title_forecolor" size=4>
         <B>$page_title</B>
        </FONT>
       </SPAN>
      </A>
     </CENTER>
    </TD>
   </TR>
   <TR>
   <TD bgColor="#$page_subtitle_backcolor">
    <CENTER>
     <A href="$text_banner_url">
      <SPAN style="TEXT-DECORATION: none">
       <FONT face=Verdana color="#$page_subtitle_forecolor" size=2>
        <b>$page_subtitle</b>
       </FONT><BR>
      </SPAN>
     </A>
    </CENTER>
   </TD>
  </TABLE>
 </CENTER>
 <!-- END TEXT BANNER BOX -->

<BR>

 <TABLE align=center cellSpacing=0 cellPadding=8 width="80%" border=0>
  <TR>
    <TD bgColor="#$border_color" ColSpan=3>
     <CENTER>
      <FONT color="#$border_color" size=2>&nbsp;</FONT>
     </CENTER>
    </TD>
   <TD bgColor="#$border_color"></TD>
  </TR>

  <TR>
   <TD vAlign=top width=120 bgColor="#$border_color">
    $ffa_ad_boxes<BR>
  </TD>
  
  <TD>
  <TD vAlign=top>
   <!-- Main Body of text -->
   <P align=left>

   <B>Welcome to our <FONT color="#ff0000">High Traffic</FONT> links page!</B><br>Below is a free for all
   list of links in several popular categories, and you're welcome to
   add yours to our ever-changing list. Just be sure to post in the
   most appropriate section, and please don't add links to offensive
   or adult-related sites. Thanks!<BR>
   <BR>
   <HR>
   <BR>

   <FONT SIZE=-1>
    Currently there are <b>$iNow</b> links on this page of totally <b>$iTot</b> that has been posted!</B><BR>
    The last link was added on <b>$p_date</b> at <b>$p_time</b> by <b>$p_remote</b><BR>
    Each section is limited to <b>$maxlinks</b> links, new links placed on top!<BR>
   </FONT>$t
   <BR><HR><BR>
   <B>Why not add your own link?!</B><BR>
   <FONT size=-1>
    Your email address is required, but not shown or given out to anyone.<BR>
    We will send you a <b><U><I>Thank You...</I></U></b> email, showing the link you just posted,<br>
    so you know everything is okay. We will also remind you when your ad expires<br>
    and include some info about our products/services for you to review. 
   </FONT>
   <BR><BR>
      
    <FORM name=ffablaster action=$cgiurl method=post><B>Web Site Title</B><BR>
     <INPUT type=text maxLength=85 size=60 name=title><BR>
     <B>Web Site URL</B><BR><INPUT type=text size=60 name=url value="http://"><BR>
     <B>Email Address</B><BR><INPUT type=text size=60 name=email value=""><BR>
     <B>Select Section</B><BR>
     <select name="section">
      <option>Business</option>
      <option>Computers</option>
      <option>Education</option>
      <option>Entertainment</option>
      <option>Government</option>
      <option selected>Miscellaneous</option>
      <option>Personal</option>
     </select><br><br>
     <input type=hidden name="mode" value="Add My Link">
     <input type="submit" value="Add My Link"> <input type=reset value="Clear Form">
    </FORM>
    <script language="JavaScript">
     <!--
     document.ffablaster.title.focus();
     document.ffablaster.title.value='';
     document.ffablaster.url.value='http://';
     document.ffablaster.email.value='';
     // -->
    </script>

<CENTER>
$t_admin_email
</CENTER>

<b>Quick jump directly to a specific section!</b><br>
<font size=1>
 [ <a href="#business">Business</a> | <a href="#computers">Computers</a> | <a href="#education">Education</a> | <a href="#entertainment">Entertainment</a> | <a href="#government">Government</a> | <a href="#personal">Personal</a> | <a href="#miscellaneous">Misc</a> ]
</font>
</center>
<hr>

<BR>
<a name="business"><b>Business</b></a><br><br>
<ul>
@Business
</ul>
<HR>

<BR>
<a name="computers"><b>Computers</b></a><br><br>
<ul>
@Computers
</ul>
<HR>

<BR>
<a name="education"><b>Education</b></a><br><br>
<ul>
@Education
</ul>
<HR>

<BR>
<a name="entertainment"><b>Entertainment</b></a><br><br>
<ul>
@Entertainment
</ul>
<HR>

<BR>
<a name="government"><b>Government</b></a><br><br>
<ul>
@Government
</ul>
<HR>

<BR>
<a name="miscellaneous"><b>Miscellaneous</b></a><br><br>
<ul>
@Miscellaneous
</ul>
<HR>

<BR>
<a name="personal"><b>Personal</b></a><br><br>
<ul>
@Personal
</ul>
<HR>

<CENTER>
<font size=1>Setup your own FFA page like this one! <a href="http://www.submitad.com/files/ffalinks.zip">FREE script download here!</a></font><BR>
<font size=1>Don't know anything about CGI, but you still want this script?<br>Get our <a href="http://www.submitad.com/files/ffainst.exe">Global FFA Network Script Installer!</a> It's totally FREE!</font><BR>
<br>
<font size=1>$t</font><BR>

<HR>
$t_admin_link
</CENTER>

</td>
</table>
</table>

</BODY>
</HTML>
FFA
exit;
}

#######################################
# loop to add five ad boxes to admin
sub load_ffa_ad_boxes()  {
my ($i, $adbox_head_text, $adbox_body_text, $adbox_head_forecolor, $adbox_head_backcolor, $adbox_body_forecolor, $adbox_body_backcolor, $adbox_click_url);
my $box = '';

for ($i = 1; $i <= 5; $i++) {
	if ($i == 1) {
$adbox_head_text = $adbox_head_text1;
$adbox_body_text = $adbox_body_text1;
$adbox_head_forecolor = $adbox_head_forecolor1;
$adbox_head_backcolor = $adbox_head_backcolor1;
$adbox_body_forecolor = $adbox_body_forecolor1;
$adbox_body_backcolor = $adbox_body_backcolor1;
$adbox_click_url = $adbox_click_url1;
	} elsif ($i == 2) {
$adbox_head_text = $adbox_head_text2;
$adbox_body_text = $adbox_body_text2;
$adbox_head_forecolor = $adbox_head_forecolor2;
$adbox_head_backcolor = $adbox_head_backcolor2;
$adbox_body_forecolor = $adbox_body_forecolor2;
$adbox_body_backcolor = $adbox_body_backcolor2;
$adbox_click_url = $adbox_click_url2;
	} elsif ($i == 3) {
$adbox_head_text = $adbox_head_text3;
$adbox_body_text = $adbox_body_text3;
$adbox_head_forecolor = $adbox_head_forecolor3;
$adbox_head_backcolor = $adbox_head_backcolor3;
$adbox_body_forecolor = $adbox_body_forecolor3;
$adbox_body_backcolor = $adbox_body_backcolor3;
$adbox_click_url = $adbox_click_url3;
	} elsif ($i == 4) {
$adbox_head_text = $adbox_head_text4;
$adbox_body_text = $adbox_body_text4;
$adbox_head_forecolor = $adbox_head_forecolor4;
$adbox_head_backcolor = $adbox_head_backcolor4;
$adbox_body_forecolor = $adbox_body_forecolor4;
$adbox_body_backcolor = $adbox_body_backcolor4;
$adbox_click_url = $adbox_click_url4;
	} elsif ($i == 5) {
$adbox_head_text = $adbox_head_text5;
$adbox_body_text = $adbox_body_text5;
$adbox_head_forecolor = $adbox_head_forecolor5;
$adbox_head_backcolor = $adbox_head_backcolor5;
$adbox_body_forecolor = $adbox_body_forecolor5;
$adbox_body_backcolor = $adbox_body_backcolor5;
$adbox_click_url = $adbox_click_url5;
		}

$box .= "<!-- START FFA Blaster Ad Box $i -->\n";
$box .= "<CENTER>\n";
$box .= " <TABLE cellSpacing=0 cellPadding=2 width=110 bgColor=\"#E2F8FE\" border=1>\n";
$box .= "  <TR>\n";
$box .= "   <TD bgColor=\"#$adbox_head_backcolor\">\n";
$box .= "    <CENTER>\n";
$box .= "     <A href=\"$adbox_click_url\">\n";
$box .= "      <SPAN style=\"TEXT-DECORATION: none\">\n";             
$box .= "       <FONT face=Verdana color=\"#$adbox_head_forecolor\" size=1>\n";
$box .= "        <B>$adbox_head_text</B>\n";
$box .= "        </FONT>\n";
$box .= "       </SPAN>\n";
$box .= "      </A>\n";
$box .= "     </CENTER>\n";
$box .= "    </TD>\n";
$box .= "   </TR>\n";
$box .= "   <TR>\n";
$box .= "    <TD bgColor=\"#$adbox_body_backcolor\">\n";
$box .= "     <CENTER>\n";
$box .= "      <A href=\"$adbox_click_url\">\n";
$box .= "       <SPAN style=\"TEXT-DECORATION: none\">\n";
$box .= "        <FONT face=Verdana color=\"#$adbox_body_forecolor\" size=1>\n";
$box .= "         $adbox_body_text\n";
$box .= "        </FONT><BR>\n";
$box .= "       </SPAN>\n";
$box .= "      </A>\n";
$box .= "     </CENTER>\n";
$box .= "    </TD>\n";
$box .= "   </TR>\n";
$box .= "  </TABLE>\n";
$box .= "</CENTER>\n";
$box .= "<!-- END FFA Blaster Ad Box $i -->\n";
$box .= "\n";
$box .= "<P>\n";
$box .= "\n";
	}
return($box);
}

#######################################
#
sub return_page ($$) {
my ($heading, $message) = @_;

&print_header($heading);
print $message;
&print_footer;
exit;
}

sub print_header($) {
my ($title) = @_;

print "Content-type: text/html\n\n";
print "<HTML><HEAD>\n";
print "<TITLE>$title</TITLE>\n";
print "</HEAD>\n";
print "<BODY>\n";
print "<H1>$title</H1><hr>\n";
}

sub print_footer() {

print "</BODY></HTML>\n";
}

#######################################
# break for debugging
sub break(@) {
my @stuffs = @_;
my $stuff;

print "Content-type: text/html\n\n";
print "<html>\n";
print "<head>\n";
print "<meta http-equiv=\"refresh\">";
print "<meta name=\"MSSmartTagsPreventParsing\" content=\"TRUE\">";
print "<title>Break</title>\n";
print "</head>\n";
print "<body>\n";
print "<b><center>Debug Mode!</b></center><hr><br><br>";
print "<h1 align=center>Break</h1><hr>\n";
foreach $stuff (@stuffs) {
	print "$stuff<hr>\n"; }
print "</body>\n";
print "</html>\n";
exit;
}

#######################################
# ADMIN ROUTINES BELOW
#######################################

sub load_edit_links_page() {

print "Pragma: no-cache\n";
print "Location: $cgiurl?mode=edit_links&password=$password&filename=links.txt\n\n";
}

#######################################
#
sub edit_links($) {
my ($fname) = @_;
my ($title, $url, $email, $section, $remote, $c_date, $c_time);
my @list;
my $line;
my $iNow = 0;
my ($s, $t);
my $row_color = "#CCCC99";

&gettime();
&print_header("Current Link List: <font size=2>$date - $time</font><br>");

print "<center>\n";
print "[<a href=\"$cgiurl?mode=admin_menu&password=$password\">Go To Admin Menu</a>]\n";
print "[<a href=\"$cgiurl\">Go To Link Page</a>] \n";
print "</center><br>\n";
print "<table border=\"0\" width=\"100%\">\n";

open (FILE, "<$fname") || &return_page('System Error', "Can't read $fname\n");
@list = <FILE>;
close(FILE);

foreach $line (@list) {
	chomp $line;
	$iNow++;
	$s = '';
	($title, $url, $email, $section, $remote, $c_date, $c_time) = split(/\|/, $line);
  	$s .= "<TR>\n";
 
	# Delete checkbox
	$s .= "<TD width=\"8%\" bgcolor=\"$row_color\" align=\"center\">\n";
	$s .= "  <input type=\"checkbox\" name=\"delete_link\" value=\"$title\">\n";
	$s .= "</TD>\n";

	# Title
	$s .= "<TD width=\"25%\" bgcolor=\"$row_color\" align=\"center\">\n";
	$s .= " <FONT color=\"#000000\">";
	$s .= "  <b>$title</b>\n";
	$s .= " </FONT>\n";
	$s .= "</TD>\n";

	# URL
	($c_url) = split(/\"/, $url);
	$s .= "<TD width=\"34%\" bgcolor=\"$row_color\" align=\"center\">\n";
	$s .= " <FONT color=\"#000000\">";
	$s .= "  <b><a href=\"$c_url\">$c_url</a></b><p></p>\n";
	$s .= "  <input type=\"checkbox\" name=\"ban_url\" value=\"$c_url\"><em>  Ban this URL</em>\n";
	$s .= " </FONT>\n";
	$s .= "</TD>\n";

	# Email
	$s .= "<TD width=\"25%\" bgcolor=\"$row_color\" align=\"center\">\n";
	$s .= " <FONT color=\"#000000\">";
	$s .= "  <b><a href=mailto:$email>$email</a></b><p></p>\n";
	$s .= "  <input type=\"checkbox\" name=\"ban_email\" value=\"$email\"><em>  Ban this email</em>\n";
	$s .= " </FONT>\n";
	$s .= "</TD>\n";

	# Date / Time
	$s .= "<TD width=\"8%\" bgcolor=\"$row_color\" align=\"center\">\n";
	$s .= " <FONT color=\"#000000\">";
	$s .= "  <b>$c_date<br>$c_time</b>\n";
	$s .= " </FONT>\n";
	$s .= "</TD>\n";

	$s .= "</TR>\n";

	push @Business, "$s" if $section eq "Business";
	push @Computers, "$s" if $section eq "Computers";
	push @Education, "$s" if $section eq "Education";
	push @Entertainment, "$s" if $section eq "Entertainment";
	push @Government, "$s" if $section eq "Government";
	push @Miscellaneous, "$s" if $section eq "Miscellaneous";
	push @Personal, "$s" if $section eq "Personal";
	}

print "<A href=\"javascript:window.location.reload(true)\">[RELOAD LIST]</a>\n";

print "<FORM method=\"POST\" action=\"$cgiurl\">\n";
print "  <input type=\"hidden\" name=\"mode\" value=\"link_changes\">\n";
print "  <input type=\"hidden\" name=\"password\" value=\"$password\">\n";
print "  <input type=\"submit\" value=\"Update Links\" name=\"link_update\" onClick=\"return confirm('Click OK to Confirm Changes to Checked Links.')\">\n";

print "<TR><TD align=center colspan=5><b><center> You currently have <font color=red>$iNow</font> links in your list.</center></TD></TR>\n";

$t = &get_section_header('BUSINESS');
print "$t@Business<TR><TD>&nbsp;</TR></TD>";
$t = &get_section_header('COMPUTERS');
print "$t@Computers<TR><TD>&nbsp;</TR></TD>";
$t = &get_section_header('EDUCATION');
print "$t@Education<TR><TD>&nbsp;</TR></TD>";
$t = &get_section_header('ENTERTAINMENT');
print "$t@Entertainment<TR><TD>&nbsp;</TR></TD>";
$t = &get_section_header('GOVERNMENT');
print "$t@Government<TR><TD>&nbsp;</TR></TD>";
$t = &get_section_header('MISCELLANEOUS');
print "$t@Miscellaneous<TR><TD>&nbsp;</TR></TD>";
$t = &get_section_header('PERSONAL');
print "$t@Personal<TR><TD>&nbsp;</TR></TD>";  

print "</table>";
print "</FORM>";
&print_footer();
exit;
}

#######################################
# used in edit_file above
sub get_section_header($) {
my ($section) = @_;
my $t = "<tr>\n";

$t .= "<td width=\"100%\" colspan=5 bgcolor=\"#009999\" align=\"center\"><b><font color=\"#FFFF00\">$section</font></b></td>\n";
$t .= "</tr>";
$t .= "<td width=\"8%\" bgcolor=\"#B5AFA8\" align=\"center\"><b><font color=\"#000000\">Delete</font></b></td>\n";
$t .= "<td width=\"25%\" bgcolor=\"#B5AFA8\" align=\"center\"><b><font color=\"#000000\">Title</font></b></td>\n";
$t .= "<td width=\"34%\" bgcolor=\"#B5AFA8\" align=\"center\"><b><font color=\"#000000\">URL</font></b></td>\n";
$t .= "<td width=\"25%\" bgcolor=\"#B5AFA8\" align=\"center\"><b><font color=\"#000000\">Email</font></b></td>\n";
$t .= "<td width=\"8%\" bgcolor=\"#B5AFA8\" align=\"center\"><b><font color=\"#000000\">Date/Time</font></b></td>\n";
$t .= "</tr>";
return($t);
}

#######################################
#
sub delete_link($) {
my ($title) = @_;
my (@list, @new_list);

chomp($title);
open (FILE, "<links.txt")  || &return_page('System Error', "Can't read links.txt\n");
@list = <FILE>;
close(FILE);
@new_list = grep { my @links = split(/\|/); $links[0] ne $title } @list;

open (FILE, ">links.txt") || &return_page('System Error', "Can't create links.txt\n");
flock FILE, LOCK_EX if $use_file_lock eq 'yes';
print FILE @new_list;
close(FILE);

print "Pragma: no-cache\n";
print "Location: $cgiurl?mode=edit_links&password=$password&filename=links.txt\n\n";
}

#######################################
# add a line to file, no duplicate
# $item = item to add
# $fname = file to add to
sub add_item_to_file ($$) {
my ($item, $fname) = @_;
my (@lines, @match);
my $match = 0;

chomp($item);
open (FILE, "<$fname") || &return_page('System Error', "Can't read $fname\n");
@lines = <FILE>;
close(FILE);
chomp(@lines);
@match = grep { $_ eq $item } @lines;

# add email if doesn't exist 
if (@match == 0) {
	open (FILE, ">>$fname") || &return_page('System Error', "Can't write $fname\n");
	flock FILE, LOCK_EX if $use_file_lock eq 'yes';
	print FILE "$item\n";
	close(FILE);}

&read_setup() if ($fname ne "collect.txt");
if ($fname ne "collect.txt") {
print "Pragma: no-cache\n";
print "Location: $cgiurl?mode=admin_menu&password=$password\n\n"; }
}

#######################################
#
sub view_file($) {
my ($fname) = @_;
my $count;
my ($c_title, $c_url, $c_email, $c_section, $c_ip, $c_date, $c_time, $c_p_mode);
my @list;
my $line;

$count = 0;
&gettime();

&print_header("View File: $fname <font size=2>$date - $time</font><br>");
print "<center>\n";
print "<A href=\"javascript:window.close()\">[CLOSE WINDOW]</a></b>&nbsp;&nbsp;";
print "<A href=\"javascript:window.location.reload(true)\">[RELOAD LIST]</a></b>";
print "</center><br>\n";

if ($fname eq "collect.txt") {
	print "<table border=\"0\" width=\"20%\" align=center>\n";
} else {
	print "<table border=\"0\" width=\"100%\" align=center>\n";
}

print "<font color=\"#000000\"><b>";
print "<td width=\"100%\" colspan=7 bgcolor=\"#009999\" align=\"center\"><b><font color=\"#FFFF00\">$fname</font></b></td></tr>";
print "<TD width=\"10%\" bgcolor=\"#B5AFA8\" align=\"center\">Title</TD>" if ($fname eq "log.txt");
print "<TD width=\"10%\" bgcolor=\"#B5AFA8\" align=\"center\">URL</TD>" if ($fname eq "log.txt");
print "<TD width=\"10%\" bgcolor=\"#B5AFA8\" align=\"center\">Email</TD>";
print "<TD width=\"10%\" bgcolor=\"#B5AFA8\" align=\"center\">Section</TD>" if ($fname eq "log.txt");
print "<TD width=\"10%\" bgcolor=\"#B5AFA8\" align=\"center\">IP</TD>" if ($fname eq "log.txt");
print "<TD width=\"10%\" bgcolor=\"#B5AFA8\" align=\"center\">Date</TD>" if ($fname eq "log.txt");
print "<TD width=\"10%\" bgcolor=\"#B5AFA8\" align=\"center\">Pmode</TD>" if ($fname eq "denied.txt");
print "</b></font>";

open (FILE,"<$fname") || &return_page('System Error', "Can't read $fname\n");
while ($line = <FILE>) {
	chomp ($line);
	$count++;
	($c_title,$c_url,$c_email,$c_section,$c_ip,$c_date,$c_time) = split(/\|/, $line) if ($fname eq "log.txt");
	$c_email = $line if ($fname eq "collect.txt");
	print "<TR>\n";
  
	# Show $title
	if ($fname eq "log.txt") {
		print "<TD width=\"10%\" bgcolor=\"#BDBD9F\" align=\"center\">\n";
		print "$c_title\n";
		print "</TD>\n";} 

	# Click to view url
	if ($fname eq "log.txt") {
		($c_url) = split(/\"/, $c_url);
		print "<TD width=\"10%\" bgcolor=\"#BDBD9F\" align=\"center\">\n";
		print "<A HREF=$c_url>$c_url</A>\n";
		print "</TD>\n";}

	# Show email
	print "<TD width=\"10%\" bgcolor=\"#BDBD9F\" align=\"center\">\n";
	print "<a href=mailto:$c_email>$c_email</a>\n";
	print "</TD>\n";

	# Show section
	if ($fname eq "log.txt") {
		print "<TD width=\"10%\" bgcolor=\"#BDBD9F\" align=\"center\">\n";
		print "$c_section\n";
		print "</TD>\n";}

	# Show ip
	if ($fname eq "log.txt") {
		print "<TD width=\"10%\" bgcolor=\"#BDBD9F\" align=\"center\">\n";
		print "$c_ip\n";
		print "</TD>\n";}

	# Show date
	if ($fname eq "log.txt") {
		print "<TD width=\"10%\" bgcolor=\"#BDBD9F\" align=\"center\">\n";
		print "$c_date"." "."$c_time\n";
		print "</TD>\n";}
  
	# Show date
	if ($fname eq "denied.txt") {
		print "<TD width=\"10%\" bgcolor=\"#BDBD9F\" align=\"center\">\n";
		print "$c_p_mode\n";
		print "</TD>\n";}  
	print "</TR>\n";}

close(FILE);
print "</table>";

print "<hr>\n";
print "<font color=\"#CC0000\"><b>$count</b></font> lines in $fname.<br>\n";
&print_footer;
exit;
}

#######################################
#
sub clear_file($) {
my ($fname) = @_;

open (FILE, ">$fname") || &return_page('System Error', "Can't create/clear $fname\n");
flock FILE, LOCK_EX if $use_file_lock eq 'yes';
print FILE "";
close(FILE);
&admin_menu();
}

#######################################
#
sub admin_login() {

&print_header('Admin Login');
print <<EOF;
<CENTER>
 <TABLE width=300 bgcolor="FFCC00" border=2>
  <TR>
   <TD align=middle>

    <TABLE cellSpacing=0 cellPadding=0 bgcolor="FFCC00" border=0>  
     <TR align=middle>
      <TD colSpan=2>
       Enter Your Admin Password To Login<br><BR>            
       <b><font color="#FF0000" size=-1>Password is Case Sensitive!</font></b><br>
      </TD>
     </TR>
     <TR><TD align=middle colSpan=2>
     </TD></TR>
     <FORM action="$cgiurl" method=POST>
      <TD>Password : </TD>
      <TD><input type="password" name="password" SIZE="21" MAXLENGTH="20" VALUE=""></TD>
     </TR>
     <TR><TD><input type="hidden" name="mode" value="admin_menu"></TD>	
      <TD><input type="submit" value="Login"> <input type=reset value="Clear Form"></TD>
      <TR><TD align=center colSpan=2><BR><a href=$cgiurl>Back to Links Page</a></TD></TR>
     </FORM>
     <script language="JAVASCRIPT">
      document.forms[0].password.focus();
     //--></script>
    </TABLE>
   </TD>
  </TR>
 </TABLE>
</CENTER>
<BR><BR>
<!-- End Member Login -->

EOF
&print_footer();
exit;
}

#######################################
#
sub admin_menu() {
my ($setup_ad_boxes, $admin_ad_boxes);

#&CheckReferer();
if (!defined($password) || ($password ne $admin_password)) {
	&admin_login();}
&read_setup();

if (defined($new_mailprog)) {
	$mailprog = $new_mailprog if $new_mailprog ne ""; }
&gettime();
$setup_ad_boxes = &load_setup_ad_boxes();
$admin_ad_boxes = &load_admin_ad_boxes();

if (defined($script_updated) && ($script_updated eq "yes")) {
	$script_version .= "<br><font color=\"#CC0000\"><b>Updated!</b></font>";
	$script_updated = "";}

print <<FFA;
Content-type: text/html

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
 <TITLE>Admin Menu</TITLE>
</HEAD>

<BODY bgColor="#$bg_color" background="$bg_background" bgproperties="$bg_properties" text="#$bg_text" vLink="#$bg_vlink" aLink="#$bg_alink" link="#$bg_link">

 <!-- START ADMIN TEXT BANNER BOX -->
 <CENTER>
  <TABLE cellSpacing=0 cellPadding=2 width="80%" bgColor="#E2F8FE" border=1>
   <TR><TD bgColor="#$page_title_backcolor">
    <CENTER>
     <A href="http://www.submitad.com/">
      <SPAN style="TEXT-DECORATION: none">              
       <FONT face=Verdana color="#$page_title_forecolor" size=4>
        <B>YOUR FFA PAGE ADMIN MENU!</B>
       </FONT>
      </SPAN>
     </A>
    </CENTER>
   </TD></TR>
   <TR><TD bgColor="#$page_subtitle_backcolor">
    <CENTER>
     <A href="http://www.submitad.com/">
      <SPAN style="TEXT-DECORATION: none">
       <FONT face=Verdana color="#$page_subtitle_forecolor" size=2>
        <i><b>The Most Easy To Maintain FFA Page System On The Net!</b>
       </FONT><BR>
      </SPAN>
     </A>
    </CENTER>
   </TD>
  </TABLE>
 </CENTER>
 <!-- END ADMIN TEXT BANNER BOX -->
 
 <BR>
 <TABLE align=center cellSpacing=0 cellPadding=8 width="80%" border=0>
  <TR>
   <TD bgColor="#$border_color" align="center"><b>Version: $script_version</b></TD>
   <TD bgColor="#$border_color" colspan=2 align=center>
     &nbsp;<a target=_blank href="$admin_help"><b>[HELP]</b></a>&nbsp;
     &nbsp;<a href="$cgiurl"><b>[LOGOUT]</b></a>&nbsp;
   </TD>
   <TD bgColor="#$border_color"></TD>
  </TR>
  <TR>
   <TD vAlign=top width=120 bgColor="#$border_color">
    $admin_ad_boxes
    <P><BR>

  </TD>

  <TD>
  <TD vAlign=top>

  <!-- Main Body of text -->

  <FORM action=$cgiurl method=post>
  <input type=hidden name="mode" value="Save Setup">

  <CENTER>
   <TABLE cellSpacing=0 cellPadding=2 width="80%" bgColor="#E2F8FE" border=1 height="39">

      <!-- START SECURITY -->
      <CENTER>
       <TABLE cellSpacing=0 cellPadding=2 width="100%" bgColor="#E2F8FE" border=1>

       <TR><TD bgColor="#009999" colspan=4 align=center>      
        <FONT face=Verdana color="#FFFFFF" size=1>
         <B>PAGE SECURITY</B>
        </FONT>
       </TD></TR>

       <TR><TD bgColor="#FFCC00" width="25%">
         <FONT face=Verdana color="#0000FF" size=1>
          ADMIN PASSWORD:<br>
		  Do not Use Default!
         </FONT>
        </TD><TD bgColor="#FFFFCC" colspan=1>
         <FONT face=Verdana color="#0000FF" size=1>
          <input type="password" name="admin_password" maxLength="20" size="15" value="$admin_password">
         </FONT>
		 
        </TD><TD bgColor="#FFCC00" width="25%">
         <FONT face=Verdana color="#000000" size=1>
          <B>Your Affiliate ID!</B><br>
		  <A target=_blank HREF="http://www.submitad.com/cgi-local/pro/signup.cgi">Signup Here</A>
         </FONT>
		 </TD><TD bgColor="#FFFFCC" colspan=1>
          <FONT face=Verdana color="#0000FF" size=1>
          <input type="text" name="affiliate_id" maxLength="30" size="15" value="$affiliate_id">
         </FONT> 
        </TD></TR>

      </TABLE>
     </CENTER>
     <!-- END SECURITY -->
<p>
    <!-- START COMMAND ACTIONS -->
    <CENTER>
     <TABLE cellSpacing=0 cellPadding=2 width="100%" bgColor="#E2F8FE" border=1 height="35">

      <TR><TD bgColor="#009999" colspan=6 align=center>      
        <FONT face=Verdana color="#FFFFFF" size=1>
         <B>COMMAND ACTIONS</B>
        </FONT>
      </TD></TR>

      <TD bgColor="#FFCC00" width="25%" height="1">
       <FONT face=Verdana color="#0000FF" size=1>LINKS DATABASE:</FONT>
      </TD>
      <TD bgColor="#FFFFCC" height="1" width="12%" colspan=1 align="center">
       <a href="$cgiurl?mode=load_edit_links_page&password=$password&filename=links.txt"><b>Edit</b></a>
      </TD>
      <TD bgColor="#FFFFCC" height="1" width="13%" colspan=1 align="center">
        <a href="$cgiurl?mode=clear_file&password=$password&filename=links.txt" onClick="return confirm('Click OK to Confirm Clearing Your Link List.')"><b>Clear</b></a>
      </TD>

	  
	  <TD bgColor="#FFCC00" width="25%">
       <FONT face=Verdana color="#0000FF" size=1>
        ALLOW OTHER NETWORKS TO REMOTE POST:
       </FONT>
      </TD>
      <TD bgColor="#FFFFCC" width="12%">
       <FONT face=Verdana color="#0000FF" size=1>
        <input type="radio" name="remote_postings" value="no" $remote_postings_NO>No
       </FONT>
      </TD>
      <TD bgColor="#FFFFCC" width="13%">
       <FONT face=Verdana color="#0000FF" size=1>
        <input type="radio" name="remote_postings" value="yes" $remote_postings_YES>Yes
       </FONT>
      </TD>  
     </TR>

     </TABLE>
    </CENTER>
    <!-- END COMMAND ACTIONS -->
<p>

     <!-- START ADMIN GENERAL-->
     <CENTER>
      <TABLE cellSpacing=0 cellPadding=2 width="100%" bgColor="#E2F8FE" border=1>

       <TR><TD bgColor="#009999" colspan=6 align=center>      
        <FONT face=Verdana color="#FFFFFF" size=1>
         <B>PAGE SETUP</B>
        </FONT>
       </TD></TR>

        <TR><TD bgColor="#FFCC00" width="25%">
          <FONT face=Verdana color="#0000FF" size=1>
           PAGE TITLE:
          </FONT>
         </TD>
         <TD bgColor="#FFFFCC" colspan=5>
          <FONT face=Verdana color="#0000FF" size=1>
           <input type="text" name="page_title" maxLength="85" size="57" value="$page_title">
          </FONT>
         </TD></TR>

         <TR>
          <TD bgColor="#FFCC00" width="25%">
           <FONT face=Verdana color="#0000FF" size=1>
            TITLE FORECOLOR:
           </FONT>
          </TD>
          <TD bgColor="#FFFFCC" colspan=2>
           <FONT face=Verdana color="#0000FF" size=1>
            <input type="text" name="page_title_forecolor" maxLength="25" size="15" value="$page_title_forecolor">
           </FONT>
          </TD>
          <TD bgColor="#FFCC00" width="25%">
           <FONT face=Verdana color="#0000FF" size=1>
            TITLE BACKCOLOR:
           </FONT>
          </TD>
          <TD bgColor="#FFFFCC" colspan=2>
           <FONT face=Verdana color="#0000FF" size=1>
            <input type="text" name="page_title_backcolor" maxLength="25" size="15" value="$page_title_backcolor">
           </FONT>
          </TD>
         </TR>

         <TR>
          <TD bgColor="#FFCC00" width="25%">
           <FONT face=Verdana color="#0000FF" size=1>
            PAGE SUB-TITLE:
           </FONT>
          </TD>
          <TD bgColor="#FFFFCC" colspan=5>
           <FONT face=Verdana color="#0000FF" size=1>
            <input type="text" name="page_subtitle" maxLength="250" size="57" value="$page_subtitle">
           </FONT>
          </TD>
         </TR>
         <TR>
          <TD bgColor="#FFCC00" width="25%">
           <FONT face=Verdana color="#0000FF" size=1>
            SUB-TITLE FORECOLOR:
           </FONT>
          </TD>
          <TD bgColor="#FFFFCC" colspan=2>
           <FONT face=Verdana color="#0000FF" size=1>
            <input type="text" name="page_subtitle_forecolor" maxLength="25" size="15" value="$page_subtitle_forecolor">
           </FONT>
          </TD>
          <TD bgColor="#FFCC00" width="25%">
           <FONT face=Verdana color="#0000FF" size=1>
            SUB-TITLE BACKCOLOR:
           </FONT>
          </TD>
          <TD bgColor="#FFFFCC" colspan=2>
           <FONT face=Verdana color="#0000FF" size=1>
            <input type="text" name="page_subtitle_backcolor" maxLength="25" size="15" value="$page_subtitle_backcolor">
           </FONT>
          </TD>
         </TR>

         <TR>
          <TD bgColor="#FFCC00" width="25%">
           <FONT face=Verdana color="#0000FF" size=1>
            BANNER URL:
           </FONT>
          </TD>
          <TD bgColor="#FFFFCC" colspan=5>
           <FONT face=Verdana color="#0000FF" size=1>
            <input type="text" name="banner_url" maxLength="250" size="57" value="$banner_url">
           </FONT>
          </TD>
         </TR>
		 
		  <TR>
          <TD bgColor="#FFCC00" width="25%">
           <FONT face=Verdana color="#0000FF" size=1>
            BANNER CLICK URL:
           </FONT>
          </TD>
          <TD bgColor="#FFFFCC" colspan=5>
           <FONT face=Verdana color="#0000FF" size=1>
            <input type="text" name="banner_click_url" maxLength="250" size="57" value="$banner_click_url">
           </FONT>
          </TD>
         </TR>

         <TR><TD bgColor="#FFCC00" width="25%">
           <FONT face=Verdana color="#0000FF" size=1>
            BG IMAGE:
           </FONT>
          </TD>
          <TD bgColor="#FFFFCC" colspan=5>
           <FONT face=Verdana color="#0000FF" size=1>
            <input type="text" name="bg_background" maxLength="250" size="57" value="$bg_background">
           </FONT>
          </TD></TR>

          <TR><TD bgColor="#FFCC00" width="25%">
            <FONT face=Verdana color="#0000FF" size=1>
             BG COLOR:
            </FONT>
           </TD>
           <TD bgColor="#FFFFCC" colspan=2>
            <FONT face=Verdana color="#0000FF" size=1>
             <input type="text" name="bg_color" maxLength="10" size="15" value="$bg_color">
            </FONT>
           </TD>
           <TD bgColor="#FFCC00" width="25%">
            <FONT face=Verdana color="#0000FF" size=1>
             BORDER COLOR:
            </FONT>
           </TD>
           <TD bgColor="#FFFFCC" colspan=2>
            <FONT face=Verdana color="#0000FF" size=1>
             <input type="text" name="border_color" maxLength="10" size="15" value="$border_color">
            </FONT>
           </TD></TR>

          <TR><TD bgColor="#FFCC00" width="25%">
           <FONT face=Verdana color="#0000FF" size=1>
            BG TEXT:
           </FONT>
          </TD>
          <TD bgColor="#FFFFCC" colspan=2>
           <FONT face=Verdana color="#0000FF" size=1>
            <input type="text" name="bg_text" maxLength="10" size="15" value="$bg_text">
           </FONT>
          </TD>
          <TD bgColor="#FFCC00" width="25%">
           <FONT face=Verdana color="#0000FF" size=1>
            BG VLINK:
           </FONT>
          </TD>
          <TD bgColor="#FFFFCC" colspan=2>
           <FONT face=Verdana color="#0000FF" size=1>
            <input type="text" name="bg_vlink" maxLength="10" size="15" value="$bg_vlink">
           </FONT>
          </TD>
         </TR>

         <TR><TD bgColor="#FFCC00" width="25%">
          <FONT face=Verdana color="#0000FF" size=1>
           BG ALINK:
          </FONT>
         </TD>
         <TD bgColor="#FFFFCC" colspan=2>
          <FONT face=Verdana color="#0000FF" size=1>
           <input type="text" name="bg_alink" maxLength="10" size="15" value="$bg_alink">
          </FONT>
         </TD>
         <TD bgColor="#FFCC00" width="25%">
          <FONT face=Verdana color="#0000FF" size=1>
           BG LINK:
          </FONT>
         </TD>
         <TD bgColor="#FFFFCC" colspan=2>
          <FONT face=Verdana color="#0000FF" size=1>
           <input type="text" name="bg_link" maxLength="10" size="15" value="$bg_link">
          </FONT>
         </TD></TR>

         <TR><TD bgColor="#FFCC00" width="25%">
          <FONT face=Verdana color="#0000FF" size=1>
           ADMIN EMAIL:
          </FONT>
         </TD>
         <TD bgColor="#FFFFCC" colspan=2>
          <FONT face=Verdana color="#0000FF" size=1>
           <input type="text" name="admin_email" maxLength="60" size="15" value="$admin_email">
          </FONT>
         </TD>
         <TD bgColor="#FFCC00" width="25%">
          <FONT face=Verdana color="#0000FF" size=1>
           ADMIN EMAIL TEXT:
          </FONT>
         </TD>
         <TD bgColor="#FFFFCC" colspan=2>
          <FONT face=Verdana color="#0000FF" size=1>
           <input type="text" name="admin_email_text" maxLength="60" size="15" value="$admin_email_text">
          </FONT>
         </TD></TR>

         <TR>
          <TD bgColor="#FFCC00" width="25%">
           <FONT face=Verdana color="#0000FF" size=1>
            SENDMAIL PATH:<br> 

<a href="$cgiurl?mode=test_send_mail&password=$password&mailprog=$mailprog&smtp=$smtp"><b>Test Send and Find</b></a>


           </FONT>
          </TD>
          <TD bgColor="#FFFFCC" colspan=2>
           <FONT face=Verdana color="#0000FF" size=1>
            <input type="text" name="mailprog" maxLength="60" size="15" value="$mailprog">
           </FONT>
          </TD>
          <TD bgColor="#FFCC00" width="25%">
           <FONT face=Verdana color="#0000FF" size=1>
            NT SMTP SERVER:<BR>(Blank if not NT)
           </FONT>
          </TD>
          <TD bgColor="#FFFFCC" colspan=2>
           <FONT face=Verdana color="#0000FF" size=1>
            <input type="text" name="smtp" maxLength="60" size="15" value="$smtp">
           </FONT>
          </TD>
         </TR>

          <TR><TD bgColor="#FFCC00" width="25%">
            <FONT face=Verdana color="#0000FF" size=1>
             BG PROPERTIES FIXED:
            </FONT>
           </TD>
           <TD bgColor="#FFFFCC" width="12%">
            <FONT face=Verdana color="#0000FF" size=1>
             <input type="radio" name="bg_properties" value="no" $bg_properties_NO>No
            </FONT>
           </TD>
           <TD bgColor="#FFFFCC" width="13%">
            <FONT face=Verdana color="#0000FF" size=1>
             <input type="radio" name="bg_properties" value="fixed" $bg_properties_YES>Yes
            </FONT>
           </TD>
           <TD bgColor="#FFCC00" width="25%">
            <FONT face=Verdana color="#0000FF" size=1>
             SHOW ADMIN EMAIL:
            </FONT>
           </TD>
           <TD bgColor="#FFFFCC" width="12%">
            <FONT face=Verdana color="#0000FF" size=1>
             <input type="radio" name="show_admin_email" value="no" $show_admin_email_NO>No
            </FONT>
           </TD>
           <TD bgColor="#FFFFCC" width="13%">
            <FONT face=Verdana color="#0000FF" size=1>
             <input type="radio" name="show_admin_email" value="yes" $show_admin_email_YES>Yes
            </FONT>
           </TD><TR>

          <TR><TD bgColor="#FFCC00" width="25%">
            <FONT face=Verdana color="#0000FF" size=1>
             MAX ADS/SECTION:<BR>
             [1..200](def=50)
            </FONT>
           </TD>
           <TD bgColor="#FFFFCC" width="25%" colspan=2>
            <FONT face=Verdana color="#0000FF" size=1>
             <input type="text" name="maxlinks" maxLength="3" size="3" value="$maxlinks"> Ads / Section
            </FONT>
           </TD>
           <TD bgColor="#FFCC00" width="25%">
            <FONT face=Verdana color="#0000FF" size=1>
             SHOW ADMIN LINK:
            </FONT>
           </TD>
           <TD bgColor="#FFFFCC" width="12%">
            <FONT face=Verdana color="#0000FF" size=1>
             <input type="radio" name="show_admin_link" value="no" $show_admin_link_NO>No
            </FONT>
           </TD>
           <TD bgColor="#FFFFCC" width="13%">
            <FONT face=Verdana color="#0000FF" size=1>
             <input type="radio" name="show_admin_link" value="yes" $show_admin_link_YES>Yes
            </FONT>
           </TD>
          <TR>
          <TR>
           <TD bgColor="#FFCC00" width="25%">
            <FONT face=Verdana color="#0000FF" size=1>
             ALLOW COLOR-ADS:
            </FONT>
           </TD>
           <TD bgColor="#FFFFCC" width="12%">
            <FONT face=Verdana color="#0000FF" size=1>
             <input type="radio" name="color_ads" value="no" $color_ads_NO>No
            </FONT>
           </TD>
           <TD bgColor="#FFFFCC" width="13%">
            <FONT face=Verdana color="#0000FF" size=1>
             <input type="radio" name="color_ads" value="yes" $color_ads_YES>Yes
            </FONT>
           </TD>

           <TD bgColor="#FFCC00" width="25%">
            <FONT face=Verdana color="#0000FF" size=1>
             USE FILE-LOCK:
            </FONT>
           </TD>
           <TD bgColor="#FFFFCC" width="12%">
            <FONT face=Verdana color="#0000FF" size=1>
             <input type="radio" name="use_file_lock" value="no" $use_file_lock_NO>No
            </FONT>
           </TD>
           <TD bgColor="#FFFFCC" width="13%">
            <FONT face=Verdana color="#0000FF" size=1>
             <input type="radio" name="use_file_lock" value="yes" $use_file_lock_YES>Yes
            </FONT>
           </TD>
          <TR>

          <TR>
           <TD bgColor="#FFCC00" width="25%" height="20">
            <FONT face=Verdana color="#0000FF" size=1>
             COLLECT EMAIL:
            </FONT>
           </TD>
           <TD bgColor="#FFFFCC" width="12%" height="20">
            <FONT face=Verdana color="#0000FF" size=1>
             <input type="radio" name="collect_email" value="no" $collect_email_NO>No
            </FONT>
           </TD>
           <TD bgColor="#FFFFCC" width="13%" height="20">
            <FONT face=Verdana color="#0000FF" size=1>
             <input type="radio" name="collect_email" value="yes" $collect_email_YES>Yes
            </FONT>
           </TD>

           <TD bgColor="#FFCC00" width="25%" height="15">
            <FONT face=Verdana color="#0000FF" size=1>
             ACTIVATE LOG:
            </FONT>
           </TD>
           <TD bgColor="#FFFFCC" width="12%" height="15">
            <FONT face=Verdana color="#0000FF" size=1>
             <input type="radio" name="activate_log" value="no" $activate_log_NO>No
            </FONT>
           </TD>
           <TD bgColor="#FFFFCC" width="13%" height="15">
            <FONT face=Verdana color="#0000FF" size=1>
             <input type="radio" name="activate_log" value="yes" $activate_log_YES>Yes
            </FONT>
           </TD>

           <TR>   
            <TD bgColor="#FFCC00" width="25%" height="1">
             <FONT face=Verdana color="#0000FF" size=1>COLLECTED EMAILS:</FONT>
            </TD>
            <TD bgColor="#FFFFCC" height="1" width="12%" colspan=1 align="center">
             <a target=_blank href="$cgiurl?mode=view_file&password=$password&filename=collect.txt"><b>View</b></a>
            </TD>
            <TD bgColor="#FFFFCC" height="1" width="13%" colspan=1 align="center">
             <a href="$cgiurl?mode=clear_file&password=$password&filename=collect.txt" onClick="return confirm('Click OK to Confirm Clearing Of Collected Emails.')"><b>Clear</b></a>
            </TD>

            <TD bgColor="#FFCC00" height="1" width="25%">
             <FONT face=Verdana color="#0000FF" size=1>LOG FILE:</FONT>
            </TD>
            <TD bgColor="#FFFFCC" height="1" width="12%" colspan=1 align="center">
             <a target=_blank href="$cgiurl?mode=view_file&password=$password&filename=log.txt"><b>View</b></a>
            </TD>
            <TD bgColor="#FFFFCC" height="1" width="13%" colspan=1 align="center">
             <a href="$cgiurl?mode=clear_file&password=$password&filename=log.txt" onClick="return confirm('Click OK to Confirm Clearing Of Log File.')"><b>Clear</b></a>
            </TD>
           </TR>

          <TR>

         </TABLE>
        </CENTER>
        <!-- END -->
<p>
        <!-- START CONFIRMATION MAIL -->
        <CENTER>
         <TABLE cellSpacing=0 cellPadding=2 width="100%" bgColor="#E2F8FE" border=1>

          <TR><TD bgColor="#009999" colspan=5 align=center>      
           <FONT face=Verdana color="#FFFFFF" size=1>
            <B>CONFIRMATION MAIL - WHEN AD IS POSTED</B>
           </FONT>
          </TD></TR>

          <TR><TD bgColor="#FFCC00" width="25%" colspan=1>
           <FONT face=Verdana color="#0000FF" size=1>
            SUBJECT:
           </FONT>
           </TD>
           <TD bgColor="#FFFFCC" colspan=4>
            <FONT face=Verdana color="#0000FF" size=1>
             <input type="text" name="confirmation_subject_posting" maxLength="250" size="57" value="$confirmation_subject_posting">
            </FONT>
           </TD>
          </TR>

          <TR><TD bgColor="#FFCC00" width="25%" colspan=1>
           <FONT face=Verdana color="#0000FF" size=1>
            MESSAGE:<br><br>
            <u>Variable List:</u><br><br>
            {{title}}<br>
            {{url}}<br>
            {{email}}<br>
            {{section}}<br>
            {{remote}}<br>
            {{date}}<br>
            {{title}}<br>

           </FONT>
          </TD>
          <TD bgColor="#FFFFCC" colspan=4>
           <FONT face=Verdana color="#0000FF" size=1>
            <textarea name="confirmation_email_posting" cols="44" rows="10" wrap="soft">$confirmation_email_posting</textarea>
           </FONT>
          </TD></TR>

          <TR><TD bgColor="#009999" colspan=5 align=center>      
           <FONT face=Verdana color="#FFFFFF" size=1>
            <B>CONFIRMATION MAIL - WHEN AD IS EXPIRED</B>
           </FONT>
          </TD></TR>

          <TR><TD bgColor="#FFCC00" width="25%">
           <FONT face=Verdana color="#0000FF" size=1>
            SUBJECT:
           </FONT>
          </TD>
          <TD bgColor="#FFFFCC" colspan=4>
           <FONT face=Verdana color="#0000FF" size=1>
            <input type="text" name="confirmation_subject_expired" maxLength="250" size="57" value="$confirmation_subject_expired">
           </FONT>
          </TD></TR>

          <TR><TD bgColor="#FFCC00" width="25%">
           <FONT face=Verdana color="#0000FF" size=1>
            MESSAGE:<br><br>
            <u>Variable List:</u><br><br>
            {{title}}<br>
            {{url}}<br>
            {{email}}<br>
            {{section}}<br>
            {{remote}}<br>
            {{date}}<br>
            {{title}}<br>
           </FONT>
          </TD>
          <TD bgColor="#FFFFCC" colspan=4>
           <FONT face=Verdana color="#0000FF" size=1>
            <textarea name="confirmation_email_expired" cols="44" rows="10" wrap="soft">$confirmation_email_expired</textarea>
           </FONT>
          </TD></TR>

          <TR><TD bgColor="#009999" colspan=5 align=center>      
           <FONT face=Verdana color="#FFFFFF" size=1>
             <B>CONFIRMATION MAIL ACTIVATION</B>
           </FONT>
          </TD></TR>

          <TR><TD bgColor="#FFCC00" width="25%">
           <FONT face=Verdana color="#0000FF" size=1>
            FROM EMAIL:<br>
            If NT, must match SMTP Server above
           </FONT>
          </TD>
          <TD bgColor="#FFFFCC" colspan=4>
           <FONT face=Verdana color="#0000FF" size=1>
            <input type="text" name="confirmation_email_address" maxLength="60" size="57" value="$confirmation_email_address">
           </FONT>
          </TD></TR>

          <TR>
           <TD bgColor="#FFCC00" width="25%">
            <FONT face=Verdana color="#0000FF" size=1>
             SEND WHEN:
            </FONT>
           </TD>
           <TD bgColor="#FFFFCC">
            <FONT face=Verdana color="#0000FF" size=1>
             <input type="radio" name="send_confirmation_mail" value="no" $send_confirmation_mail_NO>NO
            </FONT>
           </TD>
           <TD bgColor="#FFFFCC">
            <FONT face=Verdana color="#0000FF" size=1>
             <input type="radio" name="send_confirmation_mail" value="posted" $send_confirmation_mail_POSTED>Ad Posted
            </FONT>
           </TD>
           <TD bgColor="#FFFFCC">
            <FONT face=Verdana color="#0000FF" size=1>
             <input type="radio" name="send_confirmation_mail" value="expired" $send_confirmation_mail_EXPIRED>Ad Expired
            </FONT>
           </TD>
           <TD bgColor="#FFFFCC">
            <FONT face=Verdana color="#0000FF" size=1>
             <input type="radio" name="send_confirmation_mail" value="both" $send_confirmation_mail_BOTH>Both
            </FONT>
           </TD>
          </TR>

         </TABLE>
        </CENTER>
        <!-- END CONFIRMATION MAIL -->
<p>
        <!-- START BANNED EMAIL, URLS -->
        <CENTER>
         <TABLE cellSpacing=0 cellPadding=2 width="100%" bgColor="#E2F8FE" border=1>

          <TR><TD bgColor="#009999" colspan=5 align=center>      
           <FONT face=Verdana color="#FFFFFF" size=1>
             <B>BANN LISTS</B>
           </FONT>
          </TD></TR>
		  <TR><TD bgColor="#FFFF00" colspan=5 align=center>      
           <FONT face=Verdana color="#CC0000" size=1>
            <B>To view/update our PUBLIC bann lists, login to Global FFA Network!</B>
           </FONT>
          </TD></TR>

          <TR><TD bgColor="#FFCC00" width="25%">
           <FONT face=Verdana color="#0000FF" size=1>
            BANNED WORDS:
           </FONT>
          </TD>
          <TD bgColor="#FFFFCC" colspan=4>
           <FONT face=Verdana color="#0000FF" size=1>
            <textarea name="banned_word" cols="44" rows="5" wrap="soft">$banned_word</textarea>
           </FONT>
          </TD></TR>

          <TR><TD bgColor="#FFCC00" width="25%" colspan=1>
           <FONT face=Verdana color="#0000FF" size=1>
            BANNED EMAILS:
           </FONT>
          </TD>
          <TD bgColor="#FFFFCC" colspan=4>
           <FONT face=Verdana color="#0000FF" size=1>
            <textarea name="banned_email" cols="44" rows="5" wrap="soft">$banned_email</textarea>
           </FONT>
          </TD></TR>

          <TR><TD bgColor="#FFCC00" width="25%">
           <FONT face=Verdana color="#0000FF" size=1>
            BANNED URLS:
           </FONT>
          </TD>
          <TD bgColor="#FFFFCC" colspan=4>
           <FONT face=Verdana color="#0000FF" size=1>
            <textarea name="banned_url" cols="44" rows="5" wrap="soft">$banned_url</textarea>
           </FONT>
          </TD></TR>

         </TABLE>
        </CENTER>
        <!-- END BANNED EMAIL, URLS -->
<p>
        $setup_ad_boxes<BR>
         </TABLE>
        <CENTER>
         <input type=hidden name="password" value="$password">
         <input type="submit" value="Save Setup"> <input type=reset value="Clear Form">
        </CENTER>
       </FORM>
      <script language="JAVASCRIPT">
      document.forms[0].admin_password.focus();
     //--></script>
<HR>

<CENTER>
 <font size=1><a href="http://www.submitad.com/files/ffalinks.zip">Setup your own FFA page like this one! Now FREE script download!</a></font><BR>
 <br>
 <font size=1><a href="http://www.SubmitAd.com/files/blaster1.exe">This page is created and powered by FFA Blaster!</a></font><BR>
</CENTER>

</BODY>
</HTML>
FFA
exit;
}

#######################################
# testsend mail to yourself
sub test_send_mail() {
my $xheader = "";

&email ($confirmation_email_address, $confirmation_email_address, $smtp, "Confirmatiom Mail test", "This is a TEST Message sent to:\n $confirmation_email_address\n using sendmail path: mailprog = $mailprog", $xheader);
&email ($admin_email, $admin_email, $smtp, "Admin Mail Test", "This is a TEST Message sent to:\n $admin_email\n using sendmail path: mailprog = $mailprog", $xheader);
print "Pragma: no-cache\n";
print "Location: $cgiurl?mode=admin_menu&password=$password&new_mailprog=$mailprog&smtp=$smtp\n\n";
}

#######################################
#
sub login_global_ffa_network() {

open (DATA, ">manage.txt") || &return_page('System Error', "Can't save manage.txt\n");
flock DATA, LOCK_EX if $use_file_lock eq 'yes';
print DATA "$manage_id|$manage_pw\n";
close DATA;
print "Pragma: no-cache\n";
print "Location: $manageurl?mode=member_menu&manage_id=$manage_id&manage_pw=$manage_pw&password=$password\n\n";
}

#######################################
# loop to add five ad boxes to admin
sub load_admin_ad_boxes() {
my ($i, $adbox_head_text, $adbox_body_text, $adbox_head_forecolor, $adbox_head_backcolor, $adbox_body_forecolor, $adbox_body_backcolor, $adbox_click_url);
my $t;
my $box = '';

for ($i = 1; $i <= 5; $i++) {
	if ($i == 1) {
	$adbox_head_text = "JOIN GLOBAL FFA NETWORK!";
$t = "As a member of <b>Global FFA Network</b> you will receive new, fresh postings to your FFA page within minutes!\n";
$t .= "<FORM action=$cgiurl method=post>\n";
$t .= "Your Global FFA Network ID<BR><input type=\"text\" name=\"manage_id\" maxLength=\"12\" size=\"12\" value=\"$manage_id\"><BR>\n";
$t .= "Password<BR><input type=\"password\" name=\"manage_pw\" maxLength=\"12\" size=\"12\" value=\"$manage_pw\"><BR>\n";
$t .= "<input type=hidden name=\"password\" value=\"$password\">\n";
$t .= "<input type=hidden name=\"mode\" value=\"login_global_ffa_network\">\n";
$t .= "<input type=\"submit\" value=\"Login\">\n";
$t .= "</form>\n";

if ($manage_pw eq "") {
	$t .= "<FORM action=$manageurl method=post>\n";
	$t .= "<input type=hidden name=\"title\" value=\"$page_title\">\n";
	$t .= "<input type=hidden name=\"url\" value=\"$cgiurl\">\n";
	$t .= "<input type=hidden name=\"fname\" value=\"\">\n";
	$t .= "<input type=hidden name=\"lname\" value=\"\">\n";
	$t .= "<input type=hidden name=\"email\" value=\"$admin_email\">\n";
	$t .= "<input type=hidden name=\"adult\" value=\"no\">\n";
	$t .= "<input type=hidden name=\"activated\" value=\"no\">\n";
	$t .= "<input type=hidden name=\"password\" value=\"$password\">\n";
	$t .= "<input type=hidden name=\"mode\" value=\"signup_menu\">\n";
	$t .= "<input type=\"submit\" value=\"Signup Now!\">\n";
	$t .= "</form>\n";}
$t .= "<a target=_blank href=$manageurl?mode=lost_password>Lost Login Info</a><hr>\n";

$t .= "<b>Make sure you always run latest script version!</b><BR><BR>\n";
if ($oct_perms eq 777) {
$t .= "<a href=$cgiurl?mode=upgrade_script&password=$password>Auto-Upgrade script in 10 sec</a><br><BR>\n";
}
$t .= "<a href=\"http://www.submitad.com/files/ffalinks.zip\">Download!</a> latest script version!<BR><BR>\n";
$t .= "Try out our new stand-alone <a href=\"http://www.submitad.com/files/ffainst.exe\">FFA Script Installer!</a>\n";
$t .= "<hr>";

$t .= "<B>USEFUL LINKS</B><BR>";
$t .= "<BR>";
$t .= "<a target=_blank href=\"http://www.hotlib.com\"><b>hotlib.com</b></a> is the major software download site!<BR>\n";
$t .= "<BR>";
$t .= "<a target=_blank href=\"http://www.internet-domain-register.com\"><b>Internet-Domain-Register</b></a> where all cool people register their domain names.<BR>\n";
$t .= "<BR>";
$t .= "LOW Cost <a target=_blank href=\"http://www.newwebsite.com/jona\"><b>Webhosting and Dedicated Servers!</b></a><BR><b>20% commission to their affiliates!</b><BR>\n";
$t .= "<BR>";
$t .= "<a target=_blank href=\"http://www.worldwidepenpals.com\"><b>Get a New Friend</b></a> and lighten up your day!<BR>\n";




$adbox_body_text = $t;
$adbox_head_forecolor = $adbox_head_forecolor1;
$adbox_head_backcolor = $adbox_head_backcolor1;
$adbox_body_forecolor = $adbox_body_forecolor1;
$adbox_body_backcolor = $adbox_body_backcolor1;
$adbox_click_url = "/cgi-bin/links/ffamanage.cgi";

} elsif ($i == 2) {
$adbox_head_text = "PLEASE RATE THIS SCRIPT!";
$t = "";
$t .= "<form target=_blank action=\"http://www.scriptsearch.com/cgi-bin/rateit.cgi\" method=\"post\" target=\"_new\">\n";
$t .= "<input type=\"hidden\" name=\"ID\" value=\"4632\">\n";

$t .= "<table border=\"0\" cellspacing=\"0\">\n";
$t .= "<tr><td align=\"center\">\n";
$t .= "<font face=\"arial, verdana\" size=\"2\"><b>\n";
$t .= "If you like your<br>Global FFA Network Script,<br>please rate it!<br>\n"; 
$t .= "<i><font size=1><a target=_blank href=\"http://www.scriptsearch.com/details/4632.html\">ScriptSearch.com</a></font>\n";
$t .= "</i></b></font></td></tr>\n";
$t .= "<tr><td align=center>\n";
$t .= "<select name=\"rate\" size=\"1\" style=\"font-size:10px;\">\n";
# $t.="<option value=\"--\">- Select -</option>\n";
$t .= "<option value=\"5\">Excellent!</option>\n";
$t .= "<option value=\"4\">Very Good</option>\n";
$t .= "<option value=\"3\">Good</option>\n";
$t .= "<option value=\"2\">Fair</option>\n";
$t .= "<option value=\"1\">Poor</option>\n";
$t .= "</select>\n";
$t .= "<input type=\"submit\" value=\"Vote!\" style=\"font-size:10px;\">\n";
$t .= "</td></tr></table>\n";
$t .= "</form>\n";
$t .= "Select the rating you feel for our script and vote!\n";
$adbox_body_text = $t;

$adbox_head_forecolor = $adbox_head_forecolor2;
$adbox_head_backcolor = $adbox_head_backcolor2;
$adbox_body_forecolor = $adbox_body_forecolor2;
$adbox_body_backcolor = $adbox_body_backcolor2;
$adbox_click_url = "http://www.submitad.com/";

} elsif ($i == 3) {
$adbox_head_text = "GREAT SUBMISSION SOFTWARE AVAILABLE!";
$adbox_body_text = "<b>FFA Blaster post your ads to thousands pages like this lightning fast and it is available for FREE Download!</b>";
$adbox_head_forecolor = $adbox_head_forecolor3;
$adbox_head_backcolor = $adbox_head_backcolor3;
$adbox_body_forecolor = $adbox_body_forecolor3;
$adbox_body_backcolor = $adbox_body_backcolor3;
$adbox_click_url = "http://www.submitad.com/";

} elsif ($i == 4) {
$adbox_head_text = "START ACCEPTING CREDIT CARD!";
$adbox_body_text = "Don't lose more sales! Signup with <b>ClickBank</b> and you can start selling within minutes using all major credit cards!<br><br><b>MORE INFO!</b>"; #$adbox_body_text4;
$adbox_head_forecolor = $adbox_head_forecolor4;
$adbox_head_backcolor = $adbox_head_backcolor4;
$adbox_body_forecolor = $adbox_body_forecolor4;
$adbox_body_backcolor = $adbox_body_backcolor4;
$adbox_click_url = "http://www.hop.clickbank.net/?cinco";

} elsif ($i == 5) {
$adbox_head_text = "HOT MARKETPLACE!";
$adbox_body_text = "Thousands of links to hot software, scripts, tools and marketing programs!<br><br><b>CHECK IT OUT!</b>"; #$adbox_body_text5;
$adbox_head_forecolor = $adbox_head_forecolor5;
$adbox_head_backcolor = $adbox_head_backcolor5;
$adbox_body_forecolor = $adbox_body_forecolor5;
$adbox_body_backcolor = $adbox_body_backcolor5;
$adbox_click_url = "http://www.hop.clickbank.net/?cinco/marketplace";
	}
$box .= "<!-- START FFA Blaster Ad Box $i -->\n";
$box .= "<CENTER>\n";
$box .= " <TABLE cellSpacing=0 cellPadding=2 width=110 bgColor=\"#E2F8FE\" border=1>\n";
$box .= "  <TR>\n";
$box .= "   <TD bgColor=\"#$adbox_head_backcolor\">\n";
$box .= "    <CENTER>\n";
$box .= "     <A target=_blank href=\"$adbox_click_url\">\n" if ($i > 2);
$box .= "      <SPAN style=\"TEXT-DECORATION: none\">\n" if ($i > 2);
$box .= "       <FONT face=Verdana color=\"#$adbox_head_forecolor\" size=1>\n";
$box .= "        <B>$adbox_head_text</B>\n";
$box .= "        </FONT>\n";
$box .= "       </SPAN>\n" if ($i > 2);
$box .= "      </A>\n" if ($i > 2);
$box .= "     </CENTER>\n";
$box .= "    </TD>\n";
$box .= "   </TR>\n";
$box .= "   <TR>\n";
$box .= "    <TD bgColor=\"#$adbox_body_backcolor\">\n";
$box .= "     <CENTER>\n";
$box .= "      <A target=_blank href=\"$adbox_click_url\">\n" if ($i > 2);
$box .= "       <SPAN style=\"TEXT-DECORATION: none\">\n" if ($i > 2);
$box .= "        <FONT face=Verdana color=\"#$adbox_body_forecolor\" size=1>\n";
$box .= "         $adbox_body_text\n";
$box .= "        </FONT><BR>\n";
$box .= "       </SPAN>\n" if ($i > 2);
$box .= "      </A>\n" if ($i > 2);
$box .= "     </CENTER>\n";
$box .= "    </TD>\n";
$box .= "   </TR>\n";
$box .= "  </TABLE>\n";
$box .= "</CENTER>\n";
$box .= "<!-- END FFA Blaster Ad Box $i -->\n";
$box .= "\n";
$box .= "<P>\n";
$box .= "\n";
}
return($box);
}

#######################################
#
sub load_setup_ad_boxes() {
my ($i, $adbox_head_text, $adbox_body_text, $adbox_head_forecolor, $adbox_head_backcolor, $adbox_body_forecolor, $adbox_body_backcolor, $adbox_click_url);
my $box = '';

for ($i = 1; $i <= 5; $i++) {
	if ($i == 1) {
$adbox_head_text = $adbox_head_text1;
$adbox_body_text = $adbox_body_text1;
$adbox_head_forecolor = $adbox_head_forecolor1;
$adbox_head_backcolor = $adbox_head_backcolor1;
$adbox_body_forecolor = $adbox_body_forecolor1;
$adbox_body_backcolor = $adbox_body_backcolor1;
$adbox_click_url = $adbox_click_url1;

	} elsif ($i == 2) {
$adbox_head_text = $adbox_head_text2;
$adbox_body_text = $adbox_body_text2;
$adbox_head_forecolor = $adbox_head_forecolor2;
$adbox_head_backcolor = $adbox_head_backcolor2;
$adbox_body_forecolor = $adbox_body_forecolor2;
$adbox_body_backcolor = $adbox_body_backcolor2;
$adbox_click_url = $adbox_click_url2;

	} elsif ($i == 3) {
$adbox_head_text = $adbox_head_text3;
$adbox_body_text = $adbox_body_text3;
$adbox_head_forecolor = $adbox_head_forecolor3;
$adbox_head_backcolor = $adbox_head_backcolor3;
$adbox_body_forecolor = $adbox_body_forecolor3;
$adbox_body_backcolor = $adbox_body_backcolor3;
$adbox_click_url = $adbox_click_url3;

	} elsif ($i == 4) {
$adbox_head_text = $adbox_head_text4;
$adbox_body_text = $adbox_body_text4;
$adbox_head_forecolor = $adbox_head_forecolor4;
$adbox_head_backcolor = $adbox_head_backcolor4;
$adbox_body_forecolor = $adbox_body_forecolor4;
$adbox_body_backcolor = $adbox_body_backcolor4;
$adbox_click_url = $adbox_click_url4;

	} elsif ($i == 5) {
$adbox_head_text = $adbox_head_text5;
$adbox_body_text = $adbox_body_text5;
$adbox_head_forecolor = $adbox_head_forecolor5;
$adbox_head_backcolor = $adbox_head_backcolor5;
$adbox_body_forecolor = $adbox_body_forecolor5;
$adbox_body_backcolor = $adbox_body_backcolor5;
$adbox_click_url = $adbox_click_url5;
}

$box .= "<!-- START AD BOX 5 SETTINGS -->\n"; 
$box .= "<CENTER>\n";
$box .= " <TABLE cellSpacing=0 cellPadding=2 width=500 bgColor=\"#E2F8FE\" border=1>\n";
$box .= "  <TR><TD bgColor=\"#009999\" colspan=4 align=center>\n";      
$box .= "   <FONT face=Verdana color=\"#FFFFFF\" size=1>\n";
$box .= "    <B>AD BOX No: $i - SETTINGS</B>\n";
$box .= "   </FONT>\n";
$box .= "  </TD></TR>\n";
$box .= "  <TR>\n";
$box .= "   <TD bgColor=\"#FFCC00\" width=\"25%\">\n";
$box .= "    <FONT face=Verdana color=\"#0000FF\" size=1>\n";
$box .= "     HEADER TEXT:\n";
$box .= "    </FONT>\n";
$box .= "   </TD>\n";
$box .= "   <TD bgColor=\"#FFFFCC\" colspan=3>\n";
$box .= "    <FONT face=Verdana color=\"#0000FF\" size=1>\n";
$box .= "     <input type=\"text\" name=\"adbox_head_text$i\" maxLength=\"300\" size=\"57\" value=\"$adbox_head_text\">\n";
$box .= "    </FONT>\n";
$box .= "   </TD>\n";
$box .= "  </TR>\n";

$box .= "  <TR>\n";
$box .= "   <TD bgColor=\"#FFCC00\" width=\"25%\">\n";
$box .= "    <FONT face=Verdana color=\"#0000FF\" size=1>\n";
$box .= "     HEADER FORECOLOR:\n";
$box .= "    </FONT>\n";
$box .= "   </TD>\n";
$box .= "   <TD bgColor=\"#FFFFCC\" width=\"25%\>\n";
$box .= "    <FONT face=Verdana color=\"#0000FF\" size=1>\n";
$box .= "     <input type=\"text\" name=\"adbox_head_forecolor$i\" maxLength=\"25\" size=\"15\" value=\"$adbox_head_forecolor\">\n";
$box .= "    </FONT>\n";
$box .= "   </TD>\n";
$box .= "   <TD bgColor=\"#FFCC00\" width=\"25%\">\n";
$box .= "    <FONT face=Verdana color=\"#0000FF\" size=1>\n";
$box .= "     HEADER BACKCOLOR:\n";
$box .= "    </FONT>\n";
$box .= "   </TD>\n";
$box .= "   <TD bgColor=\"#FFFFCC\" width=\"25%\>\n";
$box .= "    <FONT face=Verdana color=\"#0000FF\" size=1>\n";
$box .= "     <input type=\"text\" name=\"adbox_head_backcolor$i\" maxLength=\"25\" size=\"15\" value=\"$adbox_head_backcolor\">\n";
$box .= "    </FONT>\n";
$box .= "   </TD>\n";
$box .= "  </TR>\n";
$box .= "  <TR>\n";
$box .= "   <TD bgColor=\"#FFCC00\" width=\"25%\">\n";
$box .= "    <FONT face=Verdana color=\"#0000FF\" size=1>\n";
$box .= "     BODY TEXT:\n";
$box .= "    </FONT>\n";
$box .= "   </TD>\n";
$box .= "   <TD bgColor=\"#FFFFCC\" colspan=3>\n";
$box .= "    <FONT face=Verdana color=\"#0000FF\" size=1>\n";
$box .= "     <input type=\"text\" name=\"adbox_body_text$i\" maxLength=\"300\" size=\"57\" value=\"$adbox_body_text\">\n";
$box .= "    </FONT>\n";
$box .= "   </TD>\n";
$box .= "  </TR>\n";

$box .= "  <TR>\n";
$box .= "   <TD bgColor=\"#FFCC00\" width=\"25%\">\n";
$box .= "    <FONT face=Verdana color=\"#0000FF\" size=1>\n";
$box .= "     BODY FORECOLOR:\n";
$box .= "    </FONT>\n";
$box .= "   </TD>\n";
$box .= "   <TD bgColor=\"#FFFFCC\" width=\"25%\>\n";
$box .= "    <FONT face=Verdana color=\"#0000FF\" size=1>\n";
$box .= "     <input type=\"text\" name=\"adbox_body_forecolor$i\" maxLength=\"25\" size=\"15\" value=\"$adbox_body_forecolor\">\n";
$box .= "    </FONT>\n";
$box .= "   </TD>\n";
$box .= "   <TD bgColor=\"#FFCC00\" width=\"25%\">\n";
$box .= "    <FONT face=Verdana color=\"#0000FF\" size=1>\n";
$box .= "     BODY BACKCOLOR:\n";
$box .= "    </FONT>\n";
$box .= "   </TD>\n";
$box .= "   <TD bgColor=\"#FFFFCC\" width=\"25%\>\n";
$box .= "    <FONT face=Verdana color=\"#0000FF\" size=1>\n";
$box .= "     <input type=\"text\" name=\"adbox_body_backcolor$i\" maxLength=\"25\" size=\"15\" value=\"$adbox_body_backcolor\">\n";
$box .= "    </FONT>\n";
$box .= "   </TD>\n";
$box .= "  </TR>\n";

$box .= "  <TR>\n";
$box .= "   <TD bgColor=\"#FFCC00\" width=\"25%\">\n";
$box .= "    <FONT face=Verdana color=\"#0000FF\" size=1>\n";
$box .= "     CLICK AD TO GO TO URL:\n";
$box .= "    </FONT>\n";
$box.="   </TD>\n";
$box .= "   <TD bgColor=\"#FFFFCC\" colspan=3>\n";
$box .= "    <FONT face=Verdana color=\"#0000FF\" size=1>\n";
$box .= "     <input type=\"text\" name=\"adbox_click_url$i\" maxLength=\"300\" size=\"57\" value=\"$adbox_click_url\">\n";
$box .= "    </FONT>\n";
$box .= "   </TD>\n";
$box .= "  </TR>\n\n";

$box .= " </TABLE>\n";
$box .= "</CENTER>\n\n";

$box .= "<p>\n";
	}
return($box);
}

#######################################
# FTP download and install latest links.cgi to user server.
# read old script first line and insert into new script to make sure it will run.
sub upgrade_script() {
my (@old_script, @new_script);
my ($line, $first_line, $okay);
my ($port, $remote, $url, $output, $submit, $iaddr, $paddr, $proto);
my $e_msg;

$e_msg="<hr><b>The automatic script upgrade doesn't work on this server!</b><br><br>";
$e_msg.="You need to manually download and install latest script version: ";
$e_msg.="<a href=\"http://www.submitad.com/files/ffalinks.zip\"><b>Global FFA Network Script</b></a><BR>";
$e_msg.="We also made an stand-alone automatic install utility that can do it for you: ";
$e_msg.="<a href=\"http://www.submitad.com/files/ffainst.exe\"><b>Global FFA Network Script Installer</b></a><BR><BR>";
$e_msg.="Click <a href=\"javascript:self.history.go(-1)\"><b>Here</b></a> To Go Back!\n<BR>";

$port = 80; 
$remote = "www.submitad.com";
$url = "/files/links.script";
$output = $script;
$submit = "GET $url HTTP/1.1\nHost: $remote\n\n";
$okay="no";

if ($port =~ /\D/) { $port = getservbyname($port, 'tcp'); } 
die "No port specified." unless $port;
$iaddr = inet_aton($remote) || die &return_page("Error","Could not find host: $remote".$e_msg); #die "Could not find host: $remote"; 
$paddr = sockaddr_in($port, $iaddr); 
$proto = getprotobyname('tcp'); 
socket(SOCK, AF_INET, SOCK_STREAM, $proto) || die &return_page("Error","socket: $!".$e_msg); #die "socket: $!"; 
connect(SOCK, $paddr) || die &return_page("Error","connect: $!".$e_msg); #"connect: $!";
send(SOCK,$submit,0);
while ($line = <SOCK>) {
	chomp($line);
	push @new_script, $line."\n" if ($okay eq "yes");
	if ($okay eq "no") {
		if ($line =~ "#!/") { $okay="yes"; }
	}	}
close(SOCK);
  
open (DATA, "<$output") || &return_page('System Error', "Can't read $output\n");
@old_script = <DATA>;
close(DATA);
$first_line=$old_script[0];
chomp($first_line);
$new_script[0]=$first_line."\n";

open (DATA, ">$output") || &return_page('System Error', "Can't create $output\n$script must be chmod(777) to make upgrade work!\n");
flock DATA, LOCK_EX if $use_file_lock eq 'yes';
print DATA @new_script;
close(DATA);

print "Pragma: no-cache\n";
print "Location: $cgiurl?mode=admin_menu&password=$password&script_updated=yes\n\n";
exit;
}

#######################################
#
sub read_setup() {
my @lines;
my ($line, $pair, $value, $name);

open (DATA, "<manage.txt") || &return_page('System Error', "Can't read manage.txt\n");
$line = <DATA>;
close(DATA);
chomp $line;
($manage_id, $manage_pw) = split(/\|/, $line);
$line = "";

open (DATA, "<setup.txt") || &return_page('System Error', "Can't read links.txt\n");
@lines = <DATA>;
close(DATA);

# clear radio button properties
$bg_properties_NO = '';
$bg_properties_YES = '';
$show_admin_email_NO = '';
$show_admin_email_YES = '';
$show_admin_link_NO = '';
$show_admin_link_YES = '';
$color_ads_NO = '';
$color_ads_YES = '';
$use_file_lock_NO = '';
$use_file_lock_YES = '';
$collect_email_NO = '';
$collect_email_YES = '';
$activate_log_NO = '';
$activate_log_YES = '';
$remote_postings_NO = '';
$remote_postings_YES = '';

$send_confirmation_mail_NO = '';
$send_confirmation_mail_POSTED = '';
$send_confirmation_mail_EXPIRED = '';
$send_confirmation_mail_BOTH = '';
$banner_mode_TEXT = '';
$banner_mode_GRAPHIC = '';

foreach $pair (@lines) {
	chomp($pair);
	($name, $value) = $pair =~ /([^=]*)=(.*)/;
	$value = '' unless defined($value);

	#$$name = $value;  # these variables have same name as the %FORM variable...
	#	but assign fails unless all vars declared as 'our'
	if ($name eq "admin_password") {
		$admin_password = $value; }

	elsif ($name eq "affiliate_id") {
		$affiliate_id = $value; }

	elsif ($name eq "page_title") {
		$page_title = $value; }
	elsif ($name eq "page_subtitle") {
		$page_subtitle = $value; }
	elsif ($name eq "mailprog") {
		$mailprog = $value; }
	elsif ($name eq "smtp") {
		$smtp = $value; }
	elsif ($name eq "bg_background") {
		$bg_background = $value; }
	elsif ($name eq "bg_color") {
		$bg_color = $value; }
	elsif ($name eq "bg_properties") {
		$bg_properties = $value; }
	elsif ($name eq "bg_text") {
		$bg_text = $value; }
	elsif ($name eq "bg_vlink") {
		$bg_vlink = $value; }
	elsif ($name eq "bg_alink") {
		$bg_alink = $value; }
	elsif ($name eq "bg_link") {
		$bg_link = $value; }
	elsif ($name eq "border_color") {
		$border_color = $value; }
	elsif ($name eq "maxlinks") {
		$maxlinks = $value; }
	elsif ($name eq "show_admin_email") {
		$show_admin_email = $value; }
	elsif ($name eq "show_admin_link") {
		$show_admin_link = $value; }
	elsif ($name eq "admin_email") {
		$admin_email = $value; }
	elsif ($name eq "admin_email_text") {
		$admin_email_text = $value; }
	elsif ($name eq "color_ads") {
		$color_ads = $value; }
	elsif ($name eq "use_file_lock") {
		$use_file_lock = $value; }
	elsif ($name eq "collect_email") {
		$collect_email = $value; }
	elsif ($name eq "activate_log") {
		$activate_log = $value; }
	elsif ($name eq "remote_postings") {
		$remote_postings = $value; }
	elsif ($name eq "confirmation_subject_posting") {
		$confirmation_subject_posting = $value; }
	elsif ($name eq "confirmation_subject_expired") {
		$confirmation_subject_expired = $value; }
	elsif ($name eq "confirmation_email_address") {
		$confirmation_email_address = $value; }
	elsif ($name eq "send_confirmation_mail") {
		$send_confirmation_mail = $value; }
	elsif ($name eq "banner_url") {
		$banner_url = $value; }
	elsif ($name eq "banner_click_url") {
		$banner_click_url = $value; }
	elsif ($name eq "page_title_forecolor") {
		$page_title_forecolor = $value; }
	elsif ($name eq "page_title_backcolor") {
		$page_title_backcolor = $value; }
	elsif ($name eq "page_subtitle_forecolor") {
		$page_subtitle_forecolor = $value; }
	elsif ($name eq "page_subtitle_backcolor") {
		$page_subtitle_backcolor = $value; }
	elsif ($name eq "adbox_head_text1") {
		$adbox_head_text1 = $value; }
	elsif ($name eq "adbox_head_forecolor1") {
		$adbox_head_forecolor1 = $value; }
	elsif ($name eq "adbox_head_backcolor1") {
		$adbox_head_backcolor1 = $value; }
	elsif ($name eq "adbox_body_text1") {
		$adbox_body_text1 = $value; }
	elsif ($name eq "adbox_body_forecolor1") {
		$adbox_body_forecolor1 = $value; }
	elsif ($name eq "adbox_body_backcolor1") {
		$adbox_body_backcolor1 = $value; }
	elsif ($name eq "adbox_click_url1") {
		$adbox_click_url1 = $value; }
	elsif ($name eq "adbox_head_text2") {
		$adbox_head_text2 = $value; }
	elsif ($name eq "adbox_head_forecolor2") {
		$adbox_head_forecolor2 = $value; }
	elsif ($name eq "adbox_head_backcolor2") {
		$adbox_head_backcolor2 = $value; }
	elsif ($name eq "adbox_body_text2") {
		$adbox_body_text2 = $value; }
	elsif ($name eq "adbox_body_forecolor2") {
		$adbox_body_forecolor2 = $value; }
	elsif ($name eq "adbox_body_backcolor2") {
		$adbox_body_backcolor2 = $value; }
	elsif ($name eq "adbox_click_url2") {
		$adbox_click_url2 = $value; }
	elsif ($name eq "adbox_head_text3") {
		$adbox_head_text3 = $value; }
	elsif ($name eq "adbox_head_forecolor3") {
		$adbox_head_forecolor3 = $value; }
	elsif ($name eq "adbox_head_backcolor3") {
		$adbox_head_backcolor3 = $value; }
	elsif ($name eq "adbox_body_text3") {
		$adbox_body_text3 = $value; }
	elsif ($name eq "adbox_body_forecolor3") {
		$adbox_body_forecolor3 = $value; }
	elsif ($name eq "adbox_body_backcolor3") {
		$adbox_body_backcolor3 = $value; }
	elsif ($name eq "adbox_click_url3") {
		$adbox_click_url3 = $value; }
	elsif ($name eq "adbox_head_text4") {
		$adbox_head_text4 = $value; }
	elsif ($name eq "adbox_head_forecolor4") {
		$adbox_head_forecolor4 = $value; }
	elsif ($name eq "adbox_head_backcolor4") {
		$adbox_head_backcolor4 = $value; }
	elsif ($name eq "adbox_body_text4") {
		$adbox_body_text4 = $value; }
	elsif ($name eq "adbox_body_forecolor4") {
		$adbox_body_forecolor4 = $value; }
	elsif ($name eq "adbox_body_backcolor4") {
		$adbox_body_backcolor4 = $value; }
	elsif ($name eq "adbox_click_url4") {
		$adbox_click_url4 = $value; }
	elsif ($name eq "adbox_head_text5") {
		$adbox_head_text5 = $value; }
	elsif ($name eq "adbox_head_forecolor5") {
		$adbox_head_forecolor5 = $value; }
	elsif ($name eq "adbox_head_backcolor5") {
		$adbox_head_backcolor5 = $value; }
	elsif ($name eq "adbox_body_text5") {
		$adbox_body_text5 = $value; }
	elsif ($name eq "adbox_body_forecolor5") {
		$adbox_body_forecolor5 = $value; }
	elsif ($name eq "adbox_body_backcolor5") {
		$adbox_body_backcolor5 = $value; }
	elsif ($name eq "adbox_click_url5") {
		$adbox_click_url5 = $value; }

	if ($name eq 'send_confirmation_mail')  {      
		if ($value eq 'no') { $send_confirmation_mail_NO = "CHECKED"; }
		elsif ($value eq 'posted') { $send_confirmation_mail_POSTED = "CHECKED"; }
		elsif ($value eq 'expired') { $send_confirmation_mail_EXPIRED = "CHECKED"; }
		elsif ($value eq 'both') { $send_confirmation_mail_BOTH = "CHECKED"; }
 		}
	if ($name eq 'show_admin_email')  {      
		if ($value eq 'no') { $show_admin_email_NO = "CHECKED"; }
		elsif ($value eq 'yes') { $show_admin_email_YES = "CHECKED"; }
		}
	if ($name eq 'show_admin_link')  {      
		if ($value eq 'no') { $show_admin_link_NO = "CHECKED"; }
		elsif ($value eq 'yes') { $show_admin_link_YES = "CHECKED"; }
		}
	if ($name eq 'color_ads')  {      
		if ($value eq 'no') { $color_ads_NO = "CHECKED"; }
		elsif ($value eq 'yes') { $color_ads_YES = "CHECKED"; }
		}
	if ($name eq 'use_file_lock')  {      
		if ($value eq 'no') { $use_file_lock_NO = "CHECKED"; }
		elsif ($value eq 'yes') { $use_file_lock_YES = "CHECKED"; }
		}
	if ($name eq 'collect_email')  {      
		if ($value eq 'no') { $collect_email_NO = "CHECKED"; }
		elsif ($value eq 'yes') { $collect_email_YES = "CHECKED"; }
		}
	if ($name eq 'activate_log')  {      
		if ($value eq 'no') { $activate_log_NO = "CHECKED"; }
		elsif ($value eq 'yes') { $activate_log_YES = "CHECKED"; }
		}
 
	if ($name eq 'remote_postings')  {      
		if ($value eq 'yes')  { $remote_postings_YES = "CHECKED"; }
		else { $remote_postings_NO = "CHECKED"; }
		}
 
	if ($name eq 'bg_properties')  {      
		if ($value eq '') { $bg_properties_NO = "CHECKED"; }
		elsif ($value eq 'fixed') { $bg_properties_YES = "CHECKED"; }
		}
	if ($name eq 'banner_mode')  {      
		if ($value eq 'text') { $banner_mode_TEXT = "CHECKED"; }
		elsif ($value eq 'graphic') { $banner_mode_GRAPHIC = "CHECKED"; }
		}
	}

$maxlinks =~ /[0-9]/;
if ($maxlinks < 1) { $maxlinks = 50; } 
if ($maxlinks > 200) { $maxlinks = 50; }

open (DATA, "<email_posted.txt") || &return_page('System Error', "Can't read email_posted.txt.\n");
@lines = <DATA>;
close(DATA);
$confirmation_email_posting = join ('', @lines);
open (DATA, "<email_expired.txt") || &return_page('System Error', "Can't read email_expired.txt.\n");
@lines = <DATA>;
close(DATA);
$confirmation_email_expired = join ('', @lines);

open (DATA, "<banned_word.txt") || &return_page('System Error', "Can't read banned_word.txt.\n");
@lines = <DATA>;
close(DATA);
$banned_word = join ('', sort(@lines));

open (DATA, "<banned_email.txt") || &return_page('System Error', "Can't read banned_email.txt.\n");
@lines = <DATA>;
close(DATA);
$banned_email = join ('', sort(@lines));

open (DATA, "<banned_url.txt") || &return_page('System Error', "Can't read banned_url.txt.\n");
@lines = <DATA>;
close(DATA);
$banned_url = join ('', sort(@lines));
} # End sub

#################################################
# Close Form
sub CloseForm() {

print "Content-type: text/html\n\n";
print <<EOF;
<html>
  <head>
    <script LANGUAGE="JavaScript">
      <!-- Begin
        javascript:window.close();
      //End -->
    </script>
  <head>
  <body>
  </body>
</html>
EOF
}

#######################################
# Automatically add this ffa page to Global FFA Network
sub auto_add_2_global_ffa_network() {
my $t = "";

$t .= "$manageurl?";
$t .= "title=$page_title&";
$t .= "url=$cgiurl&";
$t .= "fname=&";
$t .= "lname=&";
$t .= "email=$admin_email&";
$t .= "email1=$admin_email&";
$t .= "email2=$admin_email&";
$t .= "adult=no&";
$t .= "activated=yes&";
$t .= "password=$password&";
$t .= "mode=signup\n\n";
 
print "Pragma: no-cache\n";
print "Location: $t";
}

#######################################
#
sub save_manage_setup() {

open (DATA, ">manage.txt") || &return_page('System Error', "Can't save manage.txt\n");
flock DATA, LOCK_EX if $use_file_lock eq 'yes';
print DATA "$manage_id|$manage_pw\n";
close DATA;

print "Pragma: no-cache\n";
print "Location: $cgiurl?mode=admin_menu&password=$password\n\n";
}

#######################################
#
sub save_setup() {

open (DATA, ">setup.txt") || &return_page('System Error', "Can't save setup.txt\n");
flock DATA, LOCK_EX if $use_file_lock eq 'yes';
print DATA <<SETUP;
admin_password=$FORM{'admin_password'}
affiliate_id=$FORM{'affiliate_id'}
page_title=$FORM{'page_title'}
page_subtitle=$FORM{'page_subtitle'}
mailprog=$FORM{mailprog}
smtp=$FORM{smtp}
bg_background=$FORM{bg_background}
bg_color=$FORM{bg_color}
bg_properties=$FORM{bg_properties}
bg_text=$FORM{bg_text}
bg_vlink=$FORM{bg_vlink}
bg_alink=$FORM{bg_alink}
bg_link=$FORM{bg_link}
border_color=$FORM{border_color}
maxlinks=$FORM{maxlinks}
show_admin_email=$FORM{show_admin_email}
show_admin_link=$FORM{show_admin_link}
admin_email=$FORM{admin_email}
admin_email_text=$FORM{admin_email_text}
color_ads=$FORM{color_ads}
use_file_lock=$FORM{use_file_lock}
collect_email=$FORM{collect_email}
activate_log=$FORM{activate_log}
remote_postings=$FORM{remote_postings}
confirmation_subject_posting=$FORM{confirmation_subject_posting}
confirmation_subject_expired=$FORM{confirmation_subject_expired}
confirmation_email_address=$FORM{confirmation_email_address}
send_confirmation_mail=$FORM{send_confirmation_mail}
banner_url=$FORM{banner_url}
banner_click_url=$FORM{banner_click_url}
page_title_forecolor=$FORM{page_title_forecolor}
page_title_backcolor=$FORM{page_title_backcolor}
page_subtitle_forecolor=$FORM{page_subtitle_forecolor}
page_subtitle_backcolor=$FORM{page_subtitle_backcolor}
SETUP

my ($i, $t);
for ($i = 1; $i <= 5; $i++) {
	$t = "adbox_head_text".$i;
	print DATA "adbox_head_text$i=$FORM{$t}\n";
	$t = "adbox_head_forecolor".$i;
	print DATA "adbox_head_forecolor$i=$FORM{$t}\n";
	$t = "adbox_head_backcolor".$i;
	print DATA "adbox_head_backcolor$i=$FORM{$t}\n";
	$t = "adbox_body_text".$i;
	print DATA "adbox_body_text$i=$FORM{$t}\n";
	$t = "adbox_body_forecolor".$i;
	print DATA "adbox_body_forecolor$i=$FORM{$t}\n";
	$t = "adbox_body_backcolor".$i;
	print DATA "adbox_body_backcolor$i=$FORM{$t}\n";
	$t = "adbox_click_url".$i;
	print DATA "adbox_click_url$i=$FORM{$t}\n";}
close(DATA);

open (DATA, ">email_posted.txt") || &return_page('System Error', "Can't save email_posted.txt\n");
flock DATA, LOCK_EX if $use_file_lock eq 'yes';
print DATA "$FORM{confirmation_email_posting}";    
close(DATA);

open (DATA, ">email_expired.txt") || &return_page('System Error', "Can't save email_expired.txt\n");
flock DATA, LOCK_EX if $use_file_lock eq 'yes';
print DATA "$FORM{confirmation_email_expired}";
close(DATA);

open (DATA, ">banned_email.txt") || &return_page('System Error', "Can't save banned_email.txt\n");
flock DATA, LOCK_EX if $use_file_lock eq 'yes';
print DATA "$FORM{banned_email}";
close(DATA);

open (DATA, ">banned_url.txt") || &return_page('System Error', "Can't save banned_url.txt\n");
flock DATA, LOCK_EX if $use_file_lock eq 'yes';
print DATA "$FORM{banned_url}";
close(DATA);

open (DATA, ">banned_word.txt") || &return_page('System Error', "Can't save banned_word.txt\n");
flock DATA, LOCK_EX if $use_file_lock eq 'yes';
print DATA "$FORM{banned_word}";
close(DATA);

my $line;
open(DATA,"<manage.txt") || &return_page('System Error', "Can't read manage.txt\n");
 $line = <DATA>;
close(DATA);
chomp $line;
$line .= "|dummy";
($manage_id, $manage_pw) = split(/\|/, $line);
&auto_add_2_global_ffa_network() if ($manage_id eq "unregistered" || $manage_id eq "" || $manage_pw eq ""); 

$mode = 'admin_menu';
&read_setup();
&admin_menu();
} # End sub

#######################################
#
sub CheckReferer() {
my $short_domain;

if ($domain =~ /^www/) { $short_domain = substr ($domain,4); }
else { $short_domain = $domain; }

if ($remote_postings !~ /yes/i) {
	if ($refer !~ /$domain/i || $refer !~ /$short_domain/i) {

		if ($p_mode ne chr(70).chr(70).chr(65).chr(66).chr(108).chr(97).chr(115).chr(116).chr(101).chr(114)) {
		    	&save_denied();
			$bg_color = "FFFFFF";
			$bg_text = "000000";
			$bg_vlink = "800000";
			$bg_alink = "800080";
			$bg_link = "0000FF";
			&errmsg ("System Error", "Form submitted from:<br><br>$ENV{HTTP_REFERER}<br><br>cannot be accepted!\n");}
	}	}
}

#######################################
# This is for TESTING only!
sub save_denied() {
my $ip = $ENV{REMOTE_ADDR};

&gettime();
open (DATA, ">>denied.txt") || &return_page('System Error', "Can't append to denied.txt\n");
flock DATA, LOCK_EX if $use_file_lock eq 'yes';
print DATA "$title|$url|$email|$section|$ip|$date|$time|$p_mode|$refer|$remote\n";
close(DATA);
}

#######################################
#
sub gettime() {
my ($sec, $min, $hour, $mday, $mon, $year, $wday) = (localtime(time))[0,1,2,3,4,5,6];

$date = sprintf "%s/%02s/%s", $mon+1, $mday, $year+1900;
$time = sprintf "%02s:%02s:%02s", $hour, $min, $sec;
}

#######################################
#
sub email ($$$$$$) {
my ($from, $to, $c_smtp, $subject, $message, $xheader) = @_;
my @sendmail;
my $sendmail = $mailprog;
my $reply = $from;
my $sendtemp;

if ($sendmail eq "") {
	@sendmail = ('/usr/lib/sendmail','/usr/sbin/sendmail','/usr/bin/sendmail','/bin/sendmail','/bin/mail','/usr/libexec');
	for $sendmail (@sendmail) {
		$sendtemp = $sendmail;
		last if (-e $sendmail);
		$sendtemp = '';}
	$sendmail = $sendtemp;}

if ($sendmail && !$c_smtp) {
	#open (MAIL, "|$sendmail -oi -t");
	open (MAIL, "|$sendmail -oi -t >/dev/null 2>&1") || &return_page('Mail Error', "Can't send to $to\n");
	print MAIL "To: $to\n";
	print MAIL "From: $from\n";

	if ($xheader ne "") {	# Stefan 09-22-2001
		print MAIL "$xheader"; }	# Stefan 09-22-2001
	print MAIL "Subject: $subject\n\n";
	print MAIL "$message\n";
	close(MAIL);
	$smtp = "";
	$mailprog = $sendmail;
} else {
	$sendmail = "";
	&sendmail ($from, $reply, $to, $c_smtp, $subject, $message, $xheader);}
} # End sub

#######################################
#
sub sendmail ($$$$$$$) {
my ($from, $reply, $to, $smtp, $subject, $message, $xheader) = @_;
my $fromaddr = $from;
my $replyaddr = $reply;

$to =~ s/[ \t]+/, /g; # pack spaces and add comma
$fromaddr =~ s/.*<([^\s]*?)>/$1/; # get from email address
$replyaddr =~ s/.*<([^\s]*?)>/$1/; # get reply email address
$replyaddr =~ s/^([^\s]+).*/$1/; # use first address
$message =~ s/^\./\.\./gm; # handle . as first character
$message =~ s/\r\n/\n/g; # handle line ending
$message =~ s/\n/\r\n/g;
$smtp =~ s/^\s+//g; # remove spaces around $smtp
$smtp =~ s/\s+$//g;
$xheader =~ s/^\s+//g; # remove spaces around $header  # Stefan 09-21-2001
$xheader =~ s/\s+$//g; # Stefan 09-21-2001

if (!$to) { return -8; }
my ($proto) = (getprotobyname('tcp'))[2];
my ($port) = (getservbyname('smtp', 'tcp'))[2];
my ($smtpaddr) = ($smtp =~ /^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$/) ? pack('C4',$1,$2,$3,$4) : (gethostbyname($smtp))[4];

if (!defined($smtpaddr)) { return -1; }
if (!socket(S, AF_INET, SOCK_STREAM, $proto)) { return -2; }
if (!connect(S, pack('Sna4x8', AF_INET, $port, $smtpaddr))) { return -3; }

my ($oldfh) = select(S); $| = 1; select($oldfh);
$_ = <S>; if (/^[45]/) { close S; return -4; }

print S "helo localhost\r\n";
$_ = <S>; if (/^[45]/) { close S; return -5; }

print S "mail from: <$fromaddr>\r\n";
$_ = <S>; if (/^[45]/) { close S; return -5; }

foreach (split(/, /, $to)) {
	print S "rcpt to: <$_>\r\n";
	$_ = <S>; if (/^[45]/) { close S; return -6; }
	}

print S "data\r\n";
$_ = <S>; if (/^[45]/) { close S; return -5; }

if ($xheader ne "") {		# Stefan 09-22-2001 - NOT tested yet
	print S "$xheader\r\n"; }  # Stefan 09-22-2001

print S "To: $to\r\n";
print S "From: $from\r\n";
print S "Reply-to: $replyaddr\r\n" if $replyaddr;
print S "X-Mailer: Perl Sendmail Version 1.21 Christian Mallwitz Germany\r\n";
print S "Subject: $subject\r\n\r\n";
print S "$message";
print S "\r\n.\r\n";

$_ = <S>; if (/^[45]/) { close S; return -7; }

print S "quit\r\n";
$_ = <S>;

close(S);
return(1);
}