diff options
| author | Christian Pointner <equinox@helsinki.at> | 2011-11-27 02:31:52 (GMT) |
|---|---|---|
| committer | Christian Pointner <equinox@helsinki.at> | 2011-11-27 02:31:52 (GMT) |
| commit | 173859dc5d76e65098b2d9b4797fd168f3430e2a (patch) | |
| tree | 293ff3ee11d0b4ed752755bdce668f76bdc953ca /rhimport-wl | |
| parent | 263525a05db3ae54f7ac31c514b613a08df723be (diff) | |
fixed pv_script (not for today but for tomorrow)
Diffstat (limited to 'rhimport-wl')
| -rwxr-xr-x | rhimport-wl | 3 |
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'; |