#!/usr/bin/perl

if (!-e "location.cfg"){
print "Content-type: text/html\n\n";
print qq~<CENTER><FONT COLOR="\#000066" size="+1" face="arial,helvetica">Error - "location.cfg" file was not found.</FONT></CENTER>~;
exit;
}else{
require "location.cfg";
}
$data_name = "data.txt";
$gtext_name = "link.txt";
$pass_name = "pass.txt";
$data_file = ($data_directory . $data_name);
$gtext_file = ($data_directory . $gtext_name);
$pass_file = ($data_directory . $pass_name);
$old_data_file = "ads.txt";
$old_text_file = "gtext.txt";
$version="2.3";
$button_title="Login";
@chars = ('a'..'z','A'..'Z','0'..'9');
$salt = $chars[rand(63)] . $chars[rand(63)];
$req="<FONT COLOR=\"\#FF0000\">\*</FONT>";
if (-e "$old_data_file"){
&convert;
}
###################################################################
@cookie=split(/; /, $ENV{'HTTP_COOKIE'});
foreach $pair (@cookie) {
($name, $value) = split(/=/, $pair);
$COOKIE{$name} = $value;
}
$pass = $COOKIE{'pass'};
###################################################################

$stringpassed=$ENV{'QUERY_STRING'};
$stringpassed=~s/\+/ /g;
@stringpassed=split(/\&/,$stringpassed);
foreach $line (@stringpassed){
($name,$value)=split(/\=/, $line);
$stringsplit{$name}="$value";
}
if ($stringsplit{'tell'}){
$tell="$stringsplit{'tell'}";

        if ($tell eq "textlink"){
        &textlink_redirect;
        exit;
        }elsif($tell eq "admin"){
        &login_test;
        exit;
        }elsif($tell eq "js"){
        $call_method="javascript";
        &show_banner;
        exit;
        }else{
        &banner_redirect;
        exit;
        }
}

if ($stringsplit{'jscount'}){
$jscount="$stringsplit{'jscount'}";
&js_count;
exit;
}

###################################################################

read(STDIN, $input, $ENV{'CONTENT_LENGTH'});
        @pairs = split(/&/, $input);
        foreach $pair (@pairs) {
        ($name, $value) = split(/=/, $pair);
        $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
        $value =~ tr/+/ /;
        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
        $FORM{$name} = $value;
}

###################################################################
$line_to_view=$FORM{'line_to_view'};
$line_to_change=$FORM{'line_to_change'};
$line_to_delete=$FORM{'line_to_delete'};

$ad_name=$FORM{'*ad_name'};
$ad_name_value=$FORM{'*ad_name'};
$ad_name_value=~s/\%22/\"/g;

$ad_html=$FORM{'*ad_html'};
$ad_html=~s/\|/\%7C/g;
$ad_html=~s/\%22/\"/g;
$ad_html=~s/\ \ +/\ /g;
$ad_html=~s/\n//g;
$ad_html=~s/\r//g;

$ad_input_value=$FORM{'*ad_html'};
$ad_input_value=~s/\|/\%7C/g;
$ad_input_value=~s/\%22/\"/g;
$ad_input_value=~s/\ \ +/\ /g;
$ad_input_value=~s/\n//g;
$ad_input_value=~s/\r//g;

$reset_count=$FORM{'reset_count'};
$mode=$FORM{'mode'};
$gtext_impressions=$FORM{'gtext_impressions'};
$gtext_clicks=$FORM{'gtext_clicks'};
$gtext_text=$FORM{'*gtext_text'};
$gtext_url=$FORM{'*gtext_url'};
$gtext_color=$FORM{'gtext_color'};
$text_target=$FORM{'text_target'};

$image_url=$FORM{'*image_url'};
$border=$FORM{'border'};
$link_url=$FORM{'*link_url'};
$image_target=$FORM{'image_target'};

$ad_id=$FORM{'ad_id'};
$action=$FORM{'action'};
$form_password=$FORM{'password'};

$impressions=$FORM{'impressions'};
if ($impressions eq ""){
$impressions = 0;
}
$clicks=$FORM{'clicks'};
if ($clicks eq ""){
$clicks = 0;
}
$weight=$FORM{'weight'};
if ($weight eq ""){
$weight = 1;
}

###################################################################

if ($action eq "Set Password"){
        $error_message="Cannot create password file - make sure directory permissions are set to chmod 777";
        open(PASSFILE,">$pass_file") || &error_pass;
        chmod oct 777,("$pass_file");
        $crypt_pass = crypt($form_password, $salt);
        print PASSFILE "$crypt_pass\n";
        close(PASSFILE);
        $message="Password is set\! You may now log in";
        $title="CAROUSEL - Password Set";
        &login;
        exit;
}

if ($action eq "Login"){
        open(PASSFILE,"$pass_file") || &error_pass;
        $my_password = <PASSFILE>;
        close(PASSFILE);
        chomp ($my_password);
        $submitted_password = crypt($form_password, $my_password);

        if ($submitted_password ne $my_password){
                $message="Your password does not match";
                $title="CAROUSEL - Wrong Password";
                &login;
                exit;
                }else{
                print "Set-Cookie:pass = 2;\n";
                $title="CAROUSEL - Logged In";
                $text="You have successfully logged in";
                &header;
                &stats;
                &footer;
                exit;
        }
}

###################################################################
if ($pass != 2){
&show_banner;
exit;
}
###################################################################

if ($action eq "add"){
$title="CAROUSEL - Paste Affiliate Code";
$text="Paste HTML banner code into form box and choose a name for this ad.<BR>
 If you don't have ready-to-paste code, use \"Create New Banner\"";
&header;
&add_form;
&footer;
exit;
}
if ($action eq "write"){
$title="CAROUSEL - New Banner Added";
$text="Your banner has been added";
&header;
&write;
&stats;
&footer;
exit;
}

if ($action eq "stats"){
$title="CAROUSEL - Statistics";
$text="View statistics for your ads<BR>
Click \"Edit\" to view or modify an ad, \"Delete\" to remove an ad";
&header;
&stats;
&footer;
exit;
}

if ($action eq "delete"){
$title="CAROUSEL - Item Deleted";
$text="Selected ad has been deleted";
&header;
&delete;
&stats;
&footer;
exit;
}
if ($action eq "reset"){
$title="CAROUSEL - Counters Reset";
$text="Ad counters have been reset";
&header;
&reset;
&stats;
&footer;
exit;
}
if ($action eq "save"){
$title="CAROUSEL - Changes Saved";
$text="Changes to selected ad have been saved";
&header;
&save;
&stats;
&footer;
exit;
}
if ($action eq "gtext"){
$title="CAROUSEL - Text Link Setup";
$text="Text Link setup<BR>
When enabled, this will put the same text link under all your ad banners";
&header;
&gtext_setup;
&footer;
exit;
}
if ($action eq "set_gtext"){
$title="CAROUSEL - Text Link";
$text="Text Link has been changed";
&header;
&set_gtext;
&gtext_setup;
&footer;
exit;
}
if ($action eq "view"){
$title="CAROUSEL - View Ad";
$text="Showing selected ad<BR>
You may reset the counter, edit the name, weight or HTML code if desired.<BR>
<FONT SIZE=\"-1\">\(Entering a weight of \"0\" will deactivate, but not remove the ad.\)</FONT>";
&header;
&view_ad;
&footer;
exit;
}
if ($action eq "code"){
$title="CAROUSEL - Generate Code";
$text="Copy and paste this code into your web page where you want your ads to appear:";
&header;
&get_code;
&footer;
exit;
}
if ($action eq "preview"){
$title="CAROUSEL - Preview New Ad";
$text="Verify your new banner before installing<BR>
Click \"Install Banner\" to finish";
&header;
&preview;
&footer;
exit;
}
if ($action eq "pre_modify"){
$title="CAROUSEL - Preview Changes";
$text="Verify your changes before modification<BR>
Click \"Save Changes\" to finish";
&header;
&pre_modify;
&footer;
exit;
}
if ($action eq "create"){
$title="CAROUSEL - Create New Banner";
$text="Enter Image URL, Link URL and choose a name for this ad.<BR>
If you have ready-to-paste HTML code, use \"Paste Affiliate Code\"";
&header;
&create;
&footer;
exit;
}

###################################################################

sub login_test{
        if (!-e "$pass_file"){
        $message="You need to set an administration password for Carousel";
        $button_title="Set Password";
        $title="CAROUSEL - Set Admin Password";
        &login;
        exit;
        }
        if ($pass == 2){
        $title="CAROUSEL - Logged In";
        $text="You are logged in";
        &header;
        &stats;
        &footer;
        exit;
        }else{
        $title="CAROUSEL - Login";
        &login;
        exit;
        }
}

