--- lib/PXElator/httpd.pm 2009/09/07 21:53:45 391 +++ lib/PXElator/httpd.pm 2009/09/08 16:54:35 393 @@ -233,7 +233,7 @@ 'new_clients' => qq||, map { ( $_, html::tt eval '$server::'.$_ ) - } ( 'ip', 'netmask', 'ip_from', 'ip_to', 'domain_name', 'base_dir', 'conf' ) + } ( 'ip', 'netmask', 'ip_from', 'ip_to', 'domain', 'base_dir', 'conf' ) ) , qq|| ; @@ -394,7 +394,9 @@ } elsif ( $path =~ m{^/start_stop/(\S+)} ) { print $client redirect, daemons::start_stop($1,$param); } elsif ( $path =~ m{^/action/([^/]+)/(.+)} ) { - $1->$2(); + my ( $package, $method ) = ( $1, $2 ); + $ENV{nr} = $1 if $package =~ s{\.(\d+)$}{}; + $package->$method(); print $client redirect; } elsif ( $path =~ m{^/kill/static/(\d+)} ) { print $client redirect;