#!/usr/bin/perl -w

##############################################################################
# Set Variables
##############################################################################
$date_command = "/usr/bin/date";
# Get the Date for Entry
$shortdate = `$date_command +"%D %T %Z"`; chop($shortdate);
$mail = 1;              # 1 = Yes; 0 = No
$mailprog = '/usr/sbin/sendmail';
$sendemail="";
$subjectline = "This just in from TopTenBooks.net!";
$datafile = "mailed.lst";
$header_file ="header.txt";
$footer_file ="footer.txt";

# Referrer
#----------

foreach $key (sort keys(%ENV)) {
     if ($key =~ /REF/){
     $pagelink = $ENV{$key};
   }
}


###########################
# This file mails stories #
# 8 February, 1999        #
###########################

     $path =$ENV{SCRIPT_FILENAME};
     $path =~ s/sendfriend\.cgi/\/homepage\/browse.txt/ig;
     $browsefile = $path;

#
# format ampersand to web
#


   if ($ENV{'REQUEST_METHOD'} eq 'GET') {
      # Split the name-value pairs
      @pairs = split(/&/, $ENV{'QUERY_STRING'});

   print "Content-type: text/html\n\n";

 &printHeader();     


   print "<!-- Form--->\n";
   print "<P><BR>\n";
   print "<CENTER>\n";
   print "<FORM METHOD=POST ACTION=\"sendfriend.cgi\">\n";
   print "<TABLE BORDER=0 CELLSPACING=2 CELLPADDING=2>\n";
   print "<TR> <TD VALIGN=\"top\" COLSPAN=2>\n";
   print "<CENTER><FONT FACE=\"arial,helvetica\" FONT SIZE=\"3\"><B>Send the page you were just on to a friend.</B></FONT></CENTER>\n";
   print "<CENTER><FONT FACE=\"arial,helvetica\" SIZE=\"3\">Just enter your <B>email address</B> and <BR>the address of the recipient.</FONT></CENTER></TD>\n";
   print "<TD VALIGN=\"top\" ROWSPAN=3></TD></TR>\n";
   print "<TR><TD VALIGN=\"top\" WIDTH=10> <FONT FACE=\"arial,helvetica\" SIZE=\"2\"><B>From:</B></FONT></TD>\n";
   print "<TD VALIGN=\"top\"><INPUT TYPE=TEXT NAME=\"email\" SIZE=25><BR></TD></TR>\n";
   print "<TR><TD VALIGN=\"top\"> <FONT FACE=\"arial,helvetica\" SIZE=\"2\"><B> To:</B></FONT></TD>\n";
   print "<TD VALIGN=\"top\"><INPUT TYPE=TEXT NAME=\"sent_to\" SIZE=25><BR></TD></TR>\n";
   print "<TR><TD VALIGN=\"top\" COLSPAN=2><CENTER><INPUT TYPE=\"submit\" VALUE=\"Send\"></CENTER>\n";
   print "</TD></TR></TABLE>\n";
   print "<INPUT TYPE=HIDDEN NAME=\"urllink\" VALUE=$pagelink><BR></TD></TR>\n";
   print "</FORM>\n";
   print "</CENTER>\n";
   print "<!-- Form -->\n";


 &printFooter();     



   exit;

   }

   elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {
      # Get the input
      read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

      # Split the name-value pairs
      @pairs = split(/&/, $buffer);
   }



   foreach $pair (@pairs) {
      ($name, $value) = split(/=/, $pair);
 
      $name =~ tr/+/ /;
      $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;      
      $value =~ s/<!--(.|\n)*-->//g;

      $tempvar ="$name: $value\n";


        if ($name =~ m@(urllink)@ig) {
          $urllink = $value;
        }


        if ($name =~ m@(sent_to)@ig) {
          $recipient = $value;
           if ($recipient !~ m@(\@)@ig) {
             print "Content-type: text/html\n\n";

#
# header file
#
     
 &printHeader();     


             print "<!---------------------- Content ------------------------->\n";
             print "<BR><FONT FACE=\"Arial, Helvetica\">\n";
             print "<CENTER>\n";
             print "<CENTER><B>Bad Email Address</B></CENTER><BR>\n";
             print "ALL fields must be filled out properly <BR>\n";
             print "before you can successfully submit<BR>\n";
             print "the form. Did you leave out an \@ symbol\? <BR>\n";
             print "Please return to the <a href=\"javascript:history\.back\(\)\"><FONT COLOR=000000><U>Fill Out Form</U></FONT></a> and try again.<br>\n";
             print "<P><BR><BR>\n";

#    
# footer file
#
 &printFooter();     

           exit;
       }

        }





        if ($name =~ m@(email)@ig) {
          $sendemail = $value;
        #no at symbol !
           if ($sendemail !~ m@(\@)@ig) {
             print "Content-type: text/html\n\n";

#
# header file
#
 &printHeader();     



             print "<!---------------------- Content ------------------------->\n";
             print "<BR><FONT FACE=\"Arial, Helvetica\">\n";
             print "<CENTER>\n";
             print "<CENTER><B>Bad Email Address</B></CENTER><BR>\n";
             print "ALL fields must be filled out properly <BR>\n";
             print "before you can successfully submit<BR>\n";
             print "the form. Did you leave out an \@ symbol\? <BR>\n";
             print "Please return to the <a href=\"javascript:history\.back\(\)\"><FONT COLOR=000000><U>Fill Out Form</U></FONT></a> and try again.<br>\n";
             print "<P><BR><BR>\n";

#    
# footer file
#
 &printFooter();     

           exit;
       }

        }

       push @temp, $tempvar;
      }

    splitlines();

