Add a new test tool that fetch locks a record and then blocks until it receives
[sahlberg/ctdb.git] / server / ctdb_traverse.c
index b8e82e34a3d50145d9f49ff1840d60a37a6b811e..5ad374f098da6a8a498c7bfe3ec0640ebe2c7f45 100644 (file)
@@ -5,7 +5,7 @@
 
    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 2 of the License, or
+   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,
    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, write to the Free Software
-   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+   along with this program; if not, see <http://www.gnu.org/licenses/>.
 */
 
 #include "includes.h"
-#include "lib/events/events.h"
+#include "lib/tevent/tevent.h"
 #include "system/filesys.h"
 #include "system/wait.h"
 #include "db_wrap.h"
 #include "lib/tdb/include/tdb.h"
 #include "../include/ctdb_private.h"
+#include "lib/util/dlinklist.h"
 
 typedef void (*ctdb_traverse_fn_t)(void *private_data, TDB_DATA key, TDB_DATA data);
 
@@ -33,9 +33,12 @@ typedef void (*ctdb_traverse_fn_t)(void *private_data, TDB_DATA key, TDB_DATA da
   terminate the traverse
  */
 struct ctdb_traverse_local_handle {
+       struct ctdb_traverse_local_handle *next, *prev;
        struct ctdb_db_context *ctdb_db;
        int fd[2];
        pid_t child;
+       uint64_t srvid;
+       uint32_t client_reqid;
        void *private_data;
        ctdb_traverse_fn_t callback;
        struct timeval start_time;
@@ -74,8 +77,8 @@ static void ctdb_traverse_local_handler(uint8_t *rawdata, size_t length, void *p
  */
 static int traverse_local_destructor(struct ctdb_traverse_local_handle *h)
 {
+       DLIST_REMOVE(h->ctdb_db->traverse, h);
        kill(h->child, SIGKILL);
-       waitpid(h->child, NULL, 0);
        return 0;
 }
 
@@ -89,14 +92,21 @@ static int ctdb_traverse_local_fn(struct tdb_context *tdb, TDB_DATA key, TDB_DAT
        struct ctdb_rec_data *d;
        struct ctdb_ltdb_header *hdr;
 
-       /* filter out non-authoritative and zero-length records */
        hdr = (struct ctdb_ltdb_header *)data.dptr;
-       if (data.dsize <= sizeof(struct ctdb_ltdb_header) ||
-           hdr->dmaster != h->ctdb_db->ctdb->vnn) {
-               return 0;
+
+       if (h->ctdb_db->persistent == 0) {
+               /* filter out zero-length records */
+               if (data.dsize <= sizeof(struct ctdb_ltdb_header)) {
+                       return 0;
+               }
+
+               /* filter out non-authoritative records */
+               if (hdr->dmaster != h->ctdb_db->ctdb->pnn) {
+                       return 0;
+               }
        }
 
-       d = ctdb_marshall_record(h, 0, key, data);
+       d = ctdb_marshall_record(h, 0, key, NULL, data);
        if (d == NULL) {
                /* error handling is tricky in this child code .... */
                return -1;
@@ -108,6 +118,14 @@ static int ctdb_traverse_local_fn(struct tdb_context *tdb, TDB_DATA key, TDB_DAT
        return 0;
 }
 
+struct traverse_all_state {
+       struct ctdb_context *ctdb;
+       struct ctdb_traverse_local_handle *h;
+       uint32_t reqid;
+       uint32_t srcnode;
+       uint32_t client_reqid;
+       uint64_t srvid;
+};
 
 /*
   setup a non-blocking traverse of a local ltdb. The callback function
@@ -118,12 +136,12 @@ static int ctdb_traverse_local_fn(struct tdb_context *tdb, TDB_DATA key, TDB_DAT
  */
 static struct ctdb_traverse_local_handle *ctdb_traverse_local(struct ctdb_db_context *ctdb_db,
                                                              ctdb_traverse_fn_t callback,
-                                                             void *private_data)
+                                                             struct traverse_all_state *all_state)
 {
        struct ctdb_traverse_local_handle *h;
        int ret;
 
-       h = talloc_zero(ctdb_db, struct ctdb_traverse_local_handle);
+       h = talloc_zero(all_state, struct ctdb_traverse_local_handle);
        if (h == NULL) {
                return NULL;
        }
@@ -135,7 +153,7 @@ static struct ctdb_traverse_local_handle *ctdb_traverse_local(struct ctdb_db_con
                return NULL;
        }
 
-       h->child = fork();
+       h->child = ctdb_fork(ctdb_db->ctdb);
 
        if (h->child == (pid_t)-1) {
                close(h->fd[0]);
@@ -145,24 +163,35 @@ static struct ctdb_traverse_local_handle *ctdb_traverse_local(struct ctdb_db_con
        }
 
        h->callback = callback;
-       h->private_data = private_data;
+       h->private_data = all_state;
        h->ctdb_db = ctdb_db;
+       h->client_reqid = all_state->client_reqid;
+       h->srvid = all_state->srvid;
 
        if (h->child == 0) {
                /* start the traverse in the child */
                close(h->fd[0]);
+               debug_extra = talloc_asprintf(NULL, "traverse_local-%s:",
+                                             ctdb_db->db_name);
                tdb_traverse_read(ctdb_db->ltdb->tdb, ctdb_traverse_local_fn, h);
                _exit(0);
        }
 
        close(h->fd[1]);
+       set_close_on_exec(h->fd[0]);
+
        talloc_set_destructor(h, traverse_local_destructor);
 
+       DLIST_ADD(ctdb_db->traverse, h);
+
        /*
          setup a packet queue between the child and the parent. This
          copes with all the async and packet boundary issues
         */
-       h->queue = ctdb_queue_setup(ctdb_db->ctdb, h, h->fd[0], 0, ctdb_traverse_local_handler, h);
+       DEBUG(DEBUG_DEBUG, (__location__ " Created PIPE FD:%d to child traverse\n", h->fd[0]));
+
+       h->queue = ctdb_queue_setup(ctdb_db->ctdb, h, h->fd[0], 0, ctdb_traverse_local_handler, h,
+                                   "to-ctdbd");
        if (h->queue == NULL) {
                talloc_free(h);
                return NULL;
@@ -176,6 +205,7 @@ static struct ctdb_traverse_local_handle *ctdb_traverse_local(struct ctdb_db_con
 
 struct ctdb_traverse_all_handle {
        struct ctdb_context *ctdb;
+       struct ctdb_db_context *ctdb_db;
        uint32_t reqid;
        ctdb_traverse_fn_t callback;
        void *private_data;
@@ -194,7 +224,9 @@ static int ctdb_traverse_all_destructor(struct ctdb_traverse_all_handle *state)
 struct ctdb_traverse_all {
        uint32_t db_id;
        uint32_t reqid;
-       uint32_t vnn;
+       uint32_t pnn;
+       uint32_t client_reqid;
+       uint64_t srvid;
 };
 
 /* called when a traverse times out */
@@ -203,12 +235,23 @@ static void ctdb_traverse_all_timeout(struct event_context *ev, struct timed_eve
 {
        struct ctdb_traverse_all_handle *state = talloc_get_type(private_data, struct ctdb_traverse_all_handle);
 
-       state->ctdb->statistics.timeouts.traverse++;
+       DEBUG(DEBUG_ERR,(__location__ " Traverse all timeout on database:%s\n", state->ctdb_db->db_name));
+       CTDB_INCREMENT_STAT(state->ctdb, timeouts.traverse);
 
        state->callback(state->private_data, tdb_null, tdb_null);
-       talloc_free(state);
 }
 
+
+struct traverse_start_state {
+       struct ctdb_context *ctdb;
+       struct ctdb_traverse_all_handle *h;
+       uint32_t srcnode;
+       uint32_t reqid;
+       uint32_t db_id;
+       uint64_t srvid;
+};
+
+
 /*
   setup a cluster-wide non-blocking traverse of a ctdb. The
   callback function will be called on every record in the local
@@ -219,38 +262,69 @@ static void ctdb_traverse_all_timeout(struct event_context *ev, struct timed_eve
  */
 static struct ctdb_traverse_all_handle *ctdb_daemon_traverse_all(struct ctdb_db_context *ctdb_db,
                                                                 ctdb_traverse_fn_t callback,
-                                                                void *private_data)
+                                                                struct traverse_start_state *start_state)
 {
        struct ctdb_traverse_all_handle *state;
        struct ctdb_context *ctdb = ctdb_db->ctdb;
        int ret;
        TDB_DATA data;
        struct ctdb_traverse_all r;
+       uint32_t destination;
 
-       state = talloc(ctdb_db, struct ctdb_traverse_all_handle);
+       state = talloc(start_state, struct ctdb_traverse_all_handle);
        if (state == NULL) {
                return NULL;
        }
 
-       state->ctdb = ctdb;
-       state->reqid = ctdb_reqid_new(ctdb_db->ctdb, state);
-       state->callback = callback;
-       state->private_data = private_data;
-       state->null_count = 0;
+       state->ctdb         = ctdb;
+       state->ctdb_db      = ctdb_db;
+       state->reqid        = ctdb_reqid_new(ctdb_db->ctdb, state);
+       state->callback     = callback;
+       state->private_data = start_state;
+       state->null_count   = 0;
        
        talloc_set_destructor(state, ctdb_traverse_all_destructor);
 
        r.db_id = ctdb_db->db_id;
        r.reqid = state->reqid;
-       r.vnn   = ctdb->vnn;
+       r.pnn   = ctdb->pnn;
+       r.client_reqid = start_state->reqid;
+       r.srvid = start_state->srvid;
 
        data.dptr = (uint8_t *)&r;
        data.dsize = sizeof(r);
 
-       /* tell all the nodes in the cluster to start sending records to this node */
-       ret = ctdb_daemon_send_control(ctdb, CTDB_BROADCAST_VNNMAP, 0, 
-                                      CTDB_CONTROL_TRAVERSE_ALL,
-                                      0, CTDB_CTRL_FLAG_NOREPLY, data, NULL, NULL);
+       if (ctdb_db->persistent == 0) {
+               /* normal database, traverse all nodes */         
+               destination = CTDB_BROADCAST_VNNMAP;
+       } else {
+               int i;
+               /* persistent database, traverse one node, preferably
+                * the local one
+                */
+               destination = ctdb->pnn;
+               /* check we are in the vnnmap */
+               for (i=0; i < ctdb->vnn_map->size; i++) {
+                       if (ctdb->vnn_map->map[i] == ctdb->pnn) {
+                               break;
+                       }
+               }
+               /* if we are not in the vnn map we just pick the first
+                * node instead
+                */
+               if (i == ctdb->vnn_map->size) {
+                       destination = ctdb->vnn_map->map[0];
+               }
+       }
+
+       /* tell all the nodes in the cluster to start sending records to this
+        * node, or if it is a persistent database, just tell the local
+        * node
+        */
+       ret = ctdb_daemon_send_control(ctdb, destination, 0, 
+                              CTDB_CONTROL_TRAVERSE_ALL,
+                              0, CTDB_CTRL_FLAG_NOREPLY, data, NULL, NULL);
+
        if (ret != 0) {
                talloc_free(state);
                return NULL;
@@ -264,13 +338,6 @@ static struct ctdb_traverse_all_handle *ctdb_daemon_traverse_all(struct ctdb_db_
        return state;
 }
 
-struct traverse_all_state {
-       struct ctdb_context *ctdb;
-       struct ctdb_traverse_local_handle *h;
-       uint32_t reqid;
-       uint32_t srcnode;
-};
-
 /*
   called for each record during a traverse all 
  */
@@ -281,10 +348,10 @@ static void traverse_all_callback(void *p, TDB_DATA key, TDB_DATA data)
        struct ctdb_rec_data *d;
        TDB_DATA cdata;
 
-       d = ctdb_marshall_record(state, state->reqid, key, data);
+       d = ctdb_marshall_record(state, state->reqid, key, NULL, data);
        if (d == NULL) {
                /* darn .... */
-               DEBUG(0,("Out of memory in traverse_all_callback\n"));
+               DEBUG(DEBUG_ERR,("Out of memory in traverse_all_callback\n"));
                return;
        }
 
@@ -294,7 +361,7 @@ static void traverse_all_callback(void *p, TDB_DATA key, TDB_DATA data)
        ret = ctdb_daemon_send_control(state->ctdb, state->srcnode, 0, CTDB_CONTROL_TRAVERSE_DATA,
                                       0, CTDB_CTRL_FLAG_NOREPLY, cdata, NULL, NULL);
        if (ret != 0) {
-               DEBUG(0,("Failed to send traverse data\n"));
+               DEBUG(DEBUG_ERR,("Failed to send traverse data\n"));
        }
 
        if (key.dsize == 0 && data.dsize == 0) {
@@ -315,7 +382,7 @@ int32_t ctdb_control_traverse_all(struct ctdb_context *ctdb, TDB_DATA data, TDB_
        struct ctdb_db_context *ctdb_db;
 
        if (data.dsize != sizeof(struct ctdb_traverse_all)) {
-               DEBUG(0,("Invalid size in ctdb_control_traverse_all\n"));
+               DEBUG(DEBUG_ERR,(__location__ " Invalid size in ctdb_control_traverse_all\n"));
                return -1;
        }
 
@@ -324,14 +391,26 @@ int32_t ctdb_control_traverse_all(struct ctdb_context *ctdb, TDB_DATA data, TDB_
                return -1;
        }
 
+       if (ctdb_db->unhealthy_reason) {
+               if (ctdb->tunable.allow_unhealthy_db_read == 0) {
+                       DEBUG(DEBUG_ERR,("db(%s) unhealty in ctdb_control_traverse_all: %s\n",
+                                       ctdb_db->db_name, ctdb_db->unhealthy_reason));
+                       return -1;
+               }
+               DEBUG(DEBUG_WARNING,("warn: db(%s) unhealty in ctdb_control_traverse_all: %s\n",
+                                    ctdb_db->db_name, ctdb_db->unhealthy_reason));
+       }
+
        state = talloc(ctdb_db, struct traverse_all_state);
        if (state == NULL) {
                return -1;
        }
 
        state->reqid = c->reqid;
-       state->srcnode = c->vnn;
+       state->srcnode = c->pnn;
        state->ctdb = ctdb;
+       state->client_reqid = c->client_reqid;
+       state->srvid = c->srvid;
 
        state->h = ctdb_traverse_local(ctdb_db, traverse_all_callback, state);
        if (state->h == NULL) {
@@ -356,7 +435,7 @@ int32_t ctdb_control_traverse_data(struct ctdb_context *ctdb, TDB_DATA data, TDB
        void *private_data;
 
        if (data.dsize < sizeof(uint32_t) || data.dsize != d->length) {
-               DEBUG(0,("Bad record size in ctdb_control_traverse_data\n"));
+               DEBUG(DEBUG_ERR,("Bad record size in ctdb_control_traverse_data\n"));
                return -1;
        }
 
@@ -373,8 +452,13 @@ int32_t ctdb_control_traverse_data(struct ctdb_context *ctdb, TDB_DATA data, TDB
 
        if (key.dsize == 0 && data.dsize == 0) {
                state->null_count++;
-               if (state->null_count != ctdb_get_num_enabled_nodes(ctdb)) {
-                       return 0;
+               /* Persistent databases are only scanned on one node (the local
+                * node)
+                */
+               if (state->ctdb_db->persistent == 0) {
+                       if (state->null_count != ctdb_get_num_active_nodes(ctdb)) {
+                               return 0;
+                       }
                }
        }
 
@@ -382,21 +466,59 @@ int32_t ctdb_control_traverse_data(struct ctdb_context *ctdb, TDB_DATA data, TDB
        private_data = state->private_data;
 
        callback(private_data, key, data);
-       if (key.dsize == 0 && data.dsize == 0) {
-               /* we've received all of the null replies, so all
-                  nodes are finished */
-               talloc_free(state);
-       }
        return 0;
 }      
 
-struct traverse_start_state {
-       struct ctdb_context *ctdb;
-       struct ctdb_traverse_all_handle *h;
-       uint32_t srcnode;
-       uint32_t reqid;
-       uint64_t srvid;
-};
+/*
+  kill a in-progress traverse, used when a client disconnects
+ */
+int32_t ctdb_control_traverse_kill(struct ctdb_context *ctdb, TDB_DATA data, 
+                                  TDB_DATA *outdata, uint32_t srcnode)
+{
+       struct ctdb_traverse_start *d = (struct ctdb_traverse_start *)data.dptr;
+       struct ctdb_db_context *ctdb_db;
+       struct ctdb_traverse_local_handle *t;
+
+       ctdb_db = find_ctdb_db(ctdb, d->db_id);
+       if (ctdb_db == NULL) {
+               return -1;
+       }
+
+       for (t=ctdb_db->traverse; t; t=t->next) {
+               if (t->client_reqid == d->reqid &&
+                   t->srvid == d->srvid) {
+                       talloc_free(t);
+                       break;
+               }
+       }
+
+       return 0;
+}
+
+
+/*
+  this is called when a client disconnects during a traverse
+  we need to notify all the nodes taking part in the search that they
+  should kill their traverse children
+ */
+static int ctdb_traverse_start_destructor(struct traverse_start_state *state)
+{
+       struct ctdb_traverse_start r;
+       TDB_DATA data;
+
+       DEBUG(DEBUG_ERR,(__location__ " Traverse cancelled by client disconnect for database:0x%08x\n", state->db_id));
+       r.db_id = state->db_id;
+       r.reqid = state->reqid;
+       r.srvid = state->srvid;
+
+       data.dptr = (uint8_t *)&r;
+       data.dsize = sizeof(r);
+
+       ctdb_daemon_send_control(state->ctdb, CTDB_BROADCAST_CONNECTED, 0, 
+                                CTDB_CONTROL_TRAVERSE_KILL, 
+                                0, CTDB_CTRL_FLAG_NOREPLY, data, NULL, NULL);
+       return 0;
+}
 
 /*
   callback which sends records as messages to the client
@@ -409,7 +531,7 @@ static void traverse_start_callback(void *p, TDB_DATA key, TDB_DATA data)
 
        state = talloc_get_type(p, struct traverse_start_state);
 
-       d = ctdb_marshall_record(state, state->reqid, key, data);
+       d = ctdb_marshall_record(state, state->reqid, key, NULL, data);
        if (d == NULL) {
                return;
        }
@@ -420,22 +542,30 @@ static void traverse_start_callback(void *p, TDB_DATA key, TDB_DATA data)
        ctdb_dispatch_message(state->ctdb, state->srvid, cdata);
        if (key.dsize == 0 && data.dsize == 0) {
                /* end of traverse */
+               talloc_set_destructor(state, NULL);
                talloc_free(state);
        }
 }
 
+
 /*
   start a traverse_all - called as a control from a client
  */
 int32_t ctdb_control_traverse_start(struct ctdb_context *ctdb, TDB_DATA data, 
-                                   TDB_DATA *outdata, uint32_t srcnode)
+                                   TDB_DATA *outdata, uint32_t srcnode, uint32_t client_id)
 {
        struct ctdb_traverse_start *d = (struct ctdb_traverse_start *)data.dptr;
        struct traverse_start_state *state;
        struct ctdb_db_context *ctdb_db;
+       struct ctdb_client *client = ctdb_reqid_find(ctdb, client_id, struct ctdb_client);
+
+       if (client == NULL) {
+               DEBUG(DEBUG_ERR,(__location__ " No client found\n"));
+               return -1;              
+       }
 
        if (data.dsize != sizeof(*d)) {
-               DEBUG(0,("Bad record size in ctdb_control_traverse_start\n"));
+               DEBUG(DEBUG_ERR,("Bad record size in ctdb_control_traverse_start\n"));
                return -1;
        }
 
@@ -444,7 +574,17 @@ int32_t ctdb_control_traverse_start(struct ctdb_context *ctdb, TDB_DATA data,
                return -1;
        }
 
-       state = talloc(ctdb_db, struct traverse_start_state);
+       if (ctdb_db->unhealthy_reason) {
+               if (ctdb->tunable.allow_unhealthy_db_read == 0) {
+                       DEBUG(DEBUG_ERR,("db(%s) unhealty in ctdb_control_traverse_start: %s\n",
+                                       ctdb_db->db_name, ctdb_db->unhealthy_reason));
+                       return -1;
+               }
+               DEBUG(DEBUG_WARNING,("warn: db(%s) unhealty in ctdb_control_traverse_start: %s\n",
+                                    ctdb_db->db_name, ctdb_db->unhealthy_reason));
+       }
+
+       state = talloc(client, struct traverse_start_state);
        if (state == NULL) {
                return -1;
        }
@@ -452,6 +592,7 @@ int32_t ctdb_control_traverse_start(struct ctdb_context *ctdb, TDB_DATA data,
        state->srcnode = srcnode;
        state->reqid = d->reqid;
        state->srvid = d->srvid;
+       state->db_id = d->db_id;
        state->ctdb = ctdb;
 
        state->h = ctdb_daemon_traverse_all(ctdb_db, traverse_start_callback, state);
@@ -460,5 +601,7 @@ int32_t ctdb_control_traverse_start(struct ctdb_context *ctdb, TDB_DATA data,
                return -1;
        }
 
+       talloc_set_destructor(state, ctdb_traverse_start_destructor);
+
        return 0;
 }