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/>.
23 #include "system/filesys.h"
24 #include "dbwrap/dbwrap.h"
25 #include "dbwrap/dbwrap_open.h"
28 typedef enum { OP_FETCH
, OP_STORE
, OP_DELETE
, OP_ERASE
, OP_LISTKEYS
} dbwrap_op
;
30 typedef enum { TYPE_INT32
, TYPE_UINT32
} dbwrap_type
;
32 static int dbwrap_tool_fetch_int32(struct db_context
*db
,
38 value
= dbwrap_fetch_int32(db
, keyname
);
39 d_printf("%d\n", value
);
44 static int dbwrap_tool_fetch_uint32(struct db_context
*db
,
51 ret
= dbwrap_fetch_uint32(db
, keyname
, &value
);
53 d_printf("%u\n", value
);
56 d_fprintf(stderr
, "ERROR: could not fetch uint32 key '%s'\n",
62 static int dbwrap_tool_store_int32(struct db_context
*db
,
67 int32_t value
= *((int32_t *)data
);
69 status
= dbwrap_trans_store_int32(db
, keyname
, value
);
71 if (!NT_STATUS_IS_OK(status
)) {
72 d_fprintf(stderr
, "ERROR: could not store int32 key '%s': %s\n",
73 keyname
, nt_errstr(status
));
80 static int dbwrap_tool_store_uint32(struct db_context
*db
,
85 uint32_t value
= *((uint32_t *)data
);
87 status
= dbwrap_trans_store_uint32(db
, keyname
, value
);
89 if (!NT_STATUS_IS_OK(status
)) {
91 "ERROR: could not store uint32 key '%s': %s\n",
92 keyname
, nt_errstr(status
));
99 static int dbwrap_tool_delete(struct db_context
*db
,
105 status
= dbwrap_trans_delete_bystring(db
, keyname
);
107 if (!NT_STATUS_IS_OK(status
)) {
108 d_fprintf(stderr
, "ERROR deleting record %s : %s\n",
109 keyname
, nt_errstr(status
));
116 static int delete_fn(struct db_record
*rec
, void *priv
)
118 rec
->delete_rec(rec
);
123 * dbwrap_tool_erase: erase the whole data base
124 * the keyname argument is not used.
126 static int dbwrap_tool_erase(struct db_context
*db
,
132 ret
= db
->traverse(db
, delete_fn
, NULL
);
135 d_fprintf(stderr
, "ERROR erasing the database\n");
142 static int listkey_fn(struct db_record
*rec
, void *private_data
)
144 int length
= rec
->key
.dsize
;
145 unsigned char *p
= (unsigned char *)rec
->key
.dptr
;
148 if (isprint(*p
) && !strchr("\"\\", *p
)) {
151 d_printf("\\%02X", *p
);
161 static int dbwrap_tool_listkeys(struct db_context
*db
,
167 ret
= db
->traverse_read(db
, listkey_fn
, NULL
);
170 d_fprintf(stderr
, "ERROR listing db keys\n");
177 struct dbwrap_op_dispatch_table
{
180 int (*cmd
)(struct db_context
*db
,
185 struct dbwrap_op_dispatch_table dispatch_table
[] = {
186 { OP_FETCH
, TYPE_INT32
, dbwrap_tool_fetch_int32
},
187 { OP_FETCH
, TYPE_UINT32
, dbwrap_tool_fetch_uint32
},
188 { OP_STORE
, TYPE_INT32
, dbwrap_tool_store_int32
},
189 { OP_STORE
, TYPE_UINT32
, dbwrap_tool_store_uint32
},
190 { OP_DELETE
, TYPE_INT32
, dbwrap_tool_delete
},
191 { OP_ERASE
, TYPE_INT32
, dbwrap_tool_erase
},
192 { OP_LISTKEYS
, TYPE_INT32
, dbwrap_tool_listkeys
},
196 int main(int argc
, const char **argv
)
198 struct tevent_context
*evt_ctx
;
199 struct messaging_context
*msg_ctx
;
200 struct db_context
*db
;
207 const char *keyname
= "";
208 const char *keytype
= "int32";
210 const char *valuestr
= "0";
213 TALLOC_CTX
*mem_ctx
= talloc_stackframe();
218 lp_set_cmdline("log level", "0");
219 setup_logging(argv
[0], DEBUG_STDERR
);
220 lp_load_global(get_dyn_CONFIGFILE());
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
);