| 223 |
; |
; |
| 224 |
|
|
| 225 |
} elsif ( $path =~ m{^/server} ) { |
} elsif ( $path =~ m{^/server} ) { |
| 226 |
|
if ( my $c = $param->{new_clients} ) { |
| 227 |
|
server::shared( 'new_clients', $c ); |
| 228 |
|
} |
| 229 |
print $client ok |
print $client ok |
| 230 |
|
, qq|<form method=get>| |
| 231 |
, html::table( 2, |
, html::table( 2, |
| 232 |
'debug' => qq|<a href=/our/debug/| . boolean::toggle($debug) . qq|>$debug</a>|, |
'debug' => qq|<a href=/our/debug/| . boolean::toggle($debug) . qq|>$debug</a>|, |
| 233 |
|
'new_clients' => qq|<input type=text name=new_clients size=3 value="| . server::shared( 'new_clients' ) . qq|">|, |
| 234 |
map { |
map { |
| 235 |
( $_, html::tt eval '$server::'.$_ ) |
( $_, html::tt eval '$server::'.$_ ) |
| 236 |
} ( 'ip', 'netmask', 'ip_from', 'ip_to', 'domain_name', 'base_dir', 'conf' ) |
} ( 'ip', 'netmask', 'ip_from', 'ip_to', 'domain_name', 'base_dir', 'conf' ) |
| 237 |
) |
) |
| 238 |
|
, qq|</form>| |
| 239 |
; |
; |
| 240 |
} elsif ( $path =~ m!^/client(?:/$RE{net}{IPv4}{-keep})?! ) { |
} elsif ( $path =~ m!^/client(?:/$RE{net}{IPv4}{-keep})?! ) { |
| 241 |
my $ip = $1; |
my $ip = $1; |
Parent Directory
| 
Revision Log
| 
Patch