#!/usr/bin/perl5
###################################################################################
##  Rank 'Em v1.30                                                               ##
###################################################################################
##  Created On: July 11, 1998                                                    ##
##  Last Updated: September 21, 1998                                             ##
##  cgiworks@hotmail.com                                                         ##
##  http://www.cgi-works.net                                                     ##
##  Copyright © 1998 CGI Works. All Rights Reserved                              ##
###################################################################################
##                                                                               ##
##  Copyright Notice                                                             ##
##  ----------------                                                             ##
##  This script is not freeware.  Any redistribution of this script without      ##
##  the written consent of  CGI Works is strictly prohibited.  Copying           ##
##  any of the code contained within these scripts and claiming it as your       ##
##  own is also prohibited.  You may not remove any of these header notices.     ##
##  By using this code you agree to indemnify CGI Works from any                 ##
##  liability that might arise from it's use.                                    ##
##                                                                               ##
##  Technical Support Notice                                                     ##
##  ------------------------                                                     ##
##  You will not be eligible for technical support if you modify this script     ##
##  in any way other than the variables in the config.pl file.  If it is         ##
##  required that we fix any scripts after you have modified them, you will      ##
##  be charged before any work is performed.                                     ##
##                                                                               ##
###################################################################################
##  add.cgi                                                                      ##
##  -------                                                                      ##
##  This file controls the addition of members to your top list                  ##
##  No editing needs to be done to this script.                                  ##
###################################################################################

require "config.cgi";
&parse_html;
&parse_query;

