--- lib/PXElator/httpd.pm 2009/08/30 11:20:18 363
+++ lib/PXElator/httpd.pm 2009/08/30 15:22:41 376
@@ -249,7 +249,10 @@
my $nmap = qq|nmap|;
my @table = (
- 'ping' => ping::host($ip) ? qq|up $nmap| : qq|down wol $nmap|,
+ 'ping' => ping::host($ip)
+ ? qq|up $nmap|
+ : qq|down wol $nmap|
+ ,
'ip' => qq|old: $ip|,
'mac' => format::mac( delete $conf->{mac}, 'html' ),
'hostname' => qq||,
@@ -272,9 +275,7 @@
}
}
- if ( my $amt = client::conf( $ip, 'amt' ) ) {
- print $client qq|AMT
|, amt::info( $amt, $ip );
- }
+ print $client qq|amt info
|, amt::info( $ip );
} else {
@@ -350,6 +351,9 @@
}
} elsif ( $path =~ m{^/wol/(\S+)} ) {
print $client redirect( "$url/client/$1" ), wol::power_on($1);
+ } elsif ( $path =~ m!^/amt/(\w+)/$RE{net}{IPv4}{-keep}! ) {
+ my ( $run, $ip ) = ( $1, $2 );
+ print $client redirect( "$url/client/$ip" ), amt::RemoteControl( $ip, $run );
} elsif ( $path =~ m{^/our/(\w+)/(\S+)} ) {
eval 'our $' . $1 . ' = ' . $2;
warn $@ if $@;