tdb_util: Fix CID 1138343 Uninitialized scalar variable
[sfrench/samba-autobuild/.git] / lib / tdb_wrap / tdb_wrap.c
1 /* 
2    Unix SMB/CIFS implementation.
3    TDB wrap functions
4
5    Copyright (C) Andrew Tridgell 2004
6    Copyright (C) Jelmer Vernooij <jelmer@samba.org> 2007
7    
8    This program is free software; you can redistribute it and/or modify
9    it under the terms of the GNU General Public License as published by
10    the Free Software Foundation; either version 3 of the License, or
11    (at your option) any later version.
12    
13    This program is distributed in the hope that it will be useful,
14    but WITHOUT ANY WARRANTY; without even the implied warranty of
15    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16    GNU General Public License for more details.
17    
18    You should have received a copy of the GNU General Public License
19    along with this program.  If not, see <http://www.gnu.org/licenses/>.
20 */
21
22 #include "includes.h"
23 #include "lib/util/dlinklist.h"
24 #include "lib/tdb_wrap/tdb_wrap.h"
25 #include "lib/param/param.h"
26 #include "ccan/str/str.h"
27
28 /*
29  Log tdb messages via DEBUG().
30 */
31 static void tdb_wrap_log(TDB_CONTEXT *tdb, enum tdb_debug_level level, 
32                          const char *format, ...) PRINTF_ATTRIBUTE(3,4);
33
34 static void tdb_wrap_log(TDB_CONTEXT *tdb, enum tdb_debug_level level, 
35                          const char *format, ...)
36 {
37         va_list ap;
38         char *ptr = NULL;
39         int debuglevel = 0;
40         int ret;
41
42         switch (level) {
43         case TDB_DEBUG_FATAL:
44                 debuglevel = 0;
45                 break;
46         case TDB_DEBUG_ERROR:
47                 debuglevel = 1;
48                 break;
49         case TDB_DEBUG_WARNING:
50                 debuglevel = 2;
51                 break;
52         case TDB_DEBUG_TRACE:
53                 debuglevel = 5;
54                 break;
55         default:
56                 debuglevel = 0;
57         }               
58
59         va_start(ap, format);
60         ret = vasprintf(&ptr, format, ap);
61         va_end(ap);
62
63         if (ret != -1) {
64                 const char *name = tdb_name(tdb);
65                 DEBUG(debuglevel, ("tdb(%s): %s", name ? name : "unnamed", ptr));
66                 free(ptr);
67         }
68 }
69
70 struct tdb_wrap_private {
71         struct tdb_context *tdb;
72         const char *name;
73         struct tdb_wrap_private *next, *prev;
74 };
75
76 static struct tdb_wrap_private *tdb_list;
77
78 /* destroy the last connection to a tdb */
79 static int tdb_wrap_private_destructor(struct tdb_wrap_private *w)
80 {
81         tdb_close(w->tdb);
82         DLIST_REMOVE(tdb_list, w);
83         return 0;
84 }                                
85
86 static struct tdb_wrap_private *tdb_wrap_private_open(TALLOC_CTX *mem_ctx,
87                                                       const char *name,
88                                                       int hash_size,
89                                                       int tdb_flags,
90                                                       int open_flags,
91                                                       mode_t mode,
92                                                       struct loadparm_context *lp_ctx)
93 {
94         struct tdb_wrap_private *result;
95         struct tdb_logging_context lctx;
96
97         result = talloc(mem_ctx, struct tdb_wrap_private);
98         if (result == NULL) {
99                 return NULL;
100         }
101         result->name = talloc_strdup(result, name);
102         if (result->name == NULL) {
103                 goto fail;
104         }
105
106         if (!lpcfg_use_mmap(lp_ctx)) {
107                 tdb_flags |= TDB_NOMMAP;
108         }
109
110         if ((hash_size == 0) && (name != NULL)) {
111                 const char *base;
112                 base = strrchr_m(name, '/');
113
114                 if (base != NULL) {
115                         base += 1;
116                 } else {
117                         base = name;
118                 }
119                 hash_size = lpcfg_parm_int(lp_ctx, NULL, "tdb_hashsize", base, 0);
120         }
121
122         lctx.log_fn = tdb_wrap_log;
123         lctx.log_private = NULL;
124
125         result->tdb = tdb_open_ex(name, hash_size, tdb_flags,
126                                   open_flags, mode, &lctx, NULL);
127         if (result->tdb == NULL) {
128                 goto fail;
129         }
130         talloc_set_destructor(result, tdb_wrap_private_destructor);
131         DLIST_ADD(tdb_list, result);
132         return result;
133
134 fail:
135         TALLOC_FREE(result);
136         return NULL;
137 }
138
139 /*
140   wrapped connection to a tdb database
141   to close just talloc_free() the tdb_wrap pointer
142  */
143 struct tdb_wrap *tdb_wrap_open(TALLOC_CTX *mem_ctx,
144                                const char *name, int hash_size, int tdb_flags,
145                                int open_flags, mode_t mode,
146                                struct loadparm_context *lp_ctx)
147 {
148         struct tdb_wrap *result;
149         struct tdb_wrap_private *w;
150
151         /* If they specify a .ntdb extension, but the code hasn't been
152          * converted, we want to complain. */
153         if (name && strends(name, ".ntdb")) {
154                 DEBUG(2, ("tdb(%s): This code does not yet understand ntdb.  Please report.\n", name));
155                 return NULL;
156         }
157
158         result = talloc(mem_ctx, struct tdb_wrap);
159         if (result == NULL) {
160                 return NULL;
161         }
162
163         for (w=tdb_list;w;w=w->next) {
164                 if (strcmp(name, w->name) == 0) {
165                         break;
166                 }
167         }
168
169         if (w == NULL) {
170                 w = tdb_wrap_private_open(result, name, hash_size, tdb_flags,
171                                           open_flags, mode, lp_ctx);
172         } else {
173                 /*
174                  * Correctly use talloc_reference: The tdb will be
175                  * closed when "w" is being freed. The caller never
176                  * sees "w", so an incorrect use of talloc_free(w)
177                  * instead of calling talloc_unlink is not possible.
178                  * To avoid having to refcount ourselves, "w" will
179                  * have multiple parents that hang off all the
180                  * tdb_wrap's being returned from here. Those parents
181                  * can be freed without problem.
182                  */
183                 if (talloc_reference(result, w) == NULL) {
184                         goto fail;
185                 }
186         }
187         if (w == NULL) {
188                 goto fail;
189         }
190         result->tdb = w->tdb;
191         return result;
192 fail:
193         TALLOC_FREE(result);
194         return NULL;
195 }
196