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 href=/ target=/>home</a> |
75 |
|
<a href=/server target=server>server</a> |
76 |
|
<a href=/brctl target=brctl>brctl</a> |
77 |
|
<a href=/ip target=ip>ip</a> |
78 |
|
<a href=/nmap target=nmap>nmap</a> |
79 |
|
<a href=/client target=client>client</a> |
80 |
|
<a href=$couch_url target=couchdb>couchdb</a> |
81 |
|
</div> |
82 |
|
|
83 |
|
}} |
84 |
|
|
85 |
|
|
86 |
sub static { |
sub static { |
87 |
my ($client,$path) = @_; |
my ($client,$path) = @_; |
88 |
|
|