From 47301e28b5693f850e1e6fa428cf56e57a93994b Mon Sep 17 00:00:00 2001
From: Richard Fuchs <rfuchs@sipwise.com>
Date: Thu, 18 Dec 2014 09:25:08 -0500
Subject: [PATCH] MT#10551 explicit rollback/disconnect in case of DB problems

---
 rate-o-mat.pl | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/rate-o-mat.pl b/rate-o-mat.pl
index b5db22b..54f906e 100755
--- a/rate-o-mat.pl
+++ b/rate-o-mat.pl
@@ -1450,10 +1450,17 @@ sub main
 				if($DBI::err == 2006)
 				{
 					INFO "DB connection gone, retrying...";
+					# disconnect from all of them so transactions are on par
+					$billdbh->disconnect;
+					$acctdbh->disconnect;
+					$dupdbh and ($dupdbh->disconnect);
 					next;
 				}
 				if ($DBI::err == 1213) {
 					INFO "Transaction concurrency problem, rolling back and retrying...";
+					$billdbh->rollback;
+					$acctdbh->rollback;
+					$dupdbh and ($dupdbh->rollback);
 					next;
 				}
 			}