#!/usr/local/bin/perl
require 'cgi-lib.pl';
&ReadParse;
$name = $in{"name"};
$email = $in{"email"};
$message = $in{"message"};
open (MYMAILTO, "|mail \"kal\@cs.wpi.edu\n\"");
print MYMAILTO "Message from $name at $email \n" ;
print MYMAILTO "Message: $message\n" ;
close (MYMAILTO);
print "Content-type: text/html
";
print"\n<html><head><title>Guestbook Response</title>";
print"\n</head><body><IMG align = left SRC = \"http://cs.wpi.edu/~kal/images/EDicon.gif\">";
print"\n<center><h1>Thanks ".$name." for your message!</h1>";
print"\n<p><IMG align = middle SRC= \"http://cs.wpi.edu/~kal/images/blueline.gif\"> <p>";
print"\n</body> ";
print"\n</center> ";
print"\n<p> <hr> <p>";
print"\n<address> Send questions and comments to: ";
print"\n<A HREF = \"mailto: kal\@cs.wpi.edu\"> Karen Lemone </A>";
print"\n</address><p>";
print"\n</html>";
# END!!!
</pre>
</body>
</html>