home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Postcards / send / preview.cgi < prev    next >
Encoding:
Text File  |  2017-09-22  |  2.3 KB  |  68 lines
  1. #!/user/a61/perl/bin/perl
  2. # #!/usr/local/bin/perl
  3.  
  4. $input_error = "Cannot process input";
  5. $file_error = "Cannot open file";
  6.  
  7.  
  8. # Read arguments
  9. if ($#ARGV == 1) {
  10.    $message_input = @ARGV[0];
  11.    $postcard_input = @ARGV[1];
  12.    # if ( !($arg eq "Greetings" || $arg eq "Merry" || $arg eq "Happy") ) {
  13.       # print "Usage: message.cgi [Greetings|merry|Happy]\n";
  14.       # exit(0);
  15.    # }
  16. }
  17. else {
  18.    # print "Usage: message.cgi [Greetings|merry|Happy]\n";
  19.    exit(0);
  20. }
  21.  
  22.  
  23. # HTML output
  24. # 
  25. print "Content-Type: text/html \n\n";
  26. print "<HTML><HEAD><title>Postcard Preview</title></HEAD>\n";
  27.  
  28. print "<BODY background=\"/Images/expo_hbk_01.gif\" BGCOLOR=\"#FFFFFF\" TEXT=\"#000000\" LINK=\"#97694F\" VLINK=\"#42426f\"> \n";
  29.  
  30. print "<a href=\"/main.html\"><img align=\"left\" width=\"533\" height=\"127\" SRC=\"/Images/fair_header.gif\" border=\"0\"></a> <br clear=\"all\"> \n";
  31.  
  32.  
  33. print "<form method=\"post\" action=\"http://amsterdam.park.org/Postcards/send/send.cgi\">\n";
  34. print "<input type=\"hidden\" name=\"message\" value=\"$message_input\">\n";
  35. print "<input type=\"hidden\" name=\"postcard\" value=\"$postcard_input\">\n";
  36.  
  37. print "<table cellspacing=\"10\" cellpadding=\"0\">\n";
  38. print "<tr>\n";
  39. print "<td rowspan=\"3\" width=\"75\">\n";
  40. print "<img src=\"../pictures/empty.gif\" width=\"75\">\n";
  41. print "</td>\n";
  42. print "<td align=\"left\" valign=\"center\">\n";
  43. print "<h2>Preview</h2>\n";
  44. print "<img src=\"../createPostcard.cgi?$message_input+$postcard_input\" width=\"250\" height=\"150\">\n";
  45. print "</td>\n";
  46. print "</tr>\n";
  47. print "<tr>\n";
  48. print "<td align=\"left\" valign=\"center\">\n";
  49. print "Now all you have to do is to write the backside of the postcard:<p>\n";
  50. print "Please fill in your name:<br>\n";
  51. print "<input type=\"text\" name=\"sender\" size=\"20\" maxlength=\"80\">\n";
  52. print "<p>the <b>e-mail</b> address of the receiver:<br>\n";
  53. print "<input type=\"text\" name=\"receiver\" size=\"20\" maxlength=\"80\">\n";
  54. print "<p>and some text accompanying the postcard, please:<br>\n";
  55. print "<textarea name=\"text\" cols=\"35\" rows=\"7\" wrap=\"physical\">\n";
  56. print "</textarea>\n";
  57. print "</td>\n";
  58. print "</tr>\n";
  59. print "<tr>\n";
  60. print "<td align=\"left\" valign=\"center\">\n";
  61. print "<input type=\"submit\" value=\"   Send!   \">\n";
  62. print "</td>\n";
  63. print "</tr>\n";
  64. print "</table>\n";
  65. print "</form>\n";
  66.  
  67. print "</BODY></HTML>\n";
  68.