added external bounding checks to respective scripts

1 files changed, 6 insertions, 5 deletions

diff --git a/rhautoimport-tr b/rhautoimport-tr
index f9e16b2..c604f9d 100755
--- a/rhautoimport-tr
+++ b/rhautoimport-tr
@@ -39,6 +39,12 @@ $XML::Feed::MULTIPLE_ENCLOSURES=1;
 my $RD_GROUP = "tierrecht";
 my $PV_ID = '506';
 
+my @today = Date::Calc::Standard_to_Business(Date::Calc::Today());
+if($today[2] == 5) {
+  print "please don't run this script on fridays!\n";
+  exit 42;
+}
+
 if($#ARGV >= 0 && $ARGV[0] eq 'last') {
   print "!!!This is the last attempt, there won't be a retry on error!!!\n"
 }
@@ -58,11 +64,6 @@ my $show_id = $allowed_dbs[0]->{'SHOWID'};
 my $show_title = $allowed_dbs[0]->{'SHOWTITLE'};
 
 
-my @today = Date::Calc::Standard_to_Business(Date::Calc::Today());
-if($today[2] == 5) {
-  print "please don't run this script on fridays!\n";
-  exit 42;
-}
 my @broadcast_day = Date::Calc::Business_to_Standard($today[0], $today[1], 5);
 if($today[2] < 5) {
   @broadcast_day = Date::Calc::Add_Delta_Days(@broadcast_day, -7);