diff options
| author | Christian Pointner <equinox@helsinki.at> | 2022-06-22 11:13:59 (GMT) |
|---|---|---|
| committer | Christian Pointner <equinox@helsinki.at> | 2022-06-22 11:13:59 (GMT) |
| commit | 1f9e9bbd95a4cd111fe4cf8405235339a87a3035 (patch) | |
| tree | 6d89314dbde28d990a0b17b41555bff0ddd83169 /rhautoimport-kk | |
| parent | 9785840f6befd96a81384135eee36207215437d3 (diff) | |
adapt Kein Kommentar importer to new scheme
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) { |