153 |
foreach my $name ( sort keys %$pids ) { |
foreach my $name ( sort keys %$pids ) { |
154 |
my $pid = $pids->{$name} || next; |
my $pid = $pids->{$name} || next; |
155 |
|
|
156 |
my $html = qq|<a href=/$name>$pid</a>|; |
my $html = qq|<a href=/start_stop/$name>$pid</a>|; |
157 |
|
|
158 |
my $proc = "/proc/$pid/status"; |
my $proc = "/proc/$pid/status"; |
159 |
|
|
201 |
warn $@ if $@; |
warn $@ if $@; |
202 |
print $client $redirect, qq|<big>$1 = $2</big><br>Location: <a href="$url">$url</a>|; |
print $client $redirect, qq|<big>$1 = $2</big><br>Location: <a href="$url">$url</a>|; |
203 |
server::debug( $debug ) if $1 eq 'debug'; |
server::debug( $debug ) if $1 eq 'debug'; |
204 |
} elsif ( $path =~ m{^/start_stop/((?:screen|kvm).*)} ) { |
} elsif ( $path =~ m{^/start_stop/((?:screen|kvm).*)} ) { # XXX we don't want to stop all classes |
205 |
print $client $redirect, start_stop($1); |
print $client $redirect, start_stop($1); |
206 |
} elsif ( $path =~ m{^/action/([^/]+)/(.+)} ) { |
} elsif ( $path =~ m{^/action/([^/]+)/(.+)} ) { |
207 |
$1->$2(); |
$1->$2(); |