exit 0 if switch is not accessable

diff --git a/dell-switch.pl b/dell-switch.pl
index 158c8e4..9546561 100755 (executable)
--- a/dell-switch.pl
+++ b/dell-switch.pl
@@ -22,6 +22,10 @@ my @commands = @ARGV;
 warn "## $ip\n";
 my $ssh = Net::OpenSSH->new('auto@'.$ip);
 my ($pty ,$pid) = $ssh->open2pty();
+if ( ! $pty ) {
+       warn "ERROR: can't connect to $ip, skipping";
+       exit 0;
+}
 
 my $buff;