summaryrefslogtreecommitdiff
path: root/rhautoimport-eu
diff options
context:
space:
mode:
authorChristian Pointner <equinox@helsinki.at>2017-06-29 11:51:59 (GMT)
committerChristian Pointner <equinox@helsinki.at>2017-06-29 11:51:59 (GMT)
commitaf3d3efb80733f1bf6dac87ca2c5b75e19d23527 (patch)
treed74ab3b93caa06f5db5aadaabc642db380c2ce5f /rhautoimport-eu
parentbf5b72a55624634eaac830e4c95dc35b87d0ec1e (diff)
added importer for fokus bildung
Diffstat (limited to 'rhautoimport-eu')
-rwxr-xr-xrhautoimport-eu3
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;
}