--- lib/PXElator/httpd.pm 2009/07/31 18:26:37 90
+++ lib/PXElator/httpd.pm 2009/07/31 18:48:29 91
@@ -180,18 +180,24 @@
push @rows, ( $name => $html );
}
+ my $below_table = '';
+
warn 'static_pids: ', dump( $static_pids ) if $debug;
foreach my $pid ( keys %$static_pids ) {
my $path = $static_pids->{$pid};
if ( -d "/proc/$pid" ) {
push @rows, ( $path => qq|$pid| );
+ } elsif ( $param->{clean_completed_downloads} ) {
+ delete $static_pids->{$pid}
} else {
push @rows, ( $path => "$pid competed" );
+ $below_table = qq|clean completed downloads|;
}
}
print $client $ok
, html::table( 2, @rows )
+ , $below_table
, html::tabs( log::mac_changes )
, $debug_proc
;