webrink

################################################################
# construct the headers
################################################################
print(MAIL "To: recipient\n");
if ( ! $cgiVals{'subject'} ) {
$cgiVals{'subject'} = "(no subject)";
}
print(MAIL "Subject: $cgiVals{subject}\n");
if ( ! $cgiVals{'from'} ) {
$cgiVals{'from'} = "nobody";
}
print( MAIL "From: $cgiVals{from}\n");
# done with the headers. Add the blank line.
print( MAIL "\n");

################################################################
# construct the body
################################################################
foreach $key ( keys(%cgiVals) ) {
if ( $key eq "to" || $key eq "subject" || $key eq "from" ) {
next;
}
print( MAIL "$key: $cgiVals{$key}\n");
}
################################################################
# All done. Clean up.
################################################################
close(MAIL);
# the response.
print("Form submitted successfully. Thanks!");
exit(0);

# posted by WebRink @ 2:42 PM