#
# Get Referrer
#

#spam check

if ($sendemail =~ /mitigation/i){
  print "Content-type: text/html\n\n";
  print "Spam! from $rhostvar\n\n";
  exit;
}

#spam check

if ($sendemail =~ /apache/i){
  print "Content-type: text/html\n\n";
  print "Spam! from $rhostvar\n\n";
  exit;
}

#spam check

if ($recipient =~ /\,/i){
  print "Content-type: text/html\n\n";
  print "Spam! from $rhostvar\n\n";
  exit;
}

#
# Mail to organization
#

if ($mail eq '1') {
   open (MAIL, "|$mailprog -t") || die "Can't open $mailprog!\n";

   print MAIL "To: $recipient\n";
   print MAIL "From: $sendemail\n";
   print MAIL "Subject: $subjectline\n\n";
   print MAIL "------------------------------------------------------\n";
   print MAIL "$sendemail requested the following link be sent to you.\n";
   print MAIL "View the Top Ten Books.net site by clicking on the link below, or cutting and pasting it into your browser.\n";
   print MAIL "\n";
   print MAIL "\n";
   print MAIL "$urllink\n";
   print MAIL "\n";
   print MAIL "\n";
   print MAIL "\n";
   print MAIL "Top Ten Books.net\n";
   print MAIL "http://www.toptenbooks.net\n";
   print MAIL "\n";
   print MAIL "\n";

   close (MAIL);
}



#
# Write the Archive
#
    open(i,"<$datafile") || die "Can't open $_ ";
    while (!eof(i)) {
        $line = <i>;
        push @temp2, $line;
    }
    close(i);
    splitlines2();

  open(o,">$datafile");

   foreach (@lines2) { print o "$_\n"; }

   print o "$sendemail|$recipient|$urllink|$shortdate\n";

   close(o);

# Set file attribute 


# Finish...

        print "Content-type: text/html\n\n";
#
# header file
#
 &printHeader();     

             print "<!---------------------- Content ------------------------->\n";
             print "<FONT SIZE=\"3\" FACE=\"Arial, Helvetica\">\n";
             print "<BR CLEAR=ALL>\n";
             print "<FONT FACE=\"Arial, Helvetica\">\n";
             print "<CENTER>\n";
             print "<P><BR>\n";
             print "<P><BR>\n";
             print "<P><BR>\n";
             print "<B>Thank you for your interest!</B>\n";
             print "<P><BR>\n";
             print "<P><BR>\n";
             print "<P><BR>\n";
             print "<P><BR>\n";
             print "<P><BR>\n";
             print "<P><BR>\n";
             print "<P>\n";

