[Av]

This script was working, now it isn't, It's been a while since I used it and I cannot remember if I changed anything in this while I was trying new things out. Could someone please look this over to see if there are any blatent mistakes ..............

_____________________________________

#!/urs/local/bin/perl
#writetodb.pl
print "Content-type: text/html\n\n"; # Generate HTTP header
print "[HTML][HEAD][TITLE]~Sent~[/TITLE][/HEAD]\n";
print "[BODY][H1]Your message was SENT !![/H1]\n";

print "

Now return to send again [/P]\n";
print "[HR]\n";
print '

[A HREF="/cgi2.swf"]Return[/A][/P]';
print "\n[/BODY][/HTML]";


if($ENV{"REQUEST_METHOD"} eq "GET") {
$querydata = $ENV{"QUERY_STRING"}
} else {
read(STDIN, $querydata, $ENV{"CONTENT_LENGTH"})
}
open(TOFILE, '>data.txt');
print TOFILE "$querydata";
close (TOFILE);

_____________________________________

This is the error message I get.........

It looks like there was an error:
Your script produced this error: (Maybe you didn't strip carriage returns after a network transfer?)

Thanx ~

~Av~


------------------
<Embed Src="http://members.tripod.co.uk/AV/sig.swf" type="application/x-shockwave-flash" width="200" height="40"></Embed>

[This message has been edited by Av (edited 11-08-2000).]