source3/registry/reg_backend_db.c

   1 /*
   2  *  Unix SMB/CIFS implementation.
   3  *  Virtual Windows Registry Layer
   4  *  Copyright (C) Gerald Carter                     2002-2005
   5  *  Copyright (C) Michael Adam                      2007-2009
   6  *
   7  *  This program is free software; you can redistribute it and/or modify
   8  *  it under the terms of the GNU General Public License as published by
   9  *  the Free Software Foundation; either version 3 of the License, or
  10  *  (at your option) any later version.
  11  *
  12  *  This program is distributed in the hope that it will be useful,
  13  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15  *  GNU General Public License for more details.
  16  *
  17  *  You should have received a copy of the GNU General Public License
  18  *  along with this program; if not, see <http://www.gnu.org/licenses/>.
  19  */
  20
  21 /* Implementation of internal registry database functions. */
  22
  23 #include "includes.h"
  24
  25 #undef DBGC_CLASS
  26 #define DBGC_CLASS DBGC_REGISTRY
  27
  28 static struct db_context *regdb = NULL;
  29 static int regdb_refcount;
  30
  31 static bool regdb_key_exists(struct db_context *db, const char *key);
  32 static bool regdb_key_is_base_key(const char *key);
  33 static WERROR regdb_fetch_keys_internal(struct db_context *db, const char *key,
  34                                         struct regsubkey_ctr *ctr);
  35 static bool regdb_store_keys_internal(struct db_context *db, const char *key,
  36                                       struct regsubkey_ctr *ctr);
  37 static int regdb_fetch_values_internal(struct db_context *db, const char* key,
  38                                        struct regval_ctr *values);
  39 static bool regdb_store_values_internal(struct db_context *db, const char *key,
  40                                         struct regval_ctr *values);
  41
  42 /* List the deepest path into the registry.  All part components will be created.*/
  43
  44 /* If you want to have a part of the path controlled by the tdb and part by
  45    a virtual registry db (e.g. printing), then you have to list the deepest path.
  46    For example,"HKLM/SOFTWARE/Microsoft/Windows NT/CurrentVersion/Print"
  47    allows the reg_db backend to handle everything up to
  48    "HKLM/SOFTWARE/Microsoft/Windows NT/CurrentVersion" and then we'll hook
  49    the reg_printing backend onto the last component of the path (see
  50    KEY_PRINTING_2K in include/rpc_reg.h)   --jerry */
  51
  52 static const char *builtin_registry_paths[] = {
  53         KEY_PRINTING_2K,
  54         KEY_PRINTING_PORTS,
  55         KEY_PRINTING,
  56         KEY_SHARES,
  57         KEY_EVENTLOG,
  58         KEY_SMBCONF,
  59         KEY_PERFLIB,
  60         KEY_PERFLIB_009,
  61         KEY_GROUP_POLICY,
  62         KEY_SAMBA_GROUP_POLICY,
  63         KEY_GP_MACHINE_POLICY,
  64         KEY_GP_MACHINE_WIN_POLICY,
  65         KEY_HKCU,
  66         KEY_GP_USER_POLICY,
  67         KEY_GP_USER_WIN_POLICY,
  68         KEY_WINLOGON_GPEXT_PATH,
  69         "HKLM\\SYSTEM\\CurrentControlSet\\Control\\Print\\Monitors",
  70         KEY_PROD_OPTIONS,
  71         "HKLM\\SYSTEM\\CurrentControlSet\\Control\\Terminal Server\\DefaultUserConfiguration",
  72         KEY_TCPIP_PARAMS,
  73         KEY_NETLOGON_PARAMS,
  74         KEY_HKU,
  75         KEY_HKCR,
  76         KEY_HKPD,
  77         KEY_HKPT,
  78          NULL };
  79
  80 struct builtin_regkey_value {
  81         const char *path;
  82         const char *valuename;
  83         uint32 type;
  84         union {
  85                 const char *string;
  86                 uint32 dw_value;
  87         } data;
  88 };
  89
  90 static struct builtin_regkey_value builtin_registry_values[] = {
  91         { KEY_PRINTING_PORTS,
  92                 SAMBA_PRINTER_PORT_NAME, REG_SZ, { "" } },
  93         { KEY_PRINTING_2K,
  94                 "DefaultSpoolDirectory", REG_SZ, { "C:\\Windows\\System32\\Spool\\Printers" } },
  95         { KEY_EVENTLOG,
  96                 "DisplayName", REG_SZ, { "Event Log" } },
  97         { KEY_EVENTLOG,
  98                 "ErrorControl", REG_DWORD, { (char*)0x00000001 } },
  99         { NULL, NULL, 0, { NULL } }
 100 };
 101
 102 /**
 103  * Initialize a key in the registry:
 104  * create each component key of the specified path.
 105  */
 106 static WERROR init_registry_key_internal(struct db_context *db,
 107                                          const char *add_path)
 108 {
 109         WERROR werr;
 110         TALLOC_CTX *frame = talloc_stackframe();
 111         char *path = NULL;
 112         char *base = NULL;
 113         char *remaining = NULL;
 114         char *keyname;
 115         char *subkeyname;
 116         struct regsubkey_ctr *subkeys;
 117         const char *p, *p2;
 118
 119         DEBUG(6, ("init_registry_key: Adding [%s]\n", add_path));
 120
 121         path = talloc_strdup(frame, add_path);
 122         base = talloc_strdup(frame, "");
 123         if (!path || !base) {
 124                 werr = WERR_NOMEM;
 125                 goto fail;
 126         }
 127         p = path;
 128
 129         while (next_token_talloc(frame, &p, &keyname, "\\")) {
 130
 131                 /* build up the registry path from the components */
 132
 133                 if (*base) {
 134                         base = talloc_asprintf(frame, "%s\\", base);
 135                         if (!base) {
 136                                 werr = WERR_NOMEM;
 137                                 goto fail;
 138                         }
 139                 }
 140                 base = talloc_asprintf_append(base, "%s", keyname);
 141                 if (!base) {
 142                         werr = WERR_NOMEM;
 143                         goto fail;
 144                 }
 145
 146                 /* get the immediate subkeyname (if we have one ) */
 147
 148                 subkeyname = talloc_strdup(frame, "");
 149                 if (!subkeyname) {
 150                         werr = WERR_NOMEM;
 151                         goto fail;
 152                 }
 153                 if (*p) {
 154                         remaining = talloc_strdup(frame, p);
 155                         if (!remaining) {
 156                                 werr = WERR_NOMEM;
 157                                 goto fail;
 158                         }
 159                         p2 = remaining;
 160
 161                         if (!next_token_talloc(frame, &p2,
 162                                                 &subkeyname, "\\"))
 163                         {
 164                                 subkeyname = talloc_strdup(frame,p2);
 165                                 if (!subkeyname) {
 166                                         werr = WERR_NOMEM;
 167                                         goto fail;
 168                                 }
 169                         }
 170                 }
 171
 172                 DEBUG(10,("init_registry_key: Storing key [%s] with "
 173                           "subkey [%s]\n", base,
 174                           *subkeyname ? subkeyname : "NULL"));
 175
 176                 /* we don't really care if the lookup succeeds or not
 177                  * since we are about to update the record.
 178                  * We just want any subkeys already present */
 179
 180                 werr = regsubkey_ctr_init(frame, &subkeys);
 181                 if (!W_ERROR_IS_OK(werr)) {
 182                         DEBUG(0,("talloc() failure!\n"));
 183                         goto fail;
 184                 }
 185
 186                 werr = regdb_fetch_keys_internal(db, base, subkeys);
 187                 if (!W_ERROR_IS_OK(werr) &&
 188                     !W_ERROR_EQUAL(werr, WERR_NOT_FOUND))
 189                 {
 190                         goto fail;
 191                 }
 192
 193                 if (*subkeyname) {
 194                         werr = regsubkey_ctr_addkey(subkeys, subkeyname);
 195                         if (!W_ERROR_IS_OK(werr)) {
 196                                 goto fail;
 197                         }
 198                 }
 199                 if (!regdb_store_keys_internal(db, base, subkeys)) {
 200                         werr = WERR_CAN_NOT_COMPLETE;
 201                         goto fail;
 202                 }
 203         }
 204
 205         werr = WERR_OK;
 206
 207 fail:
 208         TALLOC_FREE(frame);
 209         return werr;
 210 }
 211
 212 struct init_registry_key_context {
 213         const char *add_path;
 214 };
 215
 216 static NTSTATUS init_registry_key_action(struct db_context *db,
 217                                          void *private_data)
 218 {
 219         struct init_registry_key_context *init_ctx =
 220                 (struct init_registry_key_context *)private_data;
 221
 222         return werror_to_ntstatus(init_registry_key_internal(
 223                                         db, init_ctx->add_path));
 224 }
 225
 226 /**
 227  * Initialize a key in the registry:
 228  * create each component key of the specified path,
 229  * wrapped in one db transaction.
 230  */
 231 WERROR init_registry_key(const char *add_path)
 232 {
 233         struct init_registry_key_context init_ctx;
 234
 235         if (regdb_key_exists(regdb, add_path)) {
 236                 return WERR_OK;
 237         }
 238
 239         init_ctx.add_path = add_path;
 240
 241         return ntstatus_to_werror(dbwrap_trans_do(regdb,
 242                                                   init_registry_key_action,
 243                                                   &init_ctx));
 244 }
 245
 246 /***********************************************************************
 247  Open the registry data in the tdb
 248  ***********************************************************************/
 249
 250 static void regdb_ctr_add_value(struct regval_ctr *ctr,
 251                                 struct builtin_regkey_value *value)
 252 {
 253         UNISTR2 data;
 254
 255         switch(value->type) {
 256         case REG_DWORD:
 257                 regval_ctr_addvalue(ctr, value->valuename, REG_DWORD,
 258                                     (char*)&value->data.dw_value,
 259                                     sizeof(uint32));
 260                 break;
 261
 262         case REG_SZ:
 263                 init_unistr2(&data, value->data.string, UNI_STR_TERMINATE);
 264                 regval_ctr_addvalue(ctr, value->valuename, REG_SZ,
 265                                     (char*)data.buffer,
 266                                     data.uni_str_len*sizeof(uint16));
 267                 break;
 268
 269         default:
 270                 DEBUG(0, ("regdb_ctr_add_value: invalid value type in "
 271                           "registry values [%d]\n", value->type));
 272         }
 273 }
 274
 275 static NTSTATUS init_registry_data_action(struct db_context *db,
 276                                           void *private_data)
 277 {
 278         NTSTATUS status;
 279         TALLOC_CTX *frame = talloc_stackframe();
 280         struct regval_ctr *values;
 281         int i;
 282
 283         /* loop over all of the predefined paths and add each component */
 284
 285         for (i=0; builtin_registry_paths[i] != NULL; i++) {
 286                 if (regdb_key_exists(db, builtin_registry_paths[i])) {
 287                         continue;
 288                 }
 289                 status = werror_to_ntstatus(init_registry_key_internal(db,
 290                                                   builtin_registry_paths[i]));
 291                 if (!NT_STATUS_IS_OK(status)) {
 292                         goto done;
 293                 }
 294         }
 295
 296         /* loop over all of the predefined values and add each component */
 297
 298         for (i=0; builtin_registry_values[i].path != NULL; i++) {
 299
 300                 values = TALLOC_ZERO_P(frame, struct regval_ctr);
 301                 if (values == NULL) {
 302                         status = NT_STATUS_NO_MEMORY;
 303                         goto done;
 304                 }
 305
 306                 regdb_fetch_values_internal(db,
 307                                             builtin_registry_values[i].path,
 308                                             values);
 309
 310                 /* preserve existing values across restarts. Only add new ones */
 311
 312                 if (!regval_ctr_key_exists(values,
 313                                         builtin_registry_values[i].valuename))
 314                 {
 315                         regdb_ctr_add_value(values,
 316                                             &builtin_registry_values[i]);
 317                         regdb_store_values_internal(db,
 318                                         builtin_registry_values[i].path,
 319                                         values);
 320                 }
 321                 TALLOC_FREE(values);
 322         }
 323
 324         status = NT_STATUS_OK;
 325
 326 done:
 327
 328         TALLOC_FREE(frame);
 329         return status;
 330 }
 331
 332 WERROR init_registry_data(void)
 333 {
 334         WERROR werr;
 335         TALLOC_CTX *frame = talloc_stackframe();
 336         struct regval_ctr *values;
 337         int i;
 338
 339         /*
 340          * First, check for the existence of the needed keys and values.
 341          * If all do already exist, we can save the writes.
 342          */
 343         for (i=0; builtin_registry_paths[i] != NULL; i++) {
 344                 if (!regdb_key_exists(regdb, builtin_registry_paths[i])) {
 345                         goto do_init;
 346                 }
 347         }
 348
 349         for (i=0; builtin_registry_values[i].path != NULL; i++) {
 350                 values = TALLOC_ZERO_P(frame, struct regval_ctr);
 351                 if (values == NULL) {
 352                         werr = WERR_NOMEM;
 353                         goto done;
 354                 }
 355
 356                 regdb_fetch_values_internal(regdb,
 357                                             builtin_registry_values[i].path,
 358                                             values);
 359                 if (!regval_ctr_key_exists(values,
 360                                         builtin_registry_values[i].valuename))
 361                 {
 362                         TALLOC_FREE(values);
 363                         goto do_init;
 364                 }
 365
 366                 TALLOC_FREE(values);
 367         }
 368
 369         werr = WERR_OK;
 370         goto done;
 371
 372 do_init:
 373
 374         /*
 375          * There are potentially quite a few store operations which are all
 376          * indiviually wrapped in tdb transactions. Wrapping them in a single
 377          * transaction gives just a single transaction_commit() to actually do
 378          * its fsync()s. See tdb/common/transaction.c for info about nested
 379          * transaction behaviour.
 380          */
 381
 382         werr = ntstatus_to_werror(dbwrap_trans_do(regdb,
 383                                                   init_registry_data_action,
 384                                                   NULL));
 385
 386 done:
 387         TALLOC_FREE(frame);
 388         return werr;
 389 }
 390
 391 /***********************************************************************
 392  Open the registry database
 393  ***********************************************************************/
 394
 395 WERROR regdb_init(void)
 396 {
 397         const char *vstring = "INFO/version";
 398         uint32 vers_id;
 399         WERROR werr;
 400
 401         if (regdb) {
 402                 DEBUG(10, ("regdb_init: incrementing refcount (%d)\n",
 403                           regdb_refcount));
 404                 regdb_refcount++;
 405                 return WERR_OK;
 406         }
 407
 408         regdb = db_open(NULL, state_path("registry.tdb"), 0,
 409                               REG_TDB_FLAGS, O_RDWR, 0600);
 410         if (!regdb) {
 411                 regdb = db_open(NULL, state_path("registry.tdb"), 0,
 412                                       REG_TDB_FLAGS, O_RDWR|O_CREAT, 0600);
 413                 if (!regdb) {
 414                         werr = ntstatus_to_werror(map_nt_error_from_unix(errno));
 415                         DEBUG(1,("regdb_init: Failed to open registry %s (%s)\n",
 416                                 state_path("registry.tdb"), strerror(errno) ));
 417                         return werr;
 418                 }
 419
 420                 DEBUG(10,("regdb_init: Successfully created registry tdb\n"));
 421         }
 422
 423         regdb_refcount = 1;
 424
 425         vers_id = dbwrap_fetch_int32(regdb, vstring);
 426
 427         if ( vers_id != REGVER_V1 ) {
 428                 NTSTATUS status;
 429                 /* any upgrade code here if needed */
 430                 DEBUG(10, ("regdb_init: got %s = %d != %d\n", vstring,
 431                            vers_id, REGVER_V1));
 432                 status = dbwrap_trans_store_int32(regdb, vstring, REGVER_V1);
 433                 if (!NT_STATUS_IS_OK(status)) {
 434                         DEBUG(1, ("regdb_init: error storing %s = %d: %s\n",
 435                                   vstring, REGVER_V1, nt_errstr(status)));
 436                         return ntstatus_to_werror(status);
 437                 } else {
 438                         DEBUG(10, ("regdb_init: stored %s = %d\n",
 439                                   vstring, REGVER_V1));
 440                 }
 441         }
 442
 443         return WERR_OK;
 444 }
 445
 446 /***********************************************************************
 447  Open the registry.  Must already have been initialized by regdb_init()
 448  ***********************************************************************/
 449
 450 WERROR regdb_open( void )
 451 {
 452         WERROR result = WERR_OK;
 453
 454         if ( regdb ) {
 455                 DEBUG(10,("regdb_open: incrementing refcount (%d)\n", regdb_refcount));
 456                 regdb_refcount++;
 457                 return WERR_OK;
 458         }
 459
 460         become_root();
 461
 462         regdb = db_open(NULL, state_path("registry.tdb"), 0,
 463                               REG_TDB_FLAGS, O_RDWR, 0600);
 464         if ( !regdb ) {
 465                 result = ntstatus_to_werror( map_nt_error_from_unix( errno ) );
 466                 DEBUG(0,("regdb_open: Failed to open %s! (%s)\n",
 467                         state_path("registry.tdb"), strerror(errno) ));
 468         }
 469
 470         unbecome_root();
 471
 472         regdb_refcount = 1;
 473         DEBUG(10,("regdb_open: refcount reset (%d)\n", regdb_refcount));
 474
 475         return result;
 476 }
 477
 478 /***********************************************************************
 479  ***********************************************************************/
 480
 481 int regdb_close( void )
 482 {
 483         if (regdb_refcount == 0) {
 484                 return 0;
 485         }
 486
 487         regdb_refcount--;
 488
 489         DEBUG(10,("regdb_close: decrementing refcount (%d)\n", regdb_refcount));
 490
 491         if ( regdb_refcount > 0 )
 492                 return 0;
 493
 494         SMB_ASSERT( regdb_refcount >= 0 );
 495
 496         TALLOC_FREE(regdb);
 497         return 0;
 498 }
 499
 500 WERROR regdb_transaction_start(void)
 501 {
 502         return (regdb->transaction_start(regdb) == 0) ?
 503                 WERR_OK : WERR_REG_IO_FAILURE;
 504 }
 505
 506 WERROR regdb_transaction_commit(void)
 507 {
 508         return (regdb->transaction_commit(regdb) == 0) ?
 509                 WERR_OK : WERR_REG_IO_FAILURE;
 510 }
 511
 512 WERROR regdb_transaction_cancel(void)
 513 {
 514         return (regdb->transaction_cancel(regdb) == 0) ?
 515                 WERR_OK : WERR_REG_IO_FAILURE;
 516 }
 517
 518 /***********************************************************************
 519  return the tdb sequence number of the registry tdb.
 520  this is an indicator for the content of the registry
 521  having changed. it will change upon regdb_init, too, though.
 522  ***********************************************************************/
 523 int regdb_get_seqnum(void)
 524 {
 525         return regdb->get_seqnum(regdb);
 526 }
 527
 528
 529 static WERROR regdb_delete_key_with_prefix(struct db_context *db,
 530                                            const char *keyname,
 531                                            const char *prefix)
 532 {
 533         char *path;
 534         WERROR werr = WERR_NOMEM;
 535         TALLOC_CTX *mem_ctx = talloc_stackframe();
 536
 537         if (keyname == NULL) {
 538                 werr = WERR_INVALID_PARAM;
 539                 goto done;
 540         }
 541
 542         if (prefix == NULL) {
 543                 path = discard_const_p(char, keyname);
 544         } else {
 545                 path = talloc_asprintf(mem_ctx, "%s/%s", prefix, keyname);
 546                 if (path == NULL) {
 547                         goto done;
 548                 }
 549         }
 550
 551         path = normalize_reg_path(mem_ctx, path);
 552         if (path == NULL) {
 553                 goto done;
 554         }
 555
 556         werr = ntstatus_to_werror(dbwrap_delete_bystring(db, path));
 557
 558         /* treat "not" found" as ok */
 559         if (W_ERROR_EQUAL(werr, WERR_NOT_FOUND)) {
 560                 werr = WERR_OK;
 561         }
 562
 563 done:
 564         talloc_free(mem_ctx);
 565         return werr;
 566 }
 567
 568
 569 static WERROR regdb_delete_values(struct db_context *db, const char *keyname)
 570 {
 571         return regdb_delete_key_with_prefix(db, keyname, REG_VALUE_PREFIX);
 572 }
 573
 574 static WERROR regdb_delete_secdesc(struct db_context *db, const char *keyname)
 575 {
 576         return regdb_delete_key_with_prefix(db, keyname, REG_SECDESC_PREFIX);
 577 }
 578
 579 static WERROR regdb_delete_subkeylist(struct db_context *db, const char *keyname)
 580 {
 581         return regdb_delete_key_with_prefix(db, keyname, NULL);
 582 }
 583
 584 static WERROR regdb_delete_key_lists(struct db_context *db, const char *keyname)
 585 {
 586         WERROR werr;
 587
 588         werr = regdb_delete_values(db, keyname);
 589         if (!W_ERROR_IS_OK(werr)) {
 590                 DEBUG(1, (__location__ " Deleting %s/%s failed: %s\n",
 591                           REG_VALUE_PREFIX, keyname, win_errstr(werr)));
 592                 goto done;
 593         }
 594
 595         werr = regdb_delete_secdesc(db, keyname);
 596         if (!W_ERROR_IS_OK(werr)) {
 597                 DEBUG(1, (__location__ " Deleting %s/%s failed: %s\n",
 598                           REG_SECDESC_PREFIX, keyname, win_errstr(werr)));
 599                 goto done;
 600         }
 601
 602         werr = regdb_delete_subkeylist(db, keyname);
 603         if (!W_ERROR_IS_OK(werr)) {
 604                 DEBUG(1, (__location__ " Deleting %s failed: %s\n",
 605                           keyname, win_errstr(werr)));
 606                 goto done;
 607         }
 608
 609 done:
 610         return werr;
 611 }
 612
 613 /***********************************************************************
 614  Add subkey strings to the registry tdb under a defined key
 615  fmt is the same format as tdb_pack except this function only supports
 616  fstrings
 617  ***********************************************************************/
 618
 619 static WERROR regdb_store_keys_internal2(struct db_context *db,
 620                                          const char *key,
 621                                          struct regsubkey_ctr *ctr)
 622 {
 623         TDB_DATA dbuf;
 624         uint8 *buffer = NULL;
 625         int i = 0;
 626         uint32 len, buflen;
 627         uint32 num_subkeys = regsubkey_ctr_numkeys(ctr);
 628         char *keyname = NULL;
 629         TALLOC_CTX *ctx = talloc_stackframe();
 630         WERROR werr;
 631
 632         if (!key) {
 633                 werr = WERR_INVALID_PARAM;
 634                 goto done;
 635         }
 636
 637         keyname = talloc_strdup(ctx, key);
 638         if (!keyname) {
 639                 werr = WERR_NOMEM;
 640                 goto done;
 641         }
 642
 643         keyname = normalize_reg_path(ctx, keyname);
 644         if (!keyname) {
 645                 werr = WERR_NOMEM;
 646                 goto done;
 647         }
 648
 649         /* allocate some initial memory */
 650
 651         buffer = (uint8 *)SMB_MALLOC(1024);
 652         if (buffer == NULL) {
 653                 werr = WERR_NOMEM;
 654                 goto done;
 655         }
 656         buflen = 1024;
 657         len = 0;
 658
 659         /* store the number of subkeys */
 660
 661         len += tdb_pack(buffer+len, buflen-len, "d", num_subkeys);
 662
 663         /* pack all the strings */
 664
 665         for (i=0; i<num_subkeys; i++) {
 666                 size_t thistime;
 667
 668                 thistime = tdb_pack(buffer+len, buflen-len, "f",
 669                                     regsubkey_ctr_specific_key(ctr, i));
 670                 if (len+thistime > buflen) {
 671                         size_t thistime2;
 672                         /*
 673                          * tdb_pack hasn't done anything because of the short
 674                          * buffer, allocate extra space.
 675                          */
 676                         buffer = SMB_REALLOC_ARRAY(buffer, uint8_t,
 677                                                    (len+thistime)*2);
 678                         if(buffer == NULL) {
 679                                 DEBUG(0, ("regdb_store_keys: Failed to realloc "
 680                                           "memory of size [%u]\n",
 681                                           (unsigned int)(len+thistime)*2));
 682                                 werr = WERR_NOMEM;
 683                                 goto done;
 684                         }
 685                         buflen = (len+thistime)*2;
 686                         thistime2 = tdb_pack(
 687                                 buffer+len, buflen-len, "f",
 688                                 regsubkey_ctr_specific_key(ctr, i));
 689                         if (thistime2 != thistime) {
 690                                 DEBUG(0, ("tdb_pack failed\n"));
 691                                 werr = WERR_CAN_NOT_COMPLETE;
 692                                 goto done;
 693                         }
 694                 }
 695                 len += thistime;
 696         }
 697
 698         /* finally write out the data */
 699
 700         dbuf.dptr = buffer;
 701         dbuf.dsize = len;
 702         werr = ntstatus_to_werror(dbwrap_store_bystring(db, keyname, dbuf,
 703                                                         TDB_REPLACE));
 704         W_ERROR_NOT_OK_GOTO_DONE(werr);
 705
 706         /*
 707          * Delete a sorted subkey cache for regdb_key_exists, will be
 708          * recreated automatically
 709          */
 710         keyname = talloc_asprintf(ctx, "%s/%s", REG_SORTED_SUBKEYS_PREFIX,
 711                                   keyname);
 712         if (keyname == NULL) {
 713                 werr = WERR_NOMEM;
 714                 goto done;
 715         }
 716
 717         werr = ntstatus_to_werror(dbwrap_delete_bystring(db, keyname));
 718
 719         /* don't treat WERR_NOT_FOUND as an error here */
 720         if (W_ERROR_EQUAL(werr, WERR_NOT_FOUND)) {
 721                 werr = WERR_OK;
 722         }
 723
 724 done:
 725         TALLOC_FREE(ctx);
 726         SAFE_FREE(buffer);
 727         return werr;
 728 }
 729
 730 /***********************************************************************
 731  Store the new subkey record and create any child key records that
 732  do not currently exist
 733  ***********************************************************************/
 734
 735 struct regdb_store_keys_context {
 736         const char *key;
 737         struct regsubkey_ctr *ctr;
 738 };
 739
 740 static NTSTATUS regdb_store_keys_action(struct db_context *db,
 741                                         void *private_data)
 742 {
 743         struct regdb_store_keys_context *store_ctx;
 744         WERROR werr;
 745         int num_subkeys, i;
 746         char *path = NULL;
 747         struct regsubkey_ctr *subkeys = NULL, *old_subkeys = NULL;
 748         char *oldkeyname = NULL;
 749         TALLOC_CTX *mem_ctx = talloc_stackframe();
 750
 751         store_ctx = (struct regdb_store_keys_context *)private_data;
 752
 753         /*
 754          * Re-fetch the old keys inside the transaction
 755          */
 756
 757         werr = regsubkey_ctr_init(mem_ctx, &old_subkeys);
 758         W_ERROR_NOT_OK_GOTO_DONE(werr);
 759
 760         werr = regdb_fetch_keys_internal(db, store_ctx->key, old_subkeys);
 761         if (!W_ERROR_IS_OK(werr) &&
 762             !W_ERROR_EQUAL(werr, WERR_NOT_FOUND))
 763         {
 764                 goto done;
 765         }
 766
 767         /*
 768          * Make the store operation as safe as possible without transactions:
 769          *
 770          * (1) For each subkey removed from ctr compared with old_subkeys:
 771          *
 772          *     (a) First delete the value db entry.
 773          *
 774          *     (b) Next delete the secdesc db record.
 775          *
 776          *     (c) Then delete the subkey list entry.
 777          *
 778          * (2) Now write the list of subkeys of the parent key,
 779          *     deleting removed entries and adding new ones.
 780          *
 781          * (3) Finally create the subkey list entries for the added keys.
 782          *
 783          * This way if we crash half-way in between deleting the subkeys
 784          * and storing the parent's list of subkeys, no old data can pop up
 785          * out of the blue when re-adding keys later on.
 786          */
 787
 788         /* (1) delete removed keys' lists (values/secdesc/subkeys) */
 789
 790         num_subkeys = regsubkey_ctr_numkeys(old_subkeys);
 791         for (i=0; i<num_subkeys; i++) {
 792                 oldkeyname = regsubkey_ctr_specific_key(old_subkeys, i);
 793
 794                 if (regsubkey_ctr_key_exists(store_ctx->ctr, oldkeyname)) {
 795                         /*
 796                          * It's still around, don't delete
 797                          */
 798                         continue;
 799                 }
 800
 801                 path = talloc_asprintf(mem_ctx, "%s/%s", store_ctx->key,
 802                                        oldkeyname);
 803                 if (!path) {
 804                         werr = WERR_NOMEM;
 805                         goto done;
 806                 }
 807
 808                 werr = regdb_delete_key_lists(db, path);
 809                 W_ERROR_NOT_OK_GOTO_DONE(werr);
 810
 811                 TALLOC_FREE(path);
 812         }
 813
 814         TALLOC_FREE(old_subkeys);
 815
 816         /* (2) store the subkey list for the parent */
 817
 818         werr = regdb_store_keys_internal2(db, store_ctx->key, store_ctx->ctr);
 819         if (!W_ERROR_IS_OK(werr)) {
 820                 DEBUG(0,("regdb_store_keys: Failed to store new subkey list "
 821                          "for parent [%s]: %s\n", store_ctx->key,
 822                          win_errstr(werr)));
 823                 goto done;
 824         }
 825
 826         /* (3) now create records for any subkeys that don't already exist */
 827
 828         num_subkeys = regsubkey_ctr_numkeys(store_ctx->ctr);
 829
 830         if (num_subkeys == 0) {
 831                 werr = regsubkey_ctr_init(mem_ctx, &subkeys);
 832                 W_ERROR_NOT_OK_GOTO_DONE(werr);
 833
 834                 werr = regdb_store_keys_internal2(db, store_ctx->key, subkeys);
 835                 if (!W_ERROR_IS_OK(werr)) {
 836                         DEBUG(0,("regdb_store_keys: Failed to store "
 837                                  "new record for key [%s]: %s\n",
 838                                  store_ctx->key, win_errstr(werr)));
 839                         goto done;
 840                 }
 841                 TALLOC_FREE(subkeys);
 842         }
 843
 844         for (i=0; i<num_subkeys; i++) {
 845                 path = talloc_asprintf(mem_ctx, "%s/%s", store_ctx->key,
 846                                 regsubkey_ctr_specific_key(store_ctx->ctr, i));
 847                 if (!path) {
 848                         werr = WERR_NOMEM;
 849                         goto done;
 850                 }
 851                 werr = regsubkey_ctr_init(mem_ctx, &subkeys);
 852                 W_ERROR_NOT_OK_GOTO_DONE(werr);
 853
 854                 werr = regdb_fetch_keys_internal(db, path, subkeys);
 855                 if (!W_ERROR_IS_OK(werr)) {
 856                         /* create a record with 0 subkeys */
 857                         werr = regdb_store_keys_internal2(db, path, subkeys);
 858                         if (!W_ERROR_IS_OK(werr)) {
 859                                 DEBUG(0,("regdb_store_keys: Failed to store "
 860                                          "new record for key [%s]: %s\n", path,
 861                                          win_errstr(werr)));
 862                                 goto done;
 863                         }
 864                 }
 865
 866                 TALLOC_FREE(subkeys);
 867                 TALLOC_FREE(path);
 868         }
 869
 870         werr = WERR_OK;
 871
 872 done:
 873         talloc_free(mem_ctx);
 874         return werror_to_ntstatus(werr);
 875 }
 876
 877 static bool regdb_store_keys_internal(struct db_context *db, const char *key,
 878                                       struct regsubkey_ctr *ctr)
 879 {
 880         int num_subkeys, old_num_subkeys, i;
 881         struct regsubkey_ctr *old_subkeys = NULL;
 882         TALLOC_CTX *ctx = talloc_stackframe();
 883         WERROR werr;
 884         bool ret = false;
 885         struct regdb_store_keys_context store_ctx;
 886
 887         if (!regdb_key_is_base_key(key) && !regdb_key_exists(db, key)) {
 888                 goto done;
 889         }
 890
 891         /*
 892          * fetch a list of the old subkeys so we can determine if anything has
 893          * changed
 894          */
 895
 896         werr = regsubkey_ctr_init(ctx, &old_subkeys);
 897         if (!W_ERROR_IS_OK(werr)) {
 898                 DEBUG(0,("regdb_store_keys: talloc() failure!\n"));
 899                 goto done;
 900         }
 901
 902         werr = regdb_fetch_keys_internal(db, key, old_subkeys);
 903         if (!W_ERROR_IS_OK(werr) &&
 904             !W_ERROR_EQUAL(werr, WERR_NOT_FOUND))
 905         {
 906                 goto done;
 907         }
 908
 909         num_subkeys = regsubkey_ctr_numkeys(ctr);
 910         old_num_subkeys = regsubkey_ctr_numkeys(old_subkeys);
 911         if ((num_subkeys && old_num_subkeys) &&
 912             (num_subkeys == old_num_subkeys)) {
 913
 914                 for (i = 0; i < num_subkeys; i++) {
 915                         if (strcmp(regsubkey_ctr_specific_key(ctr, i),
 916                                    regsubkey_ctr_specific_key(old_subkeys, i))
 917                             != 0)
 918                         {
 919                                 break;
 920                         }
 921                 }
 922                 if (i == num_subkeys) {
 923                         /*
 924                          * Nothing changed, no point to even start a tdb
 925                          * transaction
 926                          */
 927
 928                         ret = true;
 929                         goto done;
 930                 }
 931         }
 932
 933         TALLOC_FREE(old_subkeys);
 934
 935         store_ctx.key = key;
 936         store_ctx.ctr = ctr;
 937
 938         werr = ntstatus_to_werror(dbwrap_trans_do(db,
 939                                                   regdb_store_keys_action,
 940                                                   &store_ctx));
 941
 942         ret = W_ERROR_IS_OK(werr);
 943
 944 done:
 945         TALLOC_FREE(ctx);
 946
 947         return ret;
 948 }
 949
 950 bool regdb_store_keys(const char *key, struct regsubkey_ctr *ctr)
 951 {
 952         return regdb_store_keys_internal(regdb, key, ctr);
 953 }
 954
 955 /**
 956  * create a subkey of a given key
 957  */
 958
 959 struct regdb_create_subkey_context {
 960         const char *key;
 961         const char *subkey;
 962 };
 963
 964 static NTSTATUS regdb_create_subkey_action(struct db_context *db,
 965                                            void *private_data)
 966 {
 967         WERROR werr;
 968         struct regdb_create_subkey_context *create_ctx;
 969         struct regsubkey_ctr *subkeys;
 970         TALLOC_CTX *mem_ctx = talloc_stackframe();
 971
 972         create_ctx = (struct regdb_create_subkey_context *)private_data;
 973
 974         werr = regsubkey_ctr_init(mem_ctx, &subkeys);
 975         W_ERROR_NOT_OK_GOTO_DONE(werr);
 976
 977         werr = regdb_fetch_keys_internal(db, create_ctx->key, subkeys);
 978         W_ERROR_NOT_OK_GOTO_DONE(werr);
 979
 980         werr = regsubkey_ctr_addkey(subkeys, create_ctx->subkey);
 981         W_ERROR_NOT_OK_GOTO_DONE(werr);
 982
 983         werr = regdb_store_keys_internal2(db, create_ctx->key, subkeys);
 984         if (!W_ERROR_IS_OK(werr)) {
 985                 DEBUG(0, (__location__ " failed to store new subkey list for "
 986                          "parent key %s: %s\n", create_ctx->key,
 987                          win_errstr(werr)));
 988         }
 989
 990 done:
 991         talloc_free(mem_ctx);
 992         return werror_to_ntstatus(werr);
 993 }
 994
 995 static WERROR regdb_create_subkey(const char *key, const char *subkey)
 996 {
 997         WERROR werr;
 998         struct regsubkey_ctr *subkeys;
 999         TALLOC_CTX *mem_ctx = talloc_stackframe();
1000         struct regdb_create_subkey_context create_ctx;
1001
1002         if (!regdb_key_is_base_key(key) && !regdb_key_exists(regdb, key)) {
1003                 werr = WERR_NOT_FOUND;
1004                 goto done;
1005         }
1006
1007         werr = regsubkey_ctr_init(mem_ctx, &subkeys);
1008         W_ERROR_NOT_OK_GOTO_DONE(werr);
1009
1010         werr = regdb_fetch_keys_internal(regdb, key, subkeys);
1011         W_ERROR_NOT_OK_GOTO_DONE(werr);
1012
1013         if (regsubkey_ctr_key_exists(subkeys, subkey)) {
1014                 werr = WERR_OK;
1015                 goto done;
1016         }
1017
1018         talloc_free(subkeys);
1019
1020         create_ctx.key = key;
1021         create_ctx.subkey = subkey;
1022
1023         werr = ntstatus_to_werror(dbwrap_trans_do(regdb,
1024                                                   regdb_create_subkey_action,
1025                                                   &create_ctx));
1026
1027 done:
1028         talloc_free(mem_ctx);
1029         return werr;
1030 }
1031
1032 /**
1033  * create a subkey of a given key
1034  */
1035
1036 struct regdb_delete_subkey_context {
1037         const char *key;
1038         const char *subkey;
1039         const char *path;
1040 };
1041
1042 static NTSTATUS regdb_delete_subkey_action(struct db_context *db,
1043                                            void *private_data)
1044 {
1045         WERROR werr;
1046         struct regdb_delete_subkey_context *delete_ctx;
1047         struct regsubkey_ctr *subkeys;
1048         TALLOC_CTX *mem_ctx = talloc_stackframe();
1049
1050         delete_ctx = (struct regdb_delete_subkey_context *)private_data;
1051
1052         werr = regdb_delete_key_lists(db, delete_ctx->path);
1053         W_ERROR_NOT_OK_GOTO_DONE(werr);
1054
1055         werr = regsubkey_ctr_init(mem_ctx, &subkeys);
1056         W_ERROR_NOT_OK_GOTO_DONE(werr);
1057
1058         werr = regdb_fetch_keys_internal(db, delete_ctx->key, subkeys);
1059         W_ERROR_NOT_OK_GOTO_DONE(werr);
1060
1061         werr = regsubkey_ctr_delkey(subkeys, delete_ctx->subkey);
1062         W_ERROR_NOT_OK_GOTO_DONE(werr);
1063
1064         werr = regdb_store_keys_internal2(db, delete_ctx->key, subkeys);
1065         if (!W_ERROR_IS_OK(werr)) {
1066                 DEBUG(0, (__location__ " failed to store new subkey_list for "
1067                          "parent key %s: %s\n", delete_ctx->key,
1068                          win_errstr(werr)));
1069         }
1070
1071 done:
1072         talloc_free(mem_ctx);
1073         return werror_to_ntstatus(werr);
1074 }
1075
1076 static WERROR regdb_delete_subkey(const char *key, const char *subkey)
1077 {
1078         WERROR werr;
1079         char *path;
1080         struct regdb_delete_subkey_context delete_ctx;
1081         TALLOC_CTX *mem_ctx = talloc_stackframe();
1082
1083         if (!regdb_key_is_base_key(key) && !regdb_key_exists(regdb, key)) {
1084                 werr = WERR_NOT_FOUND;
1085                 goto done;
1086         }
1087
1088         path = talloc_asprintf(mem_ctx, "%s/%s", key, subkey);
1089         if (path == NULL) {
1090                 werr = WERR_NOMEM;
1091                 goto done;
1092         }
1093
1094         if (!regdb_key_exists(regdb, path)) {
1095                 werr = WERR_OK;
1096                 goto done;
1097         }
1098
1099         delete_ctx.key = key;
1100         delete_ctx.subkey = subkey;
1101         delete_ctx.path = path;
1102
1103         werr = ntstatus_to_werror(dbwrap_trans_do(regdb,
1104                                                   regdb_delete_subkey_action,
1105                                                   &delete_ctx));
1106
1107 done:
1108         talloc_free(mem_ctx);
1109         return werr;
1110 }
1111
1112 static TDB_DATA regdb_fetch_key_internal(struct db_context *db,
1113                                          TALLOC_CTX *mem_ctx, const char *key)
1114 {
1115         char *path = NULL;
1116         TDB_DATA data;
1117
1118         path = normalize_reg_path(mem_ctx, key);
1119         if (!path) {
1120                 return make_tdb_data(NULL, 0);
1121         }
1122
1123         data = dbwrap_fetch_bystring(db, mem_ctx, path);
1124
1125         TALLOC_FREE(path);
1126         return data;
1127 }
1128
1129
1130 /**
1131  * check whether a given key name represents a base key,
1132  * i.e one without a subkey separator ('/' or '\').
1133  */
1134 static bool regdb_key_is_base_key(const char *key)
1135 {
1136         TALLOC_CTX *mem_ctx = talloc_stackframe();
1137         bool ret = false;
1138         char *path;
1139
1140         if (key == NULL) {
1141                 goto done;
1142         }
1143
1144         path = normalize_reg_path(mem_ctx, key);
1145         if (path == NULL) {
1146                 DEBUG(0, ("out of memory! (talloc failed)\n"));
1147                 goto done;
1148         }
1149
1150         if (*path == '\0') {
1151                 goto done;
1152         }
1153
1154         ret = (strrchr(path, '/') == NULL);
1155
1156 done:
1157         TALLOC_FREE(mem_ctx);
1158         return ret;
1159 }
1160
1161 /*
1162  * regdb_key_exists() is a very frequent operation. It can be quite
1163  * time-consuming to fully fetch the parent's subkey list, talloc_strdup all
1164  * subkeys and then compare the keyname linearly to all the parent's subkeys.
1165  *
1166  * The following code tries to make this operation as efficient as possible:
1167  * Per registry key we create a list of subkeys that is very efficient to
1168  * search for existence of a subkey. Its format is:
1169  *
1170  * 4 bytes num_subkeys
1171  * 4*num_subkey bytes offset into the string array
1172  * then follows a sorted list of subkeys in uppercase
1173  *
1174  * This record is created by create_sorted_subkeys() on demand if it does not
1175  * exist. scan_parent_subkeys() uses regdb->parse_record to search the sorted
1176  * list, the parsing code and the binary search can be found in
1177  * parent_subkey_scanner. The code uses parse_record() to avoid a memcpy of
1178  * the potentially large subkey record.
1179  *
1180  * The sorted subkey record is deleted in regdb_store_keys_internal2 and
1181  * recreated on demand.
1182  */
1183
1184 static int cmp_keynames(const void *p1, const void *p2)
1185 {
1186         return StrCaseCmp(*((char **)p1), *((char **)p2));
1187 }
1188
1189 struct create_sorted_subkeys_context {
1190         const char *key;
1191         const char *sorted_keyname;
1192 };
1193
1194 static NTSTATUS create_sorted_subkeys_action(struct db_context *db,
1195                                              void *private_data)
1196 {
1197         char **sorted_subkeys;
1198         struct regsubkey_ctr *ctr;
1199         NTSTATUS status;
1200         char *buf;
1201         char *p;
1202         int i;
1203         size_t len;
1204         int num_subkeys;
1205         struct create_sorted_subkeys_context *sorted_ctx;
1206
1207         sorted_ctx = (struct create_sorted_subkeys_context *)private_data;
1208
1209         /*
1210          * In this function, we only treat failing of the actual write to
1211          * the db as a real error. All preliminary errors, at a stage when
1212          * nothing has been written to the DB yet are treated as success
1213          * to be committed (as an empty transaction).
1214          *
1215          * The reason is that this (disposable) call might be nested in other
1216          * transactions. Doing a cancel here would destroy the possibility of
1217          * a transaction_commit for transactions that we might be wrapped in.
1218          */
1219
1220         status = werror_to_ntstatus(regsubkey_ctr_init(talloc_tos(), &ctr));
1221         if (!NT_STATUS_IS_OK(status)) {
1222                 /* don't treat this as an error */
1223                 status = NT_STATUS_OK;
1224                 goto done;
1225         }
1226
1227         status = werror_to_ntstatus(regdb_fetch_keys_internal(db,
1228                                                               sorted_ctx->key,
1229                                                               ctr));
1230         if (!NT_STATUS_IS_OK(status)) {
1231                 /* don't treat this as an error */
1232                 status = NT_STATUS_OK;
1233                 goto done;
1234         }
1235
1236         num_subkeys = regsubkey_ctr_numkeys(ctr);
1237         sorted_subkeys = talloc_array(ctr, char *, num_subkeys);
1238         if (sorted_subkeys == NULL) {
1239                 /* don't treat this as an error */
1240                 goto done;
1241         }
1242
1243         len = 4 + 4*num_subkeys;
1244
1245         for (i = 0; i < num_subkeys; i++) {
1246                 sorted_subkeys[i] = talloc_strdup_upper(sorted_subkeys,
1247                                         regsubkey_ctr_specific_key(ctr, i));
1248                 if (sorted_subkeys[i] == NULL) {
1249                         /* don't treat this as an error */
1250                         goto done;
1251                 }
1252                 len += strlen(sorted_subkeys[i])+1;
1253         }
1254
1255         qsort(sorted_subkeys, num_subkeys, sizeof(char *), cmp_keynames);
1256
1257         buf = talloc_array(ctr, char, len);
1258         if (buf == NULL) {
1259                 /* don't treat this as an error */
1260                 goto done;
1261         }
1262         p = buf + 4 + 4*num_subkeys;
1263
1264         SIVAL(buf, 0, num_subkeys);
1265
1266         for (i=0; i < num_subkeys; i++) {
1267                 ptrdiff_t offset = p - buf;
1268                 SIVAL(buf, 4 + 4*i, offset);
1269                 strlcpy(p, sorted_subkeys[i], len-offset);
1270                 p += strlen(sorted_subkeys[i]) + 1;
1271         }
1272
1273         status = dbwrap_store_bystring(
1274                 db, sorted_ctx->sorted_keyname, make_tdb_data((uint8_t *)buf,
1275                 len),
1276                 TDB_REPLACE);
1277
1278 done:
1279         talloc_free(ctr);
1280         return status;
1281 }
1282
1283 static bool create_sorted_subkeys(const char *key, const char *sorted_keyname)
1284 {
1285         NTSTATUS status;
1286         struct create_sorted_subkeys_context sorted_ctx;
1287
1288         sorted_ctx.key = key;
1289         sorted_ctx.sorted_keyname = sorted_keyname;
1290
1291         status = dbwrap_trans_do(regdb,
1292                                  create_sorted_subkeys_action,
1293                                  &sorted_ctx);
1294
1295         return NT_STATUS_IS_OK(status);
1296 }
1297
1298 struct scan_subkey_state {
1299         char *name;
1300         bool scanned;
1301         bool found;
1302 };
1303
1304 static int parent_subkey_scanner(TDB_DATA key, TDB_DATA data,
1305                                  void *private_data)
1306 {
1307         struct scan_subkey_state *state =
1308                 (struct scan_subkey_state *)private_data;
1309         uint32_t num_subkeys;
1310         uint32_t l, u;
1311
1312         if (data.dsize < sizeof(uint32_t)) {
1313                 return -1;
1314         }
1315
1316         state->scanned = true;
1317         state->found = false;
1318
1319         tdb_unpack(data.dptr, data.dsize, "d", &num_subkeys);
1320
1321         l = 0;
1322         u = num_subkeys;
1323
1324         while (l < u) {
1325                 uint32_t idx = (l+u)/2;
1326                 char *s = (char *)data.dptr + IVAL(data.dptr, 4 + 4*idx);
1327                 int comparison = strcmp(state->name, s);
1328
1329                 if (comparison < 0) {
1330                         u = idx;
1331                 } else if (comparison > 0) {
1332                         l = idx + 1;
1333                 } else {
1334                         state->found = true;
1335                         return 0;
1336                 }
1337         }
1338         return 0;
1339 }
1340
1341 static bool scan_parent_subkeys(struct db_context *db, const char *parent,
1342                                 const char *name)
1343 {
1344         char *path = NULL;
1345         char *key = NULL;
1346         struct scan_subkey_state state = { 0, };
1347         bool result = false;
1348         int res;
1349
1350         state.name = NULL;
1351
1352         path = normalize_reg_path(talloc_tos(), parent);
1353         if (path == NULL) {
1354                 goto fail;
1355         }
1356
1357         key = talloc_asprintf(talloc_tos(), "%s/%s",
1358                               REG_SORTED_SUBKEYS_PREFIX, path);
1359         if (key == NULL) {
1360                 goto fail;
1361         }
1362
1363         state.name = talloc_strdup_upper(talloc_tos(), name);
1364         if (state.name == NULL) {
1365                 goto fail;
1366         }
1367         state.scanned = false;
1368
1369         res = db->parse_record(db, string_term_tdb_data(key),
1370                                parent_subkey_scanner, &state);
1371
1372         if (state.scanned) {
1373                 result = state.found;
1374         } else {
1375                 if (!create_sorted_subkeys(path, key)) {
1376                         goto fail;
1377                 }
1378                 res = db->parse_record(db, string_term_tdb_data(key),
1379                                        parent_subkey_scanner, &state);
1380                 if ((res == 0) && (state.scanned)) {
1381                         result = state.found;
1382                 }
1383         }
1384
1385  fail:
1386         TALLOC_FREE(path);
1387         TALLOC_FREE(state.name);
1388         return result;
1389 }
1390
1391 /**
1392  * Check for the existence of a key.
1393  *
1394  * Existence of a key is authoritatively defined by its
1395  * existence in the list of subkeys of its parent key.
1396  * The exeption of this are keys without a parent key,
1397  * i.e. the "base" keys (HKLM, HKCU, ...).
1398  */
1399 static bool regdb_key_exists(struct db_context *db, const char *key)
1400 {
1401         TALLOC_CTX *mem_ctx = talloc_stackframe();
1402         TDB_DATA value;
1403         bool ret = false;
1404         char *path, *p;
1405
1406         if (key == NULL) {
1407                 goto done;
1408         }
1409
1410         path = normalize_reg_path(mem_ctx, key);
1411         if (path == NULL) {
1412                 DEBUG(0, ("out of memory! (talloc failed)\n"));
1413                 goto done;
1414         }
1415
1416         if (*path == '\0') {
1417                 goto done;
1418         }
1419
1420         p = strrchr(path, '/');
1421         if (p == NULL) {
1422                 /* this is a base key */
1423                 value = regdb_fetch_key_internal(db, mem_ctx, path);
1424                 ret = (value.dptr != NULL);
1425         } else {
1426                 *p = '\0';
1427                 ret = scan_parent_subkeys(db, path, p+1);
1428         }
1429
1430 done:
1431         TALLOC_FREE(mem_ctx);
1432         return ret;
1433 }
1434
1435
1436 /***********************************************************************
1437  Retrieve an array of strings containing subkeys.  Memory should be
1438  released by the caller.
1439  ***********************************************************************/
1440
1441 static WERROR regdb_fetch_keys_internal(struct db_context *db, const char *key,
1442                                         struct regsubkey_ctr *ctr)
1443 {
1444         WERROR werr;
1445         uint32_t num_items;
1446         uint8 *buf;
1447         uint32 buflen, len;
1448         int i;
1449         fstring subkeyname;
1450         TALLOC_CTX *frame = talloc_stackframe();
1451         TDB_DATA value;
1452
1453         DEBUG(11,("regdb_fetch_keys: Enter key => [%s]\n", key ? key : "NULL"));
1454
1455         frame = talloc_stackframe();
1456
1457         if (!regdb_key_exists(db, key)) {
1458                 DEBUG(10, ("key [%s] not found\n", key));
1459                 werr = WERR_NOT_FOUND;
1460                 goto done;
1461         }
1462
1463         werr = regsubkey_ctr_set_seqnum(ctr, db->get_seqnum(db));
1464         W_ERROR_NOT_OK_GOTO_DONE(werr);
1465
1466         value = regdb_fetch_key_internal(db, frame, key);
1467
1468         if (value.dptr == NULL) {
1469                 DEBUG(10, ("regdb_fetch_keys: no subkeys found for key [%s]\n",
1470                            key));
1471                 goto done;
1472         }
1473
1474         buf = value.dptr;
1475         buflen = value.dsize;
1476         len = tdb_unpack( buf, buflen, "d", &num_items);
1477
1478         werr = regsubkey_ctr_reinit(ctr);
1479         W_ERROR_NOT_OK_GOTO_DONE(werr);
1480
1481         for (i=0; i<num_items; i++) {
1482                 len += tdb_unpack(buf+len, buflen-len, "f", subkeyname);
1483                 werr = regsubkey_ctr_addkey(ctr, subkeyname);
1484                 if (!W_ERROR_IS_OK(werr)) {
1485                         DEBUG(5, ("regdb_fetch_keys: regsubkey_ctr_addkey "
1486                                   "failed: %s\n", win_errstr(werr)));
1487                         num_items = 0;
1488                         goto done;
1489                 }
1490         }
1491
1492         DEBUG(11,("regdb_fetch_keys: Exit [%d] items\n", num_items));
1493
1494 done:
1495         TALLOC_FREE(frame);
1496         return werr;
1497 }
1498
1499 int regdb_fetch_keys(const char *key, struct regsubkey_ctr *ctr)
1500 {
1501         WERROR werr;
1502
1503         werr = regdb_fetch_keys_internal(regdb, key, ctr);
1504         if (!W_ERROR_IS_OK(werr)) {
1505                 return -1;
1506         }
1507
1508         return regsubkey_ctr_numkeys(ctr);
1509 }
1510
1511 /****************************************************************************
1512  Unpack a list of registry values frem the TDB
1513  ***************************************************************************/
1514
1515 static int regdb_unpack_values(struct regval_ctr *values, uint8 *buf, int buflen)
1516 {
1517         int             len = 0;
1518         uint32          type;
1519         fstring valuename;
1520         uint32          size;
1521         uint8           *data_p;
1522         uint32          num_values = 0;
1523         int             i;
1524
1525         /* loop and unpack the rest of the registry values */
1526
1527         len += tdb_unpack(buf+len, buflen-len, "d", &num_values);
1528
1529         for ( i=0; i<num_values; i++ ) {
1530                 /* unpack the next regval */
1531
1532                 type = REG_NONE;
1533                 size = 0;
1534                 data_p = NULL;
1535                 valuename[0] = '\0';
1536                 len += tdb_unpack(buf+len, buflen-len, "fdB",
1537                                   valuename,
1538                                   &type,
1539                                   &size,
1540                                   &data_p);
1541
1542                 /* add the new value. Paranoid protective code -- make sure data_p is valid */
1543
1544                 if (*valuename && size && data_p) {
1545                         regval_ctr_addvalue(values, valuename, type,
1546                                         (const char *)data_p, size);
1547                 }
1548                 SAFE_FREE(data_p); /* 'B' option to tdb_unpack does a malloc() */
1549
1550                 DEBUG(8,("specific: [%s], len: %d\n", valuename, size));
1551         }
1552
1553         return len;
1554 }
1555
1556 /****************************************************************************
1557  Pack all values in all printer keys
1558  ***************************************************************************/
1559
1560 static int regdb_pack_values(struct regval_ctr *values, uint8 *buf, int buflen)
1561 {
1562         int             len = 0;
1563         int             i;
1564         struct regval_blob      *val;
1565         int             num_values;
1566
1567         if ( !values )
1568                 return 0;
1569
1570         num_values = regval_ctr_numvals( values );
1571
1572         /* pack the number of values first */
1573
1574         len += tdb_pack( buf+len, buflen-len, "d", num_values );
1575
1576         /* loop over all values */
1577
1578         for ( i=0; i<num_values; i++ ) {
1579                 val = regval_ctr_specific_value( values, i );
1580                 len += tdb_pack(buf+len, buflen-len, "fdB",
1581                                 regval_name(val),
1582                                 regval_type(val),
1583                                 regval_size(val),
1584                                 regval_data_p(val) );
1585         }
1586
1587         return len;
1588 }
1589
1590 /***********************************************************************
1591  Retrieve an array of strings containing subkeys.  Memory should be
1592  released by the caller.
1593  ***********************************************************************/
1594
1595 static int regdb_fetch_values_internal(struct db_context *db, const char* key,
1596                                        struct regval_ctr *values)
1597 {
1598         char *keystr = NULL;
1599         TALLOC_CTX *ctx = talloc_stackframe();
1600         int ret = 0;
1601         TDB_DATA value;
1602
1603         DEBUG(10,("regdb_fetch_values: Looking for value of key [%s] \n", key));
1604
1605         if (!regdb_key_exists(db, key)) {
1606                 goto done;
1607         }
1608
1609         keystr = talloc_asprintf(ctx, "%s/%s", REG_VALUE_PREFIX, key);
1610         if (!keystr) {
1611                 goto done;
1612         }
1613
1614         values->seqnum = db->get_seqnum(db);
1615
1616         value = regdb_fetch_key_internal(db, ctx, keystr);
1617
1618         if (!value.dptr) {
1619                 /* all keys have zero values by default */
1620                 goto done;
1621         }
1622
1623         regdb_unpack_values(values, value.dptr, value.dsize);
1624         ret = regval_ctr_numvals(values);
1625
1626 done:
1627         TALLOC_FREE(ctx);
1628         return ret;
1629 }
1630
1631 int regdb_fetch_values(const char* key, struct regval_ctr *values)
1632 {
1633         return regdb_fetch_values_internal(regdb, key, values);
1634 }
1635
1636 static bool regdb_store_values_internal(struct db_context *db, const char *key,
1637                                         struct regval_ctr *values)
1638 {
1639         TDB_DATA old_data, data;
1640         char *keystr = NULL;
1641         TALLOC_CTX *ctx = talloc_stackframe();
1642         int len;
1643         NTSTATUS status;
1644         bool result = false;
1645
1646         DEBUG(10,("regdb_store_values: Looking for value of key [%s] \n", key));
1647
1648         if (!regdb_key_exists(db, key)) {
1649                 goto done;
1650         }
1651
1652         ZERO_STRUCT(data);
1653
1654         len = regdb_pack_values(values, data.dptr, data.dsize);
1655         if (len <= 0) {
1656                 DEBUG(0,("regdb_store_values: unable to pack values. len <= 0\n"));
1657                 goto done;
1658         }
1659
1660         data.dptr = TALLOC_ARRAY(ctx, uint8, len);
1661         data.dsize = len;
1662
1663         len = regdb_pack_values(values, data.dptr, data.dsize);
1664
1665         SMB_ASSERT( len == data.dsize );
1666
1667         keystr = talloc_asprintf(ctx, "%s/%s", REG_VALUE_PREFIX, key );
1668         if (!keystr) {
1669                 goto done;
1670         }
1671         keystr = normalize_reg_path(ctx, keystr);
1672         if (!keystr) {
1673                 goto done;
1674         }
1675
1676         old_data = dbwrap_fetch_bystring(db, ctx, keystr);
1677
1678         if ((old_data.dptr != NULL)
1679             && (old_data.dsize == data.dsize)
1680             && (memcmp(old_data.dptr, data.dptr, data.dsize) == 0))
1681         {
1682                 result = true;
1683                 goto done;
1684         }
1685
1686         status = dbwrap_trans_store_bystring(db, keystr, data, TDB_REPLACE);
1687
1688         result = NT_STATUS_IS_OK(status);
1689
1690 done:
1691         TALLOC_FREE(ctx);
1692         return result;
1693 }
1694
1695 bool regdb_store_values(const char *key, struct regval_ctr *values)
1696 {
1697         return regdb_store_values_internal(regdb, key, values);
1698 }
1699
1700 static WERROR regdb_get_secdesc(TALLOC_CTX *mem_ctx, const char *key,
1701                                 struct security_descriptor **psecdesc)
1702 {
1703         char *tdbkey;
1704         TDB_DATA data;
1705         NTSTATUS status;
1706         TALLOC_CTX *tmp_ctx = talloc_stackframe();
1707         WERROR err = WERR_OK;
1708
1709         DEBUG(10, ("regdb_get_secdesc: Getting secdesc of key [%s]\n", key));
1710
1711         if (!regdb_key_exists(regdb, key)) {
1712                 err = WERR_BADFILE;
1713                 goto done;
1714         }
1715
1716         tdbkey = talloc_asprintf(tmp_ctx, "%s/%s", REG_SECDESC_PREFIX, key);
1717         if (tdbkey == NULL) {
1718                 err = WERR_NOMEM;
1719                 goto done;
1720         }
1721         normalize_dbkey(tdbkey);
1722
1723         data = dbwrap_fetch_bystring(regdb, tmp_ctx, tdbkey);
1724         if (data.dptr == NULL) {
1725                 err = WERR_BADFILE;
1726                 goto done;
1727         }
1728
1729         status = unmarshall_sec_desc(mem_ctx, (uint8 *)data.dptr, data.dsize,
1730                                      psecdesc);
1731
1732         if (NT_STATUS_EQUAL(status, NT_STATUS_NO_MEMORY)) {
1733                 err = WERR_NOMEM;
1734         } else if (!NT_STATUS_IS_OK(status)) {
1735                 err = WERR_REG_CORRUPT;
1736         }
1737
1738 done:
1739         TALLOC_FREE(tmp_ctx);
1740         return err;
1741 }
1742
1743 static WERROR regdb_set_secdesc(const char *key,
1744                                 struct security_descriptor *secdesc)
1745 {
1746         TALLOC_CTX *mem_ctx = talloc_stackframe();
1747         char *tdbkey;
1748         WERROR err = WERR_NOMEM;
1749         TDB_DATA tdbdata;
1750
1751         if (!regdb_key_exists(regdb, key)) {
1752                 err = WERR_BADFILE;
1753                 goto done;
1754         }
1755
1756         tdbkey = talloc_asprintf(mem_ctx, "%s/%s", REG_SECDESC_PREFIX, key);
1757         if (tdbkey == NULL) {
1758                 goto done;
1759         }
1760         normalize_dbkey(tdbkey);
1761
1762         if (secdesc == NULL) {
1763                 /* assuming a delete */
1764                 err = ntstatus_to_werror(dbwrap_trans_delete_bystring(regdb,
1765                                                                       tdbkey));
1766                 goto done;
1767         }
1768
1769         err = ntstatus_to_werror(marshall_sec_desc(mem_ctx, secdesc,
1770                                                    &tdbdata.dptr,
1771                                                    &tdbdata.dsize));
1772         W_ERROR_NOT_OK_GOTO_DONE(err);
1773
1774         err = ntstatus_to_werror(dbwrap_trans_store_bystring(regdb, tdbkey,
1775                                                              tdbdata, 0));
1776
1777  done:
1778         TALLOC_FREE(mem_ctx);
1779         return err;
1780 }
1781
1782 bool regdb_subkeys_need_update(struct regsubkey_ctr *subkeys)
1783 {
1784         return (regdb_get_seqnum() != regsubkey_ctr_get_seqnum(subkeys));
1785 }
1786
1787 bool regdb_values_need_update(struct regval_ctr *values)
1788 {
1789         return (regdb_get_seqnum() != values->seqnum);
1790 }
1791
1792 /*
1793  * Table of function pointers for default access
1794  */
1795
1796 struct registry_ops regdb_ops = {
1797         .fetch_subkeys = regdb_fetch_keys,
1798         .fetch_values = regdb_fetch_values,
1799         .store_subkeys = regdb_store_keys,
1800         .store_values = regdb_store_values,
1801         .create_subkey = regdb_create_subkey,
1802         .delete_subkey = regdb_delete_subkey,
1803         .get_secdesc = regdb_get_secdesc,
1804         .set_secdesc = regdb_set_secdesc,
1805         .subkeys_need_update = regdb_subkeys_need_update,
1806         .values_need_update = regdb_values_need_update
1807 };