[Woc-commit] CVS: woc/src/woc/cgi-src/email woc@sci.kun.nl,NONE,1.1

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

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>";