cscvs to tla changeset 18

[onak.git] / onak-mail.pl

diff --git a/onak-mail.pl b/onak-mail.pl
index 30e5b9326034e96686ef76f5e2f11acf63bd065d..0f108f45e48f3fa1d7f980990724d843e399818b 100755 (executable)
--- a/onak-mail.pl
+++ b/onak-mail.pl
@@ -22,14 +22,16 @@ sub submitupdate {
        my @data = @_;
        my (@errors, @mergedata);
 
        my @data = @_;
        my (@errors, @mergedata);
 

-       open3(\*MERGEIN, \*MERGEOUT, \*MERGEERR, "/home/noodles/onak-0.0.2/keymerge");
+       open3(\*MERGEIN, \*MERGEOUT, \*MERGEERR, "/home/noodles/onak-0.0.3/onak", "add");

 
        print MERGEIN @data;
        close MERGEIN;
        @errors = <MERGEERR>;
        @mergedata = <MERGEOUT>;
 
 
        print MERGEIN @data;
        close MERGEIN;
        @errors = <MERGEERR>;
        @mergedata = <MERGEOUT>;
 

-       #print @errors;
+       open (LOG, ">>/home/noodles/onak-0.0.3/keyadd.log");
+       print LOG @errors;
+       close LOG;

 
        return @mergedata;
 }
 
        return @mergedata;
 }