--- 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 );
}