sub convert{

        $error_message="Cannot create new data file - make sure directory permissions are set to chmod 777";
        while (-e "$old_data_file.tmp"){
        sleep(1);
        }
        open(NEWFILE,">$data_file") || &error;
        $error_message="Cannot open data file - make sure permissions are set to chmod 777";
        open(OLDFILE,"$old_data_file") || &error_data;
        @old_file_data = <OLDFILE>;
        close(OLDFILE);
        $new_id_num=10000000;
        foreach $line (@old_file_data) {
        ($ad_name, $ad_html) = split(/\|/, $line);
        $new_id_num++;
        $new_line="$new_id_num\|0\|0\|1\|$ad_name\|$ad_html";
                if (length($new_line) < 1){
                next;
                }
    $new_line=~s/\ \ +/\ /g;
        $new_line=~s/\n//g;
        $new_line=~s/\r//g;
        print NEWFILE "$new_line\n";
        }
        close(NEWFILE);
        chmod oct 777,("$data_file");
        unlink ("$old_data_file");

        if (-e "$old_text_file"){
        open(OLDTEXTFILE,"$old_text_file") || &error;
        $old_text_data = <OLDTEXTFILE>;
        chomp ($old_text_data);
        ($gtext_text, $gtext_color, $gtext_url, $text_target) = split(/\|/, $old_text_data);
        open(NEWTEXTFILE,">$gtext_file") || &error;
        print NEWTEXTFILE "0\|0\|$gtext_text\|$gtext_color\|$gtext_url\|$text_target\n";
        close(NEWTEXTFILE);
        chmod oct 777,("$gtext_file");
        close(OLDTEXTFILE);
        unlink ("$old_text_file");
        }

}

