sort by ip addresses

diff --git a/lib/PXElator/httpd.pm b/lib/PXElator/httpd.pm
index 6eb25ff..3723292 100644 (file)
--- a/lib/PXElator/httpd.pm
+++ b/lib/PXElator/httpd.pm
@@ -265,7 +265,6 @@ warn "XXX pids = ", dump( $daemons::pids );
                                        'ip', 'mac', 'hostname', 'deploy', 'arp',
                                        map {
                                                my $ip = $_;
-                                               $ip =~ s{^.+/ip/}{};
                                                my $mac = client::mac_from_ip $ip;
                                                my $arp = $arp->{ $mac };
                                                $arp = $arp ? $arp->[1] : '';
@@ -278,7 +277,12 @@ warn "XXX pids = ", dump( $daemons::pids );
                                                        , $arp
                                                );
                                        }
-                                       glob("$server::conf/ip/*") 
+                                       sort { ip::to_int($a) cmp ip::to_int($b) }
+                                       map {
+                                               my $ip = $_;
+                                               $ip =~ s{^.+/ip/}{};
+                                               $ip;
+                                       } glob("$server::conf/ip/*") 
                                )
                                , qq|<h2>ARP</h2>|
                                , html::table( -3, 'ip', 'mac', 'dev',