home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Postcards / send / send.cgi < prev    next >
Encoding:
Text File  |  2017-09-22  |  5.8 KB  |  187 lines
  1. #!/user/a61/perl/bin/perl
  2. # #!/usr/local/bin/perl
  3.  
  4.        print "Location: over.html\n\n";
  5.        exit 0;
  6.  
  7. $input_error = "Cannot process input";
  8. $file_error = "Cannot open file";
  9.  
  10. $form_message = "message";
  11. $form_postcard = "postcard";
  12. $form_sender = "sender";
  13. $form_receiver = "receiver";
  14. $form_text = "text";
  15.  
  16. $dir = "../postcards/";
  17. $extension = ".html";
  18.  
  19. # Read CGI input
  20. # split pairs in variables.
  21. #
  22. read (STDIN, $input, $ENV{'CONTENT_LENGTH'});
  23. @pairs = split (/&/, $input);
  24. if (scalar(@pairs) == 5) {
  25.    foreach $pair (@pairs) {
  26.       ($attribute, $value) =  split (/=/, $pair);
  27.       $value =~ tr/+/ /;
  28.       $value =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack ("C", hex ($1))/eg;
  29.  
  30.       if ($attribute eq $form_message) {
  31.          $message_input = $value;
  32.       }
  33.       if ($attribute eq $form_postcard) {
  34.          $postcard_input = $value;
  35.       }
  36.       if ($attribute eq $form_sender) {
  37.          $sender_input = $value;
  38.       }
  39.       if ($attribute eq $form_receiver) {
  40.          $receiver_input = $value;
  41.       }
  42.       if ($attribute eq $form_text) {
  43.          $text_input = $value;
  44.       }
  45.    }
  46. }
  47. else {
  48.    print "$input_error\n";
  49.    exit 0;
  50. }
  51.  
  52.  
  53. # Process Card
  54. #
  55. &makeFileName;
  56. &sendMail;
  57. &writeToFile;
  58.  
  59. # HTML output
  60. # 
  61. print "Content-Type: text/html \n\n";
  62. print "<HTML><HEAD><title>Postcard</title></HEAD>\n";
  63.  
  64. print "<BODY background=\"/Images/expo_hbk_01.gif\" BGCOLOR=\"#FFFFFF\" TEXT=\"#000000\" LINK=\"#97694F\" VLINK=\"#42426f\"> \n";
  65.  
  66. print "<a href=\"/main.html\"><img align=\"left\" width=\"533\" height=\"127\" SRC=\"/Images/fair_header.gif\" border=\"0\"></a> <br clear=\"all\"> \n";
  67.  
  68. print "<table cellspacing=\"10\" cellpadding=\"0\">\n";
  69. print "<tr>\n";
  70. print "<td rowspan=\"2\" width=\"75\">\n";
  71. print "</td>\n";
  72. print "<td align=\"left\" valign=\"center\">\n";
  73. print "<h2>Thanks</h2>\n";
  74. print "Thank you for sending a postcard!\n";
  75. print "<p>\n";
  76. print "\"$password\" is the password we send to $receiver_input.\n";
  77. print "<br><font size=\"-1\">(<a target=\"_top\" href=\"../receive/\">have a look yourself,</a>)</font>\n";
  78. print "</td>\n";
  79. print "</tr>\n";
  80. print "<tr>\n";
  81. print "<td align=\"left\" valign=\"center\">\n";
  82. print "<a target=\"_top\" href=\"../\">Back To The Postcards Page</a>\n";
  83. print "</td>\n";
  84. print "</tr>\n";
  85. print "</table>\n";
  86.  
  87. print "</BODY></HTML>\n";
  88.  
  89.  
  90. sub makeFileName {
  91.  
  92.     if ( $receiver_input =~ /^([^\@]*)\@([^\.]*)\.(.*)/ ) {
  93.         $base = $1;
  94.         $domain = $2;
  95.         $country = $3;
  96.     }
  97.     else {
  98.        print "Location: try_again.html\n\n";
  99.        exit 0;
  100.     }
  101.  
  102.     if (! ((length($base) gt 0) &&  (length($domain) gt 0) && (length($country) gt 0)) ) {
  103.        print "Location: try_again.html\n\n";
  104.        exit 0;
  105.     }
  106.  
  107.     srand();
  108.     $status=1;
  109.     while ($status) {
  110.         $number = int(rand(9999)) + 1;
  111.         $password = $base."_".$number;
  112.         $file = $dir.$password;
  113.         $file = $file.$extension;
  114.         if ( !(-e $file) ) {
  115.             # ***** possible LOOP, after 9999 files it looks further!
  116.             $status=0;
  117.         }
  118.     }
  119. }
  120.  
  121. sub sendMail {
  122.  
  123.    push (@out, "\n");
  124.    push (@out, "$sender_input send you a postcard!\n\n");
  125.    push (@out, "You can pick it up in the Internet 1996 World Exposition.\n");
  126.    push (@out, "(http://park.org/)\n");
  127.    push (@out, "The address were to find your postcard is:\n\n");
  128.    push (@out, "    http://amsterdam.park.org/Postcards/\n\n");
  129.    push (@out, "Your password is:\n\n");
  130.    push (@out, "    $password\n\n");
  131.    push (@out, "Thank You!\n\n\n");
  132.    push (@out, "----------------------------------------------------------\n\n");
  133.    push (@out, "This message is automatically generated from the web.\n");
  134.    push (@out, "It is from the Internet 1996 World Exposition.\n");
  135.    push (@out, "We are *not* responsible for this mail\n");
  136.    push (@out, "and the content of your postcard.\n\n");
  137.    push (@out, "----------------------------------------------------------\n\n");
  138.  
  139.    open(MAIL, "|/usr/ucb/mail -s postcard $receiver_input");
  140.    print MAIL "@out";
  141.    close(MAIL);
  142.  
  143. }
  144.  
  145. sub writeToFile {
  146.  
  147.     open (W_FILE, ">>$file");
  148.  
  149.     print W_FILE "<HTML><HEAD><title>Flower Postcards</title></HEAD>\n";
  150.     print W_FILE "<BODY BGCOLOR=\"#FFFFFF\" TEXT=\"#000000\" LINK=\"#000000\" ALINK=\"#000000\" VLINK=\"#000000\"> \n";
  151.  
  152.     print W_FILE "<table cellspacing=\"10\" cellpadding=\"0\" width=\"100%\">\n";
  153.     print W_FILE "<tr>\n";
  154.     print W_FILE "<td rowspan=\"4\">\n";
  155.     print W_FILE "</td>\n";
  156.     print W_FILE "<td align=\"center\" valign=\"center\" width=\"60%\">\n";
  157.     print W_FILE "<a href=\"/About/index.text.html\"><img align=\"left\" width=\"533\" height=\"127\" ALT=\"[INTERNET 1996 WORLD EXPOSITION]\" SRC=\"/Images/fair_header.gif\" border=\"0\"></a><br clear=\"all\"><br>\n";
  158.     print W_FILE "This is your postcard from <b>$sender_input</b>!<br>\n";
  159.     print W_FILE "</td>\n";
  160.     print W_FILE "<td rowspan=\"4\">\n";
  161.     print W_FILE "</td>\n";
  162.     print W_FILE "</tr>\n";
  163.     print W_FILE "<tr>\n";
  164.     print W_FILE "<td align=\"center\" valign=\"center\" width=\"60%\">\n";
  165.     print W_FILE "<img src=\"../createPostcard.cgi?$message_input+$postcard_input\" alt=\"Generating postcard, please wait...\">\n";
  166.     print W_FILE "</td>\n";
  167.     print W_FILE "</tr>\n";
  168.     print W_FILE "<tr>\n";
  169.     print W_FILE "<td align=\"center\" valign=\"center\" width=\"525\">\n";
  170.     print W_FILE "<pre><i>$text_input</i></pre>\n";
  171.     print W_FILE "</td>\n";
  172.     print W_FILE "</tr>\n";
  173.     print W_FILE "<tr>\n";
  174.     print W_FILE "<td align=\"left\" valign=\"center\" width=\"525\">\n";
  175.     print W_FILE "<font size=\"-1\">\n";
  176.     print W_FILE "<a href=\"../\">Back To The Postcards Page</a><br>\n";
  177.     print W_FILE "<a href=\"/\">To The Internet 1996 World Exposition!</a><br>\n";
  178.     print W_FILE "</font>\n";
  179.     print W_FILE "</td>\n";
  180.     print W_FILE "</tr>\n";
  181.     print W_FILE "</table>\n";
  182.     
  183.     print W_FILE "</BODY></HTML>\n";
  184.  
  185.     close(W_FILE);
  186. }
  187.