Change
use IPC::Run qw( run new_chunker );
to
use IPC::Run qw( run new_chunker input_avail );

I don't know if that will fix everything, but it's a start. Let me know.

Hey guy.

While I was waiting I tried a few things and am up to here:

#!/opt/local/bin/perl -w
use IPC::Run qw( run new_chunker );
use File::Basename;
#need two arguments: script to run and mailing list (comma-separated m
+1 ids)
$#ARGV == 1 || die "Error: Need exactly two arguments!\n";
($base, $dir, $ext)=fileparse($ARGV[0],'\..*');
#Do some machinations to create a unique overall log file
@now=localtime;
#month returned by localtime() are zero-indexed.
#got to pad the zeroes for the time/date elements
$mo=sprintf("%02d",$now[4]+1);
$d=sprintf("%02d",$now[3]);
$y=$now[5]+1900;
$h=sprintf("%02d",$now[2]);
$mi=sprintf("%02d",$now[1]);
$workdir="/fma/prod1/isa/logs";
$logfile="$workdir/$base-$y$mo$d.$h$mi.m1jwc03.log";
open(LOG,">$logfile") || die "Error:  Could not open $logfile: $!\n";
my $oldfh=select(LOG) || die "Error:  Could not select LOG: $!\n";
print "*-*-begin_run-*-*\n";
($distlist = $ARGV[1]) =~ s/,/ /g;
print "*-*-on_error $distlist-*-*\n";
chdir("$dir");

@cmd=$ARGV[0];

$SIG{CHLD} = sub {
   print "NOTE:  in sig{CHLD}\n";
#   if (waitpid($pid, 0) > 0){sleep(1);};
};
{
   run (\@cmd, '>pty>', sub{ print "STDOUT: $_[0]";}, '2>', sub { prin
+t "STDERR: $_[0]";}) or die("Error executing child. Child returned $&
+\n");

}
print "*-*-end_run-*-*\n";
close(LOG);
[download]

Which is SOOO close. The stuff all comes out in order, but I think the print function is getting some STDERR messages in chinks. However I don't mind TOO much because all I REALLY want to do is prepend and append html tags. So is there a reason why I couldn't turn the run statment into

run (\@cmd, '>pty>', sub{ print "$_[0]";}, '2>', sub { print "<b><big>
+STDERR: $_[0]</b></big>";}) or die("Error executing child. Child retu
+rned $&\n");
[download]

?

________________________________________________________________________________
Without me, it's just aweso

Hey dude(s)

Also in the meantime, I have tried

#!/opt/local/bin/perl -w
use IPC::Run qw( run new_chunker input_avail );
use File::Basename;
#need two arguments: script to run and mailing list (comma-separated m
+1 ids)
$#ARGV == 1 || die "Error: Need exactly two arguments!\n";
($base, $dir, $ext)=fileparse($ARGV[0],'\..*');
#Do some machinations to create a unique overall log file
@now=localtime;
#month returned by localtime() are zero-indexed.
#got to pad the zeroes for the time/date elements
$mo=sprintf("%02d",$now[4]+1);
$d=sprintf("%02d",$now[3]);
$y=$now[5]+1900;
$h=sprintf("%02d",$now[2]);
$mi=sprintf("%02d",$now[1]);
$workdir="/fma/prod1/isa/logs";
$logfile="$workdir/$base-$y$mo$d.$h$mi.m1jwc03.log";
open(LOG,">$logfile") || die "Error:  Could not open $logfile: $!\n";
my $oldfh=select(LOG) || die "Error:  Could not select LOG: $!\n";
print "*-*-begin_run-*-*\n";
($distlist = $ARGV[1]) =~ s/,/ /g;
print "*-*-on_error $distlist-*-*\n";
chdir("$dir");

@cmd=$ARGV[0];

$SIG{CHLD} = sub {
   print "NOTE:  in sig{CHLD}\n";
#   if (waitpid($pid, 0) > 0){sleep(1);};
};
sub new_prefixer {
   my ($prefix) = @_;
   return sub {
      my ($in_ref, $out_ref) = @_;
      return input_avail && do {
         $$out_ref = join('', $$out_ref, $prefix, $$in_ref);
         $$in_ref = '';
         1
      };
   }
}
sub new_printer {
   if (defined ($_[0])){
     return sub {
       print ($_[0]);
     }
   }else{
     return sub {
       print '$_[0] undefined in new_printer',"\n";
     }
   }
}
{
   my $printer = new_printer();

   run (\@cmd, '>', \*LOG, '2>', new_chunker(), new_prefixer('STDERR: 
+'), $printer) or die("Error executing child. Child returned $&\n");
}
print "*-*-end_run-*-*\n";
close(LOG);
[download]

Which doesn't give me any nasty output in the shell, but the log only gets STDOUT and after the STDOUT there are a series of lines that look like this:

$_[0] undefined in new_printer
$_[0] undefined in new_printer
$_[0] undefined in new_printer
.....
$_[0] undefined in new_printer
$_[0] undefined in new_printer
NOTE:  in sig{CHLD}
$_[0] undefined in new_printer
$_[0] undefined in new_printer
*-*-end_run-*-*

so for some reason new_printer() is not getting the right data?

Any and all comments appreciated, and I hope you don't mind that I am taking liberties with your code (to simplify and adapt to my needs).

Thanks again.

_________________________________________________________________________________
Without me, it's just aweso

trying it like this:

 
run (\@cmd, '>pty>', new_chunker(), sub{ print "STDOUT: $_[0]";}, '2>'
+, new_chunker(), sub { print "STDERR: $_[0]";});
[download]

ALMOST works, but some lagging STDERR comes out at the end.

_________________________________________________________________________________
Without me, it's just aweso

...and, the logical next step,

run (\@cmd, '>pty>', new_chunker(), sub{ print "STDOUT: $_[0]";}, '2>p
+ty>', new_chunker(), sub { print "STDERR: $_[0]";});
[download]

really mangles the STDERR stuff, so that's no good. Also I see ^M characters at the ends of lines when looking at the logs in emacs, but the html seems fine.

_________________________________________________________________________________
Without me, it's just aweso