diff options
Diffstat (limited to 'rhautoimport-wr')
| -rwxr-xr-x | rhautoimport-wr | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/rhautoimport-wr b/rhautoimport-wr index 8d92402..d81aa9b 100755 --- a/rhautoimport-wr +++ b/rhautoimport-wr @@ -46,12 +46,15 @@ binmode(STDIN, ":utf8"); binmode(STDOUT, ":utf8"); binmode(STDERR, ":utf8"); -if($#ARGV >= 0 && $ARGV[0] eq 'last') { - print "!!!This is the last attempt, there won't be a retry on error!!!\n"; - $LAST_RUN = 1; +my $curweek = RHRD::utils::get_rd_week(); + +if($curweek == 1 || $curweek == 3) { + if($#ARGV >= 0 && $ARGV[0] eq 'last') { + print "!!!This is the last attempt, there won't be a retry on error!!!\n"; + $LAST_RUN = 1; + } } -my $curweek = RHRD::utils::get_rd_week(); my @today = Date::Calc::Today(); print "today: " . Date::Calc::Date_to_Text(@today) . " (Week: " . $curweek . ")\n"; @@ -71,7 +74,6 @@ if($curweek == 1 || $curweek == 3) { print "day of next Radio Helsinki broadcast: " . Date::Calc::Date_to_Text(@import_date) . "\n"; - my @allowed_dbs = rhautoimport::get_dropboxes($RD_GROUP); if(!defined $allowed_dbs[0] && defined $allowed_dbs[1]) { print "$allowed_dbs[1]\n"; |