moved pv add note to rhimport modul

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

1 files changed, 1 insertions, 19 deletions

diff --git a/rhimport-dn b/rhimport-dn
index b228bf0..d712c9b 100755
--- a/rhimport-dn
+++ b/rhimport-dn
@@ -134,25 +134,7 @@ for my $entry ($headlines_feed->entries) {
       print "summary:\n" . $sum_title . "\n\n" . $sum_text . "\n";
 
       push(@PV_SCRIPT, sprintf("%04d-%02d-%02d", $today[0], $today[1], $today[2]));
-      my ($reader, $writer, $error ) = ( new IO::Handle, new IO::Handle, new IO::Handle );
-      $writer->autoflush(1);
-      local $SIG{CHLD} = 'DEFAULT';
-      my $pid = open3($writer, $reader, $error, @PV_SCRIPT);
-      binmode($reader, ":utf8");
-      binmode($writer, ":utf8");
-      binmode($error, ":utf8");
-      print $writer $sum_title . "\n" . $sum_text;
-      close $writer;
-      waitpid $pid, 0;
-      if ( $? >> 8 ) {
-        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";
-      }
+      rhimport::pv_add_note($sum_title, $sum_text, @PV_SCRIPT);
       print "\n";
     }
   }