diff options
Diffstat (limited to 'rhimport.pm')
-rw-r--r-- | rhimport.pm | 8 |
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); |