sub show_banner{


        if (-e "$data_file"){
        open(DATAFILE,"$data_file") || &error_data;
        }else{
                if ($call_method eq "javascript"){
                print "Content-type: text/plain\n\n";
                print qq~banner=('<A HREF=\"$this_URL?tell=admin\">You have no ads installed - Click here to log in to control panel</A>');~;
                print qq~document.write(banner);~;
                exit;
                }else{
                print "Content-type: text/html\n\n";
                print qq~<A HREF="$this_URL?tell=admin">You have no ads installed - Click here to log in to control panel</A>~;
                exit;
                }
        }
        @ad_file = <DATAFILE>;
        close(DATAFILE);
        $line=0;
        foreach $ad (@ad_file) {
        $line++;
        }
        $lines=$line - 1;
        if ($lines < 0){
                if ($call_method eq "javascript"){
                print "Content-type: text/plain\n\n";
                print qq~banner=('<A HREF=\"$this_URL?tell=admin\">You have no ads installed - Click here to log in to control panel</A>');~;
                print qq~document.write(banner);~;
                exit;
                }else{
                print "Content-type: text/html\n\n";
                print qq~<A HREF="$this_URL?tell=admin">You have no ads installed - Click here to log in to control panel</A>~;
                exit;
                }
        }
        @banners = ();
        $weight_line=0;
        foreach $ad (@ad_file) {
        ($ad_id,$impressions,$clicks,$weight,$ad_name,$ad_html) = split(/\|/, $ad);
                while ($weight > 0){
                push (@banners, $weight_line);
                $weight--;
                }
        $weight_line++;
        }
        $rand_num = rand(@banners);
        $rand_pick=$banners[$rand_num];
        $rand_line=$ad_file[$rand_pick];
        $line_to_change=$rand_pick;
        $line_to_change++;
        ($ad_id,$impressions,$clicks,$weight,$ad_name,$ad_html) = split(/\|/, $rand_line);
        $impressions++;

        $changed_line="$ad_id\|$impressions\|$clicks\|$weight\|$ad_name\|$ad_html";
        &update_log;

if (($ad_html =~ /FORM/i)&&($ad_html =~ /ACTION/i)&&($ad_html =~ /METHOD/i)){

        $ad_html=~s/\>/\>|/g;
        @html_array=split(/\|/,$ad_html);
                foreach $tag (@html_array){
                        if (($tag =~ /FORM/i)&&($tag =~ /ACTION/i)&&($tag =~ /METHOD/i)){
                        $tag =~s/\>/ onSubmit\=\'jsCount\=window.open\(\"$this_URL\?jscount\=$ad_id\"\,\"countWindow\"\,\"toolbar\=no\,location\=no\,directories\=no\,status\=no\,menubar\=no\,scrollbars\=no\,resizable\=no\,width\=1\,height\=1\"\)\; return true\'\>/;
                        push (@my_array, $tag);
                        }else{
                        push (@my_array, $tag);
                        }
                }
        $my_html=join("",@my_array);
}elsif (($ad_html =~ /SCRIPT/i)&&($ad_html =~ /\/SCRIPT/i)){

$my_html="$ad_html";

}else{


        $ad_html=~s/\>/\>|/g;
        @html_array=split(/\|/,$ad_html);
        foreach $tag (@html_array){
                if ($tag =~ /a href/i){
                @link_tag =split( /\"/,$tag);
                $redirect_url=$link_tag [1];
                $ad_target=$link_tag [3];
                last;
                }
        }
        $click_url="$this_URL\?tell\=$ad_id";
        if (!$ad_target){
        $target_html="";
        }else{
        $target_html=" TARGET\=\"$ad_target\"";
        }
        $my_redir_tag="<A HREF\=\"$click_url\"$target_html>";
        @my_array = ();
        foreach $tag (@html_array){

                if ($tag =~ /a href/i){
                push (@my_array, $my_redir_tag);
                }else{
                push (@my_array, $tag);
                }
        }
        $my_html=join("",@my_array);
}

        $my_html=~s/\%7C/\|/g;

        if (-e "$gtext_file"){
        while (-e "$gtext_file.tmp"){
        sleep(1);
        }
        open(TEMPFILE,">$gtext_file.tmp") || &error_gtext_banner;
        open(GTEXTFILE,"$gtext_file") || &error_gtext_banner;
        $gtext_data = <GTEXTFILE>;
        close(GTEXTFILE);
        chop ($gtext_data);
        ($gtext_impressions, $gtext_clicks, $gtext_text, $gtext_color, $gtext_url, $text_target) = split(/\|/, $gtext_data);
        $gtext_impressions++;
        print TEMPFILE "$gtext_impressions\|$gtext_clicks\|$gtext_text\|$gtext_color\|$gtext_url\|$text_target\n";
        close(TEMPFILE);
        chmod oct 777,("$gtext_file.tmp");
        $error_message="Cannot rename temp file to master file after edit - make sure directory permissions are set to chmod 777";
        rename("$gtext_file.tmp", "$gtext_file") || &error;
        ($color_hex, $color_name) = split(/\-/, $gtext_color);
        if ($text_target ne ""){
        $target="TARGET=\"$text_target\"";
        }else{
        $target="";
        }
        if ($color_hex eq ""){
        $text_link="<A HREF\=\"$this_URL\?tell\=textlink\" $target>$gtext_text</A>";
        }else{
        $text_link="<A HREF\=\"$this_URL\?tell\=textlink\" $target><FONT COLOR=\"$color_hex\">$gtext_text</FONT></A>";
        }
        $whole_banner="<TABLE BORDER=\"0\" CELLSPACING\=\"0\" CELLPADDING\=\"0\"><TR><TD ALIGN\=\"Center\" >$my_html</TD></TR><TR><TD ALIGN\=\"Center\">$text_link</TD></TR></TABLE>";
        }else{
        $whole_banner="$my_html";
        }
        if ($call_method eq "javascript"){
        $whole_banner=~s/\|/\\|/g;
        $whole_banner=~s/\"/\\"/g;
        $whole_banner=~s/\'/\\'/g;
        $whole_banner=~s/\~/\\~/g;
        $whole_banner=~s/\n//g;
        $whole_banner=~s/\r//g;

        print "Content-type: text/plain\n\n";
        print qq~banner=('$whole_banner');~;
        print qq~document.write(banner);~;

        exit;
        }else{
        print "Content-type: text/html\n\n";
        print "$whole_banner\n";
        exit;
        }

}

sub textlink_redirect{

        if (!-e "$gtext_file"){
                if ($call_method eq "javascript"){
                print "Content-type: text/plain\n\n";
                print qq~banner=('Error - Record Not Found');~;
                print qq~document.write(banner);~;
                exit;
                }else{
                print "Content-type: text/html\n\n";
                print qq~Error - Record Not Found~;
                exit;
                }
        }
        while (-e "$gtext_file.tmp"){
        sleep(1);
        }
        open(TEMPFILE,">$gtext_file.tmp") || &error_gtext_banner;
        open(GTEXTFILE,"$gtext_file") || &error_gtext_banner;
        $gtext_data = <GTEXTFILE>;
        close(GTEXTFILE);
        chomp ($gtext_data);
        ($gtext_impressions, $gtext_clicks, $gtext_text, $gtext_color, $gtext_url, $text_target) = split(/\|/, $gtext_data);
        $gtext_clicks++;
        print TEMPFILE "$gtext_impressions\|$gtext_clicks\|$gtext_text\|$gtext_color\|$gtext_url\|$text_target\n";
        close(TEMPFILE);
        chmod oct 777,("$gtext_file.tmp");
        $error_message="Cannot rename temp file to master file after edit - make sure directory permissions are set to chmod 777";
        rename("$gtext_file.tmp", "$gtext_file") || &error;
        print "Location: $gtext_url\n\n";
        exit;
}

sub banner_redirect{

        if (-e "$data_file"){
        open(DATAFILE,"$data_file") || &error_data;
        }else{
        print "Content-type: text/html\n\n";
        print qq~<A HREF="$this_URL?tell=admin">You have no ads installed - Click here to log in to control panel</A>~;
        exit;
        }
        @ad_file = <DATAFILE>;
        close(DATAFILE);
        $line=0;
        foreach $ad (@ad_file) {
                $line++;
                ($ad_id,$impressions,$clicks,$weight,$ad_name,$ad_html) = split(/\|/, $ad);
                if ($tell == $ad_id){
                $id_found = 1;
                $clicks++;
                last;
                }
        }
        $line_to_change=$line;
        $changed_line="$ad_id\|$impressions\|$clicks\|$weight\|$ad_name\|$ad_html";
        &update_log;

                if ($ad_html =~ /<NOSCRIPT>/i){
                ($weeds,$veggies) = split(/<NOSCRIPT>/i, $ad_html);
                ($ad_html,$weeds) = split(/<\/NOSCRIPT>/i, $veggies);
                }

        $ad_html=~s/\>/\>|/g;
        @html_array=split(/\|/,$ad_html);
        foreach $tag(@html_array){
                if ($tag =~ /a href/i){
                @link_tag =split( /\"/, $tag);
                $redirect_url=$link_tag [1];
                }
        }
        if ($id_found == 1){
        $redirect_url=~s/\%7C/\|/g;
        print "Location: $redirect_url\n\n";
        exit;
        }else{
        print "Content-type: text/html\n\n";
        print "Record $tell Not Found\n";
        exit;
        }

}

sub js_count{

        if (-e "$data_file"){
        open(DATAFILE,"$data_file") || &error_data;
        }else{
        print "Content-type: text/html\n\n";
        print qq~<A HREF="$this_URL?tell=admin">You have no ads installed - Click here to log in to control panel</A>~;
        exit;
        }
        @ad_file = <DATAFILE>;
        close(DATAFILE);
        $line=0;
        foreach $ad (@ad_file) {
                $line++;
                ($ad_id,$impressions,$clicks,$weight,$ad_name,$ad_html) = split(/\|/, $ad);
                if ($jscount == $ad_id){
                $id_found = 1;
                $clicks++;
                last;
                }
        }
        $line_to_change=$line;
        $changed_line="$ad_id\|$impressions\|$clicks\|$weight\|$ad_name\|$ad_html";
        &update_log;
        if ($id_found == 1){
        print "Content-type: text/html\n\n";
        print qq~<HTML><SCRIPT LANGUAGE="JavaScript">window.close();</SCRIPT></HTML>~;
        exit;
        }else{
        print "Content-type: text/html\n\n";
        print "Record $jscount Not Found\n";
        exit;
        }

}

sub update_log{

        @new_array = ();
        $error_message="Cannot create temporary data file - make sure directory permissions are set to chmod 777";
        while (-e "$data_file.tmp"){
        sleep(1);
        }
        if (-e "$data_file"){
        open(TEMPFILE,">$data_file.tmp") || &error;
        $error_message="Cannot open data file - make sure permissions are set to chmod 777";
        open(DATAFILE,"$data_file") || &error_data;
        }else{
        $error_message="Ad data file not found";
        &error;
        }
        @ad_file = <DATAFILE>;
        close(DATAFILE);
        $line=0;
        foreach $ad (@ad_file) {
        $line++;
                if ($line != $line_to_change){
                push (@new_array, $ad);
                }elsif ($line = $line_to_change){
                push (@new_array, $changed_line);
                }
        }
        foreach $new_line (@new_array){
                if (length($new_line) < 1){
                next;
                }
    $new_line=~s/\ \ +/\ /g;
        $new_line=~s/\n//g;
        $new_line=~s/\r//g;
        print TEMPFILE "$new_line\n";
        }
        close(TEMPFILE);
        chmod oct 777,("$data_file.tmp");
        $error_message="Cannot rename temp file to master file after edit - make sure directory permissions are set to chmod 777";
        rename("$data_file.tmp", "$data_file") || &error;
}

sub get_code{

$ssi_code="\&lt;\!--\#exec cgi=\"$ENV{'SCRIPT_NAME'}\"--\&gt;";


print qq~<FONT COLOR="\#000033" size="+1"><B>S.S.I. Code:</B></FONT><FONT COLOR="\#FF0000"> (Make sure your pages have the .shtml extension if required)</FONT><BR>~;

print qq~<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="2" WIDTH="100%"  BGCOLOR="\#003366" ><TR><TD><TABLE BORDER="0" CELLSPACING="0" CELLPADDING="10" WIDTH="100%"  BGCOLOR="\#FFFFFF" ><TR><TD><CENTER><FONT>$ssi_code</FONT></CENTER></TD></TR></TABLE></TD></TR></TABLE><BR><BR><BR>
<FONT COLOR="\#000033" size="+1"><B>JavaScript Code:</B></FONT><FONT COLOR="\#FF0000"> (No S.S.I. required)</FONT><BR>
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="2" WIDTH="100%"  BGCOLOR="\#003366" ><TR><TD><TABLE BORDER="0" CELLSPACING="0" CELLPADDING="10" WIDTH="100%"  BGCOLOR="\#FFFFFF" ><TR><TD><CENTER><FONT>&lt;SCRIPT SRC="$this_URL\?tell=js"&gt;&lt;/SCRIPT&gt;</FONT></CENTER></TD></TR></TABLE></TD></TR></TABLE>~;
}

sub write {

        $rand=rand();
        ($discard,$new_id)=split(/\./, $rand);
        $length=length($new_id);
        while($length > 8){
        chop ($new_id);
        $length=length($new_id);
        }
        while (-e "$data_file.tmp"){
        sleep(1);
        }
        if (-e "$data_file"){
        $error_message="Cannot open ad data file - make sure permissions are set to chmod 777";
        open(DATAFILE,">>$data_file") || &error;
        }else{
        $error_message="Cannot create ad data file - make sure the directory permissions are set to chmod 777";
        open(DATAFILE,">$data_file") || &error;
        }
        print DATAFILE "$new_id\|$impressions\|$clicks\|$weight\|$ad_name\|$ad_html\n";
        close(DATAFILE);
        chmod oct 777,("$data_file");
}

sub add_form{

print qq~
<FORM  NAME="banner" ACTION="$this_URL" METHOD="POST" onSubmit="return ckinput(this)">
<INPUT NAME="action" TYPE=Hidden VALUE="write">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="2" BGCOLOR="\#003366"  WIDTH="100%" ><TR><TD>
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="6" BGCOLOR="\#FFFFFF"   WIDTH="100%" ><TR><TD>$req<FONT COLOR="\#000066" face="arial,helvetica"><B>Name:</B></FONT></TD><TD><INPUT NAME="*ad_name" TYPE=Text SIZE="40" MAXLENGTH="40"></TD></TR>

<TR><TD VALIGN="top">$req<FONT COLOR="\#000066" face="arial,helvetica"><B>HTML:</B></FONT></TD><TD><TEXTAREA NAME="*ad_html" ROWS=5 COLS=72 WRAP=Virtual></TEXTAREA></TD></TR>
<TR><TD><FONT COLOR="\#000066" face="arial,helvetica"><B>Weight:</B></FONT></TD><TD><INPUT NAME="weight" TYPE=Text SIZE="2" MAXLENGTH="2" value="1"></TD></TR>
</TABLE></TD></TR>
</TABLE><BR>
<INPUT TYPE=Reset VALUE="Clear"><INPUT TYPE=Submit VALUE="Add Banner" onClick="return ckNumbers()">
</FORM>
~;
}

sub gtext_setup{

if (-e "$gtext_file"){
        $gtext_button_title="Save Changes";
        $status="enabled";
        open(GTEXTFILE,"$gtext_file") || &error_gtext;
        $gtext_data = <GTEXTFILE>;
        close(GTEXTFILE);
        chop ($gtext_data);
        ($gtext_impressions, $gtext_clicks, $gtext_text, $gtext_color, $gtext_url, $text_target) = split(/\|/, $gtext_data);
                if ($text_target ne ""){
                $target="TARGET=\"$text_target\"";
                }else{
                $target="";
                }
        ($color_hex, $color_name) = split(/\-/, $gtext_color);
                if ($color_name eq ""){
                $color_name="Default";
                }
}else{
        if ($color_name eq ""){
        $color_name="Default";
        }
        $gtext_button_title="Enable";
        $status="disabled";
}

if ($gtext_url eq ""){
$gtext_url="http://";
}

print qq~
<FONT COLOR="\#000066" face="arial,helvetica">Text Link is currently $status</FONT>
<FORM ACTION="$this_URL" METHOD="POST" onSubmit="return ckinput(this)">
<INPUT NAME="action" TYPE=Hidden VALUE="set_gtext">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="2" BGCOLOR="\#003366"  WIDTH="100%" ><TR><TD><TABLE BORDER="0" CELLSPACING="0" CELLPADDING="6"  WIDTH="100%" BGCOLOR="\#FFFFFF" >
~;
if ($status eq "enabled"){
                if ($color_hex eq ""){
        $color_name="Default";
        $text_link="<A HREF\=\"$gtext_url\" $target>$gtext_text</A>";
        }else{
        $text_link="<A HREF\=\"$gtext_url\" $target><FONT COLOR=\"$color_hex\">$gtext_text</FONT></A>";
        }
print qq~
<TR><TD><FONT COLOR="\#000066" face="arial,helvetica"><B>Link:</B></FONT></TD><TD>&nbsp;$text_link</TD></TR>~;
}
print qq~
<TR><TD>$req<FONT COLOR="\#000066" face="arial,helvetica"><B>Text:</B></FONT></TD><TD><INPUT NAME="*gtext_text" TYPE=Text SIZE="72" value="$gtext_text"></TD></TR>

<TR><TD>$req<FONT COLOR="\#000066" face="arial,helvetica"><B>URL:</B></FONT></TD><TD><INPUT NAME="*gtext_url" TYPE=Text SIZE="72" value="$gtext_url"></TD></TR>
<TR ALIGN="Left" VALIGN="Middle">
        <TD><FONT COLOR="\#000066" face="arial,helvetica"><B>Color:</B></FONT></TD>
        <TD><SELECT NAME="gtext_color" SIZE=1>
<OPTION Value="$gtext_color">$color_name
<OPTION Value="">Default
<OPTION Value="#000000-Black">Black
<OPTION Value="#0000FF-Blue">Blue
<OPTION Value="#00FFFF-Cyan">Cyan
<OPTION Value="#00CC66-Green">Green
<OPTION Value="#00FF00-Light Green">Light Green
<OPTION Value="#FF0000-Red">Red
<OPTION Value="#FF3366-Light Red">Light Red
<OPTION Value="#FFFF00-Yellow">Yellow
<OPTION Value="#FFFF99-Light Yellow">Light Yellow
<OPTION Value="#663300-Brown">Brown
<OPTION Value="#996633-Light Brown">Light Brown
<OPTION Value="#990099-Deep Purple">Deep Purple
<OPTION Value="#FF00FF-Magenta">Magenta
<OPTION Value="#555555-Dark Gray">Dark Gray
<OPTION Value="#777777-Light Gray">Light Gray
<OPTION Value="#FFFFFF-White">White
</SELECT></TD>
</TR>
<TR>
        <TD><FONT COLOR="\#000066" face="arial,helvetica"><B>Target:</B></FONT></TD><TD><INPUT NAME="text_target" TYPE=Text SIZE="10" value="$text_target"></TD>
</TR>
~;
if ($status eq "enabled"){
print qq~
<TR><TD><FONT COLOR="\#000066" face="arial,helvetica"><B>Reset:</B></FONT></TD><TD><INPUT NAME="reset_count" TYPE=Checkbox VALUE="yes"><FONT COLOR="\#000066" face="arial,helvetica">&nbsp;&nbsp;(check box to reset hit counter to zero)</FONT></TD></TR>
<INPUT NAME="gtext_impressions" TYPE=hidden value="$gtext_impressions">
<INPUT NAME="gtext_clicks" TYPE=hidden value="$gtext_clicks">~;
}
if ($status eq "disabled"){
print qq~<INPUT TYPE="hidden" NAME="gtext_clicks" value="0">
<INPUT TYPE="hidden" NAME="gtext_impressions" value="0">~;
}
print qq~</TABLE></TD></TR></TABLE><BR>
<INPUT TYPE=Submit VALUE="$gtext_button_title">
<INPUT NAME="mode" TYPE=Hidden VALUE="enable">
</FORM>~;
if ($status eq "enabled"){
        print qq~<FORM ACTION="$this_URL" METHOD="POST">
        <INPUT NAME="action" TYPE=Hidden VALUE="set_gtext">
<INPUT TYPE=Submit VALUE="Disable" onClick="return confirmDisable()">
<INPUT NAME="mode" TYPE=Hidden VALUE="disable">
</FORM>~;
        }
}

sub set_gtext{

if ($reset_count eq "yes"){
$gtext_impressions = 0;
$gtext_clicks = 0;
}
if ($mode eq "enable"){
        open(GTEXTFILE,">$gtext_file") || &error_gtext_make;
        chmod oct 777,("$gtext_file");
        print GTEXTFILE "$gtext_impressions\|$gtext_clicks\|$gtext_text\|$gtext_color\|$gtext_url\|$text_target\n";
        close(GTEXTFILE);
        }elsif ($mode eq "disable"){
        unlink ("$gtext_file");
        }
}

sub stats{

        if (-e "$data_file"){
        $error_message="Cannot open ad data file - make sure permissions are set to chmod 777";
        open(DATAFILE,"$data_file") || &error;
        }else{
        print qq~<CENTER><FONT COLOR="\#003366" SIZE="5" FACE="arial,helvetica">Welcome to Carousel!</FONT></CENTER>
<BLOCKQUOTE><FONT COLOR="\#000033" FACE="arial,helvetica">To start using this this program, you need to install some ads. You may either paste complete HTML banner code by choosing "Paste Affiliate Code" from the pop-up menu above or enter the Image Location and Link URL by choosing "Create New Banner"</FONT></BLOCKQUOTE>
<BLOCKQUOTE><FONT COLOR="\#000033" FACE="arial,helvetica">To place a common text link under all your banners, choose "Text Link Setup" from the menu above, then enter the Text as you want it to appear and the URL to link to into the form and click "Enable".</FONT></BLOCKQUOTE>
<BLOCKQUOTE><FONT COLOR="\#000033" FACE="arial,helvetica">After you have your ads installed, choose "Generate Code" to get the code you need to place in your HTML pages to display your banners.</FONT></BLOCKQUOTE>
<BLOCKQUOTE><FONT COLOR="\#000033" FACE="arial,helvetica">If you are using S.S.I., make sure your pages have the .shtml extension if required - ask your server administrator if you are unsure.</FONT></BLOCKQUOTE>
<BLOCKQUOTE><FONT COLOR="\#000033" FACE="arial,helvetica">The JavaScript code does not require S.S.I. to run.</FONT></BLOCKQUOTE>~;
        exit;
        }
        @ad_file = <DATAFILE>;
        close(DATAFILE);
$number_of_ads=0;
$dotzz = ".00";
$onez = "0";
foreach $ad (@ad_file) {
$number_of_ads++;
}
$reset_rowspan=1;
        if (-e "$gtext_file"){
        $status="enabled";
        $reset_rowspan=2;
        open(GTEXTFILE,"$gtext_file") || &error_gtext;
        $gtext_data = <GTEXTFILE>;
        close(GTEXTFILE);
        chomp ($gtext_data);
        ($gtext_impressions, $gtext_clicks, $gtext_text, $gtext_color, $gtext_url, $text_target) = split(/\|/, $gtext_data);
        if ($gtext_impressions == 0){
        $gtext_ctr = 0;
        }else{
        $gtext_ctr = ($gtext_clicks/$gtext_impressions);
        }
        while (length($gtext_ctr) > 6){
        chop ($gtext_ctr);
        }
        $gtext_ctr = $gtext_ctr * 100;
        ($gtext_ctr_int,$gtext_ctr_dec) = split(/\./,$gtext_ctr);
        if (length($gtext_ctr_dec) == 0){
        $gtext_ctr=($gtext_ctr . $dotzz);
        }elsif (length($gtext_ctr_dec) == 1){
        $gtext_ctr=($gtext_ctr . $onez);
        }
        }else{
        $status="disabled";
        }

print qq~
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="3" WIDTH="100%" ><TR><TD><FONT COLOR="\#000066" face="arial,helvetica">You have $number_of_ads ads currently running</FONT><BR>
<FONT COLOR="\#000066" face="arial,helvetica">Text Link is $status</FONT></TD>
</TR></TABLE>~;

print qq~
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="1" WIDTH="100%" BGCOLOR="\#003366" >
<TR><TD>
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="1" WIDTH="100%" BGCOLOR="\#003366" ><TR><TD><TABLE BORDER="1" CELLSPACING="0" CELLPADDING="2" BGCOLOR="\#FFFFFF"  WIDTH="100%">
<TR BGCOLOR="\#003366" >
<TD VALIGN="middle" align="center"><FONT COLOR="\#CCFFFF" face="arial,helvetica"><B>Shown</B></font></TD>
<TD VALIGN="middle" align="center"><FONT COLOR="\#CCFFFF" face="arial,helvetica"><B>Clicked</B></font></TD>
<TD VALIGN="middle" align="center"><FONT COLOR="\#CCFFFF" face="arial,helvetica"><B>CTR \%</B></font></TD>
<TD VALIGN="middle" align="center">&nbsp;</TD>
<TD VALIGN="middle" align="center"><FONT COLOR="\#CCFFFF" face="arial,helvetica"><B>Summary</B></font></TD>
<TD VALIGN="middle" align="center" colspan="2"><FONT COLOR="\#CCFFFF" face="arial,helvetica"><B>Reset</B></font></TD>
</TR>~;

$line=0;
$total_clicks=0;
$total_impressions=0;
        foreach $ad (@ad_file) {
        ($ad_id,$impressions,$clicks,$weight,$ad_name,$ad_html) = split(/\|/, $ad);
        $line=$line + 1;
        $total_clicks=($total_clicks + $clicks);
        $total_impressions=($total_impressions + $impressions);
        }
        if ($total_impressions == 0){
        $total_ctr = 0;
        }else{
        $total_ctr = ($total_clicks/$total_impressions);
        }
        while (length($total_ctr) > 6){
        chop ($total_ctr);
        }
        $total_ctr = $total_ctr * 100;
        ($total_ctr_int,$total_ctr_dec) = split(/\./,$total_ctr);
        if (length($total_ctr_dec) == 0){
        $total_ctr=($total_ctr . $dotzz);
        }elsif (length($total_ctr_dec) == 1){
        $total_ctr=($total_ctr . $onez);
        }

        print qq~
<TR ALIGN="Left">
        <TD VALIGN="middle" align="center">
        $total_impressions
        </TD>
        <TD VALIGN="middle" align="center">
        $total_clicks
        </TD>
        <TD VALIGN="middle" align="center">
        $total_ctr
        </TD>
        <TD VALIGN="middle" align="center">
        &nbsp;
        </TD>
        <TD VALIGN="middle" WIDTH="90%" align="center">
        <FONT face="arial,helvetica" color="000066">Banner Totals</font>
        </TD>
        <FORM ACTION="$this_URL" METHOD="POST">
        <TD VALIGN="middle"  ALIGN="center" colspan="2" rowspan="$reset_rowspan">
<INPUT NAME="action" TYPE=Hidden VALUE="reset">
<INPUT TYPE=Submit VALUE="Reset Counters" onClick="return confirmReset()">
</TD>
</FORM>
        </form>
</TR>
~;
if ($status eq "enabled"){
print qq~
<TR ALIGN="Left">
        <TD VALIGN="middle" align="center">
        $gtext_impressions
        </TD>
        <TD VALIGN="middle" align="center">
        $gtext_clicks
        </TD>
        <TD VALIGN="middle" align="center">
        $gtext_ctr
        </TD>
        <TD VALIGN="middle" align="center">
        &nbsp;
        </TD>
        <TD VALIGN="middle" WIDTH="90%" align="center">
        <FONT face="arial,helvetica" color="000066">Text Link Totals</font>
        </TD>
</TR>
~;
}

print qq~<TR BGCOLOR="\#003366" >
<TD VALIGN="middle" align="center"><FONT COLOR="\#CCFFFF" face="arial,helvetica"><B>Shown</B></font></TD>
<TD VALIGN="middle" align="center"><FONT COLOR="\#CCFFFF" face="arial,helvetica"><B>Clicked</B></font></TD>
<TD VALIGN="middle" align="center"><FONT COLOR="\#CCFFFF" face="arial,helvetica"><B>CTR \%</B></font></TD>
<TD VALIGN="middle" align="center"><FONT COLOR="\#CCFFFF" face="arial,helvetica"><B>Weight</B></font></TD>
<TD VALIGN="middle" align="center"><FONT COLOR="\#CCFFFF" face="arial,helvetica"><B>Banner Name</B></font></TD>
<TD VALIGN="middle" align="center" colspan="2"><FONT COLOR="\#CCFFFF" face="arial,helvetica"><B>Actions</B></font></TD>
</TR>~;

$line=0;
        foreach $ad (@ad_file) {
        ($ad_id,$impressions,$clicks,$weight,$ad_name,$ad_html) = split(/\|/, $ad);
        $line=$line + 1;
        if ($impressions == 0){
        $ctr = 0;
        }else{
        $ctr = ($clicks/$impressions);
        }
        while (length($ctr) > 6){
        chop ($ctr);
        }
        $ctr = $ctr * 100;
        ($ctr_int,$ctr_dec) = split(/\./,$ctr);
        if (length($ctr_dec) == 0){
        $ctr=($ctr . $dotzz);
        }elsif (length($ctr_dec) == 1){
        $ctr=($ctr . $onez);
        }
        if (($ad_html =~ /SCRIPT/i)&&($ad_html =~ /\/SCRIPT/i)&&($clicks == 0)){
        $alert="<A HREF=\"javascript\: rmAlert\(\)\" ><B>\?</B><\/A>";
        $clicks = "$alert";
        $ctr = "$alert";
        }
        print qq~

<TR ALIGN="Left">
        <TD VALIGN="middle" align="center">
        $impressions
        </TD>
        <TD VALIGN="middle" align="center">
        $clicks
        </TD>
        <TD VALIGN="middle" align="center">
        $ctr
        </TD>
        <TD VALIGN="middle" align="center">
        $weight
        </TD>
        <TD VALIGN="middle" WIDTH="90%" align="center">
        <FONT face="arial,helvetica" color="000066">$ad_name</font>
        </TD>
        <FORM ACTION="$this_URL" METHOD="POST">
        <INPUT NAME="action" TYPE=Hidden VALUE="view">
        <TD VALIGN="middle">
        <INPUT NAME="line_to_view" TYPE=Hidden value="$line">
        <INPUT TYPE=Submit VALUE=" Edit ">
        </TD>
        </form>
        <FORM ACTION="$this_URL" METHOD="POST">
        <INPUT NAME="action" TYPE=Hidden VALUE="delete">
        <TD VALIGN="middle">
        <INPUT NAME="line_to_delete" TYPE=Hidden value="$line">
        <INPUT TYPE=Submit VALUE="Delete" onClick="return confirmDelete()">
        </TD>
        </form>
</TR>
~;
        }
if ($status eq "enabled"){
print qq~
<TR BGCOLOR="\#003366" >
<TD VALIGN="middle" align="center"><FONT COLOR="\#CCFFFF" face="arial,helvetica"><B>Shown</B></font></TD>
<TD VALIGN="middle" align="center"><FONT COLOR="\#CCFFFF" face="arial,helvetica"><B>Clicked</B></font></TD>
<TD VALIGN="middle" align="center"><FONT COLOR="\#CCFFFF" face="arial,helvetica"><B>CTR \%</B></font></TD>
<TD VALIGN="middle" align="center"><FONT COLOR="\#CCFFFF" face="arial,helvetica"><B>&nbsp;</B></font></TD>
<TD VALIGN="middle" align="center"><FONT COLOR="\#CCFFFF" face="arial,helvetica"><B>Text Link</B></font></TD>
<TD VALIGN="middle" align="center" colspan="2"><FONT COLOR="\#CCFFFF" face="arial,helvetica"><B>Actions</B></font></TD>
</TR>
<TR ALIGN="Left">
        <TD VALIGN="middle" align="center">
        $gtext_impressions
        </TD>
        <TD VALIGN="middle" align="center">
        $gtext_clicks
        </TD>
        <TD VALIGN="middle" align="center">
        $gtext_ctr
        </TD>
        <TD VALIGN="middle" align="center">
        &nbsp;
        </TD>
        <TD VALIGN="middle" WIDTH="90%" align="center">
        <FONT face="arial,helvetica" color="000066">$gtext_text</font>
        </TD><FORM ACTION="$this_URL" METHOD="POST">
        <TD VALIGN="middle" WIDTH="90%" align="center" COLSPAN="2" >
<INPUT NAME="action" TYPE=Hidden VALUE="gtext">
<INPUT TYPE=Submit VALUE=" Edit "></TD></FORM>
</TR>~;
}
print qq~</TABLE></TD></TR></TABLE><TD><TR></table>~;
}

sub reset{

        @new_array = ();
        if (-e "$data_file"){
        $error_message="Cannot create temporary data file - make sure directory permissions are set to chmod 777";
        while (-e "$data_file.tmp"){
        sleep(1);
        }
        open(TEMPFILE,">$data_file.tmp") || &error;
        $error_message="Cannot open data file - make sure permissions are set to chmod 777";
        open(DATAFILE,"$data_file") || &error;
        }else{
        $error_message="Ad data file not found";
        &error;
        }
        @ad_file = <DATAFILE>;
        close(DATAFILE);
        foreach $ad (@ad_file) {
                ($ad_id,$impressions,$clicks,$weight,$ad_name,$ad_html) = split(/\|/, $ad);
                $impressions = 0;
                $clicks = 0;
                $new_line = "$ad_id\|$impressions\|$clicks\|$weight\|$ad_name\|$ad_html\n";
                push (@new_array, $new_line);
        }

        foreach $new_line (@new_array){
                if (length($new_line) < 1){
                next;
                }
    $new_line=~s/\ \ +/\ /g;
        $new_line=~s/\n//g;
        $new_line=~s/\r//g;
        print TEMPFILE "$new_line\n";
        }
        close(TEMPFILE);
        chmod oct 777,("$data_file.tmp");
        $error_message="Cannot rename temp file to master file after edit - make sure directory permissions are set to chmod 777";
        rename("$data_file.tmp", "$data_file") || &error;

if (-e "$gtext_file"){
        open(GTEXTFILE,"$gtext_file") || &error_gtext;
        $gtext_data = <GTEXTFILE>;
        close(GTEXTFILE);
        chop ($gtext_data);
        ($gtext_impressions, $gtext_clicks, $gtext_text, $gtext_color, $gtext_url, $text_target) = split(/\|/, $gtext_data);
        $gtext_impressions = 0;
        $gtext_clicks = 0;
        open(GTEXTFILE,">$gtext_file") || &error_gtext_make;
        print GTEXTFILE "$gtext_impressions\|$gtext_clicks\|$gtext_text\|$gtext_color\|$gtext_url\|$text_target\n";
        close(GTEXTFILE);
        }
}

sub delete{

        @new_array = ();
        if (-e "$data_file"){
        $error_message="Cannot create temporary data file - make sure directory permissions are set to chmod 777";
        while (-e "$data_file.tmp"){
        sleep(1);
        }
        open(TEMPFILE,">$data_file.tmp") || &error;
        $error_message="Cannot open data file - make sure permissions are set to chmod 777";
        open(DATAFILE,"$data_file") || &error;
        }else{
        $error_message="Ad data file not found";
        &error;
        }
        @ad_file = <DATAFILE>;
        close(DATAFILE);
        $line=0;
        foreach $ad (@ad_file) {
        $line++;
                if ($line != $line_to_delete){
                push (@new_array, $ad);
                }
        }

        foreach $new_line (@new_array){
                if (length($new_line) < 1){
                next;
                }
    $new_line=~s/\ \ +/\ /g;
        $new_line=~s/\n//g;
        $new_line=~s/\r//g;
        print TEMPFILE "$new_line\n";
        }
        close(TEMPFILE);
        chmod oct 777,("$data_file.tmp");
        $error_message="Cannot rename temp file to master file after edit - make sure directory permissions are set to chmod 777";
        rename("$data_file.tmp", "$data_file") || &error;
}

sub save{

        @new_array = ();
        $changed_line="$ad_id\|$impressions\|$clicks\|$weight\|$ad_name_value\|$ad_input_value";
        if (-e "$data_file"){
        $error_message="Cannot create temporary data file - make sure directory permissions are set to chmod 777";
        while (-e "$data_file.tmp"){
        sleep(1);
        }
        open(TEMPFILE,">$data_file.tmp") || &error;
        $error_message="Cannot open data file - make sure permissions are set to chmod 777";
        open(DATAFILE,"$data_file") || &error;
        }else{
        $error_message="Ad data file not found";
        &error;
        }
        @ad_file = <DATAFILE>;
        close(DATAFILE);
        $line=0;
        foreach $ad (@ad_file) {
        $line++;
                if ($line != $line_to_change){
                push (@new_array, $ad);
                }elsif ($line = $line_to_change){
                push (@new_array, $changed_line);
                }
        }
        foreach $new_line (@new_array){
                if (length($new_line) < 1){
                next;
                }
    $new_line=~s/\ \ +/\ /g;
        $new_line=~s/\n//g;
        $new_line=~s/\r//g;
        print TEMPFILE "$new_line\n";
        }
        close(TEMPFILE);
        chmod oct 777,("$data_file.tmp");
        $error_message="Cannot rename temp file to master file after edit - make sure directory permissions are set to chmod 777";
        rename("$data_file.tmp", "$data_file") || &error;
}

sub view_ad{

        @new_array = ();

        if (-e "$data_file"){
        $error_message="Cannot open data file - make sure permissions are set to chmod 777";
        open(DATAFILE,"$data_file") || &error;
        }else{
        $error_message="Ad data file not found";
        &error;
        }
        @ad_file = <DATAFILE>;
        close(DATAFILE);
        $line=0;
        foreach $ad (@ad_file) {
        $line++;
                if ($line != $line_to_view){
                push (@new_array, $ad);
                }
        }

        $selected_line=$ad_file[$line_to_view - 1];{
        ($ad_id,$impressions,$clicks,$weight,$ad_name,$ad_html) = split(/\|/, $selected_line);
        }
        $ad_html=~s/\%7C/\|/g;
        print qq~
<TABLE BORDER="0" CELLSPACING="2" CELLPADDING="1">
<TR><TD>&nbsp;</TD><TD>$ad_html</TD></TR>
<FORM  NAME="banner" ACTION="$this_URL" METHOD="POST" onSubmit="return ckinput(this)"><INPUT NAME="action" TYPE=Hidden VALUE="pre_modify">
<TR><TD>$req<FONT COLOR="\#000066" face="arial,helvetica"><B>Name:</B></FONT></TD><TD><INPUT NAME="*ad_name" TYPE=Text SIZE="40" MAXLENGTH="40" value="$ad_name"></TD></TR>

<TR><TD VALIGN="top">$req<FONT COLOR="\#000066" face="arial,helvetica"><B>HTML:</B></FONT></TD><TD><TEXTAREA NAME="*ad_html" ROWS=5 COLS=72 WRAP=Virtual>$ad_html</TEXTAREA></TD></TR>
<TR><TD><FONT COLOR="\#000066" face="arial,helvetica"><B>Weight:</B></FONT></TD><TD><INPUT NAME="weight" TYPE=Text SIZE="6" value="$weight"></TD></TR>

<TR><TD><FONT COLOR="\#000066" face="arial,helvetica"><B>Reset:</B></FONT></TD><TD><INPUT NAME="reset_count" TYPE=Checkbox VALUE="yes">&nbsp;&nbsp;<FONT COLOR="\#000066" face="arial,helvetica">(check box to reset hit counter to zero)</FONT></TD></TR>

<TR><TD>&nbsp;</TD><TD><INPUT TYPE=Button VALUE="&lt;&lt; Back" onClick="history.back(-1)"><INPUT TYPE=Submit VALUE="Preview Changes" onClick="return ckNumbers()"></TD></TR>
</TABLE>
<INPUT NAME="impressions" TYPE=hidden value="$impressions">
<INPUT NAME="clicks" TYPE=hidden value="$clicks">
<INPUT NAME="line_to_change" TYPE=Hidden VALUE="$line_to_view">
<INPUT NAME="ad_id" TYPE=Hidden VALUE="$ad_id">
</FORM>~;

}

sub create{

print qq~<FORM  NAME="banner" ACTION="$this_URL" METHOD="POST" onSubmit="return ckinput(this)"><INPUT NAME="action" TYPE=Hidden VALUE="preview">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="2" BGCOLOR="\#003366"  WIDTH="100%"><TR><TD><TABLE BORDER="0" CELLSPACING="0" CELLPADDING="6" WIDTH="100%" >

<TR ALIGN="Left" VALIGN="Middle">
        <TD COLSPAN="1"  BGCOLOR="\#FFFFFF" >$req<FONT COLOR="\#000066"><B><FONT SIZE="+1">Name:</FONT></B></FONT></TD>
        <TD COLSPAN="6"  BGCOLOR="\#FFFFFF" ><INPUT NAME="*ad_name" TYPE=Text SIZE="40" MAXLENGTH="40"></TD>
        <TD  BGCOLOR="\#FFFFFF" >&nbsp;</TD>
</TR>
<TR ALIGN="Left" VALIGN="Middle">
        <TD  BGCOLOR="\#FFFFFF" >$req<FONT COLOR="\#000066"><B>Image Location:</B></FONT></TD>
        <TD COLSPAN="6"  BGCOLOR="\#FFFFFF" ><INPUT NAME="*image_url" TYPE=Text VALUE="http://" SIZE="72"></TD>
        <TD  BGCOLOR="\#FFFFFF" >&nbsp;</TD>
</TR>
<TR ALIGN="Left" VALIGN="Middle">
        <TD  BGCOLOR="\#FFFFFF" >$req<FONT COLOR="\#000066"><B>Link URL:</B></FONT></TD>
        <TD COLSPAN="6"  BGCOLOR="\#FFFFFF" ><INPUT NAME="*link_url" TYPE=Text VALUE="http://" SIZE="72"></TD>
        <TD  BGCOLOR="\#FFFFFF" >&nbsp;</TD>
</TR>
<TR ALIGN="Left" VALIGN="Middle">
        <TD  BGCOLOR="\#FFFFFF" ><FONT COLOR="\#000066"><B>Options:</B></FONT></TD>
        <TD  BGCOLOR="\#FFFFFF" COLSPAN="2"><B>Target </B><INPUT NAME="image_target" TYPE=Text SIZE="10"></TD>
        <TD  BGCOLOR="\#FFFFFF" COLSPAN="2"><B>Border</B>&nbsp;<INPUT NAME="border" TYPE=Text SIZE="6" VALUE="0"></TD>
        <TD  BGCOLOR="\#FFFFFF" COLSPAN="2"><B>Weight</B>&nbsp;<INPUT NAME="weight" TYPE=Text SIZE="2" VALUE="1" maxlength="2"></TD>
        <TD  BGCOLOR="\#FFFFFF" >&nbsp;</TD>
</TR>
</TABLE></TD></TR></TABLE><BR>
<INPUT TYPE=Reset VALUE="Clear"><INPUT TYPE=Submit VALUE="Preview" onClick="return ckNumbers()"></FORM>~;
}

sub preview{

if ($border ne ""){
$image_border=" BORDER\=\"$border\"";
}else{
$image_border="";
}
if ($image_target ne ""){
$new_image_target=" TARGET\=\"$image_target\"";
}else{
$new_image_target="";
}

$ad="<A HREF\=\"$link_url\"$new_image_target><IMG SRC\=\"$image_url\"$image_border></A>";

$ad_input_value=$ad;
$ad_input_value=~s/\ \ +/\ /g;
$ad_input_value=~s/\n//g;
$ad_input_value=~s/\r//g;
$ad_input_value=~s/\"/\%22/g;

print qq~
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="3">
<TR>
<TD><FONT COLOR="\#000066" face="arial,helvetica"><B>Name:</B></FONT></TD>
<TD><FONT COLOR="\#000066" face="arial,helvetica">$ad_name</FONT></TD>
</TR>
<TR>
<TD><FONT COLOR="\#000066" face="arial,helvetica"><B>Weight:</B></FONT></TD>
<TD><FONT COLOR="\#000066" face="arial,helvetica">$weight</FONT></TD>
</TR>
</TABLE>
$ad


<FORM ACTION="$this_URL" METHOD="POST">
<INPUT NAME="action" TYPE=Hidden VALUE="write">
<INPUT TYPE="hidden" NAME="*ad_html" VALUE="$ad_input_value">
<INPUT TYPE="hidden" NAME="*ad_name" VALUE="$ad_name">
<INPUT NAME="ad_id" TYPE=Hidden VALUE="$ad_id">
<INPUT NAME="weight" TYPE=Hidden VALUE="$weight"><BR>
<INPUT TYPE=Button VALUE="&lt;&lt; Back" onClick="history.back(-1)"><INPUT TYPE=Submit VALUE="Install Banner">
</FORM>~;

}

sub pre_modify{

$ad_name_value=$ad_name;
$ad_name_value=~s/\"/\%22/g;
$ad_html=~s/\ \ +/\ /g;
$ad_html=~s/\n//g;
$ad_html=~s/\r//g;
$ad_input_value=$ad_html;
$ad_input_value=~s/\"/\%22/g;
if ($reset_count eq "yes"){
$impressions = 0;
$clicks = 0;
$count_status = "Reset";
}else{
$count_status = "Saved";
}

print qq~
<TABLE BORDER="0" CELLSPACING="2" CELLPADDING="1">
<TR>
<TD>&nbsp;</TD><TD>$ad_html</TD>
</TR>
<FORM ACTION="$this_URL" METHOD="POST">
<INPUT NAME="action" TYPE=Hidden VALUE="save">
<TR>
<TD><FONT COLOR="\#000066" face="arial,helvetica"><B>Name: </B></FONT></TD>
<TD><FONT COLOR="\#000066" face="arial,helvetica">$ad_name</FONT></TD>
</TR>

<TR>
<TD><FONT COLOR="\#000066" face="arial,helvetica"><B>Weight: </B></FONT></TD>
<TD><FONT COLOR="\#000066" face="arial,helvetica">$weight</FONT></TD>
</TR>
<TR>
<TD><FONT COLOR="\#000066" face="arial,helvetica"><B>Counter: </B></FONT></TD>
<TD><FONT COLOR="\#000066" face="arial,helvetica">$count_status</FONT></TD>
</TR>
<TR>
<TD>&nbsp;</TD>
<TD><INPUT TYPE=Button VALUE="&lt;&lt; Back" onClick="history.back(-1)"><INPUT TYPE=Submit VALUE="Save Changes"></TD>
</TR>
<INPUT TYPE="hidden" NAME="line_to_change" VALUE="$line_to_change">
<INPUT TYPE="hidden" NAME="*ad_html" VALUE="$ad_input_value">
<INPUT TYPE="hidden" NAME="*ad_name" VALUE="$ad_name_value">
<INPUT NAME="ad_id" TYPE=Hidden VALUE="$ad_id">
<INPUT NAME="impressions" TYPE=Hidden VALUE="$impressions">
<INPUT NAME="clicks" TYPE=Hidden VALUE="$clicks">
<INPUT NAME="weight" TYPE=Hidden VALUE="$weight">
</TABLE>
</FORM>~;

}

sub login{

print "Content-type: text/html\n\n";
print qq~<HTML><HEAD>
<TITLE>$title</TITLE>
</HEAD>
<BODY BGCOLOR="\#FFFFFF" link="#0000FF" alink="#FF0000" vlink="#0000FF">
<FORM NAME="login"ACTION="$this_URL" METHOD="POST">
<INPUT NAME="action" TYPE=Hidden VALUE="$button_title">
<TABLE BORDER="1" CELLSPACING="0" CELLPADDING="10" BGCOLOR="\#003366"  WIDTH="100%"  BORDERCOLOR="\#003366" ><TR><TD>
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="5" BGCOLOR="\#003366"  WIDTH="100%" >
<TR>
        <TD><CENTER><A HREF="http://mytwinports.com/c/index.cgi?$version"><IMG SRC="http://mytwinports.com/c/c.pl" BORDER="0" NOSAVE></A></CENTER></TD>
        <TD><CENTER><FONT SIZE="3" face="arial,helvetica" color="CCFFFF"><B>"Banner Rotation Made Simple"</B></FONT></CENTER><CENTER><FONT SIZE="1" face="arial,helvetica" color="CCFFFF"><I>Copyright &copy; 2000 Brian E. Shold<BR>
All rights reserved</I></FONT></CENTER><CENTER><FONT SIZE="1" face="arial,helvetica" color="CCFFFF"><A HREF="mailto:scripts\@mytwinports.com"><FONT COLOR="\#CCFFFF">scripts\@mytwinports.com</FONT></A></FONT></CENTER>
        <P ALIGN="center"><FONT SIZE="1" face="arial,helvetica" color="CCFFFF">Version: $version</FONT></P>
        <P ALIGN="Center"><FONT SIZE="1" face="arial,helvetica" color="CCFFFF"><SCRIPT SRC="http://www.mytwinports.com/c/version.pl?$version"></SCRIPT></FONT></P></TD>
</TR>
<TR>
        <TD COLSPAN="2" ><HR></TD>
</TR>
<TR>
        <TD COLSPAN="2"><CENTER><FONT SIZE="3" face="arial,helvetica" color="CCFFFF"><B>Password: <INPUT NAME="password" TYPE=Password SIZE="8">&nbsp;&nbsp;<INPUT TYPE=Submit VALUE="$button_title"></B></FONT></CENTER>
        <CENTER><FONT SIZE="3" face="arial,helvetica" color="FF0000"><B>$message</B></FONT></CENTER></TD>
</TR>

</TABLE>
</TD></TR></TABLE>
</FORM>~;
if (!-e "$pass_file"){
print qq~<BLOCKQUOTE><FONT COLOR="\#FF0000" FACE="arial,helvetica">If you get a "500 - Internal Server Error" when you submit this form, make sure the permissions for the data directory that you specified in "location.cfg" are set to chmod 777 (readable, writeable, executable by ALL) or Carousel will not be able to create the password or data files.</FONT></BLOCKQUOTE>
<BLOCKQUOTE><FONT COLOR="\#FF0000" FACE="arial,helvetica">If you get a "404" file not found, you did not set the variable "\$this_URL" to the correct location of this script in "location.cfg".</FONT></BLOCKQUOTE>~;
}

print qq~</BODY>
</HTML>~;
}

sub header{

print "Content-type: text/html\n\n";
print qq~<HTML><HEAD>
<TITLE>$title</TITLE>

<SCRIPT LANGUAGE="JavaScript">
<!-- Begin
function rmAlert(){
alert('This appears to be a \"Rich Media\" type ad banner. Carousel may not be able to count hits on this ad, but impressions will still be logged.');
}
// End -->
</SCRIPT>

<SCRIPT LANGUAGE="JavaScript">
<!-- Begin
function confirmDisable(){
var agree=confirm("Are you sure you want to remove your text link?");
if (agree)
return true;
else
return false;
}
// End -->
</SCRIPT>

<SCRIPT LANGUAGE="JavaScript">
<!-- Begin
function confirmReset(){
var agree=confirm("Are you sure you want to zero all counters?");
if (agree)
return true;
else
return false;
}
// End -->
</SCRIPT>

<SCRIPT LANGUAGE="JavaScript">
<!-- Begin
function confirmDelete(){
var agree=confirm("Are you sure you want to remove this ad?");
if (agree)
return true;
else
return false;
}
// End -->
</SCRIPT>

<script language="JavaScript">
<!--
function ckinput(which) {
var ok=true;
if (document.images) {
for (i=0;i<which.length;i++) {
var tempobj=which.elements[i];
if (tempobj.name.substring(0,1)=="*") {
if (((tempobj.type=="text"||tempobj.type=="textarea")&&(tempobj.value==''||tempobj.value=='http://'))||(tempobj.type.toString().charAt(0)=="s"&&
tempobj.selectedIndex==0)) {
ok=false;
break;
         }
      }
   }
}
if (!ok) {
alert("* All required fields have not yet been completed.");
return false;
}
else
return true;
}
//-->
</script>
<script language="JavaScript">
<!--
function ckNumbers() {

var valid = "0123456789"
var ok=true;
var temp;
                if (document.images) {
        for (var i=0; i<document.banner.weight.value.length; i++) {
temp = "" + document.banner.weight.value.substring(i, i+1);
if (valid.indexOf(temp) == "-1")
ok=false;
break;
         }
      }
if (!ok) {
alert("*Error - Weight must only contain a number.");
return false;
}
else
return true;
}
//-->
</script>
</HEAD>
<BODY BGCOLOR="\#FFFFFF" link="#0000FF" alink="#FF0000" vlink="#0000FF">
<FORM NAME="navigation" ACTION="$this_URL" METHOD="POST">
<INPUT NAME="my_password" TYPE=Hidden VALUE="$my_password">
<INPUT NAME="password" TYPE=Hidden VALUE="$form_password">
<TABLE BORDER="1" CELLSPACING="0" CELLPADDING="10" BGCOLOR="\#003366"  WIDTH="100%"  BORDERCOLOR="\#003366" ><TR><TD>
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="5" BGCOLOR="\#003366"  WIDTH="100%" >
<TR>
        <TD><CENTER><A HREF="http://mytwinports.com/c/index.cgi?$version"><IMG SRC="http://mytwinports.com/c/c.pl" BORDER="0" NOSAVE></A></CENTER></TD>
        <TD><CENTER><FONT SIZE="3" face="arial,helvetica" color="CCFFFF"><B>"Banner Rotation Made Simple"</B></FONT></CENTER><CENTER><FONT SIZE="1" face="arial,helvetica" color="CCFFFF"><I>Copyright &copy; 2000 Brian E. Shold<BR>
All rights reserved</I></FONT></CENTER><CENTER><FONT SIZE="1" face="arial,helvetica" color="CCFFFF"><A HREF="mailto:scripts\@mytwinports.com"><FONT COLOR="\#CCFFFF">scripts\@mytwinports.com</FONT></A></FONT></CENTER>
        <P ALIGN="center"><FONT SIZE="1" face="arial,helvetica" color="CCFFFF">Version: $version</FONT></P>
        <P ALIGN="Center"><FONT SIZE="1" face="arial,helvetica" color="CCFFFF"><SCRIPT SRC="http://www.mytwinports.com/c/version.pl?$version"></SCRIPT></FONT></P></TD>
</TR>
<TR>
        <TD COLSPAN="2" ><HR></TD>
</TR>
<TR>
        <TD COLSPAN="2"><CENTER><TABLE BORDER="0" CELLSPACING="2" CELLPADDING="3"><TR><TD><FONT SIZE="3" face="arial,helvetica" color="CCFFFF"><B>Select an option:</B></FONT></TD>
<TD><SELECT NAME="action" SIZE=1>
<OPTION VALUE="stats"><FONT COLOR="\#CCFFFF">View Statistics</FONT>
<OPTION VALUE="add"><FONT COLOR="\#CCFFFF">Paste Affiliate Code</FONT>
<OPTION VALUE="create"><FONT COLOR="\#CCFFFF">Create New Banner</FONT>
<OPTION VALUE="gtext"><FONT COLOR="\#CCFFFF">Text Link Setup</FONT>
<OPTION VALUE="code"><FONT COLOR="\#CCFFFF">Generate Code</FONT>
</SELECT></TD><TD><INPUT TYPE=Submit VALUE="Go"></TD></TR></TABLE></CENTER></TD>
</TR>

</TABLE>
</TD></TR></TABLE>
</FORM>
<FONT COLOR="\#000066" face="arial,helvetica" size="+1">$text</FONT><BR><BR>
~;
}

sub footer{

print qq~</BODY>
</HTML>~;
}


sub error1{
$title="CAROUSEL - Error";
&header;
print qq~<font COLOR="\#FF0000" SIZE="+1" face="arial,helvetica"><B>ERROR:</B> $error_message</font>~;
&footer;
exit;
}
sub error{
if ($error_message eq ""){
$error_message="An unknown error has occured";
}
print qq~<font COLOR="\#FF0000" SIZE="+1" face="arial,helvetica"><B>ERROR:</B> $error_message</font>~;
&footer;
exit;
}
sub error_data{
print qq~Can't open data file - check permissions~;
exit;
}
sub error_gtext{
print qq~Can't open text link file - check permissions~;
&footer;
exit;
}
sub error_gtext_banner{
print qq~Can't open text link file - check permissions~;
exit;
}
sub error_gtext_make{
print qq~Can't create text link file - check directory permissions~;
&footer;
exit;
}
sub error_pass{
print qq~Can't create password file - check permissions~;
exit;
}

&show_banner;
exit;