--- lib/PXElator/html.pm 2009/08/30 13:33:59 375
+++ lib/PXElator/html.pm 2009/08/30 15:22:41 376
@@ -1,6 +1,7 @@
package html;
use Data::Dump qw/dump/;
+use amt;
sub table {
my $cols = shift;
@@ -84,6 +85,12 @@
} else {
if ( $name eq 'amt' ) {
$html = qq|logon|;
+
+ $html .= qq| power: |
+ . ( amt::power_on($ip)
+ ? qq|on|
+ : qq|off|
+ ) if $format ne 'inline';
} elsif ( $name eq 'ssh' ) {
$html =~ s{\s(\S{16}).+(\S{16})\s}{ $1..$2 };
chomp($html);