>-------- Оригинално писмо -------- >От: Stas Bekman <[EMAIL PROTECTED]> >Относно: Re: What's wrong with this system's configuration? >До: Nick *** <[EMAIL PROTECTED]> >Изпратено на: Петък, 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:[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 > > ----------------------------------------------------------------- Абонирайте се за в. Пари - 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