150 |
my $debug_proc; |
my $debug_proc; |
151 |
|
|
152 |
warn 'pids: ', dump( $pids ) if $debug; |
warn 'pids: ', dump( $pids ) if $debug; |
153 |
foreach my $name ( 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=/$name>$pid</a>|; |
201 |
print $client $redirect, start_stop($1); |
print $client $redirect, start_stop($1); |
202 |
} elsif ( $path =~ m{^/kill/static/(\d+)} ) { |
} elsif ( $path =~ m{^/kill/static/(\d+)} ) { |
203 |
print $client $redirect; |
print $client $redirect; |
204 |
kill 9, $1 && warn "killed $1"; |
kill 1, $1 || kill 9, $2 && warn "killed $1"; |
205 |
} elsif ( $path eq '/exit' ) { |
} elsif ( $path eq '/exit' ) { |
206 |
# DESTROY; |
# DESTROY; |
207 |
exit 0; |
exit 0; |