show mac as table

diff --git a/lib/PXElator/httpd.pm b/lib/PXElator/httpd.pm
index e290c55..3447cdf 100644 (file)
--- a/lib/PXElator/httpd.pm
+++ b/lib/PXElator/httpd.pm
@@ -246,7 +246,12 @@ sub get_request {
                                        glob("$server::conf/ip/*") 
                                )
                                , qq|<h2>ARP</h2>|
-                               , html::pre_dump( $arp )
+                               , html::table( -3, 'mac', 'dev', 'ip',
+                                       map {
+                                               my $c = $arp->{$_};
+                                               ( html::tt( $_ ), $c->[1], $c->[0] )
+                                       } sort keys %$arp
+                               )
                                ;
                }
        } elsif ( $path =~ m{^/our/(\w+)/(\S+)} ) {