also print STDERR on addnote command

git-svn-id: https://svn.helsinki.at/rhimport/trunk@109 7c65635b-ec39-4f67-a626-873dbafdd612

2 files changed, 4 insertions, 2 deletions

diff --git a/rhimport-dn b/rhimport-dn
index b650f24..b228bf0 100755
--- a/rhimport-dn
+++ b/rhimport-dn
@@ -145,12 +145,13 @@ for my $entry ($headlines_feed->entries) {
       close $writer;
       waitpid $pid, 0;
       if ( $? >> 8 ) {
-        print "\n\nPV: adding note failed\n";
+        print "\n\nPV: adding note returned non-zero value\n";
         print "STDERR:\n" . join('', <$error>) . "\n";
         print "STDOUT:\n" . join('', <$reader>) . "\n";
         print "Ignoring failed headline import!\n";
       } else {
         print join('', <$reader>) . "\n";
+        print join('', <$error>) . "\n";
       }
       print "\n";
     }
diff --git a/rhimport-wl b/rhimport-wl
index 072c771..cf51b73 100755
--- a/rhimport-wl
+++ b/rhimport-wl
@@ -111,12 +111,13 @@ for my $entry ($feed->entries) {
     close $writer;
     waitpid $pid, 0;
     if ( $? >> 8 ) {
-      print "\n\nPV: adding note failed\n";
+      print "\n\nPV: adding note returned non-zero value\n";
       print "STDERR:\n" . join('', <$error>) . "\n";
       print "STDOUT:\n" . join('', <$reader>) . "\n";
       print "Ignoring failed headline import!\n";
     } else {
       print join('', <$reader>) . "\n";
+      print join('', <$error>) . "\n";
     }
     print "\n";
   }