| 223 |
; |
; |
| 224 |
|
|
| 225 |
} elsif ( $path =~ m{^/server} ) { |
} elsif ( $path =~ m{^/server} ) { |
| 226 |
if ( my $c = $param->{new_clients} ) { |
foreach my $name ( keys %$param ) { |
| 227 |
server::shared( 'new_clients', $c ); |
eval '$server::' . $name . '= $param->{$name}'; |
| 228 |
} |
} |
| 229 |
|
my @table = ( |
| 230 |
|
'debug' => qq|<a href=/our/debug/| . boolean::toggle($debug) . qq|>$debug</a>|, |
| 231 |
|
, 'new_clients' => qq|<input type=text name=new_clients size=3 value="$server::new_clients">| |
| 232 |
|
); |
| 233 |
|
|
| 234 |
|
foreach my $editable ( 'ip', 'netmask', 'ip_from', 'ip_to', 'domain' ) { |
| 235 |
|
my $v = eval '$server::' . $editable; |
| 236 |
|
push @table, ( $editable, qq|<input type=text name=$editable value="$v">| ); |
| 237 |
|
} |
| 238 |
|
|
| 239 |
|
foreach my $readonly ( 'base_dir', 'conf' ) { |
| 240 |
|
my $v = eval '$server::' . $readonly; |
| 241 |
|
push @table, ( $readonly, html::tt $v ); |
| 242 |
|
} |
| 243 |
|
|
| 244 |
print $client ok |
print $client ok |
| 245 |
, qq|<form method=get>| |
, qq|<form method=get>| |
| 246 |
, html::table( 2, |
, html::table( 2, @table ) |
| 247 |
'debug' => qq|<a href=/our/debug/| . boolean::toggle($debug) . qq|>$debug</a>|, |
, qq| |
| 248 |
'new_clients' => qq|<input type=text name=new_clients size=3 value="| . server::shared( 'new_clients' ) . qq|">|, |
<input type=submit name=action value=change> |
| 249 |
map { |
</form> |
| 250 |
( $_, html::tt eval '$server::'.$_ ) |
| |
|
} ( 'ip', 'netmask', 'ip_from', 'ip_to', 'domain', 'base_dir', 'conf' ) |
|
|
) |
|
|
, qq|</form>| |
|
| 251 |
; |
; |
| 252 |
|
|
| 253 |
} elsif ( $path =~ m!^/client(?:/$RE{net}{IPv4}{-keep})?! ) { |
} elsif ( $path =~ m!^/client(?:/$RE{net}{IPv4}{-keep})?! ) { |
| 254 |
my $ip = $1; |
my $ip = $1; |
| 255 |
$title = $ip; |
$title = $ip; |
Parent Directory
| 
Revision Log
| 
Patch