summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristian Pointner <equinox@helsinki.at>2011-11-27 02:31:52 (GMT)
committerChristian Pointner <equinox@helsinki.at>2011-11-27 02:31:52 (GMT)
commit75d6cbeb55f58758fa7d1fcba83c2516bf7f0f70 (patch)
tree293ff3ee11d0b4ed752755bdce668f76bdc953ca
parentc7ae6f02cdb2f9989cfbae9e5d5bf5467c50af39 (diff)
fixed pv_script (not for today but for tomorrow)
git-svn-id: https://svn.helsinki.at/rhimport/trunk@104 7c65635b-ec39-4f67-a626-873dbafdd612
-rwxr-xr-xrhimport-wl3
1 files changed, 2 insertions, 1 deletions
diff --git a/rhimport-wl b/rhimport-wl
index 3b1daaa..072c771 100755
--- a/rhimport-wl
+++ b/rhimport-wl
@@ -98,7 +98,8 @@ for my $entry ($feed->entries) {
print "summary:\n" . $sum_title . "\n\n" . $sum_text . "\n";
- push(@PV_SCRIPT, sprintf("%04d-%02d-%02d", $today[0], $today[1], $today[2]));
+ 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]));
my ($reader, $writer, $error ) = ( new IO::Handle, new IO::Handle, new IO::Handle );
$writer->autoflush(1);
local $SIG{CHLD} = 'DEFAULT';