36 |
</html> |
</html> |
37 |
}} |
}} |
38 |
|
|
|
sub menu { |
|
|
qq{ |
|
|
<div style="font-size: 80%; color: #888"> |
|
|
<a href=/ target=/>home</a> |
|
|
<a href=/server target=server>server</a> |
|
|
<a href=/brctl target=brctl>brctl</a> |
|
|
<a href=/ip target=ip>ip</a> |
|
|
<a href=/nmap target=nmap>nmap</a> |
|
|
<a href=/client target=client>client</a> |
|
|
<a href=http://$server::ip:5984/_utils/ target=couchdb>couchdb</a> |
|
|
</div> |
|
|
|
|
|
}} |
|
|
|
|
39 |
our $port = 7777; |
our $port = 7777; |
40 |
|
|
41 |
use server; |
use server; |
65 |
|
|
66 |
use CouchDB; |
use CouchDB; |
67 |
|
|
68 |
|
|
69 |
|
sub menu { |
70 |
|
my $couch_url = $url; |
71 |
|
$couch_url =~ s{:\d+.+}{:5984/_utils/}; |
72 |
|
qq{ |
73 |
|
<div style="font-size: 80%; color: #888"> |
74 |
|
<a target=pids href=/ >home</a> |
75 |
|
| |
76 |
|
<a target=server href=/server >server</a> |
77 |
|
<a target=server href=/brctl >brctl</a> |
78 |
|
<a target=server href=/ip >ip</a> |
79 |
|
| |
80 |
|
<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> |
85 |
|
|
86 |
|
}} |
87 |
|
|
88 |
|
|
89 |
sub static { |
sub static { |
90 |
my ($client,$path) = @_; |
my ($client,$path) = @_; |
91 |
|
|
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} |