--- lib/PXElator/httpd.pm 2009/08/16 00:03:30 225 +++ lib/PXElator/httpd.pm 2009/08/16 22:24:22 231 @@ -24,6 +24,7 @@
home server +brctl ip client
@@ -52,6 +53,7 @@ use network; use ip; use wireshark; +use syslogd; use CouchDB; @@ -272,6 +274,10 @@ ) ; } + } elsif ( $path =~ m{^/brctl} ) { + print $client ok + ,html::pre( `brctl show` ) + ; } elsif ( $path =~ m{^/ip/?(\w+)?} ) { print $client ok , join("\n", map { qq|$_| } ( qw/link addr route neigh ntable tunnel maddr mroute xfrm/ )) @@ -299,10 +305,10 @@ sub start { - warn 'tap ', network::tap(); + warn 'network ', network::setup(); daemons::start_stop 'browser', $url; - daemons::start_stop $_ foreach ( qw/dhcpd tftpd dnsd/ ); + daemons::start_stop $_ foreach ( qw/dhcpd tftpd dnsd syslogd/ ); daemons::start_stop 'kvm' unless $ENV{DEV}; # skip kvm statup when running on real device my $server = IO::Socket::INET->new(