#!/opt/perl/bin/perl
# regghclass.pl
$mailprog = '/usr/lib/sendmail -t';
print "Content-type: text/html\n\n";
if ($ENV{'REQUEST_METHOD'} eq "get") { $buffer = $ENV{'QUERY_STRING'};}
else { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});}
@nvpairs = split(/&/, $buffer);
foreach $pair (@nvpairs)
{
($name, $value) = split(/=/, $pair);
$value = ~ tr/+/ /;
$value = ~ s/%([a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
# REFERENCE POINT A
$recipient = $FORM{'receiver'};
#
# format the mail file
format MAIL =
~~ ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$value
.
# open the mail file and write to it
open (MAIL, "|$mailprog $recipient") || die "$mailprog not available.\n";
print MAIL "FROM: $FORM{'sender'}\n";
print MAIL "Subject: Registration data from $FORM{'sender'}\n\n";
print MAIL "Dear $FORM{'receiver'},\n\n";
print MAIL "\n";
foreach $pair (@nvpairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
print MAIL "$name = $value\n";
}
print MAIL "\n";
close (MAIL);
print "\n";
print "\n";
print "Mail Sent\n";
print "\n";
print "\n";
print " Mail has been sent from $FORM{'sender'} to $FORM{'receiver'}.\n";
print "\n";
print "\n";
exit;