b9ff5dc7fc63b8374ebad7591117de34880edd8e
[kai/samba.git] / 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         DATA_BLOB 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                 push_reg_sz(talloc_tos(), &data, value->data.string);
264                 regval_ctr_addvalue(ctr, value->valuename, REG_SZ,
265                                     (char*)data.data,
266                                     data.length);
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 };