39 |
sub menu { |
sub menu { |
40 |
qq{ |
qq{ |
41 |
<div style="font-size: 80%; color: #888"> |
<div style="font-size: 80%; color: #888"> |
42 |
<a href=/>home</a> |
<a href=/ target=/>home</a> |
43 |
<a href=/server>server</a> |
<a href=/server target=server>server</a> |
44 |
<a href=/brctl>brctl</a> |
<a href=/brctl target=brctl>brctl</a> |
45 |
<a href=/ip>ip</a> |
<a href=/ip target=ip>ip</a> |
46 |
<a href=/nmap>nmap</a> |
<a href=/nmap target=nmap>nmap</a> |
47 |
<a href=/client>client</a> |
<a href=/client target=client>client</a> |
48 |
|
<a href=http://$server::ip:5984/_utils/ target=couchdb>couchdb</a> |
49 |
</div> |
</div> |
50 |
|
|
51 |
}} |
}} |
356 |
. '"' |
. '"' |
357 |
if $ping; |
if $ping; |
358 |
$style ||= ''; |
$style ||= ''; |
359 |
|
my $ip_text = qq|<tt>$ip</tt>|; |
360 |
|
$ip_text = qq|<tt><b>$ip</b></tt>| if ip::in_dhcp_range($ip); |
361 |
( |
( |
362 |
qq|<a $style name=$ip target=$ip href=/client/$ip>$ip</a>| |
qq|<a $style name=$ip target=$ip href=/client/$ip>$ip_text</a>| |
363 |
, format::mac( $mac => 'html' ) |
, format::mac( $mac => 'html' ) |
364 |
, $arp->{$mac} |
, $arp->{$mac} |
365 |
, delete $conf->{hostname} |
, delete $conf->{hostname} |