diff options
Diffstat (limited to 'rhimport-wl')
-rwxr-xr-x | rhimport-wl | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/rhimport-wl b/rhimport-wl index 6c2d314..492460d 100755 --- a/rhimport-wl +++ b/rhimport-wl @@ -42,7 +42,7 @@ my $DB = "rivendell"; my $STAT_FILE = $ENV{'HOME'} . "/rhimport-wl.stat"; my $RSS_URL = "http://www.radiowienerlied.at/rss/podcast.xml"; -my @PV_SCRIPT = ('/usr/bin/ssh', 'root@intranet', 'addnote', '82'); +my @PV_ID = '82'; binmode(STDIN, ":utf8"); binmode(STDOUT, ":utf8"); @@ -97,10 +97,8 @@ for my $entry ($feed->entries) { print "summary:\n" . $sum_title . "\n\n" . $sum_text . "\n"; - my @tomorrow = Date::Calc::Add_Delta_Days($today[0], $today[1], $today[2], 1); - push(@PV_SCRIPT, sprintf("%04d-%02d-%02d", $tomorrow[0], $tomorrow[1], $tomorrow[2])); - rhimport::pv_add_note($sum_title, $sum_text, @PV_SCRIPT); + rhimport::pv_add_note($sum_title, $sum_text, $PV_ID, sprintf("%04d-%02d-%02d", $tomorrow[0], $tomorrow[1], $tomorrow[2])); print "\n"; } } |