]> git.sur5r.net Git - openldap/blobdiff - servers/slapd/saslauthz.c
ITS#2846 - make veryclean
[openldap] / servers / slapd / saslauthz.c
index dd288d8429c0458a603aafc78e2fc53740998a2d..ca9a416d0da1f1b869eae7982aac2c988cb9db4d 100644 (file)
@@ -1,9 +1,19 @@
-/*
- * Copyright 1998-2003 The OpenLDAP Foundation, All Rights Reserved.
- * COPYING RESTRICTIONS APPLY, see COPYRIGHT file
+/* $OpenLDAP$ */
+/* This work is part of OpenLDAP Software <http://www.openldap.org/>.
+ *
+ * Copyright 1998-2003 The OpenLDAP Foundation.
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted only as authorized by the OpenLDAP
+ * Public License.
+ *
+ * A copy of this license is available in the file LICENSE in the
+ * top-level directory of the distribution or, alternatively, at
+ * <http://www.OpenLDAP.org/license.html>.
  */
-/*
- * Copyright (c) 2000, Mark Adamson, Carnegie Mellon.  All rights reserved.
+/* Portions Copyright (c) 2000, Mark Adamson, Carnegie Mellon.
+ * All rights reserved.
  * This software is not subject to any license of Carnegie Mellon University.
  *
  * Redistribution and use in source and binary forms are permitted without 
@@ -11,7 +21,6 @@
  *
  * The name "Carnegie Mellon" must not be used to endorse or promote
  * products derived from this software without prior written permission.
- *
  */
 
 #include "portable.h"
@@ -33,7 +42,6 @@ typedef struct sasl_regexp {
   char *sr_match;                                                      /* regexp match pattern */
   char *sr_replace;                                            /* regexp replace pattern */
   regex_t sr_workspace;                                                /* workspace for regexp engine */
-  regmatch_t sr_strings[SASLREGEX_REPLACE];    /* strings matching $1,$2 ... */
   int sr_offset[SASLREGEX_REPLACE+2];          /* offsets of $1,$2... in *replace */
 } SaslRegexp_t;
 
@@ -65,18 +73,21 @@ int slap_sasl_setpolicy( const char *arg )
        return rc;
 }
 
