Cure
User
Mar 3, 2000, 4:15 PM
Post #8 of 19
(1451 views)
|
Hi
The code works for me anyways I fixed the header problem-> this should work
#!/usr/bin/perl
$e = $ENV{'QUERY_STRING'};
@b = split(/[&;]/, $e);
foreach $i (0..$#b)
{
open(HAMBO, ">>koolnthermal/nm.log") or die("cannot open");
$b[$i] =~ s /\+/ /g;
($key, $val) =split(/=/,$b[$i],2);
$key =~ s/%(..)/pack("c",hex($1))/ge;
$val =~ s/%(..)/pack("c",hex($1))/ge;
print HAMBO "$key: $val \n";
}
close HAMBO;
print "Content-type: text/html\n\n";
print qq~
<html>
<head>
<title>Thank You</title>
</head>
<body background = C1.BMP>
<h3><FONT SIZE=5 COLOR=#00FFFF> Thank you for your business </FONT>
<h2> Come back again when you have <em>LESS</em> time
<h5> Please allow 4-6 weeks delivery
</body>
</html>
~;
Cure
|
MAIN
SEARCH
WHO'S 
LOG 