just warn about unreachable clients, but wrap our soap invocation in eval

diff --git a/lib/PXElator/amt.pm b/lib/PXElator/amt.pm
index c283072..3324403 100644 (file)
--- a/lib/PXElator/amt.pm
+++ b/lib/PXElator/amt.pm
@@ -21,7 +21,7 @@ sub info {
        $ip ||= $client_ip;
 
        if ( ! ping::host( $ip ) ) {
-               return "$ip unreachable";
+               warn "$ip unreachable";
        }
 
        warn "amt $ip ", '*' x length($passwd), "\n";
@@ -29,10 +29,13 @@ sub info {
        $ENV{AMT_HOST} = $ip;
        $ENV{AMT_PASSWORD} = $passwd;
 
-       my $amt = Intel::AMT::NetworkAdministration::network_settings;
-       $amt->{power_state} = Intel::AMT::RemoteControl::SystemPowerState;
-
-       CouchDB::audit('network', $amt );
+       my $amt;
+       eval {
+               $amt = Intel::AMT::NetworkAdministration::network_settings;
+               $amt->{power_state} = Intel::AMT::RemoteControl::SystemPowerState;
+               CouchDB::audit('network', $amt );
+       };
+       warn "ERROR amt $@" if $@;
 
        my $out;