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