home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / cgi-bin / Japan / Examples / mail.cgi < prev    next >
Text File  |  2017-09-21  |  5KB  |  159 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. $MAILPROG = '/usr/lib/sendmail -odb';
  40.  
  41. # This should be set to the username or alias that runs your
  42. # WWW server.
  43. $RECIPIENT = 'shinoda@jaist.ac.jp';
  44. #
  45. # This name will appear in From: field.
  46. $WEBCGI = 'jaist-comment';
  47.  
  48. # This name will appear in the title and the first heading
  49. $ORGANIZATION = 'the web-master, Yoichi Shinoda';
  50.  
  51. $referer = $ENV{'HTTP_REFERER'};
  52.  
  53. # Print out a content-type for HTTP/1.0 compatibility
  54. print "Content-type: text/html\n\n";
  55.  
  56. if ($ENV{'CONTENT_LENGTH'} <= 0) {
  57.     print <<EoI;
  58. <Head><Title>Comments to the $ORG$ORGANIZATION</Title></Head>
  59. <Body><H2>Comments to $ORGANIZATION</H2>
  60.  
  61. <p>
  62. Please enter any comments you might have in the space below, and
  63. select the "Send comments" button when you are through.
  64. If your browser doesn't support forms, 
  65. <a href="mailto:$RECIPIENT">mail</a> us your comments.
  66. <p>
  67.  
  68. <Form method=POST action="/cgi-bin/Japan/Examples/mail.cgi?$referer">
  69.  
  70. <HR>
  71. <inPUT NAME="username"> Your E-Mail Address<P>
  72. <inPUT NAME="realname"> Your Name<P>
  73. <inPUT NAME="subject"> Subject<P>
  74. <inPUT NAME="about" Value="$referer" Type="hidden">
  75. Please enter any comments you might have in the space below:<P>
  76.  
  77. <TEXTAREA NAME="comments" ROWS=10 COLS=70></TEXTAREA><P>
  78.  
  79. <P>
  80.  
  81. <Input TYPE="submit" VALUE="Send comments">
  82. <Input TYPE="reset" VALUE="Erase comments"><p>
  83. </Form>
  84.  
  85. </Body>
  86.  
  87. EoI
  88.  
  89. } else {
  90.     $referer = $ARGV[0] ;
  91.     # Print a title and initial heading
  92.     print "<Head><Title>Thank you</Title></Head>";
  93.     print "<Body>";
  94.  
  95.     # Get the input
  96.     read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
  97.  
  98.     # Split the name-value pairs
  99.     @pairs = split(/&/, $buffer);
  100.  
  101.     foreach $pair (@pairs) {
  102.         ($name, $value) = split(/=/, $pair);
  103.  
  104.         # Un-Webify plus signs and %-encoding
  105.         $value =~ tr/+/ /;
  106.         $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  107.  
  108.         # Stop people from using subshells to execute commands
  109.         $value =~ s/~!/ ~!/g; 
  110.  
  111.         # Uncomment for debugging purposes
  112.         # print "Setting $name to $value<P>";
  113.  
  114.         $FORM{$name} = $value;
  115.     }
  116.  
  117.     if (! $FORM{'username'} || ! $FORM{'subject'} || ! $FORM{'comments'}) {
  118.         print "Messages with no email address, subject or comments will not be sent.";
  119.         print "<p>";
  120.     } else {
  121.         # Now send mail to $RECIPIENT
  122.         &send_mail;
  123.     }
  124.  
  125.     # Make the person feel good for writing to us
  126.     print "<hr>";
  127.     print "Your comments have been delivered.  Thank you.\n";
  128.     print "<p>\n";
  129.     print "<a href=\"$referer\">Return</a>";
  130.     print "<hr>";
  131.     print "</body>\n";
  132. }
  133.  
  134. exit 0;
  135.  
  136. #
  137. #  send mail message
  138. #
  139. sub send_mail {
  140.     local($about) = $FORM{'about'};
  141.  
  142.     open (MAIL, "|$MAILPROG $RECIPIENT ") || die "Can't open $MAILPROG!\n";
  143.     print MAIL "From: $WEBCGI\n";
  144.     print MAIL "Reply-to: $FORM{'username'} ($FORM{'realname'})\n";
  145.     print MAIL "Subject: $FORM{'subject'}\n\n";
  146.     print MAIL "$FORM{'username'} ($FORM{'realname'}) sent the following\n";
  147.     print MAIL "comment about $about:\n";
  148.     print MAIL  "------------------------------------------------------------\n";
  149.     print MAIL "$FORM{'comments'}";
  150.     print MAIL "\n------------------------------------------------------------\n";
  151.     print MAIL "Server protocol: $ENV{'SERVER_PROTOCOL'}\n";
  152.     print MAIL "Remote host: $ENV{'REMOTE_HOST'}\n";
  153.     print MAIL "Remote IP address: $ENV{'REMOTE_ADDR'}\n";
  154.     print MAIL "User Agent: $ENV{'HTTP_USER_AGENT'}\n"
  155.       if defined($ENV{'HTTP_USER_AGENT'});
  156.     close (MAIL);
  157. }
  158.  
  159.