--- lib/PXElator/amt.pm 2009/08/19 11:02:15 262 +++ lib/PXElator/amt.pm 2009/08/19 11:51:51 263 @@ -11,6 +11,7 @@ use Net::Ping; use html; +use CouchDB; sub info { my ( $amt, $client_ip ) = @_; @@ -30,14 +31,18 @@ $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 $out; - $out = qq|power: S| . Intel::AMT::RemoteControl::SystemPowerState - . qq|
| - . qq| amt| + $out = + qq| amt| . qq| ip| . qq|
| - . html::pre_dump( Intel::AMT::NetworkAdministration::network_settings ) + . html::pre_dump( $amt ) ; return $out;