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.open < prev    next >
Text File  |  2017-09-21  |  7KB  |  207 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="/">
  58. <img align="left" width="545" height=127
  59. SRC="/Images/fair_header.gif" border="0">
  60. </a>
  61. <br clear="all">
  62.  
  63. <table width="600" height="0"  border="0" cellpadding="0" cellspacing="0">
  64.     <tr>
  65.         <td align="left" valign="top" width="100" height="26" colspan="2">
  66.     </td></tr>
  67. <tr>
  68. <td align="left" valign="top" width="100" >
  69. <td align="left" valign="top" width="500"  >
  70. <p>
  71.  
  72. <Head><Title>Comments to the Internet 1996 World Exposition</Title></Head>
  73. <Body>
  74. <font size="+2"><b>Comments to Fair Administration</font size="+2"></b>
  75.  
  76. <p>
  77. Please enter any comments you might have in the space below, and
  78. select the "Send comments" button when you are through.
  79. If your browser doesn't support forms, 
  80. <a href="mailto:fairmaster@park.org">mail</a> us your comments.
  81. <p>
  82.  
  83. <Form method=POST action="/cgi-bin/form-mail.fairmaster">
  84.  
  85. <inPUT NAME="username"> Your E-Mail Address<br>
  86. <inPUT NAME="realname"> Your Name<br>
  87. <inPUT NAME="url"> Relevant URL<br>
  88. <inPUT NAME="subject" Value="$reference" > Subject<P>
  89. <inPUT NAME="about" Value="$ENV{'HTTP_REFERER'}" Type="hidden">
  90. Please enter any comments you might have in the space below:<P>
  91.  
  92. <TEXTAREA NAME="comments" ROWS="10" COLS="50"></TEXTAREA><P>
  93.  
  94. <P>
  95.  
  96. <Input TYPE="submit" VALUE="Send comments">
  97. <Input TYPE="reset" VALUE="Erase comments"><p>
  98. </Form>
  99.  
  100.     </td>
  101.     </tr>
  102. </table>
  103.  
  104.    <p><a href="/Images/low_speed.map"><img align="left" width="638" height="87" alt="[Unreadable Image]" SRC="/Images/low_speed.gif" ISMAP border="0"></a>
  105.    <br clear="all">
  106.  
  107. </body>
  108. </HTML>
  109.  
  110. EoI
  111.  
  112. } else {
  113.     # Print a title and initial heading
  114.     print "<Head><Title>Thank you</Title></Head>";
  115.  
  116.     # Make the person feel good for writing to us
  117.  
  118. print "<BODY BGCOLOR=\"#FFFFFF\" background=\"/Images/expo_hbk_01.gif\" TEXT=\"#000000\" LINK=\"#97694F\" VLINK=\"#42426f\">";
  119. print "";
  120. print "<a href=\"/\">";
  121. print "<img align=\"left\" width=\"545\" height=\"127\" SRC=\"/Images/fair_header.gif\" border=\"0\"></a>";
  122. print "<br clear=\"all\">";
  123. print "";
  124. print "<table width=\"600\" height=\"0\"  border=\"0\" cellpadding=\"0\" cellspacing=\"0\">";
  125. print "    <tr>";
  126. print "        <td align=\"left\" valign=\"top\" width=\"100\" height=\"26\" colspan=\"2\">";
  127. print "    </td></tr>";
  128. print "<tr>";
  129. print "<td align=\"left\" valign=\"top\" width=\"100\" >";
  130. print "<td align=\"left\" valign=\"top\" width=\"500\"  >";
  131. print "<p>";
  132. print "<font size=\"+2\"><b>Thank You!</font size=\"+2\"></b>";
  133. print "";
  134. print "<p>";
  135.  
  136.  
  137.     # Get the input
  138.         read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
  139.         # Split the name-value pairs
  140.         @pairs = split(/&/, $buffer);
  141.         foreach $pair (@pairs) {
  142.            ($name, $value) = split(/=/, $pair);
  143.  
  144.            # Un-Webify plus signs and %-encoding
  145.            $value =~ tr/+/ /;
  146.            $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  147.  
  148.            # Stop people from using subshells to execute commands
  149.            $value =~ s/~!/ ~!/g;
  150.             $FORM{$name} = $value;
  151.         }
  152.  
  153. print "Thank you for your comments regarding:";
  154. print "<ul>  $FORM{'subject'} </ul><p>";
  155. print "";
  156.         if (! $FORM{'username'} || ! $FORM{'subject'} || ! $FORM{'comments'}) {
  157.                 print "<p>However, messages with no email address, subject or comments will not be sent.";
  158.                 print "<p>";
  159.         } else {
  160.                 # Now send mail to $recipient
  161.                 &send_mail;
  162.         }
  163.  
  164. print "    </td></tr></table>";
  165. print "";
  166. print "    </td>";
  167. print "    </tr>";
  168. print "</table>";
  169. print "";
  170. print "";
  171. print "<p><a href=\"/Images/low_speed.map\"><img align=\"left\" width=\"638\" height=\"87\" alt=\"[Unreadable Image]\" SRC=\"/Images/low_speed.gif\" ISMAP border=\"0\"></a>";
  172. print "<br clear=\"all\">";
  173. print "</body>";
  174. print "</HTML>";
  175.  
  176. }
  177. exit 0;
  178.  
  179. #
  180. #  send mail message
  181. #
  182. sub send_mail {
  183.     local($about) = $FORM{'about'};
  184.  
  185.     open (MAIL, "|$mailprog $recipient ") || die "Can't open $mailprog!\n";
  186.     print MAIL "Reply-to: $FORM{'username'} ($FORM{'realname'})\n";
  187.     print MAIL "Subject: $FORM{'subject'}\n\n";
  188.     print MAIL "$FORM{'username'} ($FORM{'realname'}) sent the following\n";
  189.     print MAIL "comment about $about:\n";
  190.     print MAIL  "------------------------------------------------------------\n";
  191.     print MAIL "URL: $FORM{'url'}\n";
  192.     print MAIL "$FORM{'comments'}";
  193.     print MAIL "\n------------------------------------------------------------\n";
  194.     print MAIL "Server name: $ENV{'SERVER_NAME'}\n";
  195.     print MAIL "Gateway Interface: $ENV{'GATEWAY_INTERFACE'}\n";
  196.     print MAIL "Path Info: $ENV{'PATH_INFO'}\n";
  197.     print MAIL "Path Translated: $ENV{'PATH_TRANSLATED'}\n";
  198.     print MAIL "Script Name: $ENV{'SCRIPT_NAME'}\n";
  199.     print MAIL "Server protocol: $ENV{'SERVER_PROTOCOL'}\n";
  200.     print MAIL "Remote host: $ENV{'REMOTE_HOST'}\n";
  201.     print MAIL "Remote IP address: $ENV{'REMOTE_ADDR'}\n";
  202.     print MAIL "User Agent: $ENV{'HTTP_USER_AGENT'}\n"
  203.       if defined($ENV{'HTTP_USER_AGENT'});
  204.     close (MAIL);
  205. }
  206.  
  207.