#!/opt/bin/perl
# -- -*-perl-*-
# Modifued for au_cgi_toolkit by Gene Stewart (stewagb@mail.auburn.edu)
# Modified for return to any url by James Judd for ENS 950911
# ------------------------------------------------------------
# Form-mail.pl, by Reuven M. Lerner (reuven@the-tech.mit.edu).
#
# Last updated: March 14, 1994
#
# Form-mail provides a mechanism by which users of a World-
# Wide Web browser may submit comments to the webmasters
# (or anyone else) at a site. It should be compatible with
# any CGI-compatible HTTP server.
#
# Please read the README file that came with this distribution
# for further details.
# ------------------------------------------------------------
# ------------------------------------------------------------
# This package is Copyright 1994 by The Tech.
# Form-mail is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by the
# Free Software Foundation; either version 2, or (at your option) any
# later version.
# Form-mail is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# General Public License for more details.
# You should have received a copy of the GNU General Public License
# along with Form-mail; see the file COPYING. If not, write to the Free
# Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
# ------------------------------------------------------------
# Define fairly-constants
# This should match the mail program on your system.
$mailprog = '/usr/lib/sendmail';
# This should be set to the username or alias that runs your
# WWW server.
$webserver = $ARGV[0];
$webserver =~ y/A-Za-z//cd;
# Print out a content-type for HTTP/1.0 compatibility
print "Content-type: text/html\n\n";
# Print a title and initial heading on response page
print "";
print "";
print "Subscribe to a Mailing List";
print "";
print "";
print "![\"AU\"](\"/icons/au.gif\")
Subscribe to a Mailing List
";
print "
";
# Get the input
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
# Split the name-value pairs
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
# Un-Webify plus signs and %-encoding
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
# Stop people from using subshells to execute commands
# Not a big deal when using sendmail, but very important
# when using UCB mail (aka mailx).
# $value =~ s/~!/ ~!/g;
# Uncomment for debugging purposes
# print "Setting $name to $value";
$FORM{$name} = $value;
}
# Now send mail to $recipient
$recipient = $FORM{'listserv'};
open (MAIL, "|$mailprog -f $webserver $recipient") || die "Can't open $mailprog!\n";
print MAIL "From: $FORM{'username'}\n";
print MAIL "$FORM{'subun'} $FORM{'listname'} $FORM{'firstname'} $FORM{'lastname'}\n";
close (MAIL);
# Continue the response page
print "
You have been added the the $FORM{'listname'} mailing list.";
print "
You should recieve a subscription notice within the next 24 hours.";
# Return Link (if any) on response page
$FORM{'retdesc'} =~ tr/_/ /;
if ($FORM{'returl'} ne "")
{
print "
";
print "![](\"$FORM{'returg'}\")
";
print " $FORM{'retdesc'}.";
}
else
{
print "
";
print " Return to My Home Page.";
}
# ------------------------------------------------------------