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>
7 Copyright (C) 2011 Bjoern Baumbach <bb@sernet.de>
9 This program is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 3 of the License, or
12 (at your option) any later version.
14 This program is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
19 You should have received a copy of the GNU General Public License
20 along with this program. If not, see <http://www.gnu.org/licenses/>.
24 #include "system/filesys.h"
25 #include "popt_common.h"
26 #include "dbwrap/dbwrap.h"
27 #include "dbwrap/dbwrap_open.h"
31 typedef enum { OP_FETCH, OP_STORE, OP_DELETE, OP_ERASE, OP_LISTKEYS } dbwrap_op;
33 typedef enum { TYPE_INT32, TYPE_UINT32, TYPE_STRING, TYPE_HEX } dbwrap_type;
35 static int dbwrap_tool_fetch_int32(struct db_context *db,
42 status = dbwrap_fetch_int32(db, keyname, &value);
43 if (!NT_STATUS_IS_OK(status)) {
44 d_printf("Error fetching int32 from key '%s': %s\n",
45 keyname, nt_errstr(status));
48 d_printf("%d\n", value);
53 static int dbwrap_tool_fetch_uint32(struct db_context *db,
60 ret = dbwrap_fetch_uint32(db, keyname, &value);
61 if (NT_STATUS_IS_OK(ret)) {
62 d_printf("%u\n", value);
65 d_fprintf(stderr, "ERROR: could not fetch uint32 key '%s': "
66 "%s\n", nt_errstr(ret), keyname);
71 static int dbwrap_tool_fetch_string(struct db_context *db,
77 TALLOC_CTX *tmp_ctx = talloc_stackframe();
80 status = dbwrap_fetch_bystring(db, tmp_ctx, keyname, &tdbdata);
81 if (NT_STATUS_IS_OK(status)) {
82 d_printf("%-*.*s\n", (int)tdbdata.dsize, (int)tdbdata.dsize,
86 d_fprintf(stderr, "ERROR: could not fetch string key '%s': "
87 "%s\n", nt_errstr(status), keyname);
95 static int dbwrap_tool_fetch_hex(struct db_context *db,
102 TALLOC_CTX *tmp_ctx = talloc_stackframe();
106 status = dbwrap_fetch_bystring(db, tmp_ctx, keyname, &tdbdata);
107 if (NT_STATUS_IS_OK(status)) {
108 datablob.data = tdbdata.dptr;
109 datablob.length = tdbdata.dsize;
111 hex_string = data_blob_hex_string_upper(tmp_ctx, &datablob);
112 if (hex_string == NULL) {
113 d_fprintf(stderr, "ERROR: could not get hex string "
117 d_printf("%s\n", hex_string);
121 d_fprintf(stderr, "ERROR: could not fetch hex key '%s': "
122 "%s\n", nt_errstr(status), keyname);
126 talloc_free(tmp_ctx);
130 static int dbwrap_tool_store_int32(struct db_context *db,
135 int32_t value = (int32_t)strtol(data, NULL, 10);
137 status = dbwrap_trans_store_int32(db, keyname, value);
139 if (!NT_STATUS_IS_OK(status)) {
140 d_fprintf(stderr, "ERROR: could not store int32 key '%s': %s\n",
141 keyname, nt_errstr(status));
148 static int dbwrap_tool_store_uint32(struct db_context *db,
153 uint32_t value = (uint32_t)strtol(data, NULL, 10);
155 status = dbwrap_trans_store_uint32(db, keyname, value);
157 if (!NT_STATUS_IS_OK(status)) {
159 "ERROR: could not store uint32 key '%s': %s\n",
160 keyname, nt_errstr(status));
167 static int dbwrap_tool_store_string(struct db_context *db,
173 status = dbwrap_trans_store_bystring(db, keyname,
174 string_term_tdb_data(data), TDB_REPLACE);
176 if (!NT_STATUS_IS_OK(status)) {
178 "ERROR: could not store string key '%s': %s\n",
179 keyname, nt_errstr(status));
186 static int dbwrap_tool_store_hex(struct db_context *db,
193 TALLOC_CTX *tmp_ctx = talloc_stackframe();
195 datablob = strhex_to_data_blob(tmp_ctx, data);
196 if(strlen(data) > 0 && datablob.length == 0) {
198 "ERROR: could not convert hex string to data blob\n"
199 " Not a valid hex string?\n");
200 talloc_free(tmp_ctx);
204 tdbdata.dptr = (unsigned char *)datablob.data;
205 tdbdata.dsize = datablob.length;
207 status = dbwrap_trans_store_bystring(db, keyname,
210 if (!NT_STATUS_IS_OK(status)) {
212 "ERROR: could not store string key '%s': %s\n",
213 keyname, nt_errstr(status));
214 talloc_free(tmp_ctx);
218 talloc_free(tmp_ctx);
222 static int dbwrap_tool_delete(struct db_context *db,
228 status = dbwrap_trans_delete_bystring(db, keyname);
230 if (!NT_STATUS_IS_OK(status)) {
231 d_fprintf(stderr, "ERROR deleting record %s : %s\n",
232 keyname, nt_errstr(status));
239 static int delete_fn(struct db_record *rec, void *priv)
241 dbwrap_record_delete(rec);
246 * dbwrap_tool_erase: erase the whole data base
247 * the keyname argument is not used.
249 static int dbwrap_tool_erase(struct db_context *db,
255 status = dbwrap_traverse(db, delete_fn, NULL, NULL);
257 if (!NT_STATUS_IS_OK(status)) {
258 d_fprintf(stderr, "ERROR erasing the database\n");
265 static int listkey_fn(struct db_record *rec, void *private_data)
267 int length = dbwrap_record_get_key(rec).dsize;
268 unsigned char *p = (unsigned char *)dbwrap_record_get_key(rec).dptr;
271 if (isprint(*p) && !strchr("\"\\", *p)) {
274 d_printf("\\%02X", *p);
284 static int dbwrap_tool_listkeys(struct db_context *db,
290 status = dbwrap_traverse_read(db, listkey_fn, NULL, NULL);
292 if (!NT_STATUS_IS_OK(status)) {
293 d_fprintf(stderr, "ERROR listing db keys\n");
300 struct dbwrap_op_dispatch_table {
303 int (*cmd)(struct db_context *db,
308 struct dbwrap_op_dispatch_table dispatch_table[] = {
309 { OP_FETCH, TYPE_INT32, dbwrap_tool_fetch_int32 },
310 { OP_FETCH, TYPE_UINT32, dbwrap_tool_fetch_uint32 },
311 { OP_FETCH, TYPE_STRING, dbwrap_tool_fetch_string },
312 { OP_FETCH, TYPE_HEX, dbwrap_tool_fetch_hex },
313 { OP_STORE, TYPE_INT32, dbwrap_tool_store_int32 },
314 { OP_STORE, TYPE_UINT32, dbwrap_tool_store_uint32 },
315 { OP_STORE, TYPE_STRING, dbwrap_tool_store_string },
316 { OP_STORE, TYPE_HEX, dbwrap_tool_store_hex },
317 { OP_DELETE, TYPE_INT32, dbwrap_tool_delete },
318 { OP_ERASE, TYPE_INT32, dbwrap_tool_erase },
319 { OP_LISTKEYS, TYPE_INT32, dbwrap_tool_listkeys },
323 int main(int argc, const char **argv)
325 struct tevent_context *evt_ctx;
326 struct messaging_context *msg_ctx;
327 struct db_context *db;
334 const char *keyname = "";
335 const char *keytype = "int32";
337 const char *valuestr = "0";
339 TALLOC_CTX *mem_ctx = talloc_stackframe();
343 struct poptOption popt_options[] = {
349 const char **extra_argv;
354 lp_set_cmdline("log level", "0");
355 setup_logging(argv[0], DEBUG_STDERR);
357 pc = poptGetContext(argv[0], argc, argv, popt_options, POPT_CONTEXT_KEEP_FIRST);
359 while ((opt = poptGetNextOpt(pc)) != -1) {
362 fprintf(stderr, "Invalid option %s: %s\n",
363 poptBadOption(pc, 0), poptStrerror(opt));
368 /* setup the remaining options for the main program to use */
369 extra_argv = poptGetArgs(pc);
372 while (extra_argv[extra_argc]) extra_argc++;
375 lp_load_global(get_dyn_CONFIGFILE());
377 if ((extra_argc < 2) || (extra_argc > 5)) {
379 "USAGE: %s <database> <op> [<key> [<type> [<value>]]]\n"
380 " ops: fetch, store, delete, erase, listkeys\n"
381 " types: int32, uint32, string, hex\n",
386 dbname = extra_argv[0];
387 opname = extra_argv[1];
389 if (strcmp(opname, "store") == 0) {
390 if (extra_argc != 5) {
391 d_fprintf(stderr, "ERROR: operation 'store' requires "
395 valuestr = extra_argv[4];
396 keytype = extra_argv[3];
397 keyname = extra_argv[2];
399 } else if (strcmp(opname, "fetch") == 0) {
400 if (extra_argc != 4) {
401 d_fprintf(stderr, "ERROR: operation 'fetch' requires "
402 "type but not value argument\n");
406 keytype = extra_argv[3];
407 keyname = extra_argv[2];
408 } else if (strcmp(opname, "delete") == 0) {
409 if (extra_argc != 3) {
410 d_fprintf(stderr, "ERROR: operation 'delete' does "
411 "not allow type nor value argument\n");
414 keyname = extra_argv[2];
416 } else if (strcmp(opname, "erase") == 0) {
417 if (extra_argc != 2) {
418 d_fprintf(stderr, "ERROR: operation 'erase' does "
419 "not take a key argument\n");
423 } else if (strcmp(opname, "listkeys") == 0) {
424 if (extra_argc != 2) {
425 d_fprintf(stderr, "ERROR: operation 'listkeys' does "
426 "not take a key argument\n");
432 "ERROR: invalid op '%s' specified\n"
433 " supported ops: fetch, store, delete\n",
438 if (strcmp(keytype, "int32") == 0) {
440 } else if (strcmp(keytype, "uint32") == 0) {
442 } else if (strcmp(keytype, "string") == 0) {
444 } else if (strcmp(keytype, "hex") == 0) {
447 d_fprintf(stderr, "ERROR: invalid type '%s' specified.\n"
448 " supported types: int32, uint32, "
454 evt_ctx = tevent_context_init(mem_ctx);
455 if (evt_ctx == NULL) {
456 d_fprintf(stderr, "ERROR: could not init event context\n");
460 msg_ctx = messaging_init(mem_ctx, evt_ctx);
461 if (msg_ctx == NULL) {
462 d_fprintf(stderr, "ERROR: could not init messaging context\n");
466 db = db_open(mem_ctx, dbname, 0, TDB_DEFAULT, O_RDWR | O_CREAT, 0644);
468 d_fprintf(stderr, "ERROR: could not open dbname\n");
472 for (count = 0; dispatch_table[count].cmd != NULL; count++) {
473 if ((op == dispatch_table[count].op) &&
474 (type == dispatch_table[count].type))
476 ret = dispatch_table[count].cmd(db, keyname, valuestr);
482 TALLOC_FREE(mem_ctx);