#!/bin/perl -w
use Fcntl qw/F_SETFL O_NONBLOCK O_ASYNC/;
my @fhs;

$SIG{IO} = sub {
  foreach my $fh (@fhs) {
     while (<$fh>) {
        print ("I got $_ from $fh");
     }
  }
};

$SIG{CHLD} = 'DEFAULT';

print ("Saved discs:<br/>\n");
my @sortdiscs = sort(@discs);
my ($cut,$total,$pcntCut);

sub burnEm {
   my ($disc,$writer)=@_;
   my ($pid, $fh);
   print (" $disc is being BURNED\n");
   my @cdrecCmd=(["cdrecord", "-dummy", "-immed", "-eject", "-v", "gracetime=2", "-tao", "dev=$writer", "$distroDirs{$distro}/$disc"]);
  foreach my $cmd (@cdrecCmd) {
     $pid = open($fh,'-|', "@$cmd") or die "Sorry could not fork cdrecord program";
     fcntl $fh, F_SETFL, O_NONBLOCK|O_ASYNC;
     push (@fhs, $fh);
  }
}


while ( @sortdiscs ) {
   print ("\n\tSortDiscs Array:@sortdiscs:\n");
   ($discA,$discB,$discC,@remainingDiscs) = @sortdiscs;
   if (defined $discA) {
      burnEm($discA,"cdrw0");
      if ( defined $discB ) {
         burnEm($discB,"cdrw1");
         if ( defined $discC ) {
            burnEm($discC,"cdrw2");
         }
      }
   }
   @sortdiscs = @remainingDiscs;
}