home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / cgi-bin / form-mail.fairmaster.old < prev    next >
Text File  |  2017-09-21  |  7KB  |  201 lines
  1. #!/usr/local/bin/perl -- -*-perl-*-
  2.  
  3. # ------------------------------------------------------------
  4. # Form-mail.pl, by Reuven M. Lerner (reuven@the-tech.mit.edu).
  5. #
  6. # Last updated: March 2, 1994
  7. #
  8. # Form-mail provides a mechanism by which users of a World-
  9. # Wide Web browser may submit comments to the webmasters
  10. # (or anyone else) at a site.  It should be compatible with
  11. # any CGI-compatible HTTP server.
  12. # 
  13. # Please read the README file that came with this distribution
  14. # for further details.
  15. # ------------------------------------------------------------
  16.  
  17. # ------------------------------------------------------------
  18. # This package is Copyright 1994 by The Tech. 
  19.  
  20. # Form-mail is free software; you can redistribute it and/or modify it
  21. # under the terms of the GNU General Public License as published by the
  22. # Free Software Foundation; either version 2, or (at your option) any
  23. # later version.
  24.  
  25. # Form-mail is distributed in the hope that it will be useful, but
  26. # WITHOUT ANY WARRANTY; without even the implied warranty of
  27. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  28. # General Public License for more details.
  29.  
  30. # You should have received a copy of the GNU General Public License
  31. # along with Form-mail; see the file COPYING.  If not, write to the Free
  32. # Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  33. # ------------------------------------------------------------
  34.  
  35. # Define fairly-constants
  36.  
  37. # This should match the mail program on your system.
  38. $mailprog = '/usr/lib/sendmail -odq';
  39.  
  40. # This should be set to the username or alias that runs your
  41. # WWW server.
  42. $recipient = 'fairmaster@park.org';
  43.  
  44.  
  45. # Print out a content-type for HTTP/1.0 compatibility
  46. print "Content-type: text/html\n\n";
  47.  
  48. if ($ENV{'CONTENT_LENGTH'} <= 0) {
  49.     $reference = $ENV{'QUERY_STRING'} ;
  50.     $reference =~ tr/+/ /s;
  51.  
  52.     print <<EoI;
  53.  
  54. <head><title>Comments to Fair Administration</title></head>
  55. <BODY BGCOLOR="#FFFFFF" background="/Images/expo_hbk_01.gif" TEXT="#000000" LINK="#97694F" VLINK="#42426f">
  56.  
  57. <a href="/cgi-bin/imagemap/Images/htoolbar.map">
  58. <img align="left" width="486" height="101" 
  59. SRC="/Images/htoolbar.gif" ISMAP border="0"></a>
  60. <br clear="all">
  61.  
  62. <table width="600" height="0"  border="0" cellpadding="0" cellspacing="0">
  63.     <tr>
  64.         <td align="left" valign="top" width="100" height="26" colspan="2">
  65.     </td></tr>
  66. <tr>
  67. <td align="left" valign="top" width="100" >
  68. <td align="left" valign="top" width="500"  >
  69. <p>
  70.  
  71. <Head><Title>Comments to the Internet 1996 World Exposition</Title></Head>
  72. <Body>
  73. <font size="+2"><b>Comments to Fair Administration</font size="+2"></b>
  74.  
  75. <p>
  76. Please enter any comments you might have in the space below, and
  77. select the "Send comments" button when you are through.
  78. If your browser doesn't support forms, 
  79. <a href="mailto:fairmaster@park.org">mail</a> us your comments.
  80. <p>
  81.  
  82. <Form method=POST action="/cgi-bin/form-mail.fairmaster">
  83.  
  84. <inPUT NAME="username"> Your E-Mail Address<br>
  85. <inPUT NAME="realname"> Your Name<br>
  86. <inPUT NAME="url"> Relevant URL<br>
  87. <inPUT NAME="subject" Value="$reference" > Subject<P>
  88. <inPUT NAME="about" Value="$ENV{'HTTP_REFERER'}" Type="hidden">
  89. Please enter any comments you might have in the space below:<P>
  90.  
  91. <TEXTAREA NAME="comments" ROWS="10" COLS="70"></TEXTAREA><P>
  92.  
  93. <P>
  94.  
  95. <Input TYPE="submit" VALUE="Send comments">
  96. <Input TYPE="reset" VALUE="Erase comments"><p>
  97. </Form>
  98.  
  99.     </td>
  100.     </tr>
  101. </table>
  102. </body>
  103. </HTML>
  104.  
  105. EoI
  106.  
  107. } else {
  108.     # Print a title and initial heading
  109.     print "<Head><Title>Thank you</Title></Head>";
  110.  
  111.     # Make the person feel good for writing to us
  112.  
  113. print "<BODY BGCOLOR=\"#FFFFFF\" background=\"/Images/expo_hbk_01.gif\" TEXT=\"#000000\" LINK=\"#97694F\" VLINK=\"#42426f\">";
  114. print "";
  115. print "<a href=\"/cgi-bin/imagemap/Images/htoolbar.map\">";
  116. print "<img align=\"left\" width=\"486\" height=\"101\" ";
  117. print "SRC=\"/Images/htoolbar.gif\" ISMAP border=\"0\"></a>";
  118. print "<br clear=\"all\">";
  119. print "";
  120. print "<table width=\"600\" height=\"0\"  border=\"0\" cellpadding=\"0\" cellspacing=\"0\">";
  121. print "    <tr>";
  122. print "        <td align=\"left\" valign=\"top\" width=\"100\" height=\"26\" colspan=\"2\">";
  123. print "    </td></tr>";
  124. print "<tr>";
  125. print "<td align=\"left\" valign=\"top\" width=\"100\" >";
  126. print "<td align=\"left\" valign=\"top\" width=\"500\"  >";
  127. print "<p>";
  128. print "<font size=\"+2\"><b>Thank You!</font size=\"+2\"></b>";
  129. print "";
  130. print "<p>";
  131.  
  132.  
  133.     # Get the input
  134.         read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
  135.         # Split the name-value pairs
  136.         @pairs = split(/&/, $buffer);
  137.         foreach $pair (@pairs) {
  138.            ($name, $value) = split(/=/, $pair);
  139.  
  140.            # Un-Webify plus signs and %-encoding
  141.            $value =~ tr/+/ /;
  142.            $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  143.  
  144.            # Stop people from using subshells to execute commands
  145.            $value =~ s/~!/ ~!/g;
  146.             $FORM{$name} = $value;
  147.         }
  148.  
  149. print "Thank you for your comments regarding:";
  150. print "<ul>  $FORM{'subject'} </ul><p>";
  151. print "";
  152.         if (! $FORM{'username'} || ! $FORM{'subject'} || ! $FORM{'comments'}) {
  153.                 print "<p>However, messages with no email address, subject or comments will not be sent.";
  154.                 print "<p>";
  155.         } else {
  156.                 # Now send mail to $recipient
  157.                 &send_mail;
  158.         }
  159.  
  160. print "    </td></tr></table>";
  161. print "";
  162. print "    </td>";
  163. print "    </tr>";
  164. print "</table>";
  165. print "";
  166. print "";
  167. print "</body>";
  168. print "</HTML>";
  169.  
  170. }
  171. exit 0;
  172.  
  173. #
  174. #  send mail message
  175. #
  176. sub send_mail {
  177.     local($about) = $FORM{'about'};
  178.  
  179.     open (MAIL, "|$mailprog $recipient ") || die "Can't open $mailprog!\n";
  180.     print MAIL "Reply-to: $FORM{'username'} ($FORM{'realname'})\n";
  181.     print MAIL "Subject: $FORM{'subject'}\n\n";
  182.     print MAIL "$FORM{'username'} ($FORM{'realname'}) sent the following\n";
  183.     print MAIL "comment about $about:\n";
  184.     print MAIL  "------------------------------------------------------------\n";
  185.     print MAIL "URL: $FORM{'url'}\n";
  186.     print MAIL "$FORM{'comments'}";
  187.     print MAIL "\n------------------------------------------------------------\n";
  188.     print MAIL "Server name: $ENV{'SERVER_NAME'}\n";
  189.     print MAIL "Gateway Interface: $ENV{'GATEWAY_INTERFACE'}\n";
  190.     print MAIL "Path Info: $ENV{'PATH_INFO'}\n";
  191.     print MAIL "Path Translated: $ENV{'PATH_TRANSLATED'}\n";
  192.     print MAIL "Script Name: $ENV{'SCRIPT_NAME'}\n";
  193.     print MAIL "Server protocol: $ENV{'SERVER_PROTOCOL'}\n";
  194.     print MAIL "Remote host: $ENV{'REMOTE_HOST'}\n";
  195.     print MAIL "Remote IP address: $ENV{'REMOTE_ADDR'}\n";
  196.     print MAIL "User Agent: $ENV{'HTTP_USER_AGENT'}\n"
  197.       if defined($ENV{'HTTP_USER_AGENT'});
  198.     close (MAIL);
  199. }
  200.  
  201.