NET::SSH:Perl question.

[nawlej]

I am writing a script which requires me to test servers for listening SSH ports and push the working hostnames into an array. I decided on using NET:SSHerl for this task, because our firewall blocks both Telnet and Ping requests, so I am stuck using an actual SSH connection to see if the port is listening. Has anyone successfully accomplished this? Bascally, I figure I am going to have to attempt a new connection, but can I just do something like:

foreach $host (@hosts){
$cnx = NET::SSHerl->new($host);

if($cnx){
push (@working, $host);
}
$cnx->close;
}

I guess my main question would be, would that if statement actually validate a working connection or not??

Please help. Any and all is appreciated.

-Eric

 

[PaulTEG]

depends on what Net::SSH returns as the value for the connection

All you can really do is test it against machines running SSH, and other machines not running the daemon


HTH
--Paul

 

[nawlej]

If the server isnt running the SSH daemon, shouldnt the connection attempt time out, and make the variable null though?

 

[PaulTEG]

I'd have thought the value for a timeout when returned would be different to success


Don't have an SSH server to test against

Sorry
--Paul

 

[nawlej]

Thank you anyway Can anyone else help?