Gossamer Forum
(Advanced Search)
for
Home : General : Perl Programming :

Remote host

May 8, 1999, 10:09 PM
wong
Novice (11 posts)
May 8, 1999, 10:09 PM
Post #1 of 2
Views: 2489
Shortcut
Quote Reply
Remote host
Hi;
How do i work this script with alex geeting;
Can't get the script work always get a 500 err.
($part1,$part2,$part3,$part4)=split(/\./,$ENV{REMOTE_ADDR});
$IP_adr=pack("C4",$part1,$part2,$part3,$part4);
($host_name)=(gethostbyaddr("$IP_adr", 2));


Wong
May 9, 1999, 10:32 AM
Bobsie
Veteran (3111 posts)
Bobsie's avatar
May 9, 1999, 10:32 AM
Post #2 of 2
Views: 2365
Shortcut
Quote Reply
Re: Remote host In reply to
Try changing $ENV{REMOTE_ADDR} to $ENV{'REMOTE_ADDR'} (note the single quotes).

I hope this helps.