ctdb-utils: Add tdb_mutex_check utility

Signed-off-by: Amitay Isaacs <amitay@gmail.com>
Reviewed-by: Martin Schwenke <martin@meltin.net>

diff --git a/ctdb/packaging/RPM/ctdb.spec.in b/ctdb/packaging/RPM/ctdb.spec.in
index efece159bdc5d0bb39b0a07cb0506c2bdbd4bd49..80eb2945e4197d0625f04525767b3c4fa6dac19b 100644 (file)
--- a/ctdb/packaging/RPM/ctdb.spec.in
+++ b/ctdb/packaging/RPM/ctdb.spec.in
@@ -223,6 +223,7 @@ fi
 %dir %{_libexecdir}/ctdb
 %{_libexecdir}/ctdb/*
 %dir %{_libdir}/ctdb
+%{_libexecdir}/tdb_mutex_check
 %{_libdir}/ctdb/lib*
 %dir %{_datadir}/ctdb/events
 %{_datadir}/ctdb/events/*

diff --git a/ctdb/utils/tdb/tdb_mutex_check.c b/ctdb/utils/tdb/tdb_mutex_check.c
new file mode 100644 (file)
index 0000000..da794b8
--- /dev/null
+++ b/ctdb/utils/tdb/tdb_mutex_check.c
@@ -0,0 +1,148 @@
+/*
+   Check the mutex lock information in tdb database
+
+   Copyright (C) Amitay Isaacs 2015-2021
+
+   This program is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 3 of the License, or
+   (at your option) any later version.
+
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with this program; if not, see <http://www.gnu.org/licenses/>.
+*/
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <fcntl.h>
+#include <pthread.h>
+#include <errno.h>
+
+#ifndef USE_TDB_MUTEX_LOCKING
+#define USE_TDB_MUTEX_LOCKING  1
+#endif
+
+#include "lib/tdb/common/tdb_private.h"
+#include "lib/tdb/common/mutex.c"
+
+static uint8_t *hex_decode(const char *hex_in, size_t *len)
+{
+       size_t i;
+       int num;
+       uint8_t *buffer;
+
+       *len = strlen(hex_in) / 2;
+       buffer = malloc(*len);
+
+       for (i=0; i<*len; i++) {
+               sscanf(&hex_in[i*2], "%02X", &num);
+               buffer[i] = (uint8_t)num;
+       }
+
+       return buffer;
+}
+
+static int get_hash_chain(struct tdb_context *tdb, const char *hex_key)
+{
+       TDB_DATA key;
+       unsigned int hash;
+
+       key.dptr = hex_decode(hex_key, &key.dsize);
+       if (key.dsize == 0) {
+               return -1;
+       }
+       hash = tdb_jenkins_hash(&key);
+       free(key.dptr);
+
+       return hash % tdb_hash_size(tdb);
+}
+
+static void check_one(struct tdb_mutexes *mutexes, int chain)
+{
+       pthread_mutex_t *m;
+       int ret;
+       int pthread_mutex_consistent_np(pthread_mutex_t *);
+
+       m = &mutexes->hashchains[chain+1];
+       ret = pthread_mutex_trylock(m);
+       if (ret == 0) {
+               pthread_mutex_unlock(m);
+               return;
+       }
+       if (ret == EOWNERDEAD) {
+               ret = pthread_mutex_consistent_np(m);
+               if (ret != 0) {
+                       printf("[%6d] consistent failed (%d)\n", chain, ret);
+                       return;
+               }
+               ret = pthread_mutex_unlock(m);
+               if (ret != 0) {
+                       printf("[%6d] unlock failed (%d)\n", chain, ret);
+                       return;
+               }
+               printf("[%6d] cleaned\n", chain);
+               return;
+       }
+       if (ret == EBUSY) {
+               printf("[%6d] pid=%d\n", chain, m->__data.__owner);
+               return;
+       }
+       printf("[%6d] trylock failed (%d)\n", chain, ret);
+}
+
+static void check_all(struct tdb_mutexes *mutexes, unsigned int hash_size)
+{
+       unsigned int i;
+
+       for (i=0; i<hash_size; i++) {
+               check_one(mutexes, i);
+       }
+}
+
+int main(int argc, char **argv)
+{
+       const char *tdb_file;
+       TDB_CONTEXT *tdb;
+       uint32_t tdb_flags;
+       int chain, i;
+
+       if (argc < 2) {
+               printf("Usage %s <tdb file> [<key1> <key2>]\n", argv[0]);
+               exit(1);
+       }
+
+       tdb_file = argv[1];
+
+       tdb_flags = TDB_MUTEX_LOCKING | TDB_INCOMPATIBLE_HASH |
+                   TDB_CLEAR_IF_FIRST;
+       tdb = tdb_open(tdb_file, 0, tdb_flags, O_RDWR, 0);
+       if (tdb == NULL) {
+               printf("Error opening %s\n", tdb_file);
+               exit(1);
+       }
+
+       if (tdb->mutexes == NULL) {
+               printf("Mutexes are not mmaped\n");
+               exit(1);
+       }
+
+       if (argc == 2) {
+               check_all(tdb->mutexes, tdb_hash_size(tdb));
+       } else {
+               for (i=2; i<argc; i++) {
+                       chain = get_hash_chain(tdb, argv[i]);
+                       if (chain == -1) {
+                               continue;
+                       }
+                       check_one(tdb->mutexes, chain);
+               }
+       }
+
+       tdb_close(tdb);
+       return 0;
+}

diff --git a/ctdb/wscript b/ctdb/wscript
index b883990c55e1c873980818246759f8b066ef8682..a9fef9241aa9eb45ad5cc2038c84c0d8de1ac46d 100644 (file)
--- a/ctdb/wscript
+++ b/ctdb/wscript
@@ -139,6 +139,17 @@ def configure(conf):
                     define='HAVE_PACKETSOCKET',
                     headers='sys/socket.h linux/if_packet.h')
 
+    conf.CHECK_CODE('''pthread_mutex_t m;
+                       int pid = 0;
+                       m.__data.__owner = pid;
+                    ''',
+                    'HAVE_PTHREAD_INTERNAL_MUTEX_OWNER',
+                    headers='pthread.h',
+                    msg='Checking for internal POSIX mutex owner field')
+    if not conf.env.HAVE_PTHREAD_INTERNAL_MUTEX_OWNER:
+        # This is unsupported - please see note in debug_locks.sh
+        Logs.info('Building without unsupported mutex debugging hack')
+
     if conf.env.standalone_ctdb:
         conf.SAMBA_CHECK_PERL(mandatory=True)
 
@@ -666,6 +677,12 @@ def build(bld):
                      install_path='${BINDIR}',
                      manpages='ping_pong.1')
 
+    if bld.env.HAVE_PTHREAD_INTERNAL_MUTEX_OWNER:
+        bld.SAMBA_BINARY('tdb_mutex_check',
+                         source='utils/tdb/tdb_mutex_check.c',
+                         deps='tdb pthread',
+                         install_path='${CTDB_HELPER_BINDIR}')
+
     if bld.env.HAVE_PMDA:
         bld.SAMBA_BINARY('pmdactdb',
                          source='utils/pmda/pmda_ctdb.c',