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

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

 >-------- Оригинално писмо --------
 >От:  Stas Bekman <stas@xxxxxx.xxx>
 >Относно: Re: What's wrong with this system's configuration?
 >До: Nick *** <doink123@xxx.xx>
 >Изпратено на: Петък, 2004, Декември 17 18:18:34 EET
 >----------------------------------
 >
 >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.
 >
 >--

They ask me this: :)

When I show this to one of the engineers here we are confused
as to what information or what you are trying to do with these
commands. Can you please explain what you are trying to do?

Thanks

Tim 


 >__________________________________________________________________
 >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
 >
 >

-----------------------------------------------------------------
Абонирайте се за в. Пари - http://www.pari.bg/abonament/

        -- 
        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