cscvs to tla changeset 38

Author: noodles
Date: 2002/11/16 12:58:43
Reorder reading in of onak output (stdout first) to help prevent blocking.

diff --git a/onak-mail.pl b/onak-mail.pl
index 46763f3ec98a51b8491116e843cf7f6e499ebd57..3076a7e99a72f44feddc30baa8f482292020b51c 100755 (executable)
--- a/onak-mail.pl
+++ b/onak-mail.pl
@@ -59,8 +59,8 @@ sub submitupdate {
 
        print MERGEIN @data;
        close MERGEIN;
 
        print MERGEIN @data;
        close MERGEIN;

-       @errors = <MERGEERR>;

        @mergedata = <MERGEOUT>;
        @mergedata = <MERGEOUT>;

+       @errors = <MERGEERR>;

 
        open (LOG, ">>/home/noodles/onak-0.0.3/keyadd.log");
        print LOG "[".localtime(time)."] ", @errors;
 
        open (LOG, ">>/home/noodles/onak-0.0.3/keyadd.log");
        print LOG "[".localtime(time)."] ", @errors;