1 files changed, 2 insertions, 38 deletions
diff --git a/rhimport-rs b/rhimport-rs
index 276d612..13ea5a3 100755
--- a/rhimport-rs
+++ b/rhimport-rs
@@ -115,47 +115,11 @@ for my $entry ($feed->entries) {
     print "summary:\n" . $sum_title . "\n\n" . $sum_text . "\n";
 
     push(@PV_SCRIPT, sprintf("%04d-%02d-%02d", $import_date[0], $import_date[1], $import_date[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";
 
     push(@PV_SCRIPT_REB, sprintf("%04d-%02d-%02d", $import_date_reb[0], $import_date_reb[1], $import_date_reb[2]));
-    ($reader, $writer, $error ) = ( new IO::Handle, new IO::Handle, new IO::Handle );
-    $writer->autoflush(1);
-    local $SIG{CHLD} = 'DEFAULT';
-    $pid = open3($writer, $reader, $error, @PV_SCRIPT_REB);
-    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_REB);
     print "\n";
 
     last;