#
# Footer file
#
 &printFooter();     

exit;

sub printHeader {

print "<html\">\n";
print "<head>\n";
print "<meta http-equiv=\"Content-Type\" content=\"text/html\"\;charset=utf-8\" />\n";
print "<title>The Top Ten\: Writers Pick Their Favorite Books</title>\n";
print "<meta http-equiv=\"imagetoolbar\" content=\"no\" /> \n";
print "<link rel=\"shortcut icon\" href=\"favicon.ico\" />\n";
print "<meta name=\"author\" content=\"Holden Richards - KitchenMedia - 109a Brewer Lane, Carrboro, North Carolina, 27510  919.929.9970\" />\n";
print "<meta name=\"mssmarttagspreventparsing\" content=\"true\">\n";
print "<style>\n";
print "body \{\n";
print "  background-color\: #c9c9c9\;\n";
print "  color\: #cc9933\;\n";
print "  font-family\: Verdana,  Helvetica, Sans-serif\;\n";
print "  font-size\: 10pt\;\n";
print "  text-align\: center\;\n";
print "\}\n";
print "div#main \{\n";
print "  width\: 800px\;\n";
print "  background-image\: url\(images/page_bg.gif\)\; \n";
print "  background-position\: 0 0\; \n";
print "  background-repeat\: repeat-y\;\n";
print "\}\n";
print "div#topBar \{\n";
print "  width\: 800px\;\n";
print "  height\: 200px\;\n";
print "  padding\: 0px 0px 0px 0px\;\n";
print "\}\n";
print "div#botBar \{\n";
print "  clear\: both\;\n";
print "  width\: 800px\;\n";
print "  height\: 17px\;\n";
print "  background-image\: url\(images/footer.gif\)\; \n";
print "  padding\: 0px 0px 0px 0px\;\n";
print "\}\n";
print "div#content \{\n";
print "  clear\: both\;\n";
print "  width\: 800px\;\n";
print "  padding\: 0px 0px 0px 0px\;\n";
print "  \}\n";
print "div#leftColumn \{\n";
print " width\: 320px\;\n";
print " right\: 320px\;            \n";
print " margin\: 0px 0px 0px 0px\;\n";
print " padding\: 0px 0px 0px 0px\;\n";
print " text-align\: center\;\n";
print " float\: left\;\n";
print "\}\n";
print "div#booksLeft \{\n";
print "  width\: 220px\;\n";
print "  right\: 220px\;            \n";
print "  text-align\: center\;\n";
print "  margin\: 0px 0px 0px 0px\;\n";
print "  padding\: 0px 0px 0px 0px\;\n";
print "\}\n";
print "div#leftContainer \{\n";
print "  clear\: both\;\n";
print "  width\: 200\;\n";
print "\* width\: 220\;\n";
print "  text-align\: center\;\n";
print "  padding\: 10px 10px 10px 10px\;\n";
print "  margin\: 0 auto\;\n";
print "  font-size\: 10px\;\n";
print "  font-family\: verdana,  Helvetica, Sans-serif\;\n";
print "\}\n";
print "div#textMain \{\n";
print " float\: right\;\n";
print " width\: 465px\;\n";
print " font\: 10pt Verdana, Helvetica, Sans-serif\; \n";
print " text-align\: left\;\n";
print " padding\: 0px 0px 0px 0px \;\n";
print " margin\: 0px 0px 0px 0px\;\n";
print "\}\n";
print "div#textContainer \{\n";
print "  clear\: both\;\n";
print "  width\: 435px\;\n";
print "  text-align\: left\;\n";
print "  margin\: 10px 0px 0px 10px\;\n";
print "\}\n";
print ".menu \{\n";
print " margin\: 3px 3px 3px 3px \;\n";
print "\}\n";
print ".book \{\n";
print " margin\: 10px 20px 10px 20px \;\n";
print "\}\n";
print "a \{\n";
print "  color\: #880000\;\n";
print "  font-weight\: bold\;\n";
print "  text-decoration\: none\;\n";
print "\}\n";
print "a.small \{\n";
print "  color\: #996600\;\n";
print "  font-weight\: bold\;\n";
print "  text-decoration\: none\;\n";
print "  font\: 10px Verdana, Helvetica, Sans-serif\; \n";
print "\}\n";
print "a.news \{\n";
print "  color\: #996600\;\n";
print "  font-weight\: bold\;\n";
print "  text-decoration\: none\;\n";
print "\}\n";
print "a.bruce \{\n";
print "  color\: #880000\;\n";
print "  font-weight\: bold\;\n";
print "  text-decoration\: none\;\n";
print "\}\n";
print "a\:hover \{\n";
print "  color\: #996600\;\n";
print "\}\n";
print "h2 \{\n";
print "  color\: #144997\;\n";
print "  font-size\: 34px\;\n";
print "  margin-top\: 0px\;\n";
print "  font-family\: Times New Roman, Times\;\n";
print "\}\n";
print "h3 \{\n";
print "  color\:  #144997\;\n";
print "  font-size\: 24px\;\n";
print "  font-family\: Times New Roman, Times\;\n";
print "\}\n";
print "h3.excerpt \{\n";
print "  color\:  #144997\;\n";
print "  font-size\: 18px\;\n";
print "  font-family\: Times New Roman, Times\;\n";
print "\}\n";
print "h4 \{\n";
print "  color\:  #996600\;\n";
print "  font-size\: 70%\;\n";
print "  font-family\: Verdana,  Helvetica, Sans-serif\;\n";
print "\}\n";
print "h4.excerpt \{\n";
print "  color\:  #996600\;\n";
print "  font-size\: 14px\;\n";
print "  font-family\: Verdana,  Helvetica, Sans-serif\;\n";
print "\}\n";
print " sup\{\n";
print "  font-size\: 11px\;\n";
print "  font-family\: Verdana,  Helvetica, Sans-serif\;\n";
print "\}\n";
print "pre \{\n";
print "  color\: #000000\;\n";
print "  font-family\: \"Courier New\", Courier, monospace\;\n";
print "  font-size\: 13px\;\n";
print "  margin-left\: 0em\;\n";
print "  text-align\: left\;\n";
print "\}\n";
print "pre b \{\n";
print "  color\: #000000\;\n";
print "  font-weight\: bold\;\n";
print "  text-decoration\: none\;\n";
print "  font-family\: Verdana, Helvetica, Sans-serif\; \n";
print "\}\n";
print "td \{\n";
print "color\: #000000\;\n";
print "font\: 11px Verdana, Helvetica, Sans-serif\; \n";
print "font-weight\: normal\;\n";
print "text-align\: left\;\n";
print "\}\n";
print "p \{\n";
print "color\: #000000\;\n";
print "font\: 13px Verdana, Helvetica, Sans-serif\; \n";
print "font-weight\: normal\;\n";
print "text-align\: justify\;\n";
print "\}\n";
print ".small \{\n";
print "font\: 10px Verdana, Helvetica, Sans-serif\; \n";
print "font-weight\: normal\;\n";
print "color\: #000000\;\n";
print "\}\n";
print "p.small \{\n";
print "font\: 10px Verdana, Helvetica, Sans-serif\; \n";
print "font-weight\: normal\;\n";
print "color\: #000000\;\n";
print "\}\n";
print "i.small \{\n";
print "font\: 10px Verdana, Helvetica, Sans-serif\; \n";
print "font-weight\: normal\;\n";
print "color\: #000000\;\n";
print "\}\n";
print "p.quote \{\n";
print "font\: 13px \"Courier New\", Courier, monospace\; \n";
print "font-weight\: bold\;\n";
print "text-align\: left\;\n";
print "color\: #880000\;\n";
print "\}\n";
print "b\{\n";
print "  color\: #144997\;\n";
print "  font-weight\: bold\;\n";
print "  text-decoration\: none\;\n";
print "\}\n";
print "b.black\{\n";
print "  color\: #000000\;\n";
print "  font-weight\: bold\;\n";
print "  text-decoration\: none\;\n";
print "\}\n";
print "a.black\{\n";
print "  color\: #000000\;\n";
print "  font-weight\: bold\;\n";
print "  text-decoration\: none\;\n";
print "\}\n";
print "a.black\:hover\{\n";
print "  color\: #000000\;\n";
print "  font-weight\: bold\;\n";
print "  text-decoration\: none\;\n";
print "\}\n";
print "b.small\{\n";
print "  color\: #000000\;\n";
print "  font-weight\: bold\;\n";
print "  text-decoration\: none\;\n";
print "  font\: 10px Arial, Helvetica, Sans-serif\; \n";
print "\}\n";
print ".black\{\n";
print "  color\: #000000\;\n";
print "  font-weight\: bold\;\n";
print "  text-decoration\: none\;\n";
print "\}\n";
print ".blackText\{\n";
print "  color\: #000000\;\n";
print "  font-weight\: normal\;\n";
print "  text-decoration\: none\;\n";
print "\}\n";
print "div#spotlight \{\n";
print "  color\: #3484C6\;\n";
print "  width\: 400px\;\n";
print "  border\: 1px solid\;\n";
print "\}\n";
print "</style>\n";
print "</head>\n";
print "<body  topmargin=0 leftmargin=0>\n";
print "<center>\n";
print "<div id=\"main\">\n";
print "<div id=\"topBar\">\n";
print "<a href=index.html><img src=\"images/header.jpg\" hspace=0 vspace=0 border=0 align=left></a>\n";
print "</div>\n";
print "<div id=\"content\">\n";
print "<!-- Futura BK BT -->\n";
print "<div id=\"leftColumn\">\n";
print "<div id=\"booksLeft\">\n";
print "<div id=\"leftContainer\">\n";
print "<center>\n";
print "<img src=images/book_lg.gif  hspace=0 vspace=0 border=0>\n";
print "<br />\n";
print "<br />\n";
print "<img src=images/menu.gif hspace=0 vspace=0 border=0 usemap=#navMap ismap>\n";
print "<br />\n";
print "<br />\n";
print "</center>\n";
print "</div>\n";
print "</div>\n";
print "</div>\n";
print "<div id=\"textMain\">\n";
print "<div id=\"textContainer\">\n";
print "<br />\n";
}


