home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #7 / amigamamagazinepolishissue1998.iso / www / amigasoc / orig / cgi-bin / feedback.pl < prev    next >
Perl Script  |  1997-12-12  |  533b  |  19 lines
  1. #!/usr/local/mbin/perl
  2.  
  3. require "cgi-lib";
  4.  
  5. &ReadParse;
  6.  
  7. print "Content-type:text/html\n\n";
  8. print qq{<body background="../images/paletile.gif">};
  9. print qq{<center><img src="../images/logo.gif"></center><br><br>};
  10. print "<strong>$in{Name}</strong>, thank you for you comments. We will look at them soon.<br>";
  11. print qq{<br><br><img src="../images/amigasocsig.gif"><br><br></body>};
  12. open(MAIL,"|mail chrisl\@cursci.co.uk");
  13. print MAIL "Subject: Feedback Form\n";
  14. foreach $i (keys(%in))
  15. {
  16.     print MAIL "$i = $in{$i}\n";
  17. }
  18. close (MAIL);
  19.