fixed last run arguments

1 files changed, 4 insertions, 2 deletions

diff --git a/rhautoimport-dn b/rhautoimport-dn
index 3bb0e58..2a65c8b 100755
--- a/rhautoimport-dn
+++ b/rhautoimport-dn
@@ -38,9 +38,11 @@ my $FILES_RSS_URL = "http://www.democracynow.org/podcast-stations.xml";
 my $HEADLINES_RSS_URL = "http://www.democracynow.org/podcast.xml";
 my $RD_GROUP = "democracyn";
 my $PV_ID = '111';
+my $LAST_RUN = 0;
 
 if($#ARGV >= 0 && $ARGV[0] eq 'last') {
-  print "!!!This is the last attempt, there won't be a retry on error!!!\n"
+  print "!!!This is the last attempt, there won't be a retry on error!!!\n";
+  $LAST_RUN = 1;
 }
 
 my @today = Date::Calc::Today();
@@ -121,7 +123,7 @@ for my $entry ($files_feed->entries) {
 }
 if($uri eq "") {
   print "No Entry found from day in question - ";
-  if($#ARGV >= 0 && $ARGV[0] eq 'last') {
+  if($LAST_RUN) {
     print "giving up, manual import necessary!!!\n";
   } else {
     print "will retry later\n";