--- 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;