if($query{'action'} eq "") {
  print "Content-type: text/html\n\n";
  print <<HTML;
  <font face="Arial">
  <center>
  <h2>Add Your Site To The $site_title</h2>
HTML

  open(DATA, "$cgi_dir/addsite.dat");
  while(<DATA>) { print; }
  close(DATA);
  
  print <<HTML;
  <form action="add.cgi?action=add" method="post">
  <table border cellspacing=0 cellpadding=5 bgcolor="#00416B">
  <tr>
  <td bgcolor="#DCDCDC" align="right">
  <font face="Arial" size="-1">
  <b>E-Mail Address:</b>
  </td>
  <td bgcolor="white"> 
  <input type="text" size="20" name="email">
  </td>
  </tr>
  <tr>
  <td bgcolor="#DCDCDC" align="right">
  <font face="Arial" size="-1">  
  <b>Site Title:</b>
  </td>
  <td bgcolor="white"> 
  <input type="text" size="40" name="title">
  </td>
  </tr>
  <tr>
  <td bgcolor="#DCDCDC" align="right">
  <font face="Arial" size="-1">  
  <b>Site URL:</b>
  </td>
  <td bgcolor="white"> 
  <input type="text" size="50" name="url" value="http://">
  </td>
  </tr>
  <tr>
  <td bgcolor="#DCDCDC" align="right">
  <font face="Arial" size="-1">  
  <b>Site Description:</b>
  </td>
  <td bgcolor="white"> 
  <input type="text" size="60" name="descrip">
  </td>
  </tr>
HTML

  if($num_of_banners > 0) {
    print <<HTML;
    <tr>
    <td bgcolor="#DCDCDC" align="right">
    <font face="Arial" size="-1">
    <b>Banner URL:</b>
    </td>
    <td bgcolor="white"> 
    <input type="text" size="50" name="banner">
    </td>
    </tr>
HTML
  }
  
  print <<HTML;    
  <tr>
  <td bgcolor="#DCDCDC" align="right">
  <font face="Arial" size="-1">  
  <b>Desired Password:</b>
  </td>
  <td bgcolor="white"> 
  <input type="password" size="10" maxlength="8" name="password">
  </td>
  </tr>
  <tr>
  <td bgcolor="white" align="center" colspan="2"> 
  <input type="submit" value="Add My Site">  
  </td>
  </tr>
  </table>
  </form>

HTML
  &scs_footer;
}
elsif($query{'action'} eq "add")  { 
    &addMember;
    &printConfirm;
}
elsif($query{'action'} eq "edit") {
  print "Content-type: text/html\n\n";
  print <<HTML;
  <center>
  <font face="arial" size="-1">
  <h2>Edit Your Account</h2>
  <form action="add.cgi?action=printedit" method=POST>
  
  <table border cellspacing=0 cellpadding=5 bgcolor="#000000">
  <tr>
  <td bgcolor="#DCDCDC" align="right">
  <font face="Arial" size="-1">
  <b>Username:</b>
  </td>
  <td bgcolor="white">   
  <input type="text" size="10" name="id">
  </td>
  </tr>
  <tr>
  <td bgcolor="#DCDCDC" align="right">
  <font face="Arial" size="-1">   
  <b>Password:</b>
  </td>
  <td bgcolor="white">  
  <input type="password" size="10" name="password">
  </td>
  </tr>
  </table>
  <p>
  <input type="submit" value="Edit Account">
  </form>
HTML

  &scs_footer;
}
elsif($query{'action'} eq "stats") {
  print "Content-type: text/html\n\n";
  print <<HTML;
  <center>
  <font face="arial" size="-1">
  <h2>View Your Stats</h2>
  <form action="add.cgi?action=printstats" method=POST>
  <table border cellspacing=0 cellpadding=5 bgcolor="#000000">
  <tr>
  <td bgcolor="#DCDCDC" align="right">
  <font face="Arial" size="-1">
  <b>Username:</b>
  </td>
  <td bgcolor="white">   
  <input type="text" size="10" name="id">
  </td>
  </tr>
  <tr>
  <td bgcolor="#DCDCDC" align="right">
  <font face="Arial" size="-1">   
  <b>Password:</b>
  </td>
  <td bgcolor="white">  
  <input type="password" size="10" name="password">
  </td>
  </tr>
  </table>
  <p>
  <input type="submit" value="View Stats">
  </form>
HTML

  &scs_footer;
}
elsif($query{'action'} eq "printstats") {
  print "Content-type: text/html\n\n";
  if(-e "$data_dir/$form{'id'}") {
    open(DATA, "$data_dir/$form{'id'}");
    (@info) = split(/\|/, <DATA>);
    close(DATA);
    
    $pass = crypt($form{'password'}, "aa");
    if("$info[9]" eq "$pass") {
      &printStats;
    }
    else {
      &printErrorHeader("Invalid Password", "18");
      print <<HTML;
      <center>You entered an invalid username/password combination.
      </td>
      </tr>
      </table>
HTML
      exit;  
    }
  }
  else {
    &printErrorHeader("No Account Exists With Those Parameters", "18");
    print <<HTML;
    <center>You entered an invalid username, and no account could be found.
    </td>
    </tr>
    </table>
HTML
    exit; 
  }
}
elsif($query{'action'} eq "printedit") {
  print "Content-type: text/html\n\n";
  if(-e "$data_dir/$form{'id'}") {
    open(DATA, "$data_dir/$form{'id'}");
    $data = <DATA>;
    close(DATA);
    
    (@info) = split(/\|/, $data);
    $pass = crypt($form{'password'}, "aa");
    if("$info[9]" eq "$pass") {
      &printEdit;
    }
    else {
      &printErrorHeader("Invalid Password", "18");
      print <<HTML;
      <center>You entered an invalid username/password combination.
      </td>
      </tr>
      </table>
HTML
      exit;  
    }
  }
  else {
    &printErrorHeader("No Account Exists With Those Parameters", "18");
    print <<HTML;
    <center>You entered an invalid username, and no account could be found.
    </td>
    </tr>
    </table>
HTML
    exit; 
  }
}
elsif($query{'action'} eq "fedit") {
  open(DATA, ">$data_dir/$form{'member'}");
  print DATA "$form{'in'}|$form{'out'}|$form{'totalin'}|$form{'inactive'}|$form{'url'}|$form{'title'}|$form{'descrip'}|$form{'email'}|$form{'banner'}|$form{'pass'}|";
  close(DATA);
  
  open(DATA, ">$backup_dir/$form{'member'}.dat");
  print DATA "$form{'url'}|$form{'title'}|$form{'descrip'}|$form{'email'}|$form{'banner'}|$form{'pass'}|";
  close(DATA);

  print "Content-type: text/html\n\n";
  print <<HTML;
  <center>
  <font face="Arial" size="-1">
  <h2>Account Successfully Updated</h2>
  <a href="$html_url/$listPage">Back To The List</a>
HTML

  &scs_footer;
}

