--- lib/PXElator/httpd.pm 2009/07/30 23:57:19 72 +++ lib/PXElator/httpd.pm 2009/07/31 14:43:30 78 @@ -97,8 +97,10 @@ warn "start_stop $daemon $pid pids: ",dump( $pids ); if ( $pid =~ m{^\d+$} ) { - warn "kill 9 $pid"; - kill 9, $pid; + my $pstree = `pstree -p $pid`; + my @pids = $pstree =~ m{\((\d+)\)}g; + warn "pstree $pstree pids ",dump( @pids ); + kill 1, $_ foreach reverse @pids; $pids->{$daemon} = 'stopped'; return qq|$daemon pid $pid stopped|; } else { @@ -145,7 +147,7 @@ my $debug_proc; - warn 'pids: ', dump( $pids ); + warn 'pids: ', dump( $pids ) if $debug; foreach my $name ( keys %$pids ) { my $pid = $pids->{$name} || next; @@ -165,7 +167,7 @@ push @rows, ( $name => $html ); } - warn 'static_pids: ', dump( $static_pids ); + warn 'static_pids: ', dump( $static_pids ) if $debug; foreach my $pid ( keys %$static_pids ) { my $path = $static_pids->{$pid}; if ( -d "/proc/$pid" ) {