Thank you for signing our Guest Book . . .

#!/usr/local/bin/perl 

$mailprog = '/usr/bin/mail';
$recipient = 'ecolgrp@mail.auburn.edu';

print "Content-type: text/html\n\n";
print "<Head><Title>The Auburn Group in Ecology</Title></Head>";
print "<Body><H1>Thank you for signing our Guest Book . . . </H1></Body>";

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

@pairs = split(/&/, $buffer);

foreach $pair (@pairs)
{
    ($name, $value) = split(/=/, $pair);
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

    $FORM{$name} = $value;
}

 if ($FORM{'e-mail'} eq "") {$FORM{'e-mail'} = '';}
 if ($FORM{'name'} eq "") {$FORM{'name'} = '';}

open (MAIL, "|$mailprog $recipient $FORM{'e-mail'} $FORM{'NAME'}") || die "Can't open $mailprog!\n";
print MAIL "Here is how $FORM{'name'} heard about the AU Ecology Group:\n";
print MAIL "\n";
print MAIL "$FORM{'hear'}\n";
print MAIL "\n";
print MAIL "---------------------------------------------------------------------------\n";
print MAIL "\n";
print MAIL "Here are comments that $FORM{'name'} has for The Auburn Group In Ecology:\n";
print MAIL "\n";
print MAIL "$FORM{'comments'}\n";
print MAIL "\n";
print MAIL "---------------------------------------------------------------------------\n";
print MAIL "This is a Guest Book entry from $FORM{'name'} who is reachable at $FORM{'e-mail'}:\n";
print MAIL "\n";
print MAIL "$FORM{'name'}'s street address is: $FORM{'street'}\n";
print MAIL "\n";
print MAIL "---------------------------------------------------------------------------\
print MAIL "$FORM{'name'}'s state, country and zip are: $FORM{'state'}\n";
print MAIL "\n";
print MAIL "---------------------------------------------------------------------------\n";
print MAIL "\n";
print MAIL "Potential grad student: $FORM{'grad'}\n";
print MAIL "\n";
print MAIL "Masters or Doctoral: $FORM{'level'}\n";
print MAIL "\n";
print MAIL "More information?: $FORM{'info'}\n";
print MAIL "\n";
close (MAIL);

print "Your input will assist us in our continuing efforts to serve you and improve <STRONG>The Auburn Group in Ecology</STRONG>.<P>\n";
print "Return to the <A HREF=\"http://www.auburn.edu/academic/ecology/au_ecology.shtml\">Main Page</a>\n";