From 955e8a5412490020b719f7f57d0a068916bcf8e5 Mon Sep 17 00:00:00 2001
From: Daniel-Constantin Mierla <miconda@gmail.com>
Date: Fri, 14 Jun 2019 13:05:14 +0200
Subject: [PATCH] kamctl: usrloc command to delete older expired records from
 database table

- kamctl ul dbclean [<secs>]
- if secs parameter is not given, the value 3600 is used
---
 utils/kamctl/kamctl         | 12 ++++++++++++
 utils/kamctl/kamctl.ctlbase |  1 +
 2 files changed, 13 insertions(+)

diff --git a/utils/kamctl/kamctl b/utils/kamctl/kamctl
index a5f51803d88..cc92e0eba66 100755
--- a/utils/kamctl/kamctl
+++ b/utils/kamctl/kamctl
@@ -2717,6 +2717,18 @@ usrloc() {
 			fi
 			;;
 
+		dbclean)
+			require_dbengine
+			KSR_CLEAN_VAL=3600
+			if [ $# -eq 2 ] ; then
+				KSR_CLEAN_VAL=$2
+			fi
+			QUERY="delete from $USRLOC_TABLE where expires < SUBDATE(NOW(), INTERVAL $KSR_CLEAN_VAL SECOND);"
+			$DBCMD "$QUERY"
+
+			exit $?
+			;;
+
 		*)
 			usage_usrloc
 			exit 1
diff --git a/utils/kamctl/kamctl.ctlbase b/utils/kamctl/kamctl.ctlbase
index 1fc64091afa..5215099a3ea 100644
--- a/utils/kamctl/kamctl.ctlbase
+++ b/utils/kamctl/kamctl.ctlbase
@@ -71,6 +71,7 @@ cat <<EOF
  ul add <username> <uri> ............... introduce a permanent usrloc entry
  ul add <username> <uri> <expires> ..... introduce a temporary usrloc entry
  ul add <user> <uri> <expires> <path> .. introduce a temporary usrloc entry
+ ul dbclean [<secs>].................... remove older expired records from db table
 EOF
 }
 USAGE_FUNCTIONS="$USAGE_FUNCTIONS usage_usrloc"