source4/lib/ldb_wrap.c

   1 /*
   2    Unix SMB/CIFS implementation.
   3
   4    LDB wrap functions
   5
   6    Copyright (C) Andrew Tridgell 2004
   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 /*
  23   the stupidity of the unix fcntl locking design forces us to never
  24   allow a database file to be opened twice in the same process. These
  25   wrappers provide convenient access to a tdb or ldb, taking advantage
  26   of talloc destructors to ensure that only a single open is done
  27 */
  28
  29 #include "includes.h"
  30 #include "lib/events/events.h"
  31 #include "lib/ldb/include/ldb.h"
  32 #include "lib/ldb/include/ldb_errors.h"
  33 #include "lib/ldb-samba/ldif_handlers.h"
  34 #include "ldb_wrap.h"
  35 #include "dsdb/samdb/samdb.h"
  36 #include "param/param.h"
  37
  38 /*
  39   this is used to catch debug messages from ldb
  40 */
  41 static void ldb_wrap_debug(void *context, enum ldb_debug_level level,
  42                            const char *fmt, va_list ap)  PRINTF_ATTRIBUTE(3,0);
  43
  44 static void ldb_wrap_debug(void *context, enum ldb_debug_level level,
  45                            const char *fmt, va_list ap)
  46 {
  47         int samba_level = -1;
  48         char *s = NULL;
  49         switch (level) {
  50         case LDB_DEBUG_FATAL:
  51                 samba_level = 0;
  52                 break;
  53         case LDB_DEBUG_ERROR:
  54                 samba_level = 1;
  55                 break;
  56         case LDB_DEBUG_WARNING:
  57                 samba_level = 2;
  58                 break;
  59         case LDB_DEBUG_TRACE:
  60                 samba_level = 5;
  61                 break;
  62
  63         };
  64         vasprintf(&s, fmt, ap);
  65         if (!s) return;
  66         DEBUG(samba_level, ("ldb: %s\n", s));
  67         free(s);
  68 }
  69
  70 /* check for memory leaks on the ldb context */
  71 static int ldb_wrap_destructor(struct ldb_context *ldb)
  72 {
  73         size_t *startup_blocks = (size_t *)ldb_get_opaque(ldb, "startup_blocks");
  74         if (startup_blocks &&
  75             talloc_total_blocks(ldb) > *startup_blocks + 400) {
  76                 DEBUG(0,("WARNING: probable memory leak in ldb %s - %lu blocks (startup %lu) %lu bytes\n",
  77                          (char *)ldb_get_opaque(ldb, "wrap_url"),
  78                          (unsigned long)talloc_total_blocks(ldb),
  79                          (unsigned long)*startup_blocks,
  80                          (unsigned long)talloc_total_size(ldb)));
  81 #if 0
  82                 talloc_report_full(ldb, stdout);
  83                 call_backtrace();
  84                 smb_panic("probable memory leak in ldb");
  85 #endif
  86         }
  87         return 0;
  88 }
  89
  90 /*
  91   wrapped connection to a ldb database
  92   to close just talloc_free() the returned ldb_context
  93
  94   TODO:  We need an error_string parameter
  95  */
  96 struct ldb_context *ldb_wrap_connect(TALLOC_CTX *mem_ctx,
  97                                      struct event_context *ev,
  98                                      struct loadparm_context *lp_ctx,
  99                                      const char *url,
 100                                      struct auth_session_info *session_info,
 101                                      struct cli_credentials *credentials,
 102                                      unsigned int flags,
 103                                      const char *options[])
 104 {
 105         struct ldb_context *ldb;
 106         int ret;
 107         char *real_url = NULL;
 108         size_t *startup_blocks;
 109
 110         /* we want to use the existing event context if possible. This
 111            relies on the fact that in smbd, everything is a child of
 112            the main event_context */
 113         if (ev == NULL) {
 114                 return NULL;
 115         }
 116
 117         ldb = ldb_init(mem_ctx, ev);
 118         if (ldb == NULL) {
 119                 return NULL;
 120         }
 121
 122         ldb_set_modules_dir(ldb,
 123                             talloc_asprintf(ldb,
 124                                             "%s/ldb",
 125                                             lp_modulesdir(lp_ctx)));
 126
 127 #if 0
 128         if (ev) {
 129                 ldb_event_sys_op_init(ldb, ev);
 130         } else {
 131                 talloc_free(ldb);
 132                 return NULL;
 133         }
 134 #endif
 135
 136         if (ldb_set_opaque(ldb, "sessionInfo", session_info)) {
 137                 talloc_free(ldb);
 138                 return NULL;
 139         }
 140
 141         if (ldb_set_opaque(ldb, "credentials", credentials)) {
 142                 talloc_free(ldb);
 143                 return NULL;
 144         }
 145
 146         if (ldb_set_opaque(ldb, "loadparm", lp_ctx)) {
 147                 talloc_free(ldb);
 148                 return NULL;
 149         }
 150
 151         /* This must be done before we load the schema, as these
 152          * handlers for objectSid and objectGUID etc must take
 153          * precedence over the 'binary attribute' declaration in the
 154          * schema */
 155         ret = ldb_register_samba_handlers(ldb);
 156         if (ret == -1) {
 157                 talloc_free(ldb);
 158                 return NULL;
 159         }
 160
 161         if (lp_ctx != NULL && strcmp(lp_sam_url(lp_ctx), url) == 0) {
 162                 dsdb_set_global_schema(ldb);
 163         }
 164
 165         ldb_set_debug(ldb, ldb_wrap_debug, NULL);
 166
 167         ldb_set_utf8_fns(ldb, NULL, wrap_casefold);
 168
 169         real_url = private_path(ldb, lp_ctx, url);
 170         if (real_url == NULL) {
 171                 talloc_free(ldb);
 172                 return NULL;
 173         }
 174
 175         /* allow admins to force non-sync ldb for all databases */
 176         if (lp_parm_bool(lp_ctx, NULL, "ldb", "nosync", false)) {
 177                 flags |= LDB_FLG_NOSYNC;
 178         }
 179
 180         /* we usually want Samba databases to be private. If we later
 181            find we need one public, we will need to add a parameter to
 182            ldb_wrap_connect() */
 183         ldb_set_create_perms(ldb, 0600);
 184
 185         ret = ldb_connect(ldb, real_url, flags, options);
 186         if (ret != LDB_SUCCESS) {
 187                 talloc_free(ldb);
 188                 return NULL;
 189         }
 190
 191         /* setup for leak detection */
 192         ldb_set_opaque(ldb, "wrap_url", real_url);
 193         startup_blocks = talloc(ldb, size_t);
 194         *startup_blocks = talloc_total_blocks(ldb);
 195         ldb_set_opaque(ldb, "startup_blocks", startup_blocks);
 196
 197         talloc_set_destructor(ldb, ldb_wrap_destructor);
 198
 199         return ldb;
 200 }
 201
 202
 203