fie secventa:
my $t = Net::Telnet->new(Host=>$ipaddr,Port=>$port,Timeout => 3);
if( !$t ) { print "Eroare port $port service $service on $host\n";
din pacate, totul se termina in die() cu urmatorul mesaj:
problem connecting to "1.2.3.4", port 1: Connection refused at ./check.pl line 339
sa fie bug de net::telnet?!! error handling de kko... cum scap de asta ?
sau ma apuc si lucrez direct cu Socket.pm ? :)
--
Stefan Laudat
CCNA & CCAI
-------------
"Blessed are the meek, for they shall
inherit the Earth". The rest of us, the Universe.
---
Send e-mail to '[EMAIL PROTECTED]' with 'unsubscribe rlug' to
unsubscribe from this list.
