s3-talloc Change TALLOC_ARRAY() to talloc_array()
[sfrench/samba-autobuild/.git] / source3 / lib / dbwrap_util.c
index 002d572019393857c7fe8c70d11da16645f8e3af..ce5ef5270672c7b3ae4e81cf70a5811078937330 100644 (file)
@@ -2,7 +2,11 @@
    Unix SMB/CIFS implementation.
    Utility functions for the dbwrap API
    Copyright (C) Volker Lendecke 2007
-   
+   Copyright (C) Michael Adam 2009
+   Copyright (C) Jim McDonough <jmcd@us.ibm.com> 2006
+
+   Major code contributions from Aleksey Fedoseev (fedoseev@ru.ibm.com)
+
    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
@@ -19,6 +23,8 @@
 */
 
 #include "includes.h"
+#include "dbwrap.h"
+#include "util_tdb.h"
 
 int32_t dbwrap_fetch_int32(struct db_context *db, const char *keystr)
 {
@@ -59,32 +65,505 @@ int dbwrap_store_int32(struct db_context *db, const char *keystr, int32_t v)
        return NT_STATUS_IS_OK(status) ? 0 : -1;
 }
 
-uint32_t dbwrap_change_uint32_atomic(struct db_context *db, const char *keystr,
-                                    uint32_t *oldval, uint32_t change_val)
+bool dbwrap_fetch_uint32(struct db_context *db, const char *keystr,
+                        uint32_t *val)
+{
+       TDB_DATA dbuf;
+
+       if (db->fetch(db, NULL, string_term_tdb_data(keystr), &dbuf) != 0) {
+               return false;
+       }
+
+       if ((dbuf.dptr == NULL) || (dbuf.dsize != sizeof(uint32_t))) {
+               TALLOC_FREE(dbuf.dptr);
+               return false;
+       }
+
+       *val = IVAL(dbuf.dptr, 0);
+       TALLOC_FREE(dbuf.dptr);
+       return true;
+}
+
+int dbwrap_store_uint32(struct db_context *db, const char *keystr, uint32_t v)
 {
        struct db_record *rec;
-       uint32 val = -1;
-       TDB_DATA data;
+       uint32 v_store;
+       NTSTATUS status;
 
-       if (!(rec = db->fetch_locked(db, NULL,
-                                    string_term_tdb_data(keystr)))) {
+       rec = db->fetch_locked(db, NULL, string_term_tdb_data(keystr));
+       if (rec == NULL) {
                return -1;
        }
 
-       if ((rec->value.dptr != NULL)
-           && (rec->value.dsize == sizeof(val))) {
+       SIVAL(&v_store, 0, v);
+
+       status = rec->store(rec, make_tdb_data((const uint8 *)&v_store,
+                                              sizeof(v_store)),
+                           TDB_REPLACE);
+       TALLOC_FREE(rec);
+       return NT_STATUS_IS_OK(status) ? 0 : -1;
+}
+
+/**
+ * Atomic unsigned integer change (addition):
+ *
+ * if value does not exist yet in the db, use *oldval as initial old value.
+ * return old value in *oldval.
+ * store *oldval + change_val to db.
+ */
+
+struct dbwrap_change_uint32_atomic_context {
+       const char *keystr;
+       uint32_t *oldval;
+       uint32_t change_val;
+};
+
+static NTSTATUS dbwrap_change_uint32_atomic_action(struct db_context *db,
+                                                  void *private_data)
+{
+       struct db_record *rec;
+       uint32_t val = (uint32_t)-1;
+       uint32_t v_store;
+       NTSTATUS ret;
+       struct dbwrap_change_uint32_atomic_context *state;
+
+       state = (struct dbwrap_change_uint32_atomic_context *)private_data;
+
+       rec = db->fetch_locked(db, NULL, string_term_tdb_data(state->keystr));
+       if (!rec) {
+               return NT_STATUS_UNSUCCESSFUL;
+       }
+
+       if (rec->value.dptr == NULL) {
+               val = *(state->oldval);
+       } else if (rec->value.dsize == sizeof(val)) {
+               val = IVAL(rec->value.dptr, 0);
+               *(state->oldval) = val;
+       } else {
+               ret = NT_STATUS_UNSUCCESSFUL;
+               goto done;
+       }
+
+       val += state->change_val;
+
+       SIVAL(&v_store, 0, val);
+
+       ret = rec->store(rec,
+                        make_tdb_data((const uint8 *)&v_store,
+                                      sizeof(v_store)),
+                        TDB_REPLACE);
+
+done:
+       TALLOC_FREE(rec);
+       return ret;
+}
+
+NTSTATUS dbwrap_change_uint32_atomic(struct db_context *db, const char *keystr,
+                                    uint32_t *oldval, uint32_t change_val)
+{
+       NTSTATUS ret;
+       struct dbwrap_change_uint32_atomic_context state;
+
+       state.keystr = keystr;
+       state.oldval = oldval;
+       state.change_val = change_val;
+
+       ret = dbwrap_change_uint32_atomic_action(db, &state);
+
+       return ret;
+}
+
+NTSTATUS dbwrap_trans_change_uint32_atomic(struct db_context *db,
+                                          const char *keystr,
+                                          uint32_t *oldval,
+                                          uint32_t change_val)
+{
+       NTSTATUS ret;
+       struct dbwrap_change_uint32_atomic_context state;
+
+       state.keystr = keystr;
+       state.oldval = oldval;
+       state.change_val = change_val;
+
+       ret = dbwrap_trans_do(db, dbwrap_change_uint32_atomic_action, &state);
+
+       return ret;
+}
+
+/**
+ * Atomic integer change (addition):
+ *
+ * if value does not exist yet in the db, use *oldval as initial old value.
+ * return old value in *oldval.
+ * store *oldval + change_val to db.
+ */
+
+struct dbwrap_change_int32_atomic_context {
+       const char *keystr;
+       int32_t *oldval;
+       int32_t change_val;
+};
+
+static NTSTATUS dbwrap_change_int32_atomic_action(struct db_context *db,
+                                                 void *private_data)
+{
+       struct db_record *rec;
+       int32_t val = -1;
+       int32_t v_store;
+       NTSTATUS ret;
+       struct dbwrap_change_int32_atomic_context *state;
+
+       state = (struct dbwrap_change_int32_atomic_context *)private_data;
+
+       rec = db->fetch_locked(db, NULL, string_term_tdb_data(state->keystr));
+       if (!rec) {
+               return NT_STATUS_UNSUCCESSFUL;
+       }
+
+       if (rec->value.dptr == NULL) {
+               val = *(state->oldval);
+       } else if (rec->value.dsize == sizeof(val)) {
                val = IVAL(rec->value.dptr, 0);
+               *(state->oldval) = val;
+       } else {
+               ret = NT_STATUS_UNSUCCESSFUL;
+               goto done;
        }
 
-       val += change_val;
+       val += state->change_val;
+
+       SIVAL(&v_store, 0, val);
+
+       ret = rec->store(rec,
+                        make_tdb_data((const uint8_t *)&v_store,
+                                      sizeof(v_store)),
+                        TDB_REPLACE);
+
+done:
+       TALLOC_FREE(rec);
+       return ret;
+}
+
+NTSTATUS dbwrap_change_int32_atomic(struct db_context *db, const char *keystr,
+                                   int32_t *oldval, int32_t change_val)
+{
+       NTSTATUS ret;
+       struct dbwrap_change_int32_atomic_context state;
+
+       state.keystr = keystr;
+       state.oldval = oldval;
+       state.change_val = change_val;
+
+       ret = dbwrap_change_int32_atomic_action(db, &state);
+
+       return ret;
+}
+
+NTSTATUS dbwrap_trans_change_int32_atomic(struct db_context *db,
+                                         const char *keystr,
+                                         int32_t *oldval,
+                                         int32_t change_val)
+{
+       NTSTATUS ret;
+       struct dbwrap_change_int32_atomic_context state;
+
+       state.keystr = keystr;
+       state.oldval = oldval;
+       state.change_val = change_val;
+
+       ret = dbwrap_trans_do(db, dbwrap_change_int32_atomic_action, &state);
+
+       return ret;
+}
+
+struct dbwrap_store_context {
+       TDB_DATA *key;
+       TDB_DATA *dbuf;
+       int flag;
+};
+
+static NTSTATUS dbwrap_store_action(struct db_context *db, void *private_data)
+{
+       struct db_record *rec = NULL;
+       NTSTATUS status;
+       struct dbwrap_store_context *store_ctx;
 
-       data.dsize = sizeof(val);
-       data.dptr = (uint8 *)&val;
+       store_ctx = (struct dbwrap_store_context *)private_data;
 
-       rec->store(rec, data, TDB_REPLACE);
+       rec = db->fetch_locked(db, talloc_tos(), *(store_ctx->key));
+       if (rec == NULL) {
+               DEBUG(5, ("fetch_locked failed\n"));
+               return NT_STATUS_NO_MEMORY;
+       }
+
+       status = rec->store(rec, *(store_ctx->dbuf), store_ctx->flag);
+       if (!NT_STATUS_IS_OK(status)) {
+               DEBUG(5, ("store returned %s\n", nt_errstr(status)));
+       }
 
        TALLOC_FREE(rec);
+       return status;
+}
 
-       return 0;
+NTSTATUS dbwrap_trans_store(struct db_context *db, TDB_DATA key, TDB_DATA dbuf,
+                           int flag)
+{
+       NTSTATUS status;
+       struct dbwrap_store_context store_ctx;
+
+       store_ctx.key = &key;
+       store_ctx.dbuf = &dbuf;
+       store_ctx.flag = flag;
+
+       status = dbwrap_trans_do(db, dbwrap_store_action, &store_ctx);
+
+       return status;
 }
 
+static NTSTATUS dbwrap_delete_action(struct db_context * db, void *private_data)
+{
+       NTSTATUS status;
+       struct db_record *rec;
+       TDB_DATA *key = (TDB_DATA *)private_data;
+
+       rec = db->fetch_locked(db, talloc_tos(), *key);
+       if (rec == NULL) {
+               DEBUG(5, ("fetch_locked failed\n"));
+               return NT_STATUS_NO_MEMORY;
+       }
+
+       status = rec->delete_rec(rec);
+       if (!NT_STATUS_IS_OK(status)) {
+               DEBUG(5, ("delete_rec returned %s\n", nt_errstr(status)));
+       }
+
+       talloc_free(rec);
+       return  status;
+}
+
+NTSTATUS dbwrap_trans_delete(struct db_context *db, TDB_DATA key)
+{
+       NTSTATUS status;
+
+       status = dbwrap_trans_do(db, dbwrap_delete_action, &key);
+
+       return status;
+}
+
+NTSTATUS dbwrap_trans_store_int32(struct db_context *db, const char *keystr,
+                                 int32_t v)
+{
+       int32 v_store;
+
+       SIVAL(&v_store, 0, v);
+
+       return dbwrap_trans_store(db, string_term_tdb_data(keystr),
+                                 make_tdb_data((const uint8 *)&v_store,
+                                               sizeof(v_store)),
+                                 TDB_REPLACE);
+}
+
+NTSTATUS dbwrap_trans_store_uint32(struct db_context *db, const char *keystr,
+                                  uint32_t v)
+{
+       uint32 v_store;
+
+       SIVAL(&v_store, 0, v);
+
+       return dbwrap_trans_store(db, string_term_tdb_data(keystr),
+                                 make_tdb_data((const uint8 *)&v_store,
+                                               sizeof(v_store)),
+                                 TDB_REPLACE);
+}
+
+NTSTATUS dbwrap_trans_store_bystring(struct db_context *db, const char *key,
+                                    TDB_DATA data, int flags)
+{
+       return dbwrap_trans_store(db, string_term_tdb_data(key), data, flags);
+}
+
+NTSTATUS dbwrap_trans_delete_bystring(struct db_context *db, const char *key)
+{
+       return dbwrap_trans_delete(db, string_term_tdb_data(key));
+}
+
+/**
+ * Wrap db action(s) into a transaction.
+ */
+NTSTATUS dbwrap_trans_do(struct db_context *db,
+                        NTSTATUS (*action)(struct db_context *, void *),
+                        void *private_data)
+{
+       int res;
+       NTSTATUS status;
+
+       res = db->transaction_start(db);
+       if (res != 0) {
+               DEBUG(5, ("transaction_start failed\n"));
+               return NT_STATUS_INTERNAL_DB_CORRUPTION;
+       }
+
+       status = action(db, private_data);
+       if (!NT_STATUS_IS_OK(status)) {
+               if (db->transaction_cancel(db) != 0) {
+                       smb_panic("Cancelling transaction failed");
+               }
+               return status;
+       }
+
+       res = db->transaction_commit(db);
+       if (res == 0) {
+               return NT_STATUS_OK;
+       }
+
+       DEBUG(2, ("transaction_commit failed\n"));
+       return NT_STATUS_INTERNAL_DB_CORRUPTION;
+}
+
+struct dbwrap_trans_traverse_action_ctx {
+       int (*f)(struct db_record* rec, void* private_data);
+       void* private_data;
+};
+
+
+static NTSTATUS dbwrap_trans_traverse_action(struct db_context* db, void* private_data)
+{
+       struct dbwrap_trans_traverse_action_ctx* ctx =
+               (struct dbwrap_trans_traverse_action_ctx*)private_data;
+
+       int ret = db->traverse(db, ctx->f, ctx->private_data);
+
+       return (ret == -1) ? NT_STATUS_INTERNAL_DB_CORRUPTION : NT_STATUS_OK;
+}
+
+NTSTATUS dbwrap_trans_traverse(struct db_context *db,
+                              int (*f)(struct db_record*, void*),
+                              void *private_data)
+{
+       struct dbwrap_trans_traverse_action_ctx ctx = {
+               .f = f,
+               .private_data = private_data,
+       };
+       return dbwrap_trans_do(db, dbwrap_trans_traverse_action, &ctx);
+}
+
+NTSTATUS dbwrap_traverse(struct db_context *db,
+                        int (*f)(struct db_record*, void*),
+                        void *private_data)
+{
+       int ret = db->traverse(db, f, private_data);
+       return (ret == -1) ? NT_STATUS_INTERNAL_DB_CORRUPTION : NT_STATUS_OK;
+}
+
+
+
+NTSTATUS dbwrap_delete(struct db_context *db, TDB_DATA key)
+{
+       struct db_record *rec;
+       NTSTATUS status;
+
+       rec = db->fetch_locked(db, talloc_tos(), key);
+       if (rec == NULL) {
+               return NT_STATUS_NO_MEMORY;
+       }
+       status = rec->delete_rec(rec);
+       TALLOC_FREE(rec);
+       return status;
+}
+
+NTSTATUS dbwrap_store(struct db_context *db, TDB_DATA key,
+                     TDB_DATA data, int flags)
+{
+       struct db_record *rec;
+       NTSTATUS status;
+
+       rec = db->fetch_locked(db, talloc_tos(), key);
+       if (rec == NULL) {
+               return NT_STATUS_NO_MEMORY;
+       }
+
+       status = rec->store(rec, data, flags);
+       TALLOC_FREE(rec);
+       return status;
+}
+
+TDB_DATA dbwrap_fetch(struct db_context *db, TALLOC_CTX *mem_ctx,
+                     TDB_DATA key)
+{
+       TDB_DATA result;
+
+       if (db->fetch(db, mem_ctx, key, &result) == -1) {
+               return make_tdb_data(NULL, 0);
+       }
+
+       return result;
+}
+
+NTSTATUS dbwrap_delete_bystring(struct db_context *db, const char *key)
+{
+       return dbwrap_delete(db, string_term_tdb_data(key));
+}
+
+NTSTATUS dbwrap_store_bystring(struct db_context *db, const char *key,
+                              TDB_DATA data, int flags)
+{
+       return dbwrap_store(db, string_term_tdb_data(key), data, flags);
+}
+
+TDB_DATA dbwrap_fetch_bystring(struct db_context *db, TALLOC_CTX *mem_ctx,
+                              const char *key)
+{
+       return dbwrap_fetch(db, mem_ctx, string_term_tdb_data(key));
+}
+
+
+
+NTSTATUS dbwrap_delete_bystring_upper(struct db_context *db, const char *key)
+{
+       char *key_upper;
+       NTSTATUS status;
+
+       key_upper = talloc_strdup_upper(talloc_tos(), key);
+       if (key_upper == NULL) {
+               return NT_STATUS_NO_MEMORY;
+       }
+
+       status = dbwrap_delete_bystring(db, key_upper);
+
+       talloc_free(key_upper);
+       return status;
+}
+
+NTSTATUS dbwrap_store_bystring_upper(struct db_context *db, const char *key,
+                                    TDB_DATA data, int flags)
+{
+       char *key_upper;
+       NTSTATUS status;
+
+       key_upper = talloc_strdup_upper(talloc_tos(), key);
+       if (key_upper == NULL) {
+               return NT_STATUS_NO_MEMORY;
+       }
+
+       status = dbwrap_store_bystring(db, key_upper, data, flags);
+
+       talloc_free(key_upper);
+       return status;
+}
+
+TDB_DATA dbwrap_fetch_bystring_upper(struct db_context *db, TALLOC_CTX *mem_ctx,
+                                    const char *key)
+{
+       char *key_upper;
+       TDB_DATA result;
+
+       key_upper = talloc_strdup_upper(talloc_tos(), key);
+       if (key_upper == NULL) {
+               return make_tdb_data(NULL, 0);
+       }
+
+       result = dbwrap_fetch_bystring(db, mem_ctx, key_upper);
+
+       talloc_free(key_upper);
+       return result;
+}