Update of /cvsroot/woc/woc/src/woc/cgi-src/email
In directory usw-pr-cvs1:/tmp/cvs-serv23171/woc/cgi-src/email
Added Files:
wo...@sc...
Log Message:
--- NEW FILE: wo...@sc... ---
#!/usr/local/gnu/bin/perl -- -*-perl-*-
# ------------------------------------------------------------
# Define fairly-constants
$mailprog = '/usr/ucb/mail';
$recipient = 'wo...@sc...';
$recipientname = 'WOC redactie';
$subject = 'Reactie op WOC';
# Get the input
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
# Split the name-value pairs
@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;
# Uncomment for debugging purposes
# print "Setting $naam to $value<P>";
$FORM{$name} = $value;
}
# Now send mail to $recipient
open (MAIL, "|$mailprog -s \"$subject\" -r \"" . $FORM{'username'} . "\" $recipient")
|| die "Can't open $mailprog!\n\n";
print MAIL "$FORM{'realname'} (email : $FORM{'username'}) van $ENV{'REMOTE_HOST'}\n";
print MAIL "stuurt de volgende reactie over het Woordenboek Organische Chemie:\n";
print MAIL "\n";
print MAIL "$ENV{'REMOTE_EMAIL'}\n";
print MAIL "------------------------------------------------------------\n\n";
print MAIL " $FORM{'comments'} \n";
print MAIL "------------------------------------------------------------\n\n";
print MAIL "\n";
# print MAIL "Hij/zij wil $FORM{'email'} email ontvangen over ontwikkelingen.";
close (MAIL);
# And hold the closing argument.
# Print out what we need
print "Content-type: text/html\n\n";
print "<html>\n";
print "<head>\n";
print " <BASE href=\"http://www-woc.sci.kun.nl/\">";
print " <TITLE>Reactie verstuurt.</TITLE>\n";
print "</head>\n";
print "<body bgcolor=white vlink=blue alink=blue link=blue background=\"pictures/system/background.gif\">\n";
print "<SCRIPT>\n";
print " <!--\n";
print " top.frames[1].window.location=\"locatie/reactie_v.html\";\n";
print " // -->\n";
print "</SCRIPT>\n";
print "<p><br>";
print "<H3>Reactie is verzonden.</H3>\n";
print "<ul>";
print "Het volgende bericht is gestuurd naar ";
print "$recipientname.\n";
print "<p><b>Naam :</b> $FORM{'realname'}";
print "<p><b>Email :</b> $FORM{'username'}";
print "<p><b>Reactie :</b><br>";
print "<ul>$FORM{'comments'}</ul>";
# print "<p>U heeft aangegeven <i>";
#
# if (($FORM{'email'})eq('Ja')){ print "wel";}
# else { print "niet"; }
#
# print "</i> email te willen ontvangen over ontwikkelingen ";
# print "van het Woordenboek Organische Chemie.\n";
print "</ul></body>";
print "</html>";
|
