23 |
our $debug = 1; |
our $debug = 1; |
24 |
|
|
25 |
use server; |
use server; |
26 |
our $url = "http://$server::ip:$port/"; |
our $url = "http://$server::ip:$port"; |
27 |
|
|
28 |
use html; |
use html; |
29 |
|
|
106 |
|
|
107 |
print $client $ok, |
print $client $ok, |
108 |
html::table( 2, |
html::table( 2, |
109 |
'pid', $$, |
'pid', html::tt( $$ ), |
110 |
'debug', qq|<a href=/our/debug/| . boolean::toggle($debug) . qq|>$debug</a>|, |
'ip', html::tt( $server::ip ), |
111 |
'screen', qq|<a href=/screen>$screen</a>|, |
'netmask', html::tt( $server::netmask ), |
112 |
'kvm', qq|<a href=/kvm>$kvm</a>|, |
'debug', qq|<a href=/our/debug/| . boolean::toggle($debug) . qq|>$debug</a>|, |
113 |
|
'screen', qq|<a href=/screen>$screen</a>|, |
114 |
|
'kvm', qq|<a href=/kvm>$kvm</a>|, |
115 |
); |
); |
116 |
|
|
117 |
} elsif ( $path =~ m{^/our/(\w+)/(\S+)} ) { |
} elsif ( $path =~ m{^/our/(\w+)/(\S+)} ) { |