From 12207c1bfa7c599bf1d99c72c8e9e82578a9ce65 Mon Sep 17 00:00:00 2001
From: Victor Seva <vseva@sipwise.com>
Date: Mon, 29 Jun 2020 09:54:56 +0200
Subject: [PATCH] TT#68855 clean_registrations.pl, don't try to clean mysql if
 redis is on

Change-Id: I3cbf822671c8689428bb3862c9bb103938d7bac4
---
 bin/clean_registrations.pl | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/bin/clean_registrations.pl b/bin/clean_registrations.pl
index 80b09b46..3b46fab0 100755
--- a/bin/clean_registrations.pl
+++ b/bin/clean_registrations.pl
@@ -142,6 +142,20 @@ sub clean_kamailio
     return;
 }
 
+sub usrloc_in_redis
+{
+    my ($rc, $out, $err) = run_cmd("ngcpcfg get kamailio.proxy.redis.usrloc");
+    if ($err) {
+        $err = join(", ", split(/\r*\n/, $err));
+        print "Error getting kamailio.proxy.redis.usrloc config\n";
+        return 0;
+    }
+    if($out =~ "yes") {
+        return 1;
+    }
+    return 0;
+}
+
 sub clean_locations
 {
     my $local_host = $CONSTANTS->{database}{local}{dbhost};
@@ -173,4 +187,6 @@ SQL
 }
 
 clean_kamailio($cf);
-clean_locations();
+if(usrloc_in_redis() eq 0) {
+    clean_locations();
+}