131 |
|
|
132 |
my $debug_proc = ''; |
my $debug_proc = ''; |
133 |
|
|
134 |
|
warn "XXX pids = ", dump( $daemons::pids ); |
135 |
|
|
136 |
foreach my $name ( sort keys %$daemons::pids ) { |
foreach my $name ( sort keys %$daemons::pids ) { |
137 |
my $pid = $daemons::pids->{$name} || next; |
my $pid = $daemons::pids->{$name}; # || next; |
138 |
|
|
139 |
my $html; |
my $html; |
140 |
|
|
160 |
$html .= qq| <a href=/action/$name/$_>$_</a>| foreach $name->actions; |
$html .= qq| <a href=/action/$name/$_>$_</a>| foreach $name->actions; |
161 |
} |
} |
162 |
} else { |
} else { |
163 |
$html .= qq|<a href=/start_stop/$name>restart</a> $pid exited| if $name->can('start'); |
if ( $pid =~ m{^\d+$} ) { |
164 |
|
$html .= qq|$pid exited | |
165 |
|
} else { |
166 |
|
$html .= qq|$pid |; |
167 |
|
} |
168 |
|
$html .= qq|<a href=/start_stop/$name>restart</a>| if $pid || $name->can('start'); |
169 |
if ( $name->can('fork_actions') ) { |
if ( $name->can('fork_actions') ) { |
170 |
$html .= qq| <a href=/start_stop/$name/$_>$_</a>| foreach $name->fork_actions; |
$html .= qq| <a href=/start_stop/$name/$_>$_</a>| foreach $name->fork_actions; |
171 |
} |
} |
172 |
} |
} |
173 |
|
|
174 |
|
die "no html generated" unless $html; |
175 |
|
|
176 |
push @rows, ( $name => $html ); |
push @rows, ( $name => $html ); |
177 |
} |
} |
178 |
|
|