24 |
<div style="font-size: 80%; color: #888"> |
<div style="font-size: 80%; color: #888"> |
25 |
<a href=/>home</a> |
<a href=/>home</a> |
26 |
<a href=/server>server</a> |
<a href=/server>server</a> |
27 |
|
<a href=/brctl>brctl</a> |
28 |
<a href=/ip>ip</a> |
<a href=/ip>ip</a> |
29 |
<a href=/client>client</a> |
<a href=/client>client</a> |
30 |
</div> |
</div> |
273 |
) |
) |
274 |
; |
; |
275 |
} |
} |
276 |
|
} elsif ( $path =~ m{^/brctl} ) { |
277 |
|
print $client ok |
278 |
|
,html::pre( `brctl show` ) |
279 |
|
; |
280 |
} elsif ( $path =~ m{^/ip/?(\w+)?} ) { |
} elsif ( $path =~ m{^/ip/?(\w+)?} ) { |
281 |
print $client ok |
print $client ok |
282 |
, join("\n", map { qq|<a href=/ip/$_>$_</a>| } ( qw/link addr route neigh ntable tunnel maddr mroute xfrm/ )) |
, join("\n", map { qq|<a href=/ip/$_>$_</a>| } ( qw/link addr route neigh ntable tunnel maddr mroute xfrm/ )) |
304 |
|
|
305 |
sub start { |
sub start { |
306 |
|
|
307 |
warn 'tap ', network::tap(); |
warn 'network ', network::setup(); |
308 |
|
|
309 |
daemons::start_stop 'browser', $url; |
daemons::start_stop 'browser', $url; |
310 |
daemons::start_stop $_ foreach ( qw/dhcpd tftpd dnsd/ ); |
daemons::start_stop $_ foreach ( qw/dhcpd tftpd dnsd/ ); |