#!/usr/local/bin/perl require "/usr/faculty/professor/cjlin/server-3.0/server/lib/cgi-lib.pl"; &ReadParse(); $name = $in{'name'}; $addr = $in{'address'}; $comments = $in{'comments'}; $type = $in{'type'}; $server = $in{'server'}; unless($addr) { &blank_response; exit 0; } open(MAIL, "|/usr/lib/sendmail -oi -t") || die; print MAIL < <SERVER> Comment Sent Thank you for your comment. END # # No e-mail address # sub blank_response { print < <SERVER> Comment Please enter your e-mail address and resubmit. END exit 0; }