--- 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|
AMT
|, 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|Clients on $server::ip
|
- , html::table( -4,
- 'ip', 'mac', 'hostname', 'deploy',
+ , html::table( -5,
+ 'ip', 'hostname', 'mac', 'deploy', 'arp',
map {
my $ip = $_;
$ip =~ s{^.+/ip/}{};
- ( qq|$ip|, 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|$ip|
+ , client::conf( $ip, 'hostname' )
+ , client::mac( $ip )
+ , html::tt( client::conf( $ip, 'deploy' ) )
+ , $arp
+ );
}
glob("$server::conf/ip/*")
)
+ , qq|ARP
|
+ , html::pre_dump( $arp )
;
}
} elsif ( $path =~ m{^/our/(\w+)/(\S+)} ) {