#!/usr/bin/perl ## ## Programmer: Craig Stuart Sapp ## Creation Date: Tue Jul 20 14:58:50 PDT 1999 ## Last Modified: Tue Jul 20 14:58:53 PDT 1999 ## Filename: /home/httpd/cgi-bin/mailtest ## Syntax: Perl 5; CGI ## $Smake: cp -f %f /home/httpd/cgi-bin/%b ## ## Description: This program demonstrates the use of CGI::* module ## using CGI::Form ## use CGI::Form; $cgi_form = new CGI::Form; $from = $cgi_form->param('from'); $name = $cgi_form->param('name'); $to = $cgi_form->param('to'); $subject = $cgi_form->param('subject'); $message = $cgi_form->param('message'); # remove DOS linefeeds if present: $message =~ s/ //g; ########################################################################### # # Send a reply to the user who submitted the message to send # print <<"EOT"; Content-type: text/html Mail test results

Mail test results

The contents of the sent message was: \n"; } else { print "

Error: message not sent since no recipient. Message was: \n"; } print <<"EOT";

From: anonymous\@hummer.stanford.edu EOT if ($from ne "") { if ($name eq "") { print "Reply-To: $from\n" } else { print "Reply-To: $name <$from>\n" } } print <<"EOT"; To: $to Subject: $subject

$message

EOT ########################################################################### # # Send the mail message # open(SENDMAIL, "| /var/qmail/bin/qmail-inject"); ## or if using sendmail: # open(SENDMAIL, "| /usr/bin/sendmail -t -n"); # if ($to ne "" && length($message) < 80) { if ($to ne "") { if ($from ne "") { if ($name eq "") { print SENDMAIL "Reply-To: $from\n"; } else { print SENDMAIL "Reply-To: $name <$from>\n"; } print SENDMAIL <<"EOM"; To: $to Subject: $subject $message EOM } } ########################################################################### # # log the mail message to mailtest.log in case someone is hacking # this CGI program. # open(LOGFILE, ">> /var/log/httpd/cgi/mailtest.log"); print LOGFILE "\n\n++++++++++++++++++++++++++++++++++++++++++++++++++\n"; if ($to eq "") { print LOGFILE "Failed message\n"; } print LOGFILE "HTTP_FROM: $ENV{'HTTP_FROM'}\n"; print LOGFILE "REMOTE_USER: $ENV{'REMOTE_USER'}\n"; print LOGFILE "REMOTE_IDENT: $ENV{'REMOTE_IDENT'}\n"; print LOGFILE "REMOTE_HOST: $ENV{'REMOTE_HOST'}\n"; print LOGFILE "REMOTE_ADDR: $ENV{'REMOTE_ADDR'}\n"; print LOGFILE "Message character count: ", length($message), "\n"; if ($name eq "") { print LOGFILE "Reply-To: $from\n"; } else { print LOGFILE "Reply-To: $name <$from>\n"; } print LOGFILE <<"EOM"; To: $to Subject: $subject $message EOM