source3/utils/dbwrap_tool.c

   1 /*
   2    Samba Unix/Linux CIFS implementation
   3
   4    low level TDB/CTDB tool using the dbwrap interface
   5
   6    Copyright (C) 2009 Michael Adam <obnox@samba.org>
   7    Copyright (C) 2011 Bjoern Baumbach <bb@sernet.de>
   8
   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.
  13
  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.
  18
  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/>.
  21 */
  22
  23 #include "includes.h"
  24 #include "system/filesys.h"
  25 #include "popt_common.h"
  26 #include "dbwrap/dbwrap.h"
  27 #include "dbwrap/dbwrap_open.h"
  28 #include "dbwrap/dbwrap_watch.h"
  29 #include "messages.h"
  30 #include "util_tdb.h"
  31
  32 enum dbwrap_op { OP_FETCH, OP_STORE, OP_DELETE, OP_ERASE, OP_LISTKEYS,
  33                  OP_LISTWATCHERS, OP_EXISTS };
  34
  35 enum dbwrap_type { TYPE_INT32, TYPE_UINT32, TYPE_STRING, TYPE_HEX, TYPE_NONE };
  36
  37 static int dbwrap_tool_fetch_int32(struct db_context *db,
  38                                    const char *keyname,
  39                                    const char *data)
  40 {
  41         int32_t value;
  42         NTSTATUS status;
  43
  44         status = dbwrap_fetch_int32_bystring(db, keyname, &value);
  45         if (!NT_STATUS_IS_OK(status)) {
  46                 d_printf("Error fetching int32 from key '%s': %s\n",
  47                          keyname, nt_errstr(status));
  48                 return -1;
  49         }
  50         d_printf("%d\n", value);
  51
  52         return 0;
  53 }
  54
  55 static int dbwrap_tool_fetch_uint32(struct db_context *db,
  56                                     const char *keyname,
  57                                     const char *data)
  58 {
  59         uint32_t value;
  60         NTSTATUS ret;
  61
  62         ret = dbwrap_fetch_uint32_bystring(db, keyname, &value);
  63         if (NT_STATUS_IS_OK(ret)) {
  64                 d_printf("%u\n", value);
  65                 return 0;
  66         } else {
  67                 d_fprintf(stderr, "ERROR: could not fetch uint32 key '%s': "
  68                           "%s\n", nt_errstr(ret), keyname);
  69                 return -1;
  70         }
  71 }
  72
  73 static int dbwrap_tool_fetch_string(struct db_context *db,
  74                                     const char *keyname,
  75                                     const char *data)
  76 {
  77         TDB_DATA tdbdata;
  78         NTSTATUS status;
  79         TALLOC_CTX *tmp_ctx = talloc_stackframe();
  80         int ret;
  81
  82         status = dbwrap_fetch_bystring(db, tmp_ctx, keyname, &tdbdata);
  83         if (NT_STATUS_IS_OK(status)) {
  84                 d_printf("%-*.*s\n", (int)tdbdata.dsize, (int)tdbdata.dsize,
  85                          tdbdata.dptr);
  86                 ret = 0;
  87         } else {
  88                 d_fprintf(stderr, "ERROR: could not fetch string key '%s': "
  89                           "%s\n", nt_errstr(status), keyname);
  90                 ret = -1;
  91         }
  92
  93         talloc_free(tmp_ctx);
  94         return ret;
  95 }
  96
  97 static int dbwrap_tool_fetch_hex(struct db_context *db,
  98                                  const char *keyname,
  99                                  const char *data)
 100 {
 101         TDB_DATA tdbdata;
 102         DATA_BLOB datablob;
 103         NTSTATUS status;
 104         TALLOC_CTX *tmp_ctx = talloc_stackframe();
 105         char *hex_string;
 106         int ret;
 107
 108         status = dbwrap_fetch_bystring(db, tmp_ctx, keyname, &tdbdata);
 109         if (NT_STATUS_IS_OK(status)) {
 110                 datablob.data = tdbdata.dptr;
 111                 datablob.length = tdbdata.dsize;
 112
 113                 hex_string = data_blob_hex_string_upper(tmp_ctx, &datablob);
 114                 if (hex_string == NULL) {
 115                         d_fprintf(stderr, "ERROR: could not get hex string "
 116                                   "from data blob\n");
 117                         ret = -1;
 118                 } else {
 119                         d_printf("%s\n", hex_string);
 120                         ret =  0;
 121                 }
 122         } else {
 123                 d_fprintf(stderr, "ERROR: could not fetch hex key '%s': "
 124                           "%s\n", nt_errstr(status), keyname);
 125                 ret = -1;
 126         }
 127
 128         talloc_free(tmp_ctx);
 129         return ret;
 130 }
 131
 132 static int dbwrap_tool_store_int32(struct db_context *db,
 133                                    const char *keyname,
 134                                    const char *data)
 135 {
 136         NTSTATUS status;
 137         int32_t value = (int32_t)strtol(data, NULL, 10);
 138
 139         if (dbwrap_is_persistent(db)) {
 140                 status = dbwrap_trans_store_int32_bystring(db, keyname, value);
 141         } else {
 142                 status = dbwrap_store_int32_bystring(db, keyname, value);
 143         }
 144         if (!NT_STATUS_IS_OK(status)) {
 145                 d_fprintf(stderr, "ERROR: could not store int32 key '%s': %s\n",
 146                           keyname, nt_errstr(status));
 147                 return -1;
 148         }
 149
 150         return 0;
 151 }
 152
 153 static int dbwrap_tool_store_uint32(struct db_context *db,
 154                                     const char *keyname,
 155                                     const char *data)
 156 {
 157         NTSTATUS status;
 158         uint32_t value = (uint32_t)strtol(data, NULL, 10);
 159
 160         if (dbwrap_is_persistent(db)) {
 161                 status = dbwrap_trans_store_uint32_bystring(db, keyname, value);
 162         } else {
 163                 status = dbwrap_store_uint32_bystring(db, keyname, value);
 164         }
 165         if (!NT_STATUS_IS_OK(status)) {
 166                 d_fprintf(stderr,
 167                           "ERROR: could not store uint32 key '%s': %s\n",
 168                           keyname, nt_errstr(status));
 169                 return -1;
 170         }
 171
 172         return 0;
 173 }
 174
 175 static int dbwrap_tool_store_string(struct db_context *db,
 176                                     const char *keyname,
 177                                     const char *data)
 178 {
 179         NTSTATUS status;
 180         TDB_DATA tdbdata;
 181
 182         tdbdata = string_term_tdb_data(data);
 183
 184         if (dbwrap_is_persistent(db)) {
 185                 status = dbwrap_trans_store_bystring(db, keyname,
 186                                                      tdbdata,
 187                                                      TDB_REPLACE);
 188         } else {
 189                 status = dbwrap_store_bystring(db, keyname,
 190                                               tdbdata,
 191                                               TDB_REPLACE);
 192         }
 193         if (!NT_STATUS_IS_OK(status)) {
 194                 d_fprintf(stderr,
 195                           "ERROR: could not store string key '%s': %s\n",
 196                           keyname, nt_errstr(status));
 197                 return -1;
 198         }
 199
 200         return 0;
 201 }
 202
 203 static int dbwrap_tool_store_hex(struct db_context *db,
 204                                     const char *keyname,
 205                                     const char *data)
 206 {
 207         NTSTATUS status;
 208         DATA_BLOB datablob;
 209         TDB_DATA tdbdata;
 210         TALLOC_CTX *tmp_ctx = talloc_stackframe();
 211
 212         datablob = strhex_to_data_blob(tmp_ctx, data);
 213         if(strlen(data) > 0 && datablob.length == 0) {
 214                 d_fprintf(stderr,
 215                           "ERROR: could not convert hex string to data blob\n"
 216                           "       Not a valid hex string?\n");
 217                 talloc_free(tmp_ctx);
 218                 return -1;
 219         }
 220
 221         tdbdata.dptr = (unsigned char *)datablob.data;
 222         tdbdata.dsize = datablob.length;
 223
 224         if (dbwrap_is_persistent(db)) {
 225                 status = dbwrap_trans_store_bystring(db, keyname,
 226                                                      tdbdata,
 227                                                      TDB_REPLACE);
 228         } else {
 229                 status = dbwrap_store_bystring(db, keyname,
 230                                                tdbdata,
 231                                                TDB_REPLACE);
 232         }
 233         if (!NT_STATUS_IS_OK(status)) {
 234                 d_fprintf(stderr,
 235                           "ERROR: could not store string key '%s': %s\n",
 236                           keyname, nt_errstr(status));
 237                 talloc_free(tmp_ctx);
 238                 return -1;
 239         }
 240
 241         talloc_free(tmp_ctx);
 242         return 0;
 243 }
 244
 245 static int dbwrap_tool_delete(struct db_context *db,
 246                               const char *keyname,
 247                               const char *data)
 248 {
 249         NTSTATUS status;
 250
 251         if (dbwrap_is_persistent(db)) {
 252                 status = dbwrap_trans_delete_bystring(db, keyname);
 253         } else {
 254                 status = dbwrap_delete_bystring(db, keyname);
 255         }
 256
 257         if (!NT_STATUS_IS_OK(status)) {
 258                 d_fprintf(stderr, "ERROR deleting record %s : %s\n",
 259                           keyname, nt_errstr(status));
 260                 return -1;
 261         }
 262
 263         return 0;
 264 }
 265
 266 static int dbwrap_tool_exists(struct db_context *db,
 267                               const char *keyname,
 268                               const char *data)
 269 {
 270         bool result;
 271
 272         result = dbwrap_exists(db, string_term_tdb_data(keyname));
 273
 274         if (result) {
 275                 d_fprintf(stdout, "Key %s exists\n", keyname);
 276         } else {
 277                 d_fprintf(stdout, "Key %s does not exist\n", keyname);
 278         }
 279
 280         return (result)?0:1;
 281 }
 282
 283
 284 static int delete_fn(struct db_record *rec, void *priv)
 285 {
 286         dbwrap_record_delete(rec);
 287         return 0;
 288 }
 289
 290 /**
 291  * dbwrap_tool_erase: erase the whole data base
 292  * the keyname argument is not used.
 293  */
 294 static int dbwrap_tool_erase(struct db_context *db,
 295                              const char *keyname,
 296                              const char *data)
 297 {
 298         NTSTATUS status;
 299
 300         status = dbwrap_traverse(db, delete_fn, NULL, NULL);
 301
 302         if (!NT_STATUS_IS_OK(status)) {
 303                 d_fprintf(stderr, "ERROR erasing the database\n");
 304                 return -1;
 305         }
 306
 307         return 0;
 308 }
 309
 310 static int listkey_fn(struct db_record *rec, void *private_data)
 311 {
 312         int length = dbwrap_record_get_key(rec).dsize;
 313         unsigned char *p = (unsigned char *)dbwrap_record_get_key(rec).dptr;
 314
 315         while (length--) {
 316                 if (isprint(*p) && !strchr("\"\\", *p)) {
 317                         d_printf("%c", *p);
 318                 } else {
 319                         d_printf("\\%02X", *p);
 320                 }
 321                 p++;
 322         }
 323
 324         d_printf("\n");
 325
 326         return 0;
 327 }
 328
 329 static int dbwrap_tool_listkeys(struct db_context *db,
 330                                 const char *keyname,
 331                                 const char *data)
 332 {
 333         NTSTATUS status;
 334
 335         status = dbwrap_traverse_read(db, listkey_fn, NULL, NULL);
 336
 337         if (!NT_STATUS_IS_OK(status)) {
 338                 d_fprintf(stderr, "ERROR listing db keys\n");
 339                 return -1;
 340         }
 341
 342         return 0;
 343 }
 344
 345 static int dbwrap_tool_listwatchers_cb(const uint8_t *db_id, size_t db_id_len,
 346                                        const TDB_DATA key,
 347                                        const struct server_id *watchers,
 348                                        size_t num_watchers,
 349                                        void *private_data)
 350 {
 351         uint32_t i;
 352         dump_data_file(db_id, db_id_len, false, stdout);
 353         dump_data_file(key.dptr, key.dsize, false, stdout);
 354
 355         for (i=0; i<num_watchers; i++) {
 356                 char *str = server_id_str(talloc_tos(), &watchers[i]);
 357                 printf("%s\n", str);
 358                 TALLOC_FREE(str);
 359         }
 360         printf("\n");
 361         return 0;
 362 }
 363
 364
 365 static int dbwrap_tool_listwatchers(struct db_context *db,
 366                                     const char *keyname,
 367                                     const char *data)
 368 {
 369         dbwrap_watchers_traverse_read(dbwrap_tool_listwatchers_cb, NULL);
 370         return 0;
 371 }
 372
 373 struct dbwrap_op_dispatch_table {
 374         enum dbwrap_op op;
 375         enum dbwrap_type type;
 376         int (*cmd)(struct db_context *db,
 377                    const char *keyname,
 378                    const char *data);
 379 };
 380
 381 struct dbwrap_op_dispatch_table dispatch_table[] = {
 382         { OP_FETCH,  TYPE_INT32,  dbwrap_tool_fetch_int32 },
 383         { OP_FETCH,  TYPE_UINT32, dbwrap_tool_fetch_uint32 },
 384         { OP_FETCH,  TYPE_STRING, dbwrap_tool_fetch_string },
 385         { OP_FETCH,  TYPE_HEX,    dbwrap_tool_fetch_hex },
 386         { OP_STORE,  TYPE_INT32,  dbwrap_tool_store_int32 },
 387         { OP_STORE,  TYPE_UINT32, dbwrap_tool_store_uint32 },
 388         { OP_STORE,  TYPE_STRING, dbwrap_tool_store_string },
 389         { OP_STORE,  TYPE_HEX,    dbwrap_tool_store_hex },
 390         { OP_DELETE, TYPE_INT32,  dbwrap_tool_delete },
 391         { OP_ERASE,  TYPE_INT32,  dbwrap_tool_erase },
 392         { OP_LISTKEYS, TYPE_INT32, dbwrap_tool_listkeys },
 393         { OP_LISTWATCHERS, TYPE_NONE, dbwrap_tool_listwatchers },
 394         { OP_EXISTS, TYPE_STRING, dbwrap_tool_exists },
 395         { 0, 0, NULL },
 396 };
 397
 398 int main(int argc, const char **argv)
 399 {
 400         struct tevent_context *evt_ctx;
 401         struct messaging_context *msg_ctx;
 402         struct db_context *db;
 403
 404         uint16_t count;
 405
 406         const char *dbname;
 407         const char *opname;
 408         enum dbwrap_op op;
 409         const char *keyname = "";
 410         const char *keytype = "int32";
 411         enum dbwrap_type type;
 412         const char *valuestr = "0";
 413         int persistent = 0;
 414         int non_persistent = 0;
 415         int tdb_flags = TDB_DEFAULT;
 416
 417         TALLOC_CTX *mem_ctx = talloc_stackframe();
 418
 419         int ret = 1;
 420
 421         struct poptOption popt_options[] = {
 422                 POPT_AUTOHELP
 423                 POPT_COMMON_SAMBA
 424                 { "non-persistent", 0, POPT_ARG_NONE, &non_persistent, 0,
 425                   "treat the database as non-persistent "
 426                   "(CAVEAT: This mode might wipe your database!)",
 427                   NULL },
 428                 { "persistent", 0, POPT_ARG_NONE, &persistent, 0,
 429                   "treat the database as persistent",
 430                   NULL },
 431                 POPT_TABLEEND
 432         };
 433         int opt;
 434         const char **extra_argv;
 435         int extra_argc = 0;
 436         poptContext pc;
 437
 438         load_case_tables();
 439         lp_set_cmdline("log level", "0");
 440         setup_logging(argv[0], DEBUG_STDERR);
 441
 442         pc = poptGetContext(argv[0], argc, argv, popt_options, POPT_CONTEXT_KEEP_FIRST);
 443
 444         while ((opt = poptGetNextOpt(pc)) != -1) {
 445                 switch (opt) {
 446                 default:
 447                         fprintf(stderr, "Invalid option %s: %s\n",
 448                                 poptBadOption(pc, 0), poptStrerror(opt));
 449                         goto done;
 450                 }
 451         }
 452
 453         /* setup the remaining options for the main program to use */
 454         extra_argv = poptGetArgs(pc);
 455         if (extra_argv) {
 456                 extra_argv++;
 457                 while (extra_argv[extra_argc]) extra_argc++;
 458         }
 459
 460         lp_load_global(get_dyn_CONFIGFILE());
 461
 462         if ((extra_argc < 2) || (extra_argc > 5)) {
 463                 d_fprintf(stderr,
 464                           "USAGE: %s [options] <database> <op> [<key> [<type> "
 465                           "[<value>]]]\n"
 466                           "       ops: fetch, store, delete, exists, "
 467                           "erase, listkeys, listwatchers\n"
 468                           "       types: int32, uint32, string, hex\n",
 469                          argv[0]);
 470                 goto done;
 471         }
 472
 473         if ((persistent == 0 && non_persistent == 0) ||
 474             (persistent == 1 && non_persistent == 1))
 475         {
 476                 d_fprintf(stderr, "ERROR: you must specify exactly one "
 477                           "of --persistent and --non-persistent\n");
 478                 goto done;
 479         } else if (non_persistent == 1) {
 480                 tdb_flags |= TDB_CLEAR_IF_FIRST;
 481         }
 482
 483         dbname = extra_argv[0];
 484         opname = extra_argv[1];
 485
 486         if (strcmp(opname, "store") == 0) {
 487                 if (extra_argc != 5) {
 488                         d_fprintf(stderr, "ERROR: operation 'store' requires "
 489                                   "value argument\n");
 490                         goto done;
 491                 }
 492                 valuestr = extra_argv[4];
 493                 keytype = extra_argv[3];
 494                 keyname = extra_argv[2];
 495                 op = OP_STORE;
 496         } else if (strcmp(opname, "fetch") == 0) {
 497                 if (extra_argc != 4) {
 498                         d_fprintf(stderr, "ERROR: operation 'fetch' requires "
 499                                   "type but not value argument\n");
 500                         goto done;
 501                 }
 502                 op = OP_FETCH;
 503                 keytype = extra_argv[3];
 504                 keyname = extra_argv[2];
 505         } else if (strcmp(opname, "delete") == 0) {
 506                 if (extra_argc != 3) {
 507                         d_fprintf(stderr, "ERROR: operation 'delete' does "
 508                                   "not allow type nor value argument\n");
 509                         goto done;
 510                 }
 511                 keyname = extra_argv[2];
 512                 op = OP_DELETE;
 513         } else if (strcmp(opname, "erase") == 0) {
 514                 if (extra_argc != 2) {
 515                         d_fprintf(stderr, "ERROR: operation 'erase' does "
 516                                   "not take a key argument\n");
 517                         goto done;
 518                 }
 519                 op = OP_ERASE;
 520         } else if (strcmp(opname, "listkeys") == 0) {
 521                 if (extra_argc != 2) {
 522                         d_fprintf(stderr, "ERROR: operation 'listkeys' does "
 523                                   "not take a key argument\n");
 524                         goto done;
 525                 }
 526                 op = OP_LISTKEYS;
 527         } else if (strcmp(opname, "listwatchers") == 0) {
 528                 if (extra_argc != 2) {
 529                         d_fprintf(stderr, "ERROR: operation 'listwatchers' "
 530                                   "does not take an argument\n");
 531                         goto done;
 532                 }
 533                 op = OP_LISTWATCHERS;
 534                 keytype = "none";
 535         } else if (strcmp(opname, "exists") == 0) {
 536                 if (extra_argc != 3) {
 537                         d_fprintf(stderr, "ERROR: operation 'exists' does "
 538                                   "not allow type nor value argument\n");
 539                         goto done;
 540                 }
 541                 keyname = extra_argv[2];
 542                 op = OP_EXISTS;
 543                 keytype = "string";
 544         } else {
 545                 d_fprintf(stderr,
 546                           "ERROR: invalid op '%s' specified\n"
 547                           "       supported ops: fetch, store, delete, exists, "
 548                           "erase, listkeys, listwatchers\n",
 549                           opname);
 550                 goto done;
 551         }
 552
 553         if (strcmp(keytype, "int32") == 0) {
 554                 type = TYPE_INT32;
 555         } else if (strcmp(keytype, "uint32") == 0) {
 556                 type = TYPE_UINT32;
 557         } else if (strcmp(keytype, "string") == 0) {
 558                 type = TYPE_STRING;
 559         } else if (strcmp(keytype, "hex") == 0) {
 560                 type = TYPE_HEX;
 561         } else if (strcmp(keytype, "none") == 0) {
 562                 type = TYPE_NONE;
 563         } else {
 564                 d_fprintf(stderr, "ERROR: invalid type '%s' specified.\n"
 565                                   "       supported types: int32, uint32, "
 566                                   "string, hex, none\n",
 567                                   keytype);
 568                 goto done;
 569         }
 570
 571         evt_ctx = samba_tevent_context_init(mem_ctx);
 572         if (evt_ctx == NULL) {
 573                 d_fprintf(stderr, "ERROR: could not init event context\n");
 574                 goto done;
 575         }
 576
 577         msg_ctx = messaging_init(mem_ctx, evt_ctx);
 578         if (msg_ctx == NULL) {
 579                 d_fprintf(stderr, "ERROR: could not init messaging context\n");
 580                 goto done;
 581         }
 582
 583         switch (op) {
 584         case OP_FETCH:
 585         case OP_STORE:
 586         case OP_DELETE:
 587         case OP_ERASE:
 588         case OP_LISTKEYS:
 589         case OP_EXISTS:
 590                 db = db_open(mem_ctx, dbname, 0, tdb_flags, O_RDWR | O_CREAT,
 591                              0644, DBWRAP_LOCK_ORDER_1, DBWRAP_FLAG_NONE);
 592                 if (db == NULL) {
 593                         d_fprintf(stderr, "ERROR: could not open dbname\n");
 594                         goto done;
 595                 }
 596                 break;
 597         default:
 598                 db = NULL;
 599                 break;
 600         }
 601
 602         for (count = 0; dispatch_table[count].cmd != NULL; count++) {
 603                 if ((op == dispatch_table[count].op) &&
 604                     (type == dispatch_table[count].type))
 605                 {
 606                         ret = dispatch_table[count].cmd(db, keyname, valuestr);
 607                         break;
 608                 }
 609         }
 610
 611 done:
 612         TALLOC_FREE(mem_ctx);
 613         return ret;
 614 }