--- lib/PXElator/httpd.pm	2009/08/30 13:33:59	375
+++ lib/PXElator/httpd.pm	2009/08/30 15:22:41	376
@@ -249,7 +249,10 @@
 
 			my $nmap = qq|<a href=/nmap?scan=$ip>nmap</a>|;
 			my @table = (
-				'ping' => ping::host($ip) ? qq|<span style="color:green">up</span> $nmap| : qq|<span style="color: red">down</span> <a href=/wol/$ip>wol</a> $nmap|,
+				'ping' => ping::host($ip)
+					? qq|<span style="color:green">up</span> $nmap|
+					: qq|<span style="color: red">down</span> <a href=/wol/$ip>wol</a> $nmap|
+					,
 				'ip' => qq|<input type=text name=change_ip value="$ip" onChange="document.getElementById('old_ip').style.display = '';"><span id=old_ip style="display: none; color: #888;">old: $ip<span>|,
 				'mac' => format::mac( delete $conf->{mac}, 'html' ),
 				'hostname' => qq|<input type=text name=hostname value="| . delete($conf->{hostname}) . qq|">|,
@@ -272,9 +275,7 @@
 				}
 			}
 
-			if ( my $amt = client::conf( $ip, 'amt' ) ) {
-				print $client qq|<h2>AMT</h2>|, amt::info( $amt, $ip );
-			}
+			print $client qq|<h2>amt info</h2>|, 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 $@;