2 Samba Unix/Linux CIFS implementation
4 low level TDB/CTDB tool using the dbwrap interface
6 Copyright (C) 2009 Michael Adam <obnox@samba.org>
8 This program is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 3 of the License, or
11 (at your option) any later version.
13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with this program. If not, see <http://www.gnu.org/licenses/>.
25 extern bool AllowDebugChange;
27 typedef enum { OP_FETCH, OP_STORE, OP_DELETE, OP_ERASE, OP_LISTKEYS } dbwrap_op;
29 typedef enum { TYPE_INT32, TYPE_UINT32 } dbwrap_type;
31 static int dbwrap_tool_fetch_int32(struct db_context *db,
37 value = dbwrap_fetch_int32(db, keyname);
38 d_printf("%d\n", value);
43 static int dbwrap_tool_fetch_uint32(struct db_context *db,
50 ret = dbwrap_fetch_uint32(db, keyname, &value);
52 d_printf("%u\n", value);
55 d_fprintf(stderr, "ERROR: could not fetch uint32 key '%s'\n",
61 static int dbwrap_tool_store_int32(struct db_context *db,
66 int32_t value = *((int32_t *)data);
68 status = dbwrap_trans_store_int32(db, keyname, value);
70 if (!NT_STATUS_IS_OK(status)) {
71 d_fprintf(stderr, "ERROR: could not store int32 key '%s': %s\n",
72 keyname, nt_errstr(status));
79 static int dbwrap_tool_store_uint32(struct db_context *db,
84 uint32_t value = *((uint32_t *)data);
86 status = dbwrap_trans_store_uint32(db, keyname, value);
88 if (!NT_STATUS_IS_OK(status)) {
90 "ERROR: could not store uint32 key '%s': %s\n",
91 keyname, nt_errstr(status));
98 static int dbwrap_tool_delete(struct db_context *db,
104 status = dbwrap_trans_delete_bystring(db, keyname);
106 if (!NT_STATUS_IS_OK(status)) {
107 d_fprintf(stderr, "ERROR deleting record %s : %s\n",
108 keyname, nt_errstr(status));
115 static int delete_fn(struct db_record *rec, void *priv)
117 rec->delete_rec(rec);
122 * dbwrap_tool_erase: erase the whole data base
123 * the keyname argument is not used.
125 static int dbwrap_tool_erase(struct db_context *db,
131 ret = db->traverse(db, delete_fn, NULL);
134 d_fprintf(stderr, "ERROR erasing the database\n");
141 static int listkey_fn(struct db_record *rec, void *private_data)
143 int length = rec->key.dsize;
144 unsigned char *p = (unsigned char *)rec->key.dptr;
147 if (isprint(*p) && !strchr("\"\\", *p)) {
150 d_printf("\\%02X", *p);
160 static int dbwrap_tool_listkeys(struct db_context *db,
166 ret = db->traverse_read(db, listkey_fn, NULL);
169 d_fprintf(stderr, "ERROR listing db keys\n");
176 struct dbwrap_op_dispatch_table {
179 int (*cmd)(struct db_context *db,
184 struct dbwrap_op_dispatch_table dispatch_table[] = {
185 { OP_FETCH, TYPE_INT32, dbwrap_tool_fetch_int32 },
186 { OP_FETCH, TYPE_UINT32, dbwrap_tool_fetch_uint32 },
187 { OP_STORE, TYPE_INT32, dbwrap_tool_store_int32 },
188 { OP_STORE, TYPE_UINT32, dbwrap_tool_store_uint32 },
189 { OP_DELETE, TYPE_INT32, dbwrap_tool_delete },
190 { OP_ERASE, TYPE_INT32, dbwrap_tool_erase },
191 { OP_LISTKEYS, TYPE_INT32, dbwrap_tool_listkeys },
195 int main(int argc, const char **argv)
197 struct tevent_context *evt_ctx;
198 struct messaging_context *msg_ctx;
199 struct db_context *db;
206 const char *keyname = "";
207 const char *keytype = "int32";
209 const char *valuestr = "0";
212 TALLOC_CTX *mem_ctx = talloc_stackframe();
217 DEBUGLEVEL_CLASS[DBGC_ALL] = 0;
218 setup_logging(argv[0], DEBUG_STDERR);
219 AllowDebugChange = false;
220 lp_load(get_dyn_CONFIGFILE(), true, false, false, true);
222 if ((argc < 3) || (argc > 6)) {
224 "USAGE: %s <database> <op> [<key> [<type> [<value>]]]\n"
225 " ops: fetch, store, delete, erase, listkeys\n"
226 " types: int32, uint32\n",
234 if (strcmp(opname, "store") == 0) {
236 d_fprintf(stderr, "ERROR: operation 'store' requires "
244 } else if (strcmp(opname, "fetch") == 0) {
246 d_fprintf(stderr, "ERROR: operation 'fetch' requires "
247 "type but not value argument\n");
253 } else if (strcmp(opname, "delete") == 0) {
255 d_fprintf(stderr, "ERROR: operation 'delete' does "
256 "not allow type nor value argument\n");
261 } else if (strcmp(opname, "erase") == 0) {
263 d_fprintf(stderr, "ERROR: operation 'erase' does "
264 "not take a key argument\n");
268 } else if (strcmp(opname, "listkeys") == 0) {
270 d_fprintf(stderr, "ERROR: operation 'listkeys' does "
271 "not take a key argument\n");
277 "ERROR: invalid op '%s' specified\n"
278 " supported ops: fetch, store, delete\n",
283 if (strcmp(keytype, "int32") == 0) {
285 value = (int32_t)strtol(valuestr, NULL, 10);
286 } else if (strcmp(keytype, "uint32") == 0) {
288 value = (int32_t)strtoul(valuestr, NULL, 10);
290 d_fprintf(stderr, "ERROR: invalid type '%s' specified.\n"
291 " supported types: int32, uint32\n",
296 evt_ctx = tevent_context_init(mem_ctx);
297 if (evt_ctx == NULL) {
298 d_fprintf(stderr, "ERROR: could not init event context\n");
302 msg_ctx = messaging_init(mem_ctx, procid_self(), evt_ctx);
303 if (msg_ctx == NULL) {
304 d_fprintf(stderr, "ERROR: could not init messaging context\n");
308 db = db_open(mem_ctx, dbname, 0, TDB_DEFAULT, O_RDWR | O_CREAT, 0644);
310 d_fprintf(stderr, "ERROR: could not open dbname\n");
314 for (count = 0; dispatch_table[count].cmd != NULL; count++) {
315 if ((op == dispatch_table[count].op) &&
316 (type == dispatch_table[count].type))
318 ret = dispatch_table[count].cmd(db, keyname, &value);
324 TALLOC_FREE(mem_ctx);