#    
# footer file
#
sub printFooter {

print "</p><p><br />\n";
print "</p><p><br />\n";
print "</div>\n";
print "</div>\n";
print "</div>\n";
print "<div id=\"botBar\">\n";
print "<img src=\"images/clear.gif\"  hspace=0 vspace=0 border=0 height=12 align=left>\n";
print "</div>\n";
print "</div>\n";
print "<br />\n";
print "<span class=small>All Material Copyright &copy\; 2007 Not for use without permission </span>\n";
print "</span></center>\n";
print "<p>\n";
print "<br />\n";
print "<map name=\"navmap\">\n";
print "<area shape=rect coords=\"5,1,122,22\" href=buy.html alt=\"buy the book\">\n";
print "<area shape=rect coords=\"6,28,124,50\" href=about.html alt=\"about the book\">\n";
print "<area shape=rect coords=\"7,56,123,79\" href=post.html alt=\"your top ten\">\n";
print "<area shape=rect coords=\"5,84,124,105\" href=editor.html alt=\"about the editor\">\n";
print "<area shape=rect coords=\"4,111,124,137\" href=list.html alt=\"the list of books\">\n";
print "<area shape=rect coords=\"4,143,124,168\" href=bookseller.html alt=\"for booksellers\">\n";
print "<area shape=default href=index.html>\n";
print "</MAP>\n";
print "</body>\n";
print "</html\">\n";

}

sub splitlines {
    @lines = ();
    foreach(@temp) {
    	$line = $_;
                        push @lines, split(/\n/, $line);
   }
    @temp = ();
}



sub splitlines2 {
    @lines = ();
    foreach(@temp2) {
    	$line = $_;
                        push @lines2, split(/\n/, $line);
   }
    @temp = ();
}