Eu nao sei porque mas esta subrotina abaixo nao esta repassando o TIMEOUT
corretamente...
Para ela, todo IP ou esta OK ou nao tem reverso... O TIMEOUT - mesmo quando
mostrado no console - nao e� gravado no arquivo-relatorio que esta sendo
gerado.
Isso pode ser visto no console:
10.0.0.1: TIMEOUT at ./check-ip-2.cgi line 108, <NAS_FILE> chunk 728.
mas o relatorio e� gravado como "SEM REVERSO".
O original era �die� ao inves de �warn�. Eu mudei para que o script nao
fosse abortado e os demais IPs continuassem sendo checados...
Alguma ideia do por que o TIMEOUT nao esta� sendo "enxergado"?
--------
In article <4Wcl5.101$[EMAIL PROTECTED]>, Colin Keith wrote:
# And the workhorse fn
sub fwd_or_rev {
my($type) = $_[1]?'PTR':'A';
$SIG{ALRM} = sub { warn 'TIMEOUT'; };
eval {
alarm(6); # time out if we don't get a response in 6 secs
$query = $resolver->query($_[0], $type);
alarm(0);
};
return -1 if($@ =~ /TIMEOUT/); # ugly
return 0 if(!$query || !(@_ = $query->answer())); # bad
return $type eq 'A' ? $_[0]->address() : $_[0]->ptrdname(); # good
}
http://www.mrweb.com.br/perl/
�������������>No site da lista, voce tera tudo sobre PERL,
>>LINUX, PHP, ASP e informacoes, cadastramento
>>e descadastramento da Lista.
������������==
