Question about resolving an ip

[emilybartholomew]

Hi-

I want to be able to get the domain of the ip requesting infomration from my webpage. Basically I want to show one thing if it's a .gov domain, and another if it's anything else. I've been able to obtain the ip number address with
my $ip = $ENV{'REMOTE_ADDR'};

Is there a way to resolve this and get the information I'm interested in? Reading through post here I found a little information on Net:NS, but am not smart enough to figure it out.

Thanks-
emily

 

[raider2001]

I haven't used the REMOTE_HOST environment variable, but does that give you what you want?

 

[Kiehlster]

I'd have to agree with raider. I have a script on my blog that logs the ip and remote hostname. All my logs show that REMOTE_HOST is a resolved hostname for the specific host. Steve Kiehl
webmaster@nanovox.com

http://www.nanovox.com/

 

[emilybartholomew]

I just tested REMOTE_HOST and it seems to give me a numeric address.

However, after a little more snooping around I found a script here:

http://www.hotscripts.com/Detailed/5246.html

called lrdns.pl (written by Matti Tukiainen <ktmatu@usa.net>
) that works like a charm. It converts numeric ips to a name. The only thing I have a question about is the &quot;use Socket&quot; directive. Does this compromise security at all? I've never used it, and don't know much about it.

 

[goBoating]

See perldoc Net::hostent -enter-

#!/usr/local/bin/perl
use Net::hostent;
use Socket;
$host = '208.201.239.56'; # [URL unfurl="true"]www.perl.com[/URL]
unless ($h = gethost($host)) 
    { warn "$0: no such host: $host\n"; }
    
printf "\n%s is %s%s\n", 
    $host, 
    lc($h->name) eq lc($host) ? "" : "*really* ",
    $h->name;

The perldocs show a full example of using the modules. 'hope this helps

If you are new to Tek-Tips, please use descriptive titles, check the FAQs, and beware the evil typo.