Posted to tcl by rmax at Tue Aug 31 10:08:57 GMT 2010view raw

  1. while (1)
  2. {
  3. my @ready = $select->can_read(0);
  4. foreach my $fh (@ready)
  5. {
  6. my $line = <$fh>;
  7. if (defined($line))
  8. {
  9. &debug($fhs{$fh}->{job},$fhs{$fh}->{std},$line);
  10. }
  11. else
  12. {
  13. print "ERROR: $fhs{$fh}->{job} died. Shutting down server.\n";
  14. &Signal("TERM");
  15. }
  16. }
  17.  
  18. select(undef,undef,undef,.01);
  19. }
  20.