310 |
|; |
|; |
311 |
} |
} |
312 |
} elsif ( $path =~ m{^/brctl} ) { |
} elsif ( $path =~ m{^/brctl} ) { |
313 |
print $client ok |
print $client ok, html::table( -4, |
314 |
,html::pre( `brctl show` ) |
map { |
315 |
; |
my @c = split(/\t+/,$_,4); |
316 |
|
if ( $#c == 1 ) { |
317 |
|
( '', '', '', $c[1] ) |
318 |
|
} else { |
319 |
|
@c |
320 |
|
} |
321 |
|
} split(/\n/, `brctl show`) |
322 |
|
); |
323 |
} elsif ( $path =~ m{^/ip/?(\w+)?} ) { |
} elsif ( $path =~ m{^/ip/?(\w+)?} ) { |
324 |
print $client ok |
print $client ok |
325 |
, 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/ )) |