-/* URI format: ldap://<host>/<base>[?[<attrs>][?[<scope>][?[<filter>]]]] */
-
-static int slap_parseURI( struct berval *uri,
-       struct berval *searchbase, int *scope, Filter **filter )
+static int slap_parseURI( Operation *op, struct berval *uri,
+       struct berval *base, struct berval *nbase,
+       int *scope, Filter **filter, struct berval *fstr )
 {
        struct berval bv;
        int rc;
        LDAPURLDesc *ludp;
 
        assert( uri != NULL && uri->bv_val != NULL );
-       searchbase->bv_val = NULL;
-       searchbase->bv_len = 0;
+       base->bv_val = NULL;
+       base->bv_len = 0;
+       nbase->bv_val = NULL;
+       nbase->bv_len = 0;
+       fstr->bv_val = NULL;
+       fstr->bv_len = 0;
        *scope = -1;
        *filter = NULL;
 
@@ -84,7 +95,8 @@ static int slap_parseURI( struct berval *uri,
        LDAP_LOG( TRANSPORT, ENTRY, 
                "slap_parseURI: parsing %s\n", uri->bv_val, 0, 0 );
 #else
-       Debug( LDAP_DEBUG_TRACE, "slap_parseURI: parsing %s\n", uri->bv_val, 0, 0 );
+       Debug( LDAP_DEBUG_TRACE,
+               "slap_parseURI: parsing %s\n", uri->bv_val, 0, 0 );
 #endif
 
        /* If it does not look like a URI, assume it is a DN */
@@ -94,7 +106,7 @@ static int slap_parseURI( struct berval *uri,
 
 is_dn: bv.bv_len = uri->bv_len - (bv.bv_val - uri->bv_val);
 
-               rc = dnNormalize2( NULL, &bv, searchbase );
+               rc = dnNormalize( 0, NULL, NULL, &bv, nbase, op->o_tmpmemctx );
                if( rc == LDAP_SUCCESS ) {
                        *scope = LDAP_SCOPE_BASE;
                }
@@ -114,9 +126,10 @@ is_dn:     bv.bv_len = uri->bv_len - (bv.bv_val - uri->bv_val);
        if (( ludp->lud_host && *ludp->lud_host )
                || ludp->lud_attrs || ludp->lud_exts )
        {
-               /* host part should be empty */
-               /* attrs and extensions parts should be empty */
-               return LDAP_PROTOCOL_ERROR;
+               /* host part must be empty */
+               /* attrs and extensions parts must be empty */
+               rc =  LDAP_PROTOCOL_ERROR;
+               goto done;
        }
 
        /* Grab the scope */
@@ -124,21 +137,29 @@ is_dn:    bv.bv_len = uri->bv_len - (bv.bv_val - uri->bv_val);
 
        /* Grab the filter */
        if ( ludp->lud_filter ) {
-               *filter = str2filter( ludp->lud_filter );
+               *filter = str2filter_x( op, ludp->lud_filter );
                if ( *filter == NULL ) {
                        rc = LDAP_PROTOCOL_ERROR;
                        goto done;
                }
+               ber_str2bv( ludp->lud_filter, 0, 0, fstr );
        }
 
        /* Grab the searchbase */
-       bv.bv_val = ludp->lud_dn;
-       bv.bv_len = strlen( bv.bv_val );
-       rc = dnNormalize2( NULL, &bv, searchbase );
+       ber_str2bv( ludp->lud_dn, 0, 0, base );
+       rc = dnNormalize( 0, NULL, NULL, base, nbase, op->o_tmpmemctx );
 
 done:
        if( rc != LDAP_SUCCESS ) {
-               if( *filter ) filter_free( *filter );
+               if( *filter ) filter_free_x( op, *filter );
+               base->bv_val = NULL;
+               base->bv_len = 0;
+               fstr->bv_val = NULL;
+               fstr->bv_len = 0;
+       } else {
+               /* Don't free these, return them to caller */
+               ludp->lud_filter = NULL;
+               ludp->lud_dn= NULL;
        }
 
        ldap_free_urldesc( ludp );
@@ -228,7 +249,8 @@ static void slap_sasl_rx_exp(
        const int *off,
        regmatch_t *str,
        const char *saslname,
-       struct berval *out )
+       struct berval *out,
+       void *ctx )
 {
        int i, n, len, insert;
 
@@ -247,7 +269,7 @@ static void slap_sasl_rx_exp(
                len += str[i].rm_eo - str[i].rm_so;
                n++;
        }
-       out->bv_val = ch_malloc( len + 1 );
+       out->bv_val = sl_malloc( len + 1, ctx );
        out->bv_len = len;
 
        /* Fill in URI with replace string, replacing $i as we go */
@@ -277,10 +299,11 @@ static void slap_sasl_rx_exp(
    LDAP URI to find the matching LDAP entry, using the pattern matching
    strings given in the saslregexp config file directive(s) */
 
-static int slap_sasl_regexp( struct berval *in, struct berval *out )
+static int slap_sasl_regexp( struct berval *in, struct berval *out, void *ctx )
 {
        char *saslname = in->bv_val;
        SaslRegexp_t *reg;
+       regmatch_t sr_strings[SASLREGEX_REPLACE];       /* strings matching $1,$2 ... */
        int i;
 
        memset( out, 0, sizeof( *out ) );
@@ -300,7 +323,7 @@ static int slap_sasl_regexp( struct berval *in, struct berval *out )
        /* Match the normalized SASL name to the saslregexp patterns */
        for( reg = SaslRegexp,i=0;  i<nSaslRegexp;  i++,reg++ ) {
                if ( regexec( &reg->sr_workspace, saslname, SASLREGEX_REPLACE,
-                 reg->sr_strings, 0)  == 0 )
+                 sr_strings, 0)  == 0 )
                        break;
        }
 
@@ -312,7 +335,7 @@ static int slap_sasl_regexp( struct berval *in, struct berval *out )
         * to replace the $1,$2 with the strings that matched (b.*) and (d.*)
         */
        slap_sasl_rx_exp( reg->sr_replace, reg->sr_offset,
-               reg->sr_strings, saslname, out );
+               sr_strings, saslname, out, ctx );
 
 #ifdef NEW_LOGGING
        LDAP_LOG( TRANSPORT, ENTRY, 
@@ -327,28 +350,16 @@ static int slap_sasl_regexp( struct berval *in, struct berval *out )
        return( 1 );
 }
 
-/* Two empty callback functions to avoid sending results */
-void slap_cb_null_response( Operation *o, SlapReply *rs )
-{
-}
-
-void slap_cb_null_sresult( Operation *o, SlapReply *rs )
-{
-}
-
-int slap_cb_null_sreference( Operation *o, SlapReply *rs )
-{
-       return 0;
-}
-
 /* This callback actually does some work...*/
 static int sasl_sc_sasl2dn( Operation *o, SlapReply *rs )
 {
        struct berval *ndn = o->o_callback->sc_private;
 
+       if (rs->sr_type != REP_SEARCH) return 0;
+
        /* We only want to be called once */
        if( ndn->bv_val ) {
-               free(ndn->bv_val);
+               o->o_tmpfree(ndn->bv_val, o->o_tmpmemctx);
                ndn->bv_val = NULL;
 
 #ifdef NEW_LOGGING
@@ -361,7 +372,7 @@ static int sasl_sc_sasl2dn( Operation *o, SlapReply *rs )
                return -1;
        }
 
-       ber_dupbv(ndn, &rs->sr_entry->e_nname);
+       ber_dupbv_x(ndn, &rs->sr_entry->e_nname, o->o_tmpmemctx);
        return 0;
 }
 
@@ -375,6 +386,8 @@ static int sasl_sc_smatch( Operation *o, SlapReply *rs )
 {
        smatch_info *sm = o->o_callback->sc_private;
 
+       if (rs->sr_type != REP_SEARCH) return 0;
+
        if (dn_match(sm->dn, &rs->sr_entry->e_nname)) {
                sm->match = 1;
                return -1;      /* short-circuit the search */
@@ -393,17 +406,13 @@ static int sasl_sc_smatch( Operation *o, SlapReply *rs )
  */
 
 static
-int slap_sasl_match(Connection *conn, struct berval *rule, struct berval *assertDN, struct berval *authc )
+int slap_sasl_match( Operation *opx, struct berval *rule,
+       struct berval *assertDN, struct berval *authc )
 {
        int rc; 
        regex_t reg;
        smatch_info sm;
-       slap_callback cb = {
-               slap_cb_null_response,
-               slap_cb_null_sresult,
-               sasl_sc_smatch,
-               slap_cb_null_sreference
-       };
+       slap_callback cb = { sasl_sc_smatch, NULL };
        Operation op = {0};
        SlapReply rs = {REP_RESULT};
 
@@ -417,7 +426,9 @@ int slap_sasl_match(Connection *conn, struct berval *rule, struct berval *assert
                assertDN->bv_val, rule->bv_val, 0 );
 #endif
 
-       rc = slap_parseURI( rule, &op.o_req_ndn, &op.oq_search.rs_scope, &op.oq_search.rs_filter );
+       rc = slap_parseURI( opx, rule, &op.o_req_dn,
+               &op.o_req_ndn, &op.oq_search.rs_scope, &op.oq_search.rs_filter,
+               &op.ors_filterstr );
        if( rc != LDAP_SUCCESS ) goto CONCLUDED;
 
        /* Massive shortcut: search scope == base */
@@ -465,9 +476,15 @@ int slap_sasl_match(Connection *conn, struct berval *rule, struct berval *assert
        op.o_time = slap_get_time();
        op.o_do_not_cache = 1;
        op.o_is_auth_check = 1;
-       op.o_threadctx = conn->c_sasl_bindop->o_threadctx;
-       op.o_conn = conn;
-       op.o_connid = conn->c_connid;
+       op.o_threadctx = opx->o_threadctx;
+       op.o_tmpmemctx = opx->o_tmpmemctx;
+       op.o_tmpmfuncs = opx->o_tmpmfuncs;
+#ifdef LDAP_SLAPI
+       op.o_pb = opx->o_pb;
+#endif
+       op.o_conn = opx->o_conn;
+       op.o_connid = opx->o_connid;
+       op.o_req_dn = op.o_req_ndn;
 
        op.o_bd->be_search( &op, &rs );
 
@@ -478,8 +495,10 @@ int slap_sasl_match(Connection *conn, struct berval *rule, struct berval *assert
        }
 
 CONCLUDED:
-       if( op.o_req_ndn.bv_len ) ch_free( op.o_req_ndn.bv_val );
-       if( op.oq_search.rs_filter ) filter_free( op.oq_search.rs_filter );
+       if( op.o_req_dn.bv_len ) ch_free( op.o_req_dn.bv_val );
+       if( op.o_req_ndn.bv_len ) sl_free( op.o_req_ndn.bv_val, opx->o_tmpmemctx );
+       if( op.oq_search.rs_filter ) filter_free_x( opx, op.oq_search.rs_filter );
+       if( op.ors_filterstr.bv_len ) ch_free( op.ors_filterstr.bv_val );
 
 #ifdef NEW_LOGGING
        LDAP_LOG( TRANSPORT, ENTRY, 
@@ -502,7 +521,7 @@ CONCLUDED:
  * The DNs should not have the dn: prefix
  */
 static int
-slap_sasl_check_authz( Connection *conn,
+slap_sasl_check_authz( Operation *op,
        struct berval *searchDN,
        struct berval *assertDN,
        AttributeDescription *ad,
@@ -521,19 +540,21 @@ slap_sasl_check_authz( Connection *conn,
           assertDN->bv_val, ad->ad_cname.bv_val, searchDN->bv_val);
 #endif
 
-       rc = backend_attribute( conn->c_sasl_bindop, NULL,
+       rc = backend_attribute( op, NULL,
                searchDN, ad, &vals );
        if( rc != LDAP_SUCCESS ) goto COMPLETE;
 
        /* Check if the *assertDN matches any **vals */
-       for( i=0; vals[i].bv_val != NULL; i++ ) {
-               rc = slap_sasl_match( conn, &vals[i], assertDN, authc );
-               if ( rc == LDAP_SUCCESS ) goto COMPLETE;
+       if( vals != NULL ) {
+               for( i=0; vals[i].bv_val != NULL; i++ ) {
+                       rc = slap_sasl_match( op, &vals[i], assertDN, authc );
+                       if ( rc == LDAP_SUCCESS ) goto COMPLETE;
+               }
        }
        rc = LDAP_INAPPROPRIATE_AUTH;
 
 COMPLETE:
-       if( vals ) ber_bvarray_free( vals );
+       if( vals ) ber_bvarray_free_x( vals, op->o_tmpmemctx );
 
 #ifdef NEW_LOGGING
        LDAP_LOG( TRANSPORT, RESULTS, 
@@ -556,12 +577,11 @@ COMPLETE:
  * an internal search must be done, and if that search returns exactly one
  * entry, return the DN of that one entry.
  */
-void slap_sasl2dn( Connection *conn,
+void slap_sasl2dn( Operation *opx,
        struct berval *saslname, struct berval *sasldn )
 {
        int rc;
-       slap_callback cb = { slap_cb_null_response,
-               slap_cb_null_sresult, sasl_sc_sasl2dn, slap_cb_null_sreference, NULL};
+       slap_callback cb = { sasl_sc_sasl2dn, NULL };
        Operation op = {0};
        SlapReply rs = {REP_RESULT};
        struct berval regout = { 0, NULL };
@@ -581,12 +601,14 @@ void slap_sasl2dn( Connection *conn,
        cb.sc_private = sasldn;
 
        /* Convert the SASL name into a minimal URI */
-       if( !slap_sasl_regexp( saslname, &regout ) ) {
+       if( !slap_sasl_regexp( saslname, &regout, opx->o_tmpmemctx ) ) {
                goto FINISHED;
        }
 
-       rc = slap_parseURI( &regout, &op.o_req_ndn, &op.oq_search.rs_scope, &op.oq_search.rs_filter );
-       if( regout.bv_val ) ch_free( regout.bv_val );
+       rc = slap_parseURI( opx, &regout, &op.o_req_dn,
+               &op.o_req_ndn, &op.oq_search.rs_scope, &op.oq_search.rs_filter,
+               &op.ors_filterstr );
+       if( regout.bv_val ) sl_free( regout.bv_val, opx->o_tmpmemctx );
        if( rc != LDAP_SUCCESS ) {
                goto FINISHED;
        }
@@ -616,29 +638,36 @@ void slap_sasl2dn( Connection *conn,
                goto FINISHED;
        }
 
-       op.o_conn = conn;
-       op.o_connid = conn->c_connid;
+       op.o_conn = opx->o_conn;
+       op.o_connid = opx->o_connid;
        op.o_tag = LDAP_REQ_SEARCH;
        op.o_protocol = LDAP_VERSION3;
-       op.o_ndn = conn->c_ndn;
+       op.o_ndn = opx->o_conn->c_ndn;
        op.o_callback = &cb;
        op.o_time = slap_get_time();
        op.o_do_not_cache = 1;
        op.o_is_auth_check = 1;
-       op.o_threadctx = conn->c_sasl_bindop ? conn->c_sasl_bindop->o_threadctx:
-               ldap_pvt_thread_pool_context( &connection_pool );
+       op.o_threadctx = opx->o_threadctx;
+       op.o_tmpmemctx = opx->o_tmpmemctx;
+       op.o_tmpmfuncs = opx->o_tmpmfuncs;
+#ifdef LDAP_SLAPI
+       op.o_pb = opx->o_pb;
+#endif
        op.oq_search.rs_deref = LDAP_DEREF_NEVER;
        op.oq_search.rs_slimit = 1;
        op.oq_search.rs_attrsonly = 1;
+       op.o_req_dn = op.o_req_ndn;
 
        op.o_bd->be_search( &op, &rs );
        
 FINISHED:
        if( sasldn->bv_len ) {
-               conn->c_authz_backend = op.o_bd;
+               opx->o_conn->c_authz_backend = op.o_bd;
        }
-       if( op.o_req_ndn.bv_len ) ch_free( op.o_req_ndn.bv_val );
-       if( op.oq_search.rs_filter ) filter_free( op.oq_search.rs_filter );
+       if( op.o_req_dn.bv_len ) ch_free( op.o_req_dn.bv_val );
+       if( op.o_req_ndn.bv_len ) sl_free( op.o_req_ndn.bv_val, opx->o_tmpmemctx );
+       if( op.oq_search.rs_filter ) filter_free_x( opx, op.oq_search.rs_filter );
+       if( op.ors_filterstr.bv_len ) ch_free( op.ors_filterstr.bv_val );
 
 #ifdef NEW_LOGGING
        LDAP_LOG( TRANSPORT, ENTRY, 
@@ -657,7 +686,7 @@ FINISHED:
  * The DNs should not have the dn: prefix
  */
 
-int slap_sasl_authorized( Connection *conn,
+int slap_sasl_authorized( Operation *op,
        struct berval *authcDN, struct berval *authzDN )
 {
        int rc = LDAP_INAPPROPRIATE_AUTH;
@@ -685,14 +714,14 @@ int slap_sasl_authorized( Connection *conn,
        }
 
        /* Allow the manager to authorize as any DN. */
-       if( conn->c_authz_backend && be_isroot( conn->c_authz_backend, authcDN )) {
+       if( op->o_conn->c_authz_backend && be_isroot( op->o_conn->c_authz_backend, authcDN )) {
                rc = LDAP_SUCCESS;
                goto DONE;
        }
 
        /* Check source rules */
        if( authz_policy & SASL_AUTHZ_TO ) {
-               rc = slap_sasl_check_authz( conn, authcDN, authzDN,
+               rc = slap_sasl_check_authz( op, authcDN, authzDN,
                        slap_schema.si_ad_saslAuthzTo, authcDN );
                if( rc == LDAP_SUCCESS ) {
                        goto DONE;
@@ -701,7 +730,7 @@ int slap_sasl_authorized( Connection *conn,
 
        /* Check destination rules */
        if( authz_policy & SASL_AUTHZ_FROM ) {
-               rc = slap_sasl_check_authz( conn, authzDN, authcDN,
+               rc = slap_sasl_check_authz( op, authzDN, authcDN,
                        slap_schema.si_ad_saslAuthzFrom, authcDN );
                if( rc == LDAP_SUCCESS ) {
                        goto DONE;