Hi, I have this code:
if (/:\s*\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}:/) {
my $host = gethostbyaddr (&inet_aton ($_Globals{IP_ADDR}), AF_INET) or
die "je ne peux résoudre $_Globals($_Globals{IP_ADDR}) :$!\n";
($_Globals{CLIENT_NAME})=$host=~ /^(\w+)/;
}
it works but how can i do to specify if the gethostbyaddr didn't work and I have
died with "je ne peux résoudre .......
I would like ($_Globals{CLIENT_NAME}) = $_Globals{IP_ADDR} =~ /^(\w+)/; in
case of gethostbyaddress failed.
Thanks.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
