diff options
author | Christian Pointner <equinox@helsinki.at> | 2017-06-29 11:51:59 (GMT) |
---|---|---|
committer | Christian Pointner <equinox@helsinki.at> | 2017-06-29 11:51:59 (GMT) |
commit | af3d3efb80733f1bf6dac87ca2c5b75e19d23527 (patch) | |
tree | d74ab3b93caa06f5db5aadaabc642db380c2ce5f /rhautoimport-rs | |
parent | bf5b72a55624634eaac830e4c95dc35b87d0ec1e (diff) |
added importer for fokus bildung
Diffstat (limited to 'rhautoimport-rs')
-rwxr-xr-x | rhautoimport-rs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/rhautoimport-rs b/rhautoimport-rs index 2d9ffab..eda9946 100755 --- a/rhautoimport-rs +++ b/rhautoimport-rs @@ -41,6 +41,7 @@ my $RD_GROUP = "radioStimm"; my $PV_ID = '75'; my $TITLE="Radio Stimme"; 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"); @@ -120,7 +121,7 @@ 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) <= 0) { +if(Date::Calc::Delta_Days(@broadcast_date, @today) <= $upload_delay_days) { print "File won't be available by now!\n"; exit 42; } |