Changeset 40878

Timestamp:

Aug 27, 2019, 12:07:38 PM (7 years ago)

Author:

tdeboer

Message:

Added safety to prevent deadlocks in label updates (prevents ipp117 and ipp113 instances deadlocking eachother)

File:

• trunk/ippMonitor/czartool/czartool/CzarDb.pm (modified) (3 diffs)

trunk/ippMonitor/czartool/czartool/CzarDb.pm

@@ -40 +40 @@
 use czartool::StageMetrics;
 
+
 ###########################################################################
 #
@@ -54 +55 @@
 
     return $self;
+}
+
+###########################################################################
+#
+# Gets last czarpoll iteration time
+#
+###########################################################################
+sub getPollDate {
+    my ($self,$polldate) = @_;
+
+    my $query = $self->{_db}->prepare(<<SQL);
+    SELECT timestamp FROM chip ORDER BY timestamp DESC LIMIT 1
+SQL
+
+    $query->execute;
+
+    $polldate = $query->fetchrow_array();
+
+    return $polldate;
 }
 
@@ -281 +301 @@
 SQL
 
-       $query->execute;
+        #execute the query, but check for deadlocks
+        my $db_res=0;
+        while($db_res==0)
+        {
+            $db_res=1;
+            my $result = eval{$query->execute;};
+            unless($result) {
+                 if(/DBD::mysql::st execute failed: Deadlock found when trying to get lock; try restarting transaction/){
+                     $db_res=0;
+                     sleep 3;
+                 } 
+            }
+        }
+        
     }
 }