diff options
Diffstat (limited to 'rhautoimport-ek')
| -rwxr-xr-x | rhautoimport-ek | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/rhautoimport-ek b/rhautoimport-ek index 3618577..a65af29 100755 --- a/rhautoimport-ek +++ b/rhautoimport-ek @@ -42,6 +42,7 @@ my $RD_GROUP = "eigenklang"; my $PV_ID = '30'; my $TITLE = "Eigenklang"; my $LAST_RUN = 0; +my $upload_delay_days = -3; # files are usally there at least 3 days before original broadcast binmode(STDIN, ":utf8"); binmode(STDOUT, ":utf8"); @@ -105,7 +106,8 @@ if(Date::Calc::Delta_Days(@broadcast_date, @import_date) <= 0) { } } 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) <= 2) { # files are usally there at least 2 days before original broadcast + +if(Date::Calc::Delta_Days(@broadcast_date, @today) <= $upload_delay_days) { print "File won't be available by now!\n"; exit 42; } |