Nick *** wrote:
>> # @(#)B11.23_LRhosts $Revision: 1.9.214.1 $ $Date: 96/10/08 13:20:01 $
>> #
>> # The form for each entry is:
>> # <internet address> <official hostname> <aliases>
>> #
>> # For example:
>> # 192.1.2.34 hpfcrm loghost
>> #
>> # See the hosts(4) manual page for more information.
>> # Note: The entries cannot be preceded by a space.
>> # The format described in this file is the correct format.
>> # The original Berkeley manual page contains an error in
>> # the format description.
>> #
>>
>> 192.233.54.176 spe176.testdrive.hp.com spe176
>> 127.0.0.1 localhost loopback
>> 192.233.54.253 spe253.testdrive.hp.com spe253
>>
>>
>> Is there anything else I can do to run perl Makefile.PL?
>
>[ error] Can't resolve host: 'localhost.testdrive.hp.com' (check /etc/hosts)
>
>So you need to ask the admins to have that entry in /etc/hosts, because
>your machine identifies itself as 'localhost.testdrive.hp.com'.
>
>--
The admin asked me what command I use in order to get the name 'localhost.testdrive.hp.com'. How does MP2 get this?
Something like the following:
use Socket;
my $localhost_addr = pack('C4', 127, 0, 0, 1);
my $name = gethostbyaddr($localhost_addr, Socket::AF_INET()) || 'localhost';
my $iaddr = (gethostbyname($name))[-1];
unless (defined $iaddr) {
die "Can't resolve host: '$name' (check /etc/hosts)";
}
$remote_addr ||= Socket::inet_ntoa($iaddr);
print $remote_addr;
prints 127.0.0.1 on my machine.
--
__________________________________________________________________
Stas Bekman JAm_pH ------> Just Another mod_perl Hacker
http://stason.org/ mod_perl Guide ---> http://perl.apache.org
mailto:[EMAIL PROTECTED] http://use.perl.org http://apacheweek.com
http://modperlbook.org http://apache.org http://ticketmaster.com
--
Report problems: http://perl.apache.org/bugs/
Mail list info: http://perl.apache.org/maillist/modperl.html
List etiquette: http://perl.apache.org/maillist/email-etiquette.html
