On Sat, Feb 23, 2002 at 02:13:27PM +0530, Veeraraju_Mareddi wrote:
> Please see the code here. But This program terminates if one of
> them is Failed.
It terminates because Net::Telnet->Errmode defaults to 'die'.
You should really set it to 'return'.
But there are lots of other bugs in your code...
> Is there any way to get it done.
sure:
> --------------------------------------------------------------------
> use Net::Telnet;
> $telnet = new Net::Telnet(Port => 25);
^ insert ,Errmode=>'return'
before the closing bracket
> $result ='Active';
move this line to the top of the loop block, otherwise the first
negative server would affect all later ones.
> @hosts=('208.220.254.1',208.220.254.2',208.220.254.3');
insert single quotes ^here and ^here
> foreach $host(@hostes){
^ delete one letter e here
> $telnet->open($host) or $result ='Not Active';
> print " 25 port on $host is $result\n";
> }
> $telnet->close;
move this line at bottom of the loop block
> --------------------------------------------------------------------
Summarizing, what you get is:
use Net::Telnet;
$telnet = new Net::Telnet(Port => 25, Errmode=>'return',Timeout=>1);
@hosts=('208.220.254.1','208.220.254.2','208.220.254.3');
foreach $host(@hosts){
$result ='Active';
$telnet->open($host) or $result ='Not Active';
print " 25 port on $host is $result\n";
$telnet->close;
}
--
Johannes Franken
Professional unix/network development
mailto:[EMAIL PROTECTED]
http://www.jfranken.de/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
