home *** CD-ROM | disk | FTP | other *** search
/ The HTML Web Publisher's Construction Kit / HTMLWPCK.ISO / unix / servers / httpd_14 / source.z / source / httpd_1.4.1 / cgi-bin / mail < prev    next >
Encoding:
Text File  |  1995-05-18  |  11.8 KB  |  320 lines
  1. #!/usr/local/bin/perl 
  2.  
  3. # ======================================================================
  4. # WebMonitor Standalone Module: mail
  5. #
  6. #                               CGI script for providing form and script
  7. #                                to send mail to configured system users
  8. #
  9. # required files: mail.list
  10. #                                     Text file with users nicknames and
  11. #                                       email addresses in the format of
  12. #                                             <nickname>:<email address>
  13. #                      Keep "mail.list" in same directory as mail script
  14. #                                 NOTE: you can even have group aliases!
  15. #                                just separate the addresses with commas
  16. #         Make sure you 'chmod 0644 mail.list' so the server can read it
  17. #                             +-----------------------------------------
  18. #                   Example:  |webmaster:admin@machine
  19. #                             |john-doe:jdoe
  20. #                             |carlos:cpero@ncsa.uiuc.edu
  21. #                             |group:leader@domain.com,member@domain.com
  22. #                             +-----------------------------------------
  23. # ======================================================================
  24. # Carlos A. Pero (cpero@ncsa.uiuc.edu)              last update  4/30/95
  25. # ======================================================================
  26. # Documentation for WebMonitor can be found at
  27. #                          <URL:http://hoohoo.ncsa.uiuc.edu/webmonitor/>
  28. # ======================================================================
  29. # This code is in the public domain. Specifically, we give to the public
  30. # domain all rights for future licensing of the source code, all resale
  31. # rights, and all publishing rights.
  32. # 
  33. # We ask, but do not require, that the following message be included in
  34. # all derived works:
  35. # 
  36. # Portions developed at the National Center for Supercomputing
  37. # Applications at the University of Illinois at Urbana-Champaign.
  38. # 
  39. #
  40. # THE UNIVERSITY OF ILLINOIS GIVES NO WARRANTY, EXPRESSED OR IMPLIED,
  41. # FOR THE SOFTWARE AND/OR DOCUMENTATION PROVIDED, INCLUDING, WITHOUT
  42. # LIMITATION, WARRANTY OF MERCHANTABILITY AND WARRANTY OF FITNESS FOR A
  43. # PARTICULAR PURPOSE.
  44. # ======================================================================
  45. # This script can be referenced 2 ways for the best flexibility:
  46. #
  47. # DIRECTLY, <A HREF="/cgi-bin/mail?nickname">
  48. # This will generate an email form for the person named in 'nickname',
  49. # and if they exist in the 'mail.list' file.
  50. # If no 'nickname' is specified in the QUERY_STRING when the script is
  51. # first invoked, or the nickname cannot be found in the 'mail.list', 
  52. # an email form with a SELECT box of all valid nicknames is generated.
  53. # When the email form is submitted, it will call itself via method of POST,
  54. # and send the email to the recipient, outputting a confirmation message.
  55. # If the HTTP_REFERER was trasmitted when the script was first invoked,
  56. # there will be a hyperlink available to go back to that page (such as
  57. # the user's home page).
  58. #
  59. # FORWARDING RESULTS, <FORM METHOD="POST" ACTION="/cgi-bin/mail?nickname">
  60. # This will forward the results from the FORM, which can exist anywhere,
  61. # to the recipient specified by 'nickname'.  Since the 'nickname' is in
  62. # the QUERY_STRING, the FORM *must* use the METHOD="POST", otherwise the
  63. # recipient's nickname will be blown away.
  64. # Users may want to include a:
  65. #    <INPUT TYPE="hidden" NAME="next-url" VALUE="/~user/received.html">
  66. # If this is present in the FORM input, the client will be redirected
  67. # to this HTML file as a confirmation message instead of the default.
  68. # In addition, the user can also define any of the following input names
  69. # in their form to better customize the output mailed back to them.
  70. #    <INPUT TYPE="hidden" NAME="subject" VALUE="My survey results">
  71. #    <INPUT TYPE="hidden" NAME="from-name" VALUE="Average Web user">
  72. #    <INPUT TYPE="hidden" NAME="from-email" VALUE="jdoe@domain.com">
  73. # These values will then be used in the header of the email message.
  74. # Otherwise, default values will be substituted.
  75. # ======================================================================
  76.  
  77.  
  78. ########################################################################
  79. ########## Configurable variables ######################################
  80.  
  81. $SENDMAIL = '/usr/sbin/sendmail';
  82. #                                   The location of your sendmail binary
  83.  
  84. ## Also, make sure the first line of this script points
  85. ## to your PERL binary
  86.  
  87. ########## Nothing else to change ######################################
  88. ########################################################################
  89.  
  90.  
  91. $SCRIPT = $ENV{'SCRIPT_NAME'};
  92.  
  93. #### Do standard HTTP stuff ####
  94. &cgi_receive;
  95. &cgi_decode;
  96. &cgi_header;
  97.  
  98. #### Output email form unless you are receiving FORM input already ####
  99. &print_form unless keys %FORM;
  100.  
  101. #### Make sure required fields are filled out ####
  102. if ($FORM{'nickname'}) {
  103.     #### This section is for receiving from this form ####
  104.     &error_blank_field('your name')  unless ($FORM{'from-name'});
  105.     &error_blank_field('your email address in the form of <I>name@domain</I>') unless ($FORM{'from-email'} =~ /\@/);
  106.     &error_blank_field('the subject of the message') unless ($FORM{'subject'});
  107.     &error_blank_field('your message') unless ($FORM{'message'});
  108. }
  109. else {
  110.     #### This section is for user's forms ####
  111.     #### Such as ACTION="/cgi-bin/mail?carlos" to have results forwarded ####
  112.     $FORM{'nickname'} = $ENV{'QUERY_STRING'};
  113. }
  114.  
  115. #### Lookup email address based on 'nickname' ####
  116. open (MAILNAMES, "mail.list") || die ("$SCRIPT: Can't open mail.list: $!\n");
  117. while (<MAILNAMES>) {
  118.     chop;
  119.     ($nick, $addr) = split(/:/, $_);
  120.     $ADDRESS{$nick} = $addr;
  121. }
  122. close (MAILNAMES);
  123. &error_blank_field('the nickname of the recipient') unless ($ADDRESS{$FORM{'nickname'}});
  124.  
  125. #### Make sure all necessary variables for email message are filled in
  126. ($FORM{'subject'}) || ($FORM{'subject'} = "FORM results");
  127. ($FORM{'from-email'}) || ($FORM{'from-email'} = $ADDRESS{$FORM{'nickname'}});
  128. ($FORM{'from-name'}) || ($FORM{'from-name'} = "WebMonitor mail");
  129.  
  130. open (MAIL, "| $SENDMAIL $ADDRESS{$FORM{'nickname'}}") || die ("$SCRIPT: Can't open $mailprog: $!\n");
  131. print MAIL "Reply-to: $FORM{'from-email'} ($FORM{'from-name'})\n";
  132. print MAIL "From: $FORM{'from-email'} ($FORM{'from-name'})\n";
  133. print MAIL "To: $ADDRESS{$FORM{'nickname'}}\n";
  134. print MAIL "Subject: $FORM{'subject'}\n";
  135. print MAIL "\n";
  136. print MAIL "=============================================================\n";
  137. print MAIL "NOTE:  This message was sent through the WebMonitor mail form\n";
  138. print MAIL "=============================================================\n";
  139. print MAIL "REMOTE HOST:        $ENV{'REMOTE_HOST'}\n";
  140. print MAIL "REMOTE ADDRESS:     $ENV{'REMOTE_ADDR'}\n";
  141. print MAIL "HTTP_USER_AGENT:    $ENV{'HTTP_USER_AGENT'}\n";
  142. print MAIL "=============================================================\n";
  143. print MAIL "\n";
  144. if ($ENV{'QUERY_STRING'}) {
  145.     &dump_values(FORM, MAIL);
  146. }
  147. else {
  148.     print MAIL "$FORM{'message'}\n";
  149. }
  150. print MAIL "\n";
  151. close (MAIL);
  152.  
  153. #### Now, redirect if "next-url" is included
  154. if ($FORM{'next-url'}) {
  155.     print "Location: $FORM{'next-url'}\n";
  156.     print "\n";
  157.     exit;
  158. }
  159.  
  160. #### Prevent HTML output
  161. foreach $key (keys %FORM) {
  162.     $FORM{$key} =~ s/</\</g;
  163.     $FORM{$key} =~ s/>/\>/g;
  164. }
  165.  
  166. #### Output confirmation message ####
  167. print qq|<HTML><HEAD><TITLE>WebMonitor-Email Sent</TITLE></HEAD><BODY>\n|;
  168. print qq|<H1>$ENV{'SERVER_NAME'} Email Sent</H1>\n|;
  169. print qq|The following message has been sent.\n|;
  170. print qq|You can now return to <A HREF="$FORM{'previous-url'}">where you were</A>.\n| if ($FORM{'previous-url'});
  171. print qq|<HR>\n|;
  172. print "<PRE>\n";
  173. print "Reply-to: $FORM{'from-email'} ($FORM{'from-name'})\n";
  174. print "From: $FORM{'from-email'} ($FORM{'from-name'})\n";
  175. print "To: $ADDRESS{$FORM{'nickname'}}\n";
  176. print "Subject: $FORM{'subject'}\n";
  177. print "\n";
  178. if ($ENV{'QUERY_STRING'}) {
  179.     &dump_values(FORM, STDOUT);
  180. }
  181. else {
  182.     print "$FORM{'message'}\n";
  183. }
  184. print "\n";
  185. print "</PRE>\n";
  186. print "</BODY>\n";
  187. exit;
  188.  
  189. #####################################################################
  190. #### SUBROUTINES ####################################################
  191.  
  192. sub error_blank_field {
  193.     local($variable) = @_;
  194.     print "\n" if ($FORM{'next-url'});
  195.     print "<HTML><HEAD><TITLE>WebMonitor-Email Error</TITLE></HEAD><BODY>\n";
  196.     print "<H1>Error!</H1>\n";
  197.     print "You did not fill in $variable.\n";
  198.     print "Please go back to the form and do so.\n";
  199.     print "</BODY>\n";
  200.     exit;
  201. }
  202.  
  203. sub cgi_header {
  204.     print "Content-type: text/html\n";
  205.     print "\n" unless ($FORM{'next-url'});
  206. }        
  207.  
  208. sub cgi_receive {
  209.     if ($ENV{'REQUEST_METHOD'} eq "POST") {
  210.         read(STDIN, $incoming, $ENV{'CONTENT_LENGTH'});
  211.     }
  212.     else {
  213.         $incoming = $ENV{'QUERY_STRING'};
  214.     }
  215. }
  216.  
  217. sub cgi_decode {
  218.     @pairs = split(/&/, $incoming);
  219.  
  220.     foreach (@pairs) {
  221.         ($name, $value) = split(/=/, $_);
  222.  
  223.         $name  =~ tr/+/ /;
  224.         $value =~ tr/+/ /;
  225.         $name  =~ s/%([A-F0-9][A-F0-9])/pack("C", hex($1))/gie;
  226.         $value =~ s/%([A-F0-9][A-F0-9])/pack("C", hex($1))/gie;
  227.  
  228.         #### Strip out semicolons unless for special character
  229.         $value =~ s/;/$$/g;
  230.         $value =~ s/&(\S{1,6})$$/&\1;/g;
  231.         $value =~ s/$$/ /g;
  232.  
  233.         $value =~ s/\|/ /g;
  234.         $value =~ s/^!/ /g; ## Allow exclamation points in sentences
  235.  
  236.         #### Skip blank text entry fields
  237.         next if ($value eq "");
  238.  
  239.         #### Check for "assign-dynamic" field names
  240.         #### Mainly for on-the-fly input names, especially checkboxes
  241.         if ($name =~ /^assign-dynamic/) {
  242.             $name = $value;
  243.             $value = "on";
  244.         }
  245.  
  246.     #### Allow for multiple values of a single name
  247.         $FORM{$name} .= ", " if ($FORM{$name});
  248.  
  249.         $FORM{$name} .= $value;
  250.     }
  251. }
  252.  
  253. sub dump_values {
  254.     local($env, $handle) = @_;
  255.     eval "\@keys = keys \%$env";
  256.     eval "\@values = values \%$env";
  257.     ($handle eq "STDOUT") && (print $handle "<PRE>\n");
  258.     while ($#keys >= 0) {
  259.     $key = pop(@keys);
  260.     $value = pop(@values);
  261.     if ($value =~ /[\cM\n]/) {
  262.         print $handle "($key)\n";
  263.         print $handle "-" x 70, "\n", $value, "-" x 70, "\n";
  264.     }
  265.     else {
  266.             print $handle "($key)  $value\n";
  267.     }
  268.     }
  269.     ($handle eq "STDOUT") && (print $handle "</PRE>\n");
  270.  
  271. }
  272.  
  273. sub print_form {
  274.     #### Assign path_info and query_string if necessary
  275.     #### $path_info = "";
  276.  
  277.     open (MAILNAMES, "mail.list") || die ("$SCRIPT: Can't open mail.list: $!\n");
  278.     while (<MAILNAMES>) {
  279.     chop;
  280.     ($nickname, $address) = split(/:/, $_);
  281.     $ADDRESS{$nickname} = $address;
  282.     }
  283.     close (MAILNAMES);
  284.  
  285.     print qq|<HTML><HEAD><TITLE>WebMonitor-Email Form</TITLE></HEAD><BODY>\n|;
  286.     print qq|<H1>$ENV{'SERVER_NAME'} <A HREF="http://hoohoo.ncsa.uiuc.edu/webmonitor/module-mail.html">Email Form</A></H1>\n|;
  287.     print qq|<FORM METHOD="POST" ACTION="$SCRIPT$path_info$query_string">\n|;
  288.     print qq|<HR>\n|;
  289.     print qq|<INPUT TYPE="submit" VALUE="Send Email"> to |;
  290.  
  291.  
  292.     if ($ADDRESS{$ENV{'QUERY_STRING'}}) {
  293.     print qq|<B>$ENV{'QUERY_STRING'}</B> <I>($ADDRESS{$ENV{'QUERY_STRING'}})</I>\n|;
  294.     print qq|<INPUT TYPE="hidden" NAME="nickname" VALUE="$ENV{'QUERY_STRING'}">\n|;
  295.     }
  296.     else {
  297.     print qq|<SELECT NAME="nickname">\n|;
  298.     print qq|<OPTION>Select name...\n|;
  299.         foreach $nickname (sort keys %ADDRESS) {
  300.         print qq|<OPTION>$nickname\n|;
  301.         }
  302.         print qq|</SELECT>\n|;
  303.     }
  304.  
  305.  
  306.     print qq|<HR>\n|;
  307.     print qq|<PRE>|;
  308.     print qq|    Your Name: <INPUT NAME="from-name" SIZE="30">\n|;
  309.     print qq|Email Address: <INPUT NAME="from-email" SIZE="30">\n|;
  310.     print qq|      Subject: <INPUT NAME="subject" SIZE="40">    <INPUT TYPE="reset" VALUE="Clear Message">\n|;
  311.     print qq|</PRE>\n|;
  312.     print qq|<TEXTAREA NAME="message" ROWS="15" COLS="70"></TEXTAREA>\n|;
  313.     print qq|<INPUT TYPE="hidden" NAME="previous-url" VALUE="$ENV{'HTTP_REFERER'}">\n|;
  314.     print qq|</FORM>\n|;
  315.     print qq|</BODY>\n|;
  316.  
  317.     exit;
  318. }
  319.  
  320.