summaryrefslogtreecommitdiff
path: root/rhautoimport-btl
diff options
context:
space:
mode:
Diffstat (limited to 'rhautoimport-btl')
-rwxr-xr-xrhautoimport-btl17
1 files changed, 10 insertions, 7 deletions
diff --git a/rhautoimport-btl b/rhautoimport-btl
index a67d432..3fd662d 100755
--- a/rhautoimport-btl
+++ b/rhautoimport-btl
@@ -40,6 +40,7 @@ my $RD_GROUP = "betweenlin";
my $PV_ID = '221';
my $TITLE="Between the Lines";
my $LAST_RUN = 0;
+my $upload_delay_days = 0; # files are usally there on the same day
binmode(STDIN, ":utf8");
binmode(STDOUT, ":utf8");
@@ -47,7 +48,7 @@ binmode(STDERR, ":utf8");
my $curweek = RHRD::utils::get_rd_week();
if($curweek == 2 || $curweek == 4) {
- print "please don't run this script in week 2 or 4!\n";
+ print "won't do anything in week 2 or 4!\n";
rhautoimport::report_title_and_last($TITLE, 0);
exit 42;
}
@@ -72,20 +73,22 @@ if(scalar(@allowed_dbs) != 1) {
my $show_id = $allowed_dbs[0]->{'SHOWID'};
my $show_title = $allowed_dbs[0]->{'SHOWTITLE'};
-
my @today = Date::Calc::Today();
my @import_date = Date::Calc::Add_Delta_Days(@today, 7);
@import_date = Date::Calc::Standard_to_Business(@import_date);
$import_date[2] = 1;
-my @broadcast_date = @import_date;
-$broadcast_date[2] = 5;
-
@import_date = Date::Calc::Business_to_Standard(@import_date);
-@broadcast_date = Date::Calc::Business_to_Standard(@broadcast_date);
+
+my @broadcast_date = Date::Calc::Add_Delta_Days(@import_date, -5);
print "today: " . Date::Calc::Date_to_Text(@today) . "\n";
print "day of next Radio Helsinki broadcast: " . Date::Calc::Date_to_Text(@import_date) . "\n";
-print "ending of current broadcast cycle: " . Date::Calc::Date_to_Text(@broadcast_date) . "\n";
+print "current broadcast cycle starts/started on: " . Date::Calc::Date_to_Text(@broadcast_date) . "\n";
+
+if(Date::Calc::Delta_Days(@broadcast_date, @today) <= $upload_delay_days) {
+ print "File won't be available by now!\n";
+ exit 42;
+}
my $id = sprintf("%04d-%02d-%02d", @import_date);
my $bd = sprintf("%04d-%02d-%02d", @broadcast_date);