--- lib/PXElator/httpd.pm	2009/08/09 23:18:59	189
+++ lib/PXElator/httpd.pm	2009/08/10 00:07:38	190
@@ -212,17 +212,41 @@
 				print $client qq|<h2>AMT</h2>|, amt::info( $amt );
 			}
 		} else {
+
+			my $arp = {
+				map {
+					my @c = split(/\s+/,$_);
+					if ( $#c == 5 ) {
+						( uc $c[3] => [ $c[0] , $c[5] ] )
+					} else {
+					}
+				} read_file('/proc/net/arp')
+			};
+
+			warn "# arp ",dump( $arp );
+
 			print $client $ok
 				, qq|<h2>Clients on $server::ip</h2>|
-				, html::table( -4,
-					'ip', 'mac', 'hostname', 'deploy',
+				, html::table( -5,
+					'ip', 'hostname', 'mac', 'deploy', 'arp',
 					map {
 						my $ip = $_;
 						$ip =~ s{^.+/ip/}{};
-						( qq|<a href=/client/$ip>$ip</a>|, client::mac($ip), client::conf( $ip, 'hostname' ), html::tt client::conf( $ip, 'deploy' ) );
+						my $arp = $arp->{ client::mac $ip, 'clean' };
+						$arp = $arp ? $arp->[1] : '';
+						$arp =~ s{$ip}{};
+						(
+							qq|<a href=/client/$ip>$ip</a>|
+							, client::conf( $ip, 'hostname' )
+							, client::mac( $ip )
+							, html::tt( client::conf( $ip, 'deploy' ) )
+							, $arp
+						);
 					}
 					glob("$server::conf/ip/*") 
 				)
+				, qq|<h2>ARP</h2>|
+				, html::pre_dump( $arp )
 				;
 		}
 	} elsif ( $path =~ m{^/our/(\w+)/(\S+)} ) {