diff options
Diffstat (limited to 'rhautoimport-eu')
| -rwxr-xr-x | rhautoimport-eu | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/rhautoimport-eu b/rhautoimport-eu index 1aeaddc..aafde6b 100755 --- a/rhautoimport-eu +++ b/rhautoimport-eu @@ -36,6 +36,7 @@ my $RD_GROUP = "ecoupdate"; my $PV_ID = '568'; my $TITLE="Economic Update"; my $LAST_RUN = 0; +my $upload_delay_days = 0; # files are usally there on the same day of the original broadcast binmode(STDIN, ":utf8"); binmode(STDOUT, ":utf8"); @@ -77,7 +78,7 @@ my @broadcast_date = Date::Calc::Add_Delta_Days(@import_date, -5); print "day of next Radio Helsinki broadcast: " . Date::Calc::Date_to_Text(@import_date) . "\n"; print "day of latest original broadcast before next Radio Helsinki broadcast: " . Date::Calc::Date_to_Text(@broadcast_date) . "\n"; -if(Date::Calc::Delta_Days(@broadcast_date, @today) <= 0) { +if(Date::Calc::Delta_Days(@broadcast_date, @today) <= $upload_delay_days) { print "File won't be available by now!\n"; exit 42; } |