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