At 22:35 25-10-01, you wrote:
>At 10:19 PM 25-10-2001 Peter wrote:
> > REMOTE_HOST is the host name making the request. If DNS lookup is
> >turned off, the REMOTE_ADDR is set and this variable is unset.
>
>I broke the script... :-(
use Socket;
my $host=gethostbyaddr($ENV{'REMOTE_ADDR'}, AF_INET);
die("Could not get your hostname, because $?") if $host =~
m/^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/;
See:
http://melvyn.idg.nl/perldocs/5.6.1/pod/perlfunc.html#item_gethostbyaddr
Or your local ActivePerl docs.
____________________________________________________
</MELVYN>
void wakeup()
{
for(long int cuppajava;drink();cuppajava++);
}
--------------------------------------------------------------------------------
For unsubscription of this list send an email to [EMAIL PROTECTED] with email
data containing unsubscribe emailadd sambar
