require "config.pl"; &parse_html; &parse_query; if($query{'action'} eq "") { print "Content-type: text/html\n\n"; print <

Add Your Site To The $site_title

HTML open(DATA, "$cgi_dir/addsite.dat"); while () { print "$_"; } close(DATA); print <
E-Mail Address:

Site Title:

Site URL:

Site Description:

Banner URL:

Desired Username:

Desired Password:

HTML &scs_footer; } elsif($query{'action'} eq "add") { if(-e "$data_dir/$form{'id'}" || $form{'id'} eq "rerank") { print "Content-type: text/html\n\n"; print "

Sorry, That Username Is Taken

"; print "Use your browsers back button and select another username"; } else { &addMember; if($good_input) { &printConfirm; } } } #################################### # Adds a member to the list # sub addMember { $good_input = 1; if($form{'title'} eq "" || $form{'url'} eq "http://" || $form{'descrip'} eq "" || $form{'email'} eq "" || $form{'password'} eq "" || $form{'id'} eq "") { $good_input = 0; print "Content-type: text/html\n\n"; print "You forgot to fill in one or more fields.
Press your browsers back button"; print " and fill in these required fields:
"; print "
    "; if($form{'url'} eq "http://") { print "
  • Web Site URL"; } if($form{'descrip'} eq "") { print "
  • Site Description"; } if($form{'email'} eq "") { print "
  • E-Mail Address"; } if($form{'title'} eq "") { print "
  • Site Title"; } if($form{'id'} eq "") { print "
  • Username"; } if($form{'password'} eq "") { print "
  • Password"; } print "
"; } } ################################## # Prints the page to confirm the # site has been added to the list # sub printConfirm { $password = crypt($form{'password'}, "aa"); open(DATA, ">$data_dir/$form{'id'}"); print DATA "0|0|0|0|$form{'url'}|$form{'title'}|$form{'descrip'}|$form{'email'}|$form{'banner'}|$password|"; close(DATA); chmod(0666, "$data_dir/$form{'id'}"); print "Content-type: text/html\n\n"; print <

Addition Successful

Your information has been recorded and you
may now begin sending hits to our top list.

Here's the information you submitted:

USERNAME $form{'id'}
PASSWORD $form{'password'}
SITE TITLE $form{'title'}
SITE URL $form{'url'}
BANNER URL HTML if($form{'banner'} ne "") { print "$form{'banner'}"; } else { print "NO BANNER"; } print <
E-MAIL ADDRESS $form{'email'}
DESCRIPTION $form{'descrip'}

BANNER
HTML if($form{'banner'} ne "") { print qq||; } else { print qq|NO BANNER|; } print <

Linking Information

Now just place a link on your site that points to:
$cgi_url/rankem.cgi?action=in&id=$form{'id'}

Follow the link below to get acceptable banners
and text to use for your links.

Banners And Text Links HTML &scs_footer; open (MAIL,"|$mailCmd -t"); print MAIL "To: $form{'email'}\nFrom: $myEmail\n"; print MAIL "Subject: Welcome To The $site_title\n\n"; print MAIL "Welcome to the $site_title Top List.\n"; print MAIL "You can begin sending hits to the list at any time\n"; print MAIL "and you will be listed, if you send enough hits, at the\n"; print MAIL "next update. Below is your linking information.\n\n"; print MAIL "URL to send hits to:\n"; print MAIL "$cgi_url/rankem.cgi?action=in&id=$form{'id'}\n\n"; print MAIL "URL to get banners and text links:\n"; print MAIL "$recip_url\n\n"; print MAIL "Thanks for joining,\nWebmaster, $site_title\n"; print MAIL "$html_url/rankem.html"; close (MAIL); }

Make your own free website on Tripod.com