diff options
Diffstat (limited to 'rhautoimport-kk')
| -rwxr-xr-x | rhautoimport-kk | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/rhautoimport-kk b/rhautoimport-kk index a8e790e..e91b79e 100755 --- a/rhautoimport-kk +++ b/rhautoimport-kk @@ -42,7 +42,7 @@ my $RD_GROUP = "keinkomm"; my $PV_ID = '920'; my $TITLE="Kein Kommentar"; my $LAST_RUN = 0; -my $upload_delay_days = 0; # files are usally there on the same day +my $upload_delay_days = -2; # files are usally there one day before binmode(STDIN, ":utf8"); binmode(STDOUT, ":utf8"); @@ -90,9 +90,7 @@ if(scalar(@allowed_dbs) != 1) { my $show_id = $allowed_dbs[0]->{'SHOWID'}; my $show_title = $allowed_dbs[0]->{'SHOWTITLE'}; -my @broadcast_date = Date::Calc::Standard_to_Business(@import_date); -$broadcast_date[2] = 2; -@broadcast_date = Date::Calc::Business_to_Standard(@broadcast_date); +my @broadcast_date = @import_date; 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) <= $upload_delay_days) { |