--- lib/PXElator/httpd.pm 2009/08/16 22:24:22 231 +++ lib/PXElator/httpd.pm 2009/08/17 13:25:48 243 @@ -131,8 +131,10 @@ my $debug_proc = ''; +warn "XXX pids = ", dump( $daemons::pids ); + foreach my $name ( sort keys %$daemons::pids ) { - my $pid = $daemons::pids->{$name} || next; + my $pid = $daemons::pids->{$name}; # || next; my $html; @@ -158,12 +160,19 @@ $html .= qq| $_| foreach $name->actions; } } else { - $html .= qq|restart $pid exited| if $name->can('start'); + if ( $pid =~ m{^\d+$} ) { + $html .= qq|$pid exited | + } else { + $html .= qq|$pid |; + } + $html .= qq|restart| if $pid || $name->can('start'); if ( $name->can('fork_actions') ) { $html .= qq| $_| foreach $name->fork_actions; } } + die "no html generated" unless $html; + push @rows, ( $name => $html ); }