71 |
$couch_url =~ s{:\d+.+}{:5984/_utils/}; |
$couch_url =~ s{:\d+.+}{:5984/_utils/}; |
72 |
qq{ |
qq{ |
73 |
<div style="font-size: 80%; color: #888"> |
<div style="font-size: 80%; color: #888"> |
74 |
<a href=/ target=/>home</a> |
<a target=pids href=/ >home</a> |
75 |
<a href=/server target=server>server</a> |
| |
76 |
<a href=/brctl target=brctl>brctl</a> |
<a target=server href=/server >server</a> |
77 |
<a href=/ip target=ip>ip</a> |
<a target=server href=/brctl >brctl</a> |
78 |
<a href=/nmap target=nmap>nmap</a> |
<a target=server href=/ip >ip</a> |
79 |
<a href=/client target=client>client</a> |
| |
80 |
<a href=$couch_url target=couchdb>couchdb</a> |
<a target=couch href=$couch_url >couchdb</a> |
81 |
|
| |
82 |
|
<a target=client href=/nmap >nmap</a> |
83 |
|
<a target=client href=/client >client</a> |
84 |
</div> |
</div> |
85 |
|
|
86 |
}} |
}} |
366 |
my $ip_text = qq|<tt>$ip</tt>|; |
my $ip_text = qq|<tt>$ip</tt>|; |
367 |
$ip_text = qq|<tt><b>$ip</b></tt>| if ip::in_dhcp_range($ip); |
$ip_text = qq|<tt><b>$ip</b></tt>| if ip::in_dhcp_range($ip); |
368 |
( |
( |
369 |
qq|<a $style name=$ip target=$ip href=/client/$ip>$ip_text</a>| |
qq|<a $style name=$ip target=client href=/client/$ip>$ip_text</a>| |
370 |
, format::mac( $mac => 'html' ) |
, format::mac( $mac => 'html' ) |
371 |
, $arp->{$mac} |
, $arp->{$mac} |
372 |
, delete $conf->{hostname} |
, delete $conf->{hostname} |