################################
## Adds a member to the list  ##
################################
sub addMember {
  if($ENV{'REQUEST_METHOD'} eq "GET") {
    print "Content-type: text/html\n\n";
    &printErrorHeader("Invalid script request method", "95");
    print <<HTML;
    <center>This script was accessed with an invalid request method!
    </td>
    </tr>
    </table>
HTML
    exit;
  }
  
  foreach $name (keys(%form)) {
    if($form{$name} eq "") {
      unless($num_of_banners > 0 && $name eq "banner") {
        print "Content-type: text/html\n\n";
        &printErrorHeader("Some fields were left empty", "45");
        print <<HTML;
        <center>You forgot to fill in one or more of the form fields. Go back and try again.
        </td>
        </tr>
        </table>
HTML
        exit;
      }
    }
  }  
  
  if ($form{'email'} !~ /^[\w\d][\w\d\,\.\-]*\@([\w\d\-]+\.)+([a-zA-Z]{3}|[a-zA-Z]{2})$/) {
    print "Content-type: text/html\n\n";
    &printErrorHeader("Invalid E-Mail Address", "12");
    print <<HTML;
    <center>You entered an invalid e-mail address! Go back and try again.
    </td>
    </tr>
    </table>
HTML
    exit;
  }
  
  if ($form{'url'} !~ /^http:\/\/[\w\d\-\.]+\.[\w\d\-\.]+/) {
    print "Content-type: text/html\n\n";
    &printErrorHeader("Invalid Site URL", "45");
    print <<HTML;
    <center>You entered an invalid site URL! Go back and try again.
    </td>
    </tr>
    </table>
HTML
    exit;
  }
  
  if(length($form{'password'}) > 8) {
    print "Content-type: text/html\n\n";
    &printErrorHeader("Invalid desired password", "52");
    print <<HTML;
    <center>Sorry, your password cannot be longer than 8 characters!
    </td>
    </tr>
    </table>
HTML
    exit;
  }    
}

#######################################
##  Prints the page to confirm the   ##
##  site has been added to the list  ##
#######################################
sub printConfirm {
  $randGen = time;
  srand($randGen);
  $username = int(rand(99999));
  while(-e "$data_dir/$username") {
    $username = int(rand(99999));
  }  
  $password = crypt($form{'password'}, "aa");
  
  &sendConfirmMail;
  
  open(DATA, ">$data_dir/$username") || &problem("Cannot create the user data file", "81", "add.cgi", "1", "1");
  print DATA "0|0|0|0|$form{'url'}|$form{'title'}|$form{'descrip'}|$form{'email'}|$form{'banner'}|$password|";
  close(DATA);
  
  open(BACKUP, ">$backup_dir/$username.dat") || &problem("Cannot create the user backup file", "34", "add.cgi", "1", "1");
  print BACKUP "$form{'url'}|$form{'title'}|$form{'descrip'}|$form{'email'}|$form{'banner'}|$password|";
  close(BACKUP);
  
  open(LIP, ">$backup_dir/$username.lip") || &problem("Cannot create the user IP log file", "79", "add.cgi", "1", "1");
  close(LIP);
  
  chmod(0666, "$data_dir/$username");
  chmod(0666, "$backup_dir/$username.dat");
  chmod(0666, "$backup_dir/$username.lip");

  print "Content-type: text/html\n\n";
  print <<HTML;
  <center>
  <font face="Arial" size="-1">
  <h2>Addition Successful</h2>
  Your information has been recorded and you<br> 
  may now begin sending hits to our top list.

  <p>

  Here\'s your information:

  <p>

  <table border cellspacing=0 cellpadding=5 width="50%" bgcolor="#00416B">
  <tr>
  <td bgcolor="#DCDCDC" width=\"35%\">
  <font face="Arial" size=-2>
  <b>USERNAME</b>
  </td>
  <td bgcolor="#ffffff"  width=\"65%\">
  <font face="Arial" size=-2>
  $username
  </td>
  </tr>
  <tr>
  <td bgcolor="#DCDCDC">
  <font face="Arial" size=-2>
  <b>PASSWORD</b>
  </td>
  <td bgcolor="#ffffff">
  <font face="Arial" size=-2>
  $form{'password'}
  </td>
  </tr>
  <tr>
  <td bgcolor="#DCDCDC">
  <font face="Arial" size=-2>
  <b>SITE TITLE</b>
  </td>
  <td bgcolor="#ffffff">
  <font face="Arial" size=-2>
  $form{'title'}
  </td>
  </tr>
  <tr>
  <td bgcolor="#DCDCDC">
  <font face="Arial" size=-2>
  <b>SITE URL</b>
  </td>
  <td bgcolor="#ffffff">
  <font face="Arial" size=-2>
  <a href="$form{'url'}">$form{'url'}</a>
  </td>
  </tr>
  <tr>
  <td bgcolor="#DCDCDC">
  <font face="Arial" size=-2>
  <b>BANNER URL</b>
  </td>
  <td bgcolor="#ffffff">
  <font face="Arial" size=-2>
HTML
  
  if($num_of_banners > 0 && $form{'banner'} ne "") {
    print "$form{'banner'}";
  }
  else {
    print "NO BANNER";
  }

  print <<HTML;
  </td>
  </tr>
  <tr>
  <td bgcolor="#DCDCDC">
  <font face="Arial" size=-2>
  <b>E-MAIL ADDRESS</b>
  </td>
  <td bgcolor="#ffffff">
  <font face="Arial" size=-2>
  <a href="mailto:$form{'email'}">$form{'email'}</a>
  </td>
  </tr>
  <tr>
  <td bgcolor="#DCDCDC">
  <font face="Arial" size=-2>
  <b>DESCRIPTION</b>
  </td>
  <td bgcolor="#ffffff">
  <font face="Arial" size=-2>
  $form{'descrip'}
  </td>
  </tr>  
  </table>

  <p>

  <table border cellspacing=0 cellpadding=5 width="80%" bgcolor="#00416B">
  <tr>
  <td bgcolor="#DCDCDC" align="center">
  <font face="Arial">
  <b>BANNER</b>
  </td>
  </tr>
  <tr>
  <td bgcolor="#ffffff" align="center">
HTML

  if($num_of_banners > 0 && $form{'banner'} ne "") {
    print qq|<img src="$form{'banner'}">|;
  }
  else {
    print qq|<font face="Arial">NO BANNER|;
  }

  print <<HTML;
  </td>
  </tr>
  </table>

  <p>

   <h3>Linking Information</h3>

   Now just place a link on your site that points to:<br>
   <font color="red">$cgi_url/rankem.cgi?action=in&id=$username</font>

   <p>

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

   <p>

   <a href="$recip_url">Banners And Text Links</a> 

HTML

  &scs_footer;
}

################################
##  Send confirmation E-Mail  ##
################################
sub sendConfirmMail {
  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=$username\n\n";
  print MAIL "URL to get banners and text links:\n";
  print MAIL "$recip_url\n\n";
  print MAIL "Edit Your Data:\n";
  print MAIL "$cgi_url/add.cgi?action=edit\n\n";
  print MAIL "Check Your Stats:\n";
  print MAIL "$cgi_url/add.cgi?action=stats\n\n";
  print MAIL "Your User ID: $username\n";
  print MAIL "Your Password: $form{'password'}\n\n";
  print MAIL "Thanks for joining,\nWebmaster, $site_title\n";
  print MAIL "$html_url/$listPage";
  close (MAIL);
}

###################################
##  Print edit page for members  ##
###################################
sub printEdit {
  print <<HTML; 
  <center>
  <font face="Arial" size="-1">
  <h3>Current Account Information</h3>
  <form action="add.cgi?action=fedit" method=POST>
  <table border cellspacing=0 cellpadding=5 width="70%" bgcolor="#00416B">
  <tr>
  <td bgcolor="#DCDCDC">
  <font face="Arial" size=-2>
  <b>SITE TITLE</b>
  </td>
  <td bgcolor="#ffffff">
  <font face="Arial" size=-1>
  <input type="text" size="40" name="title" value="$info[5]">
  </td>
  </tr>
  <tr>
  <td bgcolor="#DCDCDC">
  <font face="Arial" size=-2>
  <b>SITE URL</b>
  </td>
  <td bgcolor="#ffffff">
  <font face="Arial" size=-2>
  <input type="text" size="40" name="url" value="$info[4]">
  </td>
  </tr>
  <tr>
  <td bgcolor="#DCDCDC">
  <font face="Arial" size=-2>
  <b>BANNER URL</b>
  </td>
  <td bgcolor="#ffffff">
  <font face="Arial" size=-2>
HTML

  if($num_of_banners > 0) {
    print qq|<input type="text" size="40" name="banner" value="$info[8]">|;
  }
  else {
    print "NOT USING BANNERS";
   }
  
  print <<HTML;
  </td>
  </tr>
  <tr>
  <td bgcolor="#DCDCDC">
  <font face="Arial" size=-2>
  <b>E-MAIL ADDRESS</b>
  </td>
  <td bgcolor="#ffffff">
  <font face="Arial" size=-2>
  <input type="text" size="20" name="email" value="$info[7]">
  </td>
  </tr>
  <tr>
  <td bgcolor="#DCDCDC">
  <font face="Arial" size=-2>
  <b>DESCRIPTION</b>
  </td>
  <td bgcolor="#ffffff">
  <font face="Arial" size=-2>
  <input type="text" size="40" maxlength="40" name="descrip" value="$info[6]">
  </td>
  </tr>
  </table>
  <p>
  <input type="hidden" name="in" value="$info[0]">
  <input type="hidden" name="out" value="$info[1]">
  <input type="hidden" name="member" value="$form{'id'}">
  <input type="hidden" name="totalin" value="$info[2]">
  <input type="hidden" name="pass" value="$info[9]">
  <input type="hidden" name="inactive" value="$info[3]">
  <input type="Submit" name="submit" value="Edit Your Account">
  </form>
HTML

  &scs_footer;
}

####################################
##  Print stats page for members  ##
####################################
sub printStats {
  print <<HTML;
  <center>
  <table border cellspacing=0 cellpadding=3 width="25%" bgcolor="#000000">
  <tr align=center bgcolor="#AFAFAF">
  <td align=center colspan="2">
  <font face="Arial" size=-1>
  <b>STATS FOR: $form{'id'}  </b>
  </td>
  </tr>
  <tr>
  <td bgcolor="#DCDCDC" width="25%">
  <font face="Arial" size=-2>
  <b>SITE TITLE  </b>
  </td>
  <td bgcolor="#ffffff" width="50%">
  <font face="Arial" size="-2">
  $info[5]
  </td>
  </tr>
  <tr>
  <td bgcolor="#DCDCDC">
  <font face="Arial" size=-2>
  <b>HITS IN TODAY  </b>
  </td>
  <td bgcolor="#ffffff">
  <font face="Arial" size="-2">
  $info[0]
  </td>
  </tr>
  <tr>
  <td bgcolor="#DCDCDC">
  <font face="Arial" size=-2>
  <b>HITS OUT TODAY</b>
  </td>
  <td bgcolor="#ffffff">
  <font face="Arial" size="-2">
  $info[1]
  </td>
  </tr>
  <tr>
  <td bgcolor="#DCDCDC">
  <font face="Arial" size=-2>
  <b>TOTAL HITS SENT</b>
  </td>
  <td bgcolor="#ffffff">
  <font face="Arial" size="-2">
  $info[2]
  </td>
  </tr>
  </table>
HTML
  &scs_footer; 
}