simpler interface to pv_add_note

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

1 files changed, 5 insertions, 3 deletions

diff --git a/rhimport.pm b/rhimport.pm
index 6e125d2..fbecbc1 100644
--- a/rhimport.pm
+++ b/rhimport.pm
@@ -329,9 +329,11 @@ sub delete_file
 
 sub pv_add_note
 {
-  my $title = shift;
-  my $text = shift;
-  my @script = @_;
+  my ( $title, $text, $id, $date, $type ) = @_;
+  $type = 'n' unless $type;
+
+  # TODO: implement type as soon pv supports this
+  my @script = ('/usr/bin/ssh', 'root@intranet', 'addnote', $id, $date);
 
   my ($reader, $writer, $error ) = ( new IO::Handle, new IO::Handle, new IO::Handle );
   $writer->autoflush(1);