--- lib/PXElator/httpd.pm	2009/08/13 13:06:18	216
+++ lib/PXElator/httpd.pm	2009/08/15 22:38:02	224
@@ -24,6 +24,7 @@
 <div style="font-size: 80%; color: #888">
 <a href=/>home</a>
 <a href=/server>server</a>
+<a href=/ip>ip</a>
 <a href=/client>client</a>
 </div>
 
@@ -49,6 +50,7 @@
 use kvm;
 use browser;
 use network;
+use ip;
 
 use CouchDB;
 
@@ -266,6 +268,11 @@
 				)
 				;
 		}
+	} elsif ( $path =~ m{^/ip/?(\w+)?} ) {
+		print $client ok
+			, join("\n", map { qq|<a href=/ip/$_>$_</a>| } ( qw/link addr route neigh ntable tunnel maddr mroute xfrm/ ))
+			, ip::html( $1 )
+			;
 	} elsif ( $path =~ m{^/our/(\w+)/(\S+)} ) {
 		eval 'our $' . $1 . ' = ' . $2;
 		warn $@ if $@;