#!/usr/local/bin/perl5
#use CGI qw(:cgi-lib);
use CGI;
$query = new CGI;
#Define format for message output
if($query->param) {
$course = $query->param("clsName");
$address = $query->param("teachEmail");
$address =~ s/@/\@/;
$message = $query->param("hidinfo");
}
if($course eq undef || $address eq undef){
&errTop();
print "
Error
Please fill in the Name of the Class and
your teacher's e-mail address before
pressing Send. Thank you.
\n";
&errBottom();
}
if($course ne undef && $address ne undef) {
$MAIL = 'usr/sbin/sendmail';
$TO = '$address';
$SUBJECT = '1948 campaign results';
open MAIL, "|mail $address";
print MAIL <| Thank you for playing 1948 campaign. Your
results were posted to the specified e-mail
address. | |
\n";
&pgeBottom();
}
sub errTop{
print "Content-type: text/html\n\n";
print "
Results\n";
print "\n";
print "\n";
}
sub errBottom {
print "\n";
print "\n";
}
sub pgeTop {
print "Content-type: text/html\n\n";
print "
Results\n";
print "\n";
print "\n";
print "
\n";
print " | done! |
\n";
print "
\n";
}
sub pgeBottom
{
print "\n";
print "\n";
}