233 |
'new_clients' => qq|<input type=text name=new_clients size=3 value="| . server::shared( 'new_clients' ) . qq|">|, |
'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', 'base_dir', 'conf' ) |
237 |
) |
) |
238 |
, qq|</form>| |
, qq|</form>| |
239 |
; |
; |
394 |
} elsif ( $path =~ m{^/start_stop/(\S+)} ) { |
} elsif ( $path =~ m{^/start_stop/(\S+)} ) { |
395 |
print $client redirect, daemons::start_stop($1,$param); |
print $client redirect, daemons::start_stop($1,$param); |
396 |
} elsif ( $path =~ m{^/action/([^/]+)/(.+)} ) { |
} elsif ( $path =~ m{^/action/([^/]+)/(.+)} ) { |
397 |
$1->$2(); |
my ( $package, $method ) = ( $1, $2 ); |
398 |
|
$ENV{nr} = $1 if $package =~ s{\.(\d+)$}{}; |
399 |
|
$package->$method(); |
400 |
print $client redirect; |
print $client redirect; |
401 |
} elsif ( $path =~ m{^/kill/static/(\d+)} ) { |
} elsif ( $path =~ m{^/kill/static/(\d+)} ) { |
402 |
print $client redirect; |
print $client redirect; |