Re: What's wrong with this system's configuration?

[prev] [thread] [next] [Date index for 2004/12/17]

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:stas@xxxxxx.xxx 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