fix REST API for /start_stop/ change

diff --git a/lib/PXElator/httpd.pm b/lib/PXElator/httpd.pm
index f93e31d..2315242 100644 (file)
--- a/lib/PXElator/httpd.pm
+++ b/lib/PXElator/httpd.pm
@@ -153,7 +153,7 @@ sub get_request {
                foreach my $name ( sort keys %$pids ) {
                        my $pid = $pids->{$name} || next;
 
-                       my $html = qq|<a href=/$name>$pid</a>|;
+                       my $html = qq|<a href=/start_stop/$name>$pid</a>|;
 
                        my $proc = "/proc/$pid/status";
 
@@ -201,7 +201,7 @@ sub get_request {
                warn $@ if $@;
                print $client $redirect, qq|<big>$1 = $2</big><br>Location: <a href="$url">$url</a>|;
                server::debug( $debug ) if $1 eq 'debug';
-       } elsif ( $path =~ m{^/start_stop/((?:screen|kvm).*)} ) {
+       } elsif ( $path =~ m{^/start_stop/((?:screen|kvm).*)} ) { # XXX we don't want to stop all classes
                print $client $redirect, start_stop($1);
        } elsif ( $path =~ m{^/action/([^/]+)/(.+)} ) {
                $1->$2();