It looks like you forgot to specify the file handle when printing.
print CHECK "$ENV{'REMOTE_ADDR'}"; }
Rob
-----Original Message-----
From: K.L. Hayes [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, January 16, 2002 6:23 PM
To: [EMAIL PROTECTED]
Subject: Won't write IP address to file
Hello All,
Could somebody please help me figure out why the following code will
not write the IP address to a file?
I've verified that the code can find the file, open it & overwrite any
junk/test data already there with nothing. I've also printed out the
IP address on the previous page using just the print statement.
<CODE>
sub pcheck {
if (param('pwd') eq $pw ) {
open (CHECK,">${path}dmp.dat") || die "Cannot open dmp.dat: $!";
flock (CHECK, 2) if ($flock);
while (<CHECK>) {
print "$ENV{'REMOTE_ADDR'}"; }
close (CHECK);
flock (CHECK, 8) if ($flock);
} else { &invalid_info; }
&ad2;
}
</CODE>
All help is appreciated. Thank you for your time.
--
Best regards,
K.L. Hayes
mailto:[EMAIL PROTECTED]
+=====================================================+
+ "Only two things are infinite, the universe and +
+ human stupidity, and I'm not sure about the former."+
+ -- Albert Einstien +
+=====================================================+
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
