#!/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>