Fix some valgrind issues.
[jelmer/samba4-debian.git] / source / ldap_server / ldap_backend.c
index 713d99a2ea47d0021b09d43632b3df8e7555acb8..8b1c3cec693966a804f16ed52ee7ed44ff055961 100644 (file)
@@ -5,7 +5,7 @@
    
    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
-   the Free Software Foundation; either version 2 of the License, or
+   the Free Software Foundation; either version 3 of the License, or
    (at your option) any later version.
    
    This program is distributed in the hope that it will be useful,
    GNU General Public License for more details.
    
    You should have received a copy of the GNU General Public License
-   along with this program; if not, write to the Free Software
-   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+   along with this program.  If not, see <http://www.gnu.org/licenses/>.
 */
 
 #include "includes.h"
 #include "ldap_server/ldap_server.h"
-#include "dlinklist.h"
+#include "lib/util/dlinklist.h"
 #include "libcli/ldap/ldap.h"
 #include "lib/ldb/include/ldb.h"
 #include "lib/ldb/include/ldb_errors.h"
-#include "dsdb/samdb/samdb.h"
+#include "lib/ldb_wrap.h"
+#include "auth/credentials/credentials.h"
+#include "auth/gensec/gensec.h"
+#include "param/param.h"
 
 #define VALID_DN_SYNTAX(dn,i) do {\
        if (!(dn)) {\
                return NT_STATUS_NO_MEMORY;\
-       } else if ((dn)->comp_num < (i)) {\
+       } else if ( ! ldb_dn_validate(dn)) {\
+               result = LDAP_INVALID_DN_SYNTAX;\
+               errstr = "Invalid DN format";\
+               goto reply;\
+       } else if (ldb_dn_get_comp_num(dn) < (i)) {\
                result = LDAP_INVALID_DN_SYNTAX;\
                errstr = "Invalid DN (" #i " components needed for '" #dn "')";\
                goto reply;\
@@ -49,11 +55,41 @@ static int map_ldb_error(struct ldb_context *ldb, int err, const char **errstrin
 */
 NTSTATUS ldapsrv_backend_Init(struct ldapsrv_connection *conn) 
 {
-       conn->ldb = samdb_connect(conn, conn->session_info);
+       conn->ldb = ldb_wrap_connect(conn, 
+                                    conn->lp_ctx,
+                                    lp_sam_url(conn->lp_ctx), 
+                                    conn->session_info,
+                                    NULL, conn->global_catalog ? LDB_FLG_RDONLY : 0, NULL);
        if (conn->ldb == NULL) {
                return NT_STATUS_INTERNAL_DB_CORRUPTION;
        }
-       ldb_set_opaque(conn->ldb, "server_credentials", conn->server_credentials);
+
+       if (conn->server_credentials) {
+               char **sasl_mechs = NULL;
+               struct gensec_security_ops **backends = gensec_security_all();
+               struct gensec_security_ops **ops
+                       = gensec_use_kerberos_mechs(conn, backends, conn->server_credentials);
+               int i, j = 0;
+               for (i = 0; ops && ops[i]; i++) {
+                       if (ops[i]->sasl_name && ops[i]->server_start) {
+                               char *sasl_name = talloc_strdup(conn, ops[i]->sasl_name);
+
+                               if (!sasl_name) {
+                                       return NT_STATUS_NO_MEMORY;
+                               }
+                               sasl_mechs = talloc_realloc(conn, sasl_mechs, char *, j + 2);
+                               if (!sasl_mechs) {
+                                       return NT_STATUS_NO_MEMORY;
+                               }
+                               sasl_mechs[j] = sasl_name;
+                               talloc_steal(sasl_mechs, sasl_name);
+                               sasl_mechs[j+1] = NULL;
+                               j++;
+                       }
+               }
+               talloc_free(ops);
+               ldb_set_opaque(conn->ldb, "supportedSASLMechanims", sasl_mechs);
+       }
 
        return NT_STATUS_OK;
 }
@@ -84,7 +120,7 @@ void ldapsrv_queue_reply(struct ldapsrv_call *call, struct ldapsrv_reply *reply)
        DLIST_ADD_END(call->replies, reply, struct ldapsrv_reply *);
 }
 
-NTSTATUS ldapsrv_unwilling(struct ldapsrv_call *call, int error)
+static NTSTATUS ldapsrv_unwilling(struct ldapsrv_call *call, int error)
 {
        struct ldapsrv_reply *reply;
        struct ldap_ExtendedResponse *r;
@@ -118,13 +154,13 @@ static NTSTATUS ldapsrv_SearchRequest(struct ldapsrv_call *call)
        struct ldb_context *samdb = talloc_get_type(call->conn->ldb, struct ldb_context);
        struct ldb_dn *basedn;
        struct ldb_result *res = NULL;
-       struct ldb_request lreq;
+       struct ldb_request *lreq;
        enum ldb_scope scope = LDB_SCOPE_DEFAULT;
        const char **attrs = NULL;
-       const char *errstr = NULL;
+       const char *scope_str, *errstr = NULL;
        int success_limit = 1;
-       int result = LDAP_SUCCESS;
-       int ldb_ret;
+       int result = -1;
+       int ldb_ret = -1;
        int i, j;
 
        DEBUG(10, ("SearchRequest"));
@@ -134,7 +170,7 @@ static NTSTATUS ldapsrv_SearchRequest(struct ldapsrv_call *call)
        local_ctx = talloc_new(call);
        NT_STATUS_HAVE_NO_MEMORY(local_ctx);
 
-       basedn = ldb_dn_explode(local_ctx, req->basedn);
+       basedn = ldb_dn_new(local_ctx, samdb, req->basedn);
        VALID_DN_SYNTAX(basedn, 0);
 
        DEBUG(10, ("SearchRequest: basedn: [%s]\n", req->basedn));
@@ -142,24 +178,29 @@ static NTSTATUS ldapsrv_SearchRequest(struct ldapsrv_call *call)
 
        switch (req->scope) {
                case LDAP_SEARCH_SCOPE_BASE:
-                       DEBUG(10,("SearchRequest: scope: [BASE]\n"));
+                       scope_str = "BASE";
                        scope = LDB_SCOPE_BASE;
                        success_limit = 0;
                        break;
                case LDAP_SEARCH_SCOPE_SINGLE:
-                       DEBUG(10,("SearchRequest: scope: [ONE]\n"));
+                       scope_str = "ONE";
                        scope = LDB_SCOPE_ONELEVEL;
                        success_limit = 0;
                        break;
                case LDAP_SEARCH_SCOPE_SUB:
-                       DEBUG(10,("SearchRequest: scope: [SUB]\n"));
+                       scope_str = "SUB";
                        scope = LDB_SCOPE_SUBTREE;
                        success_limit = 0;
                        break;
+               default:
+                       result = LDAP_PROTOCOL_ERROR;
+                       errstr = "Invalid scope";
+                       goto reply;
        }
+       DEBUG(10,("SearchRequest: scope: [%s]\n", scope_str));
 
        if (req->num_attributes >= 1) {
-               attrs = talloc_array(samdb, const char *, req->num_attributes+1);
+               attrs = talloc_array(local_ctx, const char *, req->num_attributes+1);
                NT_STATUS_HAVE_NO_MEMORY(attrs);
 
                for (i=0; i < req->num_attributes; i++) {
@@ -169,22 +210,51 @@ static NTSTATUS ldapsrv_SearchRequest(struct ldapsrv_call *call)
                attrs[i] = NULL;
        }
 
-       DEBUG(5,("ldb_request dn=%s filter=%s\n", 
-                req->basedn, ldb_filter_from_tree(call, req->tree)));
+       DEBUG(5,("ldb_request %s dn=%s filter=%s\n", 
+                scope_str, req->basedn, ldb_filter_from_tree(call, req->tree)));
 
-       ZERO_STRUCT(lreq);
-       lreq.operation = LDB_REQ_SEARCH;
-       lreq.op.search.base = basedn;
-       lreq.op.search.scope = scope;
-       lreq.op.search.tree = req->tree;
-       lreq.op.search.attrs = attrs;
+       lreq = talloc(local_ctx, struct ldb_request);
+       NT_STATUS_HAVE_NO_MEMORY(lreq);
 
-       lreq.controls = call->request->controls;
+       lreq->operation = LDB_SEARCH;
+       lreq->op.search.base = basedn;
+       lreq->op.search.scope = scope;
+       lreq->op.search.tree = req->tree;
+       lreq->op.search.attrs = attrs;
 
-       ldb_ret = ldb_request(samdb, &lreq);
+       lreq->controls = call->request->controls;
 
-       /* Ensure we don't keep the search results around for too long */
-       res = talloc_steal(local_ctx, lreq.op.search.res);
+       if (call->conn->global_catalog) {
+               struct ldb_control *search_control = ldb_request_get_control(lreq, LDB_CONTROL_SEARCH_OPTIONS_OID);
+               
+               struct ldb_search_options_control *search_options = NULL;
+               if (search_control) {
+                       search_options = talloc_get_type(search_control->data, struct ldb_search_options_control);
+                       search_options->search_options |= LDB_SEARCH_OPTION_PHANTOM_ROOT;
+               } else {
+                       search_options = talloc(lreq, struct ldb_search_options_control);
+                       NT_STATUS_HAVE_NO_MEMORY(search_options);
+                       search_options->search_options = LDB_SEARCH_OPTION_PHANTOM_ROOT;
+                       ldb_request_add_control(lreq, LDB_CONTROL_SEARCH_OPTIONS_OID, false, search_options);
+               }
+       }
+
+       res = talloc_zero(lreq, struct ldb_result);
+       NT_STATUS_HAVE_NO_MEMORY(res);
+       
+       lreq->context = res;
+       lreq->callback = ldb_search_default_callback;
+
+       /* Copy the timeout from the incoming call */
+       ldb_set_timeout(samdb, lreq, req->timelimit);
+
+       ldb_ret = ldb_request(samdb, lreq);
+
+       if (ldb_ret != LDB_SUCCESS) {
+               goto reply;
+       }
+
+       ldb_ret = ldb_wait(lreq->handle, LDB_WAIT_ALL);
 
        if (ldb_ret == LDB_SUCCESS) {
                for (i = 0; i < res->count; i++) {
@@ -192,7 +262,7 @@ static NTSTATUS ldapsrv_SearchRequest(struct ldapsrv_call *call)
                        NT_STATUS_HAVE_NO_MEMORY(ent_r);
 
                        ent = &ent_r->msg->r.SearchResultEntry;
-                       ent->dn = ldb_dn_linearize(ent_r, res->msgs[i]->dn);
+                       ent->dn = ldb_dn_alloc_linearized(ent_r, res->msgs[i]->dn);
                        ent->num_attributes = 0;
                        ent->attributes = NULL;
                        if (res->msgs[i]->num_elements == 0) {
@@ -225,15 +295,12 @@ reply:
        done->dn = NULL;
        done->referral = NULL;
 
-       if (ldb_ret == LDB_SUCCESS) {
+       if (result != -1) {
+       } else if (ldb_ret == LDB_SUCCESS) {
                if (res->count >= success_limit) {
                        DEBUG(10,("SearchRequest: results: [%d]\n", res->count));
                        result = LDAP_SUCCESS;
                        errstr = NULL;
-               } else if (res->count == 0) {
-                       DEBUG(10,("SearchRequest: no results\n"));
-                       result = LDAP_NO_SUCH_OBJECT;
-                       errstr = ldb_errstring(samdb);
                }
                if (res->controls) {
                        done_r->msg->controls = res->controls;
@@ -273,7 +340,7 @@ static NTSTATUS ldapsrv_ModifyRequest(struct ldapsrv_call *call)
        local_ctx = talloc_named(call, 0, "ModifyRequest local memory context");
        NT_STATUS_HAVE_NO_MEMORY(local_ctx);
 
-       dn = ldb_dn_explode(local_ctx, req->dn);
+       dn = ldb_dn_new(local_ctx, samdb, req->dn);
        VALID_DN_SYNTAX(dn, 1);
 
        DEBUG(10, ("ModifyRequest: dn: [%s]\n", req->dn));
@@ -282,7 +349,6 @@ static NTSTATUS ldapsrv_ModifyRequest(struct ldapsrv_call *call)
        NT_STATUS_HAVE_NO_MEMORY(msg);
 
        msg->dn = dn;
-       msg->private_data = NULL;
        msg->num_elements = 0;
        msg->elements = NULL;
 
@@ -314,7 +380,8 @@ static NTSTATUS ldapsrv_ModifyRequest(struct ldapsrv_call *call)
 
                        msg->elements[i].num_values = req->mods[i].attrib.num_values;
                        if (msg->elements[i].num_values > 0) {
-                               msg->elements[i].values = talloc_array(msg, struct ldb_val, msg->elements[i].num_values);
+                               msg->elements[i].values = talloc_array(msg->elements, struct ldb_val,
+                                                                      msg->elements[i].num_values);
                                NT_STATUS_HAVE_NO_MEMORY(msg->elements[i].values);
 
                                for (j=0; j < msg->elements[i].num_values; j++) {
@@ -376,7 +443,7 @@ static NTSTATUS ldapsrv_AddRequest(struct ldapsrv_call *call)
        local_ctx = talloc_named(call, 0, "AddRequest local memory context");
        NT_STATUS_HAVE_NO_MEMORY(local_ctx);
 
-       dn = ldb_dn_explode(local_ctx, req->dn);
+       dn = ldb_dn_new(local_ctx, samdb, req->dn);
        VALID_DN_SYNTAX(dn,1);
 
        DEBUG(10, ("AddRequest: dn: [%s]\n", req->dn));
@@ -385,7 +452,6 @@ static NTSTATUS ldapsrv_AddRequest(struct ldapsrv_call *call)
        NT_STATUS_HAVE_NO_MEMORY(msg);
 
        msg->dn = dn;
-       msg->private_data = NULL;
        msg->num_elements = 0;
        msg->elements = NULL;
 
@@ -402,7 +468,8 @@ static NTSTATUS ldapsrv_AddRequest(struct ldapsrv_call *call)
                        
                        if (req->attributes[i].num_values > 0) {
                                msg->elements[i].num_values = req->attributes[i].num_values;
-                               msg->elements[i].values = talloc_array(msg, struct ldb_val, msg->elements[i].num_values);
+                               msg->elements[i].values = talloc_array(msg->elements, struct ldb_val,
+                                                                      msg->elements[i].num_values);
                                NT_STATUS_HAVE_NO_MEMORY(msg->elements[i].values);
 
                                for (j=0; j < msg->elements[i].num_values; j++) {
@@ -466,7 +533,7 @@ static NTSTATUS ldapsrv_DelRequest(struct ldapsrv_call *call)
        local_ctx = talloc_named(call, 0, "DelRequest local memory context");
        NT_STATUS_HAVE_NO_MEMORY(local_ctx);
 
-       dn = ldb_dn_explode(local_ctx, req->dn);
+       dn = ldb_dn_new(local_ctx, samdb, req->dn);
        VALID_DN_SYNTAX(dn,1);
 
        DEBUG(10, ("DelRequest: dn: [%s]\n", req->dn));
@@ -499,7 +566,7 @@ static NTSTATUS ldapsrv_ModifyDNRequest(struct ldapsrv_call *call)
        struct ldapsrv_reply *modifydn_r;
        void *local_ctx;
        struct ldb_context *samdb = call->conn->ldb;
-       struct ldb_dn *olddn, *newdn, *newrdn;
+       struct ldb_dn *olddn, *newdn=NULL, *newrdn;
        struct ldb_dn *parentdn = NULL;
        const char *errstr = NULL;
        int result = LDAP_SUCCESS;
@@ -512,10 +579,10 @@ static NTSTATUS ldapsrv_ModifyDNRequest(struct ldapsrv_call *call)
        local_ctx = talloc_named(call, 0, "ModifyDNRequest local memory context");
        NT_STATUS_HAVE_NO_MEMORY(local_ctx);
 
-       olddn = ldb_dn_explode(local_ctx, req->dn);
+       olddn = ldb_dn_new(local_ctx, samdb, req->dn);
        VALID_DN_SYNTAX(olddn, 2);
 
-       newrdn = ldb_dn_explode(local_ctx, req->newrdn);
+       newrdn = ldb_dn_new(local_ctx, samdb, req->newrdn);
        VALID_DN_SYNTAX(newrdn, 1);
 
        DEBUG(10, ("ModifyDNRequest: olddn: [%s]\n", req->dn));
@@ -528,18 +595,12 @@ static NTSTATUS ldapsrv_ModifyDNRequest(struct ldapsrv_call *call)
                goto reply;
        }
 
-       if (newrdn->comp_num > 1) {
-               result = LDAP_NAMING_VIOLATION;
-               errstr = "Error new RDN invalid";
-               goto reply;
-       }
-
        if (req->newsuperior) {
-               parentdn = ldb_dn_explode(local_ctx, req->newsuperior);
+               parentdn = ldb_dn_new(local_ctx, samdb, req->newsuperior);
                VALID_DN_SYNTAX(parentdn, 0);
                DEBUG(10, ("ModifyDNRequest: newsuperior: [%s]\n", req->newsuperior));
                
-               if (parentdn->comp_num < 1) {
+               if (ldb_dn_get_comp_num(parentdn) < 1) {
                        result = LDAP_AFFECTS_MULTIPLE_DSAS;
                        errstr = "Error new Superior DN invalid";
                        goto reply;
@@ -551,8 +612,14 @@ static NTSTATUS ldapsrv_ModifyDNRequest(struct ldapsrv_call *call)
                NT_STATUS_HAVE_NO_MEMORY(parentdn);
        }
 
-       newdn = ldb_dn_make_child(local_ctx, ldb_dn_get_rdn(local_ctx, newrdn), parentdn);
-       NT_STATUS_HAVE_NO_MEMORY(newdn);
+       if ( ! ldb_dn_add_child_fmt(parentdn,
+                               "%s=%s",
+                               ldb_dn_get_rdn_name(newrdn),
+                               (char *)ldb_dn_get_rdn_val(newrdn)->data)) {
+               result = LDAP_OTHER;
+               goto reply;
+       }
+       newdn = parentdn;
 
 reply:
        modifydn_r = ldapsrv_init_reply(call, LDAP_TAG_ModifyDNResponse);
@@ -596,7 +663,7 @@ static NTSTATUS ldapsrv_CompareRequest(struct ldapsrv_call *call)
        local_ctx = talloc_named(call, 0, "CompareRequest local_memory_context");
        NT_STATUS_HAVE_NO_MEMORY(local_ctx);
 
-       dn = ldb_dn_explode(local_ctx, req->dn);
+       dn = ldb_dn_new(local_ctx, samdb, req->dn);
        VALID_DN_SYNTAX(dn, 1);
 
        DEBUG(10, ("CompareRequest: dn: [%s]\n", req->dn));
@@ -614,7 +681,7 @@ reply:
 
        if (result == LDAP_SUCCESS) {
                ldb_ret = ldb_search(samdb, dn, LDB_SCOPE_BASE, filter, attrs, &res);
-               talloc_steal(samdb, res);
+               talloc_steal(local_ctx, res);
                if (ldb_ret != LDB_SUCCESS) {
                        result = map_ldb_error(samdb, ldb_ret, &errstr);
                        DEBUG(10,("CompareRequest: error: %s\n", errstr));
@@ -652,26 +719,20 @@ static NTSTATUS ldapsrv_AbandonRequest(struct ldapsrv_call *call)
        return NT_STATUS_OK;
 }
 
-static NTSTATUS ldapsrv_ExtendedRequest(struct ldapsrv_call *call)
+NTSTATUS ldapsrv_do_call(struct ldapsrv_call *call)
 {
-/*     struct ldap_ExtendedRequest *req = &call->request.r.ExtendedRequest;*/
-       struct ldapsrv_reply *reply;
-
-       DEBUG(10, ("Extended\n"));
-
-       reply = ldapsrv_init_reply(call, LDAP_TAG_ExtendedResponse);
-       if (!reply) {
-               return NT_STATUS_NO_MEMORY;
+       int i;
+       struct ldap_message *msg = call->request;
+       /* Check for undecoded critical extensions */
+       for (i=0; msg->controls && msg->controls[i]; i++) {
+               if (!msg->controls_decoded[i] && 
+                   msg->controls[i]->critical) {
+                       DEBUG(3, ("ldapsrv_do_call: Critical extension %s is not known to this server\n",
+                                 msg->controls[i]->oid));
+                       return ldapsrv_unwilling(call, LDAP_UNAVAILABLE_CRITICAL_EXTENSION);
+               }
        }
 
-       ZERO_STRUCT(reply->msg->r);
-
-       ldapsrv_queue_reply(call, reply);
-       return NT_STATUS_OK;
-}
-
-NTSTATUS ldapsrv_do_call(struct ldapsrv_call *call)
-{
        switch(call->request->type) {
        case LDAP_TAG_BindRequest:
                return ldapsrv_BindRequest(call);
@@ -697,5 +758,3 @@ NTSTATUS ldapsrv_do_call(struct ldapsrv_call *call)
                return ldapsrv_unwilling(call, 2);
        }
 }
-
-