fixed last-run warning

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";