Changeset 40877 for trunk/ippMonitor/czartool/czarpoll.pl

Timestamp:

Aug 27, 2019, 12:06:52 PM (7 years ago)

Author:

tdeboer

Message:

Added check to only run czarpoll when no recent run already exists (prevents ipp117 and ipp113 instances from doing pointless repeats)

File:

• trunk/ippMonitor/czartool/czarpoll.pl (modified) (3 diffs)

trunk/ippMonitor/czartool/czarpoll.pl

@@ -12 +12 @@
 use POSIX qw/strftime/;
 use List::MoreUtils qw(uniq);
+use DateTime;
 
 # local classes
@@ -243 +244 @@
     my ($period) = @_;
 
+    my $polldate;
+    my $datenow;
+    my $timediff;
     my $label;
     my $new;
@@ -267 +271 @@
     # main polling loop
     while (1) {
+        #get the time of last czarpoll update
+        $polldate = $czarDb->getPollDate();
+        $polldate=~/^(\d{4})\-(\d{2})\-(\d{2}) (\d{2}):(\d{2}):(\d{2})$/;
+        my $date=DateTime->new(year=>$1,month=>$2,day=>$3,hour=>$4,minute=>$5,second=>$6,time_zone=>"HST");
+        $date->set_time_zone("UTC");
+
+        $datenow=DateTime->now;
+        $timediff = ($datenow->epoch) - ($date->epoch); 
+        if($timediff < 300.) { 
+            print "There is a recent Czarpoll iteration already made ($timediff sec ago)\n";
+            print "* Going to sleep\n";
+            sleep($period);
+            print "* Waking up\n";
+
+            next;
+        }
 
         my $iterationStartTime = time();