From: Dobrica Pavlinusic Date: Thu, 27 Aug 2009 12:42:53 +0000 (+0000) Subject: columns ip, mac, hostname X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=0aa3dc0e1f1d854df3a865b06dee223f85f77153;p=pxelator columns ip, mac, hostname --- diff --git a/lib/PXElator/httpd.pm b/lib/PXElator/httpd.pm index 6ae0211..6eb25ff 100644 --- a/lib/PXElator/httpd.pm +++ b/lib/PXElator/httpd.pm @@ -262,7 +262,7 @@ warn "XXX pids = ", dump( $daemons::pids ); print $client ok , qq|

Clients on $server::ip

| , html::table( -5, - 'ip', 'hostname', 'mac', 'deploy', 'arp', + 'ip', 'mac', 'hostname', 'deploy', 'arp', map { my $ip = $_; $ip =~ s{^.+/ip/}{}; @@ -272,8 +272,8 @@ warn "XXX pids = ", dump( $daemons::pids ); $arp =~ s{$ip}{}; ( qq|$ip| - , client::conf( $ip, 'hostname' ) , format::mac( $mac => 'html' ) + , client::conf( $ip, 'hostname' ) , html::tt( client::conf( $ip, 'deploy' ) ) , $arp ); @@ -281,10 +281,10 @@ warn "XXX pids = ", dump( $daemons::pids ); glob("$server::conf/ip/*") ) , qq|

ARP

| - , html::table( -3, 'mac', 'dev', 'ip', + , html::table( -3, 'ip', 'mac', 'dev', map { my $c = $arp->{$_}; - ( format::mac( $_ => 'html' ), $c->[1], $c->[0] ) + ( $c->[0], format::mac( $_ => 'html' ), $c->[1] ) } sort keys %$arp ) ;