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; |