summaryrefslogtreecommitdiff
path: root/rhimport.pm
diff options
context:
space:
mode:
authorChristian Pointner <equinox@helsinki.at>2012-01-20 23:17:45 (GMT)
committerChristian Pointner <equinox@helsinki.at>2012-01-20 23:17:45 (GMT)
commit1dba2c5177db50e79437e221076b3c0153e10c86 (patch)
treedd55b9407548da9ea976ef87580c6310d0e52a42 /rhimport.pm
parent5c15154a15840173ca8167bb0bbb3db32290ce41 (diff)
simpler interface to pv_add_note
Diffstat (limited to 'rhimport.pm')
-rw-r--r--rhimport.pm8
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);