#!/usr/bin/perl
use strict;
use lib '../../..';

use Proc::PersistentControl;

sub type {
    print "$_[0]:\n";
    open(T, $_[0]);
    print while (<T>);
    close(T);
}

sub printInfo {
    my $r = shift;
    foreach my $k (keys(%$r)) {
	my $v = $r->{$k};
	print "$k=$v\n";
    }
    type($r->{_dir} . '/STDOUT');
    type($r->{_dir} . '/STDERR');
}

my $tp = Proc::PersistentControl->new(debug => $ARGV[0]);

my @Procs = $tp->RipeList();

foreach my $p (@Procs) {
    print '=' x 78, "\n";
    print "Reaping ", $p->{_PPCUID}, "\n";    
    printInfo($p->Reap());
    print '=' x 78, "\n";
}
