diff options
author | Christian Pointner <equinox@helsinki.at> | 2012-01-20 05:50:32 (GMT) |
---|---|---|
committer | Christian Pointner <equinox@helsinki.at> | 2012-01-20 05:50:32 (GMT) |
commit | 00b024abb5c021d2921249e152bf9d844326b92a (patch) | |
tree | 5f567c53493c7a62db54a7085141530ddea61ee4 /rhimport-rs | |
parent | 0ddc4455442253e9928f57f7cf8b5216fb648d1d (diff) |
finally fixed rhimport-rs
git-svn-id: https://svn.helsinki.at/rhimport/trunk@116 7c65635b-ec39-4f67-a626-873dbafdd612
Diffstat (limited to 'rhimport-rs')
-rwxr-xr-x | rhimport-rs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/rhimport-rs b/rhimport-rs index 26c8f4a..276d612 100755 --- a/rhimport-rs +++ b/rhimport-rs @@ -40,7 +40,7 @@ my $DBUSER = "rivendell"; my $DBPW = "lldriven"; my $DB = "rivendell"; -my $STAT_FILE = $ENV{'HOME'} . "/rhimport-wl.stat"; +my $STAT_FILE = $ENV{'HOME'} . "/rhimport-rs.stat"; my $RSS_URL = "http://cba.fro.at/seriesrss/197"; my @PV_SCRIPT = ('/usr/bin/ssh', 'root@intranet', 'addnote', '75'); my @PV_SCRIPT_REB = ('/usr/bin/ssh', 'root@intranet', 'addnote', '75'); @@ -136,11 +136,11 @@ for my $entry ($feed->entries) { } print "\n"; - push(@PV_SCRIPT, sprintf("%04d-%02d-%02d", $import_date_reb[0], $import_date_reb[1], $import_date_reb[2])); + 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); + $pid = open3($writer, $reader, $error, @PV_SCRIPT_REB); binmode($reader, ":utf8"); binmode($writer, ":utf8"); binmode($error, ":utf8"); |