]> git.sur5r.net Git - openldap/blobdiff - servers/slapd/sasl.c
Sync with HEAD
[openldap] / servers / slapd / sasl.c
index f3e9209dc44da587d976c02107a47b2e92a1a73b..6c9378f954970e77ac60d7c8e881b7be7ac4c168 100644 (file)
@@ -1,7 +1,16 @@
 /* $OpenLDAP$ */
-/*
- * Copyright 1998-2002 The OpenLDAP Foundation, All Rights Reserved.
- * COPYING RESTRICTIONS APPLY, see COPYRIGHT file
+/* 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>.
  */
 
 #include "portable.h"
 # endif
 
 # if SASL_VERSION_MAJOR >= 2
+# ifdef HAVE_SASL_SASL_H
 #  include <sasl/saslplug.h>
+# else
+#  include <saslplug.h>
+# endif
 #  define      SASL_CONST const
 # else
 #  define      SASL_CONST
 # endif
 
 static sasl_security_properties_t sasl_secprops;
+
+#define SASL_VERSION_FULL      ((SASL_VERSION_MAJOR << 16) |\
+       (SASL_VERSION_MINOR << 8) | SASL_VERSION_STEP)
+
 #endif /* HAVE_CYRUS_SASL */
 
 #include "ldap_pvt.h"
@@ -292,7 +309,8 @@ slap_sasl_log(
 static const char *slap_propnames[] = {
        "*slapConn", "*authcDN", "*authzDN", NULL };
 
-static Filter *generic_filter;
+static Filter generic_filter = { LDAP_FILTER_PRESENT };
+static struct berval generic_filterstr = BER_BVC("(objectclass=*)");
 
 #define        PROP_CONN       0
 #define        PROP_AUTHC      1
@@ -305,15 +323,10 @@ typedef struct lookup_info {
        sasl_server_params_t *sparams;
 } lookup_info;
 
+static slap_response sasl_ap_lookup, sasl_ap_store, sasl_cb_checkpass;
+
 static int
-sasl_ap_lookup(
-       BackendDB *be,
-       Connection *conn,
-       Operation *op,
-       Entry *e,
-       AttributeName *an,
-       int attrsonly,
-       LDAPControl **ctrls )
+sasl_ap_lookup( Operation *op, SlapReply *rs )
 {
        BerVarray bv;
        AttributeDescription *ad;
@@ -323,6 +336,8 @@ sasl_ap_lookup(
        slap_callback *tmp = op->o_callback;
        lookup_info *sl = tmp->sc_private;
 
+       if (rs->sr_type != REP_SEARCH) return 0;
+
        for( i = 0; i < sl->last; i++ ) {
                const char *name = sl->list[i].name;
 
@@ -347,15 +362,18 @@ sasl_ap_lookup(
 #endif
                        continue;
                }
-               a = attr_find( e->e_attrs, ad );
+               a = attr_find( rs->sr_entry->e_attrs, ad );
                if ( !a ) continue;
-               if ( ! access_allowed( be, conn, op, e, ad, NULL, ACL_AUTH, NULL ) )
+               if ( ! access_allowed( op, rs->sr_entry, ad, NULL, ACL_AUTH, NULL ) ) {
                        continue;
-               if ( sl->list[i].values && ( sl->flags & SASL_AUXPROP_OVERRIDE ) )
-                       sl->sparams->utils->prop_erase( sl->sparams->propctx, sl->list[i].name );
+               }
+               if ( sl->list[i].values && ( sl->flags & SASL_AUXPROP_OVERRIDE ) ) {
+                       sl->sparams->utils->prop_erase( sl->sparams->propctx,
+                       sl->list[i].name );
+               }
                for ( bv = a->a_vals; bv->bv_val; bv++ ) {
-                       sl->sparams->utils->prop_set( sl->sparams->propctx, sl->list[i].name,
-                               bv->bv_val, bv->bv_len );
+                       sl->sparams->utils->prop_set( sl->sparams->propctx,
+                               sl->list[i].name, bv->bv_val, bv->bv_len );
                }
        }
        return LDAP_SUCCESS;
@@ -369,8 +387,8 @@ slap_auxprop_lookup(
        const char *user,
        unsigned ulen)
 {
+       Operation op = {0};
        int rc, i, doit=0;
-       struct berval dn;
        Connection *conn = NULL;
        lookup_info sl;
 
@@ -390,14 +408,14 @@ slap_auxprop_lookup(
                                !strcmp( sl.list[i].name, slap_propnames[PROP_AUTHZ] ) ) {
 
                                if ( sl.list[i].values && sl.list[i].values[0] )
-                                       AC_MEMCPY( &dn, sl.list[i].values[0], sizeof( dn ) );
+                                       AC_MEMCPY( &op.o_req_ndn, sl.list[i].values[0], sizeof( struct berval ) );
                                if ( !sl.last ) sl.last = i;
                                break;
                        }
                        if ( !strcmp( sl.list[i].name, slap_propnames[PROP_AUTHC] ) ) {
                                if ( !sl.last ) sl.last = i;
                                if ( sl.list[i].values && sl.list[i].values[0] ) {
-                                       AC_MEMCPY( &dn, sl.list[i].values[0], sizeof( dn ) );
+                                       AC_MEMCPY( &op.o_req_ndn, sl.list[i].values[0], sizeof( struct berval ) );
                                        if ( !(flags & SASL_AUXPROP_AUTHZID) )
                                                break;
                                }
@@ -422,30 +440,145 @@ slap_auxprop_lookup(
        }
 
        if (doit) {
-               Backend *be;
-               Operation op = {0};
-               slap_callback cb = { slap_cb_null_response,
-                       slap_cb_null_sresult, sasl_ap_lookup, NULL };
+               slap_callback cb = { sasl_ap_lookup, NULL };
 
                cb.sc_private = &sl;
 
-               be = select_backend( &dn, 0, 1 );
+               op.o_bd = select_backend( &op.o_req_ndn, 0, 1 );
 
-               if ( be && be->be_search ) {
+               if ( op.o_bd && op.o_bd->be_search ) {
+                       SlapReply rs = {REP_RESULT};
                        op.o_tag = LDAP_REQ_SEARCH;
                        op.o_protocol = LDAP_VERSION3;
                        op.o_ndn = 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->o_threadctx;
+                       op.o_tmpmemctx = conn->c_sasl_bindop->o_tmpmemctx;
+                       op.o_tmpmfuncs = conn->c_sasl_bindop->o_tmpmfuncs;
+                       op.o_conn = conn;
+                       op.o_connid = conn->c_connid;
+                       op.o_req_dn = op.o_req_ndn;
+                       op.ors_scope = LDAP_SCOPE_BASE;
+                       op.ors_deref = LDAP_DEREF_NEVER;
+                       op.ors_slimit = 1;
+                       op.ors_filter = &generic_filter;
+                       op.ors_filterstr = generic_filterstr;
+
+                       op.o_bd->be_search( &op, &rs );
+               }
+       }
+}
+
+#if SASL_VERSION_FULL >= 0x020110
+static int
+sasl_ap_store( Operation *op, SlapReply *rs )
+{
+       return 0;
+}
+
+static int
+slap_auxprop_store(
+       void *glob_context,
+       sasl_server_params_t *sparams,
+       struct propctx *prctx,
+       const char *user,
+       unsigned ulen)
+{
+       Operation op = {0};
+       SlapReply rs = {REP_RESULT};
+       int rc, i, j;
+       Connection *conn = NULL;
+       const struct propval *pr;
+       Modifications *modlist = NULL, **modtail = &modlist, *mod;
+       slap_callback cb = { sasl_ap_store, NULL };
+       char textbuf[SLAP_TEXT_BUFLEN];
+       const char *text;
+       size_t textlen = sizeof(textbuf);
+
+       /* just checking if we are enabled */
+       if (!prctx) return SASL_OK;
+
+       if (!sparams || !user) return SASL_BADPARAM;
+
+       pr = sparams->utils->prop_get( sparams->propctx );
 
-                       (*be->be_search)( be, conn, &op, NULL, &dn,
-                               LDAP_SCOPE_BASE, LDAP_DEREF_NEVER, 1, 0,
-                               generic_filter, NULL, NULL, 0 );
+       /* Find our DN and conn first */
+       for( i = 0; pr[i].name; i++ ) {
+               if ( pr[i].name[0] == '*' ) {
+                       if ( !strcmp( pr[i].name, slap_propnames[PROP_CONN] ) ) {
+                               if ( pr[i].values && pr[i].values[0] )
+                                       AC_MEMCPY( &conn, pr[i].values[0], sizeof( conn ) );
+                               continue;
+                       }
+                       if ( !strcmp( pr[i].name, slap_propnames[PROP_AUTHC] ) ) {
+                               if ( pr[i].values && pr[i].values[0] ) {
+                                       AC_MEMCPY( &op.o_req_ndn, pr[i].values[0], sizeof( struct berval ) );
+                               }
+                       }
                }
        }
+       if (!conn || !op.o_req_ndn.bv_val) return SASL_BADPARAM;
+
+       op.o_bd = select_backend( &op.o_req_ndn, 0, 1 );
+
+       if ( !op.o_bd || !op.o_bd->be_modify ) return SASL_FAIL;
+               
+       pr = sparams->utils->prop_get( prctx );
+       if (!pr) return SASL_BADPARAM;
+
+       for (i=0; pr[i].name; i++);
+       if (!i) return SASL_BADPARAM;
+
+       for (i=0; pr[i].name; i++) {
+               mod = (Modifications *)ch_malloc( sizeof(Modifications) );
+               mod->sml_op = LDAP_MOD_REPLACE;
+               ber_str2bv( pr[i].name, 0, 0, &mod->sml_type );
+               mod->sml_values = (struct berval *)ch_malloc( (pr[i].nvalues + 1) *
+                       sizeof(struct berval));
+               for (j=0; j<pr[i].nvalues; j++) {
+                       ber_str2bv( pr[i].values[j], 0, 1, &mod->sml_values[j]);
+               }
+               mod->sml_values[j].bv_val = NULL;
+               mod->sml_values[j].bv_len = 0;
+               mod->sml_nvalues = NULL;
+               mod->sml_desc = NULL;
+               *modtail = mod;
+               modtail = &mod->sml_next;
+       }
+       *modtail = NULL;
+
+       rc = slap_mods_check( modlist, 0, &text, textbuf, textlen, NULL );
+
+       if ( rc == LDAP_SUCCESS ) {
+               rc = slap_mods_opattrs( &op, modlist, modtail, &text, textbuf,
+                       textlen );
+       }
+
+       if ( rc == LDAP_SUCCESS ) {
+               op.o_tag = LDAP_REQ_MODIFY;
+               op.o_protocol = LDAP_VERSION3;
+               op.o_ndn = op.o_req_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->o_threadctx;
+               op.o_tmpmemctx = conn->c_sasl_bindop->o_tmpmemctx;
+               op.o_tmpmfuncs = conn->c_sasl_bindop->o_tmpmfuncs;
+               op.o_conn = conn;
+               op.o_connid = conn->c_connid;
+               op.o_req_dn = op.o_req_ndn;
+               op.orm_modlist = modlist;
+
+               rc = op.o_bd->be_modify( &op, &rs );
+       }
+       slap_mods_free( modlist );
+       return rc ? SASL_FAIL : SASL_OK;
 }
+#endif /* SASL_VERSION_FULL >= 2.1.16 */
 
 static sasl_auxprop_plug_t slap_auxprop_plugin = {
        0,      /* Features */
@@ -454,7 +587,12 @@ static sasl_auxprop_plug_t slap_auxprop_plugin = {
        NULL,   /* auxprop_free */
        slap_auxprop_lookup,
        "slapd",        /* name */
-       NULL    /* spare */
+#if SASL_VERSION_FULL >= 0x020110
+       slap_auxprop_store      /* the declaration of this member changed
+                                * in cyrus SASL from 2.1.15 to 2.1.16 */
+#else
+       NULL
+#endif
 };
 
 static int
@@ -480,29 +618,24 @@ typedef struct checkpass_info {
 } checkpass_info;
 
 static int
-sasl_cb_checkpass(
-       BackendDB *be,
-       Connection *conn,
-       Operation *op,
-       Entry *e,
-       AttributeName *an,
-       int attrsonly,
-       LDAPControl **ctrls )
+sasl_cb_checkpass( Operation *op, SlapReply *rs )
 {
        slap_callback *tmp = op->o_callback;
        checkpass_info *ci = tmp->sc_private;
        Attribute *a;
        struct berval *bv;
        
+       if (rs->sr_type != REP_SEARCH) return 0;
+
        ci->rc = SASL_NOVERIFY;
 
-       a = attr_find( e->e_attrs, slap_schema.si_ad_userPassword );
+       a = attr_find( rs->sr_entry->e_attrs, slap_schema.si_ad_userPassword );
        if ( !a ) return 0;
-       if ( ! access_allowed( be, conn, op, e, slap_schema.si_ad_userPassword,
+       if ( ! access_allowed( op, rs->sr_entry, slap_schema.si_ad_userPassword,
                NULL, ACL_AUTH, NULL ) ) return 0;
 
        for ( bv = a->a_vals; bv->bv_val != NULL; bv++ ) {
-               if ( !lutil_passwd( bv, &ci->cred, NULL ) ) {
+               if ( !lutil_passwd( bv, &ci->cred, NULL, &rs->sr_text ) ) {
                        ci->rc = SASL_OK;
                        break;
                }
@@ -520,9 +653,8 @@ slap_sasl_checkpass(
        struct propctx *propctx)
 {
        Connection *conn = (Connection *)context;
-       struct berval dn;
+       Operation op = {0};
        int rc;
-       Backend *be;
        checkpass_info ci;
 
        ci.rc = SASL_NOUSER;
@@ -531,27 +663,26 @@ slap_sasl_checkpass(
         * find an answer here.
         */
 
-       rc = slap_sasl_getdn( conn, (char *)username, 0, NULL, &dn,
+       rc = slap_sasl_getdn( conn, NULL, (char *)username, 0, NULL, &op.o_req_ndn,
                SLAP_GETDN_AUTHCID );
        if ( rc != LDAP_SUCCESS ) {
                sasl_seterror( sconn, 0, ldap_err2string( rc ) );
                return SASL_NOUSER;
        }
 
-       if ( dn.bv_len == 0 ) {
+       if ( op.o_req_ndn.bv_len == 0 ) {
                sasl_seterror( sconn, 0,
                        "No password is associated with the Root DSE" );
-               if ( dn.bv_val != NULL ) {
-                       ch_free( dn.bv_val );
+               if ( op.o_req_ndn.bv_val != NULL ) {
+                       ch_free( op.o_req_ndn.bv_val );
                }
                return SASL_NOUSER;
        }
 
-       be = select_backend( &dn, 0, 1 );
-       if ( be && be->be_search ) {
-               Operation op = {0};
-               slap_callback cb = { slap_cb_null_response,
-                       slap_cb_null_sresult, sasl_cb_checkpass, NULL };
+       op.o_bd = select_backend( &op.o_req_ndn, 0, 1 );
+       if ( op.o_bd && op.o_bd->be_search ) {
+               slap_callback cb = { sasl_cb_checkpass, NULL };
+               SlapReply rs = {REP_RESULT};
 
                ci.cred.bv_val = (char *)pass;
                ci.cred.bv_len = passlen;
@@ -563,18 +694,27 @@ slap_sasl_checkpass(
                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->o_threadctx;
-
-               (*be->be_search)( be, conn, &op, NULL, &dn,
-                       LDAP_SCOPE_BASE, LDAP_DEREF_NEVER, 1, 0,
-                       generic_filter, NULL, NULL, 0 );
+               op.o_tmpmemctx = conn->c_sasl_bindop->o_tmpmemctx;
+               op.o_tmpmfuncs = conn->c_sasl_bindop->o_tmpmfuncs;
+               op.o_conn = conn;
+               op.o_connid = conn->c_connid;
+               op.o_req_dn = op.o_req_ndn;
+               op.ors_scope = LDAP_SCOPE_BASE;
+               op.ors_deref = LDAP_DEREF_NEVER;
+               op.ors_slimit = 1;
+               op.ors_filter = &generic_filter;
+               op.ors_filterstr = generic_filterstr;
+
+               op.o_bd->be_search( &op, &rs );
        }
        if ( ci.rc != SASL_OK ) {
                sasl_seterror( sconn, 0,
                        ldap_err2string( LDAP_INVALID_CREDENTIALS ) );
        }
 
-       ch_free( dn.bv_val );
+       ch_free( op.o_req_ndn.bv_val );
 
        return ci.rc;
 }
@@ -610,13 +750,13 @@ slap_sasl_canonicalize(
        LDAP_LOG( TRANSPORT, ENTRY, 
                "slap_sasl_canonicalize: conn %d %s=\"%s\"\n",
                conn ? conn->c_connid : -1,
-               (flags & SASL_CU_AUTHID) ? "authcid" : "authzid", in ? in : "<empty>");
+               (flags & SASL_CU_AUTHID) ? "authcid" : "authzid",
+               in ? in : "<empty>");
 #else
-       Debug( LDAP_DEBUG_ARGS, "SASL Canonicalize [conn=%ld]: "
-               "%s=\"%s\"\n",
-                       conn ? conn->c_connid : -1,
-                       (flags & SASL_CU_AUTHID) ? "authcid" : "authzid",
-                       in ? in : "<empty>" );
+       Debug( LDAP_DEBUG_ARGS, "SASL Canonicalize [conn=%ld]: %s=\"%s\"\n",
+               conn ? conn->c_connid : -1,
+               (flags & SASL_CU_AUTHID) ? "authcid" : "authzid",
+               in ? in : "<empty>");
 #endif
 
        /* If name is too big, just truncate. We don't care, we're
@@ -656,8 +796,12 @@ slap_sasl_canonicalize(
         * the authcID temporarily in conn->c_sasl_dn. We necessarily
         * finish Canonicalizing before Authorizing, so there is no
         * conflict with slap_sasl_authorize's use of this temp var.
+        *
+        * The SASL EXTERNAL mech is backwards from all the other mechs,
+        * it does authzID before the authcID. If we see that authzID
+        * has already been done, don't do anything special with authcID.
         */
-       if ( flags == SASL_CU_AUTHID ) {
+       if ( flags == SASL_CU_AUTHID && !auxvals[PROP_AUTHZ].values ) {
                conn->c_sasl_dn.bv_val = (char *) in;
        } else if ( flags == SASL_CU_AUTHZID && conn->c_sasl_dn.bv_val ) {
                rc = strcmp( in, conn->c_sasl_dn.bv_val );
@@ -666,7 +810,7 @@ slap_sasl_canonicalize(
                if ( !rc ) goto done;
        }
 
-       rc = slap_sasl_getdn( conn, (char *)in, inlen, (char *)user_realm, &dn,
+       rc = slap_sasl_getdn( conn, NULL, (char *)in, inlen, (char *)user_realm, &dn,
                (flags & SASL_CU_AUTHID) ? SLAP_GETDN_AUTHCID : SLAP_GETDN_AUTHZID );
        if ( rc != LDAP_SUCCESS ) {
                sasl_seterror( sconn, 0, ldap_err2string( rc ) );
@@ -681,14 +825,16 @@ slap_sasl_canonicalize(
 #ifdef NEW_LOGGING
        LDAP_LOG( TRANSPORT, ENTRY, 
                "slap_sasl_canonicalize: conn %d %s=\"%s\"\n",
-               conn ? conn->c_connid : -1, names[0]+1, dn.bv_val );
+               conn ? conn->c_connid : -1, names[0]+1,
+               dn.bv_val ? dn.bv_val : "<EMPTY>" );
 #else
-       Debug( LDAP_DEBUG_ARGS, "SASL Canonicalize [conn=%ld]: "
-               "%s=\"%s\"\n",
-                       conn ? conn->c_connid : -1,
-                       names[0]+1, dn.bv_val );
+       Debug( LDAP_DEBUG_ARGS, "SASL Canonicalize [conn=%ld]: %s=\"%s\"\n",
+               conn ? conn->c_connid : -1, names[0]+1,
+               dn.bv_val ? dn.bv_val : "<EMPTY>" );
 #endif
-done:  AC_MEMCPY( out, in, inlen );
+
+done:
+       AC_MEMCPY( out, in, inlen );
        out[inlen] = '\0';
 
        *out_len = inlen;
@@ -718,7 +864,7 @@ slap_sasl_authorize(
                "slap_sasl_authorize: conn %d authcid=\"%s\" authzid=\"%s\"\n",
                conn ? conn->c_connid : -1, auth_identity, requested_user);
 #else
-       Debug( LDAP_DEBUG_ARGS, "SASL Authorize [conn=%ld]: "
+       Debug( LDAP_DEBUG_ARGS, "SASL proxy authorize [conn=%ld]: "
                "authcid=\"%s\" authzid=\"%s\"\n",
                conn ? conn->c_connid : -1, auth_identity, requested_user );
 #endif
@@ -736,21 +882,22 @@ slap_sasl_authorize(
        /* Nothing to do if no authzID was given */
        if ( !auxvals[1].name || !auxvals[1].values ) {
                conn->c_sasl_dn = authcDN;
-               return SASL_OK;
+               goto ok;
        }
        
        AC_MEMCPY( &authzDN, auxvals[1].values[0], sizeof(authzDN) );
 
-       rc = slap_sasl_authorized( conn, &authcDN, &authzDN );
+       rc = slap_sasl_authorized( conn->c_sasl_bindop, &authcDN, &authzDN );
        ch_free( authcDN.bv_val );
        if ( rc != LDAP_SUCCESS ) {
 #ifdef NEW_LOGGING
                LDAP_LOG( TRANSPORT, INFO, 
-                       "slap_sasl_authorize: conn %ld  authorization disallowed (%d)\n",
+                       "slap_sasl_authorize: conn %ld "
+                       "proxy authorization disallowed (%d)\n",
                        (long)(conn ? conn->c_connid : -1), rc, 0 );
 #else
-               Debug( LDAP_DEBUG_TRACE, "SASL Authorize [conn=%ld]: "
-                       " authorization disallowed (%d)\n",
+               Debug( LDAP_DEBUG_TRACE, "SASL Proxy Authorize [conn=%ld]: "
+                       "proxy authorization disallowed (%d)\n",
                        (long) (conn ? conn->c_connid : -1), rc, 0 );
 #endif
 
@@ -760,14 +907,21 @@ slap_sasl_authorize(
        }
 
        conn->c_sasl_dn = authzDN;
+ok:
+       if (conn->c_sasl_bindop) {
+               Statslog( LDAP_DEBUG_STATS,
+                       "conn=%lu op=%lu BIND authcid=\"%s\"\n",
+                       conn->c_connid, conn->c_sasl_bindop->o_opid, 
+                       auth_identity, 0, 0);
+       }
 
 #ifdef NEW_LOGGING
        LDAP_LOG( TRANSPORT, ENTRY, 
-               "slap_sasl_authorize: conn %d authorization allowed\n",
+               "slap_sasl_authorize: conn %d proxy authorization allowed\n",
                (long)(conn ? conn->c_connid : -1), 0, 0 );
 #else
        Debug( LDAP_DEBUG_TRACE, "SASL Authorize [conn=%ld]: "
-               " authorization allowed\n",
+               " proxy authorization allowed\n",
                (long) (conn ? conn->c_connid : -1), 0, 0 );
 #endif
        return SASL_OK;
@@ -807,7 +961,7 @@ slap_sasl_authorize(
 #endif
 
        /* Figure out how much data we have for the dn */
-       rc = sasl_getprop( conn->c_sasl_context, SASL_REALM, (void **)&realm );
+       rc = sasl_getprop( conn->c_sasl_authctx, SASL_REALM, (void **)&realm );
        if( rc != SASL_OK && rc != SASL_NOTDONE ) {
 #ifdef NEW_LOGGING
                LDAP_LOG( TRANSPORT, ERR,
@@ -822,7 +976,7 @@ slap_sasl_authorize(
 
        /* Convert the identities to DN's. If no authzid was given, client will
           be bound as the DN matching their username */
-       rc = slap_sasl_getdn( conn, (char *)authcid, 0, realm,
+       rc = slap_sasl_getdn( conn, NULL, (char *)authcid, 0, realm,
                &authcDN, SLAP_GETDN_AUTHCID );
        if( rc != LDAP_SUCCESS ) {
                *errstr = ldap_err2string( rc );
@@ -839,10 +993,9 @@ slap_sasl_authorize(
 #endif
 
                conn->c_sasl_dn = authcDN;
-               *errstr = NULL;
-               return SASL_OK;
+               goto ok;
        }
-       rc = slap_sasl_getdn( conn, (char *)authzid, 0, realm,
+       rc = slap_sasl_getdn( conn, NULL, (char *)authzid, 0, realm,
                &authzDN, SLAP_GETDN_AUTHZID );
        if( rc != LDAP_SUCCESS ) {
                ch_free( authcDN.bv_val );
@@ -850,16 +1003,17 @@ slap_sasl_authorize(
                return SASL_NOAUTHZ;
        }
 
-       rc = slap_sasl_authorized(conn, &authcDN, &authzDN );
+       rc = slap_sasl_authorized(conn->c_sasl_bindop, &authcDN, &authzDN );
        ch_free( authcDN.bv_val );
        if( rc ) {
 #ifdef NEW_LOGGING
                LDAP_LOG( TRANSPORT, INFO, 
-                       "slap_sasl_authorize: conn %ld  authorization disallowed (%d)\n",
+                       "slap_sasl_authorize: conn %ld "
+                       "proxy authorization disallowed (%d)\n",
                        (long)(conn ? conn->c_connid : -1), rc, 0 );
 #else
                Debug( LDAP_DEBUG_TRACE, "SASL Authorize [conn=%ld]: "
-                       " authorization disallowed (%d)\n",
+                       "proxy authorization disallowed (%d)\n",
                        (long) (conn ? conn->c_connid : -1), rc, 0 );
 #endif
 
@@ -867,10 +1021,12 @@ slap_sasl_authorize(
                ch_free( authzDN.bv_val );
                return SASL_NOAUTHZ;
        }
+       conn->c_sasl_dn = authzDN;
 
+ok:
 #ifdef NEW_LOGGING
        LDAP_LOG( TRANSPORT, RESULTS, 
-               "slap_sasl_authorize: conn %d authorization allowed\n",
+               "slap_sasl_authorize: conn %d proxy authorization allowed\n",
           (long)(conn ? conn->c_connid : -1 ), 0, 0 );
 #else
        Debug( LDAP_DEBUG_TRACE, "SASL Authorize [conn=%ld]: "
@@ -878,7 +1034,13 @@ slap_sasl_authorize(
                (long) (conn ? conn->c_connid : -1), 0, 0 );
 #endif
 
-       conn->c_sasl_dn = authzDN;
+       if (conn->c_sasl_bindop) {
+               Statslog( LDAP_DEBUG_STATS,
+                       "conn=%lu op=%lu BIND authcid=\"%s\"\n",
+                       conn->c_connid, conn->c_sasl_bindop->o_opid, 
+                       authcid, 0, 0);
+       }
+
        *errstr = NULL;
        return SASL_OK;
 }
@@ -890,6 +1052,9 @@ slap_sasl_err2ldap( int saslerr )
        int rc;
 
        switch (saslerr) {
+               case SASL_OK:
+                       rc = LDAP_SUCCESS;
+                       break;
                case SASL_CONTINUE:
                        rc = LDAP_SASL_BIND_IN_PROGRESS;
                        break;
@@ -931,21 +1096,28 @@ int slap_sasl_init( void )
        };
 
 #ifdef HAVE_SASL_VERSION
-#define SASL_BUILD_VERSION ((SASL_VERSION_MAJOR << 24) |\
-       (SASL_VERSION_MINOR << 16) | SASL_VERSION_STEP)
+       /* stringify the version number, sasl.h doesn't do it for us */
+#define        VSTR0(maj, min, pat)    #maj "." #min "." #pat
+#define        VSTR(maj, min, pat)     VSTR0(maj, min, pat)
+#define        SASL_VERSION_STRING     VSTR(SASL_VERSION_MAJOR, SASL_VERSION_MINOR, \
+                               SASL_VERSION_STEP)
 
        sasl_version( NULL, &rc );
        if ( ((rc >> 16) != ((SASL_VERSION_MAJOR << 8)|SASL_VERSION_MINOR)) ||
                (rc & 0xffff) < SASL_VERSION_STEP) {
-
+               char version[sizeof("xxx.xxx.xxxxx")];
+               sprintf( version, "%u.%d.%d", (unsigned)rc >> 24, (rc >> 16) & 0xff,
+                       rc & 0xffff );
 #ifdef NEW_LOGGING
                LDAP_LOG( TRANSPORT, INFO,
-               "slap_sasl_init: SASL version mismatch, got %x, wanted %x.\n",
-                       rc, SASL_BUILD_VERSION, 0 );
+               "slap_sasl_init: SASL library version mismatch:"
+               " expected " SASL_VERSION_STRING ","
+               " got %s\n", version, 0, 0 );
 #else
                Debug( LDAP_DEBUG_ANY,
-               "slap_sasl_init: SASL version mismatch, got %x, wanted %x.\n",
-                       rc, SASL_BUILD_VERSION, 0 );
+               "slap_sasl_init: SASL library version mismatch:"
+               " expected " SASL_VERSION_STRING ","
+               " got %s\n", version, 0, 0 );
 #endif
                return -1;
        }
@@ -967,6 +1139,8 @@ int slap_sasl_init( void )
                ldap_pvt_sasl_mutex_dispose );
 
 #if SASL_VERSION_MAJOR >= 2
+       generic_filter.f_desc = slap_schema.si_ad_objectClass;
+
        sasl_auxprop_add_plugin( "slapd", slap_auxprop_init );
 #endif
        /* should provide callbacks for logging */
@@ -1010,9 +1184,6 @@ int slap_sasl_destroy( void )
 {
 #ifdef HAVE_CYRUS_SASL
        sasl_done();
-#endif
-#if SASL_VERSION_MAJOR >= 2
-       filter_free( generic_filter );
 #endif
        free( global_host );
        global_host = NULL;
@@ -1020,7 +1191,7 @@ int slap_sasl_destroy( void )
        return 0;
 }
 
-int slap_sasl_open( Connection *conn )
+int slap_sasl_open( Connection *conn, int reopen )
 {
        int cb, sc = LDAP_SUCCESS;
 #if SASL_VERSION_MAJOR >= 2
@@ -1031,18 +1202,18 @@ int slap_sasl_open( Connection *conn )
        sasl_conn_t *ctx = NULL;
        sasl_callback_t *session_callbacks;
 
-       assert( conn->c_sasl_context == NULL );
-       assert( conn->c_sasl_extra == NULL );
+       assert( conn->c_sasl_authctx == NULL );
 
-       conn->c_sasl_layers = 0;
+       if ( !reopen ) {
+               assert( conn->c_sasl_extra == NULL );
 
-       session_callbacks =
+               session_callbacks =
 #if SASL_VERSION_MAJOR >= 2
-               SLAP_CALLOC( 5, sizeof(sasl_callback_t));
+                       SLAP_CALLOC( 5, sizeof(sasl_callback_t));
 #else
-               SLAP_CALLOC( 3, sizeof(sasl_callback_t));
+                       SLAP_CALLOC( 3, sizeof(sasl_callback_t));
 #endif
-       if( session_callbacks == NULL ) {
+               if( session_callbacks == NULL ) {
 #ifdef NEW_LOGGING
                        LDAP_LOG( TRANSPORT, ERR, 
                                "slap_sasl_open: SLAP_MALLOC failed", 0, 0, 0 );
@@ -1051,31 +1222,36 @@ int slap_sasl_open( Connection *conn )
                                "slap_sasl_open: SLAP_MALLOC failed", 0, 0, 0 );
 #endif
                        return -1;
-       }
-       conn->c_sasl_extra = session_callbacks;
+               }
+               conn->c_sasl_extra = session_callbacks;
 
-       session_callbacks[cb=0].id = SASL_CB_LOG;
-       session_callbacks[cb].proc = &slap_sasl_log;
-       session_callbacks[cb++].context = conn;
+               session_callbacks[cb=0].id = SASL_CB_LOG;
+               session_callbacks[cb].proc = &slap_sasl_log;
+               session_callbacks[cb++].context = conn;
 
-       session_callbacks[cb].id = SASL_CB_PROXY_POLICY;
-       session_callbacks[cb].proc = &slap_sasl_authorize;
-       session_callbacks[cb++].context = conn;
+               session_callbacks[cb].id = SASL_CB_PROXY_POLICY;
+               session_callbacks[cb].proc = &slap_sasl_authorize;
+               session_callbacks[cb++].context = conn;
 
 #if SASL_VERSION_MAJOR >= 2
-       session_callbacks[cb].id = SASL_CB_CANON_USER;
-       session_callbacks[cb].proc = &slap_sasl_canonicalize;
-       session_callbacks[cb++].context = conn;
-
-       /* XXXX: this should be conditional */
-       session_callbacks[cb].id = SASL_CB_SERVER_USERDB_CHECKPASS;
-       session_callbacks[cb].proc = &slap_sasl_checkpass;
-       session_callbacks[cb++].context = conn;
+               session_callbacks[cb].id = SASL_CB_CANON_USER;
+               session_callbacks[cb].proc = &slap_sasl_canonicalize;
+               session_callbacks[cb++].context = conn;
+
+               /* XXXX: this should be conditional */
+               session_callbacks[cb].id = SASL_CB_SERVER_USERDB_CHECKPASS;
+               session_callbacks[cb].proc = &slap_sasl_checkpass;
+               session_callbacks[cb++].context = conn;
 #endif
 
-       session_callbacks[cb].id = SASL_CB_LIST_END;
-       session_callbacks[cb].proc = NULL;
-       session_callbacks[cb++].context = NULL;
+               session_callbacks[cb].id = SASL_CB_LIST_END;
+               session_callbacks[cb].proc = NULL;
+               session_callbacks[cb++].context = NULL;
+       } else {
+               session_callbacks = conn->c_sasl_extra;
+       }
+
+       conn->c_sasl_layers = 0;
 
        if( global_host == NULL ) {
                global_host = ldap_pvt_get_fqdn( NULL );
@@ -1083,9 +1259,6 @@ int slap_sasl_open( Connection *conn )
 
        /* create new SASL context */
 #if SASL_VERSION_MAJOR >= 2
-       if ( generic_filter == NULL ) {
-               generic_filter = str2filter( "(objectclass=*)" );
-       }
        if ( conn->c_sock_name.bv_len != 0 &&
             strncmp( conn->c_sock_name.bv_val, "IP=", 3 ) == 0) {
                char *p;
@@ -1137,7 +1310,7 @@ int slap_sasl_open( Connection *conn )
                return -1;
        }
 
-       conn->c_sasl_context = ctx;
+       conn->c_sasl_authctx = ctx;
 
        if( sc == SASL_OK ) {
                sc = sasl_setprop( ctx,
@@ -1169,7 +1342,7 @@ int slap_sasl_external(
 {
 #if SASL_VERSION_MAJOR >= 2
        int sc;
-       sasl_conn_t *ctx = conn->c_sasl_context;
+       sasl_conn_t *ctx = conn->c_sasl_authctx;
 
        if ( ctx == NULL ) {
                return LDAP_UNAVAILABLE;
@@ -1189,7 +1362,7 @@ int slap_sasl_external(
 
 #elif defined(HAVE_CYRUS_SASL)
        int sc;
-       sasl_conn_t *ctx = conn->c_sasl_context;
+       sasl_conn_t *ctx = conn->c_sasl_authctx;
        sasl_external_properties_t extprops;
 
        if ( ctx == NULL ) {
@@ -1213,13 +1386,6 @@ int slap_sasl_external(
 
 int slap_sasl_reset( Connection *conn )
 {
-#ifdef HAVE_CYRUS_SASL
-       sasl_conn_t *ctx = conn->c_sasl_context;
-
-       if( ctx != NULL ) {
-       }
-#endif
-       /* must return "anonymous" */
        return LDAP_SUCCESS;
 }
 
@@ -1228,7 +1394,9 @@ char ** slap_sasl_mechs( Connection *conn )
        char **mechs = NULL;
 
 #ifdef HAVE_CYRUS_SASL
-       sasl_conn_t *ctx = conn->c_sasl_context;
+       sasl_conn_t *ctx = conn->c_sasl_authctx;
+
+       if( ctx == NULL ) ctx = conn->c_sasl_sockctx;
 
        if( ctx != NULL ) {
                int sc;
@@ -1264,13 +1432,19 @@ char ** slap_sasl_mechs( Connection *conn )
 int slap_sasl_close( Connection *conn )
 {
 #ifdef HAVE_CYRUS_SASL
-       sasl_conn_t *ctx = conn->c_sasl_context;
+       sasl_conn_t *ctx = conn->c_sasl_authctx;
 
        if( ctx != NULL ) {
                sasl_dispose( &ctx );
        }
+       if ( conn->c_sasl_sockctx && conn->c_sasl_authctx != conn->c_sasl_sockctx ) {
+               ctx = conn->c_sasl_sockctx;
+               sasl_dispose( &ctx );
+       }
 
-       conn->c_sasl_context = NULL;
+       conn->c_sasl_authctx = NULL;
+       conn->c_sasl_sockctx = NULL;
+       conn->c_sasl_done = 0;
 
        free( conn->c_sasl_extra );
        conn->c_sasl_extra = NULL;
@@ -1279,44 +1453,35 @@ int slap_sasl_close( Connection *conn )
        return LDAP_SUCCESS;
 }
 
-int slap_sasl_bind(
-    Connection         *conn,
-    Operation          *op,  
-    struct berval      *dn,  
-    struct berval      *ndn,
-    struct berval      *cred,
-       struct berval                   *edn,
-       slap_ssf_t              *ssfp )
+int slap_sasl_bind( Operation *op, SlapReply *rs )
 {
-       int rc = 1;
-
 #ifdef HAVE_CYRUS_SASL
-       sasl_conn_t *ctx = conn->c_sasl_context;
+       sasl_conn_t *ctx = op->o_conn->c_sasl_authctx;
        struct berval response;
        unsigned reslen = 0;
-       const char *errstr = NULL;
        int sc;
 
 #ifdef NEW_LOGGING
        LDAP_LOG( TRANSPORT, ENTRY, 
                "sasl_bind: dn=\"%s\" mech=%s datalen=%ld\n",
-               dn->bv_len ? dn->bv_val : "",
-               conn->c_sasl_bind_in_progress ? "<continuing>" : 
-               conn->c_sasl_bind_mech.bv_val,
-               cred ? cred->bv_len : 0 );
+               op->o_req_dn.bv_len ? op->o_req_dn.bv_val : "",
+               op->o_conn->c_sasl_bind_in_progress ? "<continuing>" : 
+               op->o_conn->c_sasl_bind_mech.bv_val,
+               op->orb_cred.bv_len );
 #else
        Debug(LDAP_DEBUG_ARGS,
                "==> sasl_bind: dn=\"%s\" mech=%s datalen=%ld\n",
-               dn->bv_len ? dn->bv_val : "",
-               conn->c_sasl_bind_in_progress ? "<continuing>":conn->c_sasl_bind_mech.bv_val,
-               cred ? cred->bv_len : 0 );
+               op->o_req_dn.bv_len ? op->o_req_dn.bv_val : "",
+               op->o_conn->c_sasl_bind_in_progress ? "<continuing>" : 
+               op->o_conn->c_sasl_bind_mech.bv_val,
+               op->orb_cred.bv_len );
 #endif
 
 
        if( ctx == NULL ) {
-               send_ldap_result( conn, op, LDAP_UNAVAILABLE,
-                       NULL, "SASL unavailable on this session", NULL, NULL );
-               return rc;
+               send_ldap_error( op, rs, LDAP_UNAVAILABLE,
+                       "SASL unavailable on this session" );
+               return rs->sr_err;
        }
 
 #if SASL_VERSION_MAJOR >= 2
@@ -1331,16 +1496,40 @@ int slap_sasl_bind(
        sasl_server_step( ctx, cred, clen, resp, rlen, err )
 #endif
 
-       if ( !conn->c_sasl_bind_in_progress ) {
+       if ( !op->o_conn->c_sasl_bind_in_progress ) {
+               /* If we already authenticated once, must use a new context */
+               if ( op->o_conn->c_sasl_done ) {
+                       slap_ssf_t ssf = 0;
+                       const char *authid = NULL;
+#if SASL_VERSION_MAJOR >= 2
+                       sasl_getprop( ctx, SASL_SSF_EXTERNAL, (void *)&ssf );
+                       sasl_getprop( ctx, SASL_AUTH_EXTERNAL, (void *)&authid );
+                       if ( authid ) authid = ch_strdup( authid );
+#endif
+                       if ( ctx != op->o_conn->c_sasl_sockctx ) {
+                               sasl_dispose( &ctx );
+                       }
+                       op->o_conn->c_sasl_authctx = NULL;
+                               
+                       slap_sasl_open( op->o_conn, 1 );
+                       ctx = op->o_conn->c_sasl_authctx;
+#if SASL_VERSION_MAJOR >= 2
+                       if ( authid ) {
+                               sasl_setprop( ctx, SASL_SSF_EXTERNAL, &ssf );
+                               sasl_setprop( ctx, SASL_AUTH_EXTERNAL, authid );
+                               ch_free( (char *)authid );
+                       }
+#endif
+               }
                sc = START( ctx,
-                       conn->c_sasl_bind_mech.bv_val,
-                       cred->bv_val, cred->bv_len,
-                       (SASL_CONST char **)&response.bv_val, &reslen, &errstr );
+                       op->o_conn->c_sasl_bind_mech.bv_val,
+                       op->orb_cred.bv_val, op->orb_cred.bv_len,
+                       (SASL_CONST char **)&response.bv_val, &reslen, &rs->sr_text );
 
        } else {
                sc = STEP( ctx,
-                       cred->bv_val, cred->bv_len,
-                       (SASL_CONST char **)&response.bv_val, &reslen, &errstr );
+                       op->orb_cred.bv_val, op->orb_cred.bv_len,
+                       (SASL_CONST char **)&response.bv_val, &reslen, &rs->sr_text );
        }
 
        response.bv_len = reslen;
@@ -1348,35 +1537,61 @@ int slap_sasl_bind(
        if ( sc == SASL_OK ) {
                sasl_ssf_t *ssf = NULL;
 
-               *edn = conn->c_sasl_dn;
-               conn->c_sasl_dn.bv_val = NULL;
-               conn->c_sasl_dn.bv_len = 0;
+               op->orb_edn = op->o_conn->c_sasl_dn;
+               op->o_conn->c_sasl_dn.bv_val = NULL;
+               op->o_conn->c_sasl_dn.bv_len = 0;
+               op->o_conn->c_sasl_done = 1;
 
-               rc = LDAP_SUCCESS;
+               rs->sr_err = LDAP_SUCCESS;
 
                (void) sasl_getprop( ctx, SASL_SSF, (void *)&ssf );
-               *ssfp = ssf ? *ssf : 0;
-
-               if( *ssfp ) {
-                       ldap_pvt_thread_mutex_lock( &conn->c_mutex );
-                       conn->c_sasl_layers++;
-                       ldap_pvt_thread_mutex_unlock( &conn->c_mutex );
+               op->orb_ssf = ssf ? *ssf : 0;
+
+               ctx = NULL;
+               if( op->orb_ssf ) {
+                       ldap_pvt_thread_mutex_lock( &op->o_conn->c_mutex );
+                       op->o_conn->c_sasl_layers++;
+
+                       /* If there's an old layer, set sockctx to NULL to
+                        * tell connection_read() to wait for us to finish.
+                        * Otherwise there is a race condition: we have to
+                        * send the Bind response using the old security
+                        * context and then remove it before reading any
+                        * new messages.
+                        */
+                       if ( op->o_conn->c_sasl_sockctx ) {
+                               ctx = op->o_conn->c_sasl_sockctx;
+                               op->o_conn->c_sasl_sockctx = NULL;
+                       } else {
+                               op->o_conn->c_sasl_sockctx = op->o_conn->c_sasl_authctx;
+                       }
+                       ldap_pvt_thread_mutex_unlock( &op->o_conn->c_mutex );
                }
 
-               send_ldap_sasl( conn, op, rc,
-                       NULL, NULL, NULL, NULL,
-                       response.bv_len ? &response : NULL );
-
+               /* Must send response using old security layer */
+               if (response.bv_len) rs->sr_sasldata = &response;
+               send_ldap_sasl( op, rs );
+               
+               /* Now dispose of the old security layer.
+                */
+               if ( ctx ) {
+                       ldap_pvt_thread_mutex_lock( &op->o_conn->c_mutex );
+                       ldap_pvt_sasl_remove( op->o_conn->c_sb );
+                       op->o_conn->c_sasl_sockctx = op->o_conn->c_sasl_authctx;
+                       ldap_pvt_thread_mutex_unlock( &op->o_conn->c_mutex );
+                       sasl_dispose( &ctx );
+               }
        } else if ( sc == SASL_CONTINUE ) {
-               send_ldap_sasl( conn, op, rc = LDAP_SASL_BIND_IN_PROGRESS,
-                       NULL, NULL, NULL, NULL, &response );
+               rs->sr_err = LDAP_SASL_BIND_IN_PROGRESS,
+               rs->sr_sasldata = &response;
+               send_ldap_sasl( op, rs );
 
        } else {
 #if SASL_VERSION_MAJOR >= 2
-               errstr = sasl_errdetail( ctx );
+               rs->sr_text = sasl_errdetail( ctx );
 #endif
-               send_ldap_result( conn, op, rc = slap_sasl_err2ldap( sc ),
-                       NULL, errstr, NULL, NULL );
+               rs->sr_err = slap_sasl_err2ldap( sc ),
+               send_ldap_result( op, rs );
        }
 
 #if SASL_VERSION_MAJOR < 2
@@ -1386,18 +1601,18 @@ int slap_sasl_bind(
 #endif
 
 #ifdef NEW_LOGGING
-       LDAP_LOG( TRANSPORT, RESULTS, "slap_sasl_bind: rc=%d\n", rc, 0, 0 );
+       LDAP_LOG( TRANSPORT, RESULTS, "slap_sasl_bind: rc=%d\n", rs->sr_err, 0, 0 );
 #else
-       Debug(LDAP_DEBUG_TRACE, "<== slap_sasl_bind: rc=%d\n", rc, 0, 0);
+       Debug(LDAP_DEBUG_TRACE, "<== slap_sasl_bind: rc=%d\n", rs->sr_err, 0, 0);
 #endif
 
 
 #else
-       send_ldap_result( conn, op, rc = LDAP_UNAVAILABLE,
-               NULL, "SASL not supported", NULL, NULL );
+       send_ldap_error( op, rs, LDAP_UNAVAILABLE,
+               "SASL not supported" );
 #endif
 
-       return rc;
+       return rs->sr_err;
 }
 
 char* slap_sasl_secprops( const char *in )
@@ -1413,30 +1628,20 @@ char* slap_sasl_secprops( const char *in )
 
 #ifdef HAVE_CYRUS_SASL
 int
-slap_sasl_setpass(
-       Connection      *conn,
-       Operation       *op,
-       const char      *reqoid,
-       struct berval   *reqdata,
-       char            **rspoid,
-       struct berval   **rspdata,
-       LDAPControl     *** rspctrls,
-       const char      **text )
+slap_sasl_setpass( Operation *op, SlapReply *rs )
 {
-       int rc;
        struct berval id = { 0, NULL }; /* needs to come from connection */
        struct berval new = { 0, NULL };
        struct berval old = { 0, NULL };
 
-       assert( reqoid != NULL );
-       assert( strcmp( LDAP_EXOP_MODIFY_PASSWD, reqoid ) == 0 );
+       assert( ber_bvcmp( &slap_EXOP_MODIFY_PASSWD, &op->ore_reqoid ) == 0 );
 
-       rc = sasl_getprop( conn->c_sasl_context, SASL_USERNAME,
+       rs->sr_err = sasl_getprop( op->o_conn->c_sasl_authctx, SASL_USERNAME,
                (SASL_CONST void **)&id.bv_val );
 
-       if( rc != SASL_OK ) {
-               *text = "unable to retrieve SASL username";
-               rc = LDAP_OTHER;
+       if( rs->sr_err != SASL_OK ) {
+               rs->sr_text = "unable to retrieve SASL username";
+               rs->sr_err = LDAP_OTHER;
                goto done;
        }
 
@@ -1449,10 +1654,10 @@ slap_sasl_setpass(
                id.bv_val ? id.bv_val : "", 0, 0 );
 #endif
 
-       rc = slap_passwd_parse( reqdata,
-               NULL, &old, &new, text );
+       rs->sr_err = slap_passwd_parse( op->ore_reqdata,
+               NULL, &old, &new, &rs->sr_text );
 
-       if( rc != LDAP_SUCCESS ) {
+       if( rs->sr_err != LDAP_SUCCESS ) {
                goto done;
        }
 
@@ -1460,27 +1665,27 @@ slap_sasl_setpass(
                slap_passwd_generate(&new);
 
                if( new.bv_len == 0 ) {
-                       *text = "password generation failed.";
-                       rc = LDAP_OTHER;
+                       rs->sr_text = "password generation failed.";
+                       rs->sr_err = LDAP_OTHER;
                        goto done;
                }
                
-               *rspdata = slap_passwd_return( &new );
+               rs->sr_rspdata = slap_passwd_return( &new );
        }
 
 #if SASL_VERSION_MAJOR < 2
-       rc = sasl_setpass( conn->c_sasl_context,
-               id.bv_val, new.bv_val, new.bv_len, 0, text );
+       rs->sr_err = sasl_setpass( op->o_conn->c_sasl_authctx,
+               id.bv_val, new.bv_val, new.bv_len, 0, &rs->sr_text );
 #else
-       rc = sasl_setpass( conn->c_sasl_context, id.bv_val,
+       rs->sr_err = sasl_setpass( op->o_conn->c_sasl_authctx, id.bv_val,
                new.bv_val, new.bv_len, old.bv_val, old.bv_len, 0 );
-       if( rc != SASL_OK ) {
-               *text = sasl_errdetail( conn->c_sasl_context );
+       if( rs->sr_err != SASL_OK ) {
+               rs->sr_text = sasl_errdetail( op->o_conn->c_sasl_authctx );
        }
 #endif
-       switch(rc) {
+       switch(rs->sr_err) {
                case SASL_OK:
-                       rc = LDAP_SUCCESS;
+                       rs->sr_err = LDAP_SUCCESS;
                        break;
 
                case SASL_NOCHANGE:
@@ -1490,45 +1695,48 @@ slap_sasl_setpass(
                case SASL_FAIL:
                case SASL_BADPARAM:
                default:
-                       rc = LDAP_OTHER;
+                       rs->sr_err = LDAP_OTHER;
        }
 
 done:
-       return rc;
+       return rs->sr_err;
 }
 #endif /* HAVE_CYRUS_SASL */
 
 /* Take any sort of identity string and return a DN with the "dn:" prefix. The
-   string returned in *dn is in its own allocated memory, and must be free'd 
-   by the calling process.
-   -Mark Adamson, Carnegie Mellon
-
-   The "dn:" prefix is no longer used anywhere inside slapd. It is only used
-   on strings passed in directly from SASL.
-   -Howard Chu, Symas Corp.
-*/
+ * string returned in *dn is in its own allocated memory, and must be free'd 
+ * by the calling process.  -Mark Adamson, Carnegie Mellon
+ *
+ * The "dn:" prefix is no longer used anywhere inside slapd. It is only used
+ * on strings passed in directly from SASL.  -Howard Chu, Symas Corp.
+ */
 
-#define        SET_DN  1
-#define        SET_U   2
+#define SET_NONE       0
+#define        SET_DN          1
+#define        SET_U           2
 
 static struct berval ext_bv = BER_BVC( "EXTERNAL" );
 
-int slap_sasl_getdn( Connection *conn, char *id, int len,
+int slap_sasl_getdn( Connection *conn, Operation *op, char *id, int len,
        char *user_realm, struct berval *dn, int flags )
 {
        char *c1;
-       int rc, is_dn = 0, do_norm = 1;
+       int rc, is_dn = SET_NONE, do_norm = 1;
        struct berval dn2;
 
 #ifdef NEW_LOGGING
        LDAP_LOG( TRANSPORT, ENTRY, 
-               "slap_sasl_getdn: conn %d id=%s\n",
-               conn ? conn->c_connid : -1, id ? (*id ? id : "<empty>") : "NULL", 0 );
+               "slap_sasl_getdn: conn %d id=%s [len=%d]\n",
+               conn ? conn->c_connid : -1, id ? (*id ? id : "<empty>") : "NULL", len );
 #else
-       Debug( LDAP_DEBUG_ARGS, "slap_sasl_getdn: id=%s\n", 
-      id?(*id?id:"<empty>"):"NULL",0,0 );
+       Debug( LDAP_DEBUG_ARGS, "slap_sasl_getdn: id=%s [len=%d]\n", 
+               id ? ( *id ? id : "<empty>" ) : "NULL", len, 0 );
 #endif
 
+       if ( !op ) {
+               op = conn->c_sasl_bindop;
+       }
+
        dn->bv_val = NULL;
        dn->bv_len = 0;
 
@@ -1556,17 +1764,16 @@ int slap_sasl_getdn( Connection *conn, char *id, int len,
                        /* EXTERNAL DNs are already normalized */
                        do_norm = 0;
                        is_dn = SET_DN;
-                       ber_str2bv( id, len, 1, dn );
+                       ber_str2bv_x( id, len, 1, dn, op->o_tmpmemctx );
 
-               } else
-               {
+               } else {
                        /* convert to u:<username> form */
                        is_dn = SET_U;
                        dn->bv_val = id;
                        dn->bv_len = len;
                }
        }
-       if( !is_dn ) {
+       if( is_dn == SET_NONE ) {
                if( !strncasecmp( id, "u:", sizeof("u:")-1 )) {
                        is_dn = SET_U;
                        dn->bv_val = id+2;
@@ -1579,7 +1786,7 @@ int slap_sasl_getdn( Connection *conn, char *id, int len,
        }
 
        /* No other possibilities from here */
-       if( !is_dn ) {
+       if( is_dn == SET_NONE ) {
                dn->bv_val = NULL;
                dn->bv_len = 0;
                return( LDAP_INAPPROPRIATE_AUTH );
@@ -1604,7 +1811,7 @@ int slap_sasl_getdn( Connection *conn, char *id, int len,
 
                /* Build the new dn */
                c1 = dn->bv_val;
-               dn->bv_val = SLAP_MALLOC( len+1 );
+               dn->bv_val = sl_malloc( len+1, op->o_tmpmemctx );
                if( dn->bv_val == NULL ) {
 #ifdef NEW_LOGGING
                        LDAP_LOG( TRANSPORT, ERR, 
@@ -1641,15 +1848,21 @@ int slap_sasl_getdn( Connection *conn, char *id, int len,
 #else
                Debug( LDAP_DEBUG_TRACE, "getdn: u:id converted to %s\n", dn->bv_val,0,0 );
 #endif
+       } else {
+               
+               /* Dup the DN in any case, so we don't risk 
+                * leaks or dangling pointers later,
+                * and the DN value is '\0' terminated */
+               ber_dupbv_x( &dn2, dn, op->o_tmpmemctx );
+               dn->bv_val = dn2.bv_val;
        }
 
        /* All strings are in DN form now. Normalize if needed. */
        if ( do_norm ) {
-               rc = dnNormalize2( NULL, dn, &dn2 );
+               rc = dnNormalize( 0, NULL, NULL, dn, &dn2, op->o_tmpmemctx );
 
                /* User DNs were constructed above and must be freed now */
-               if ( is_dn == SET_U )
-                       ch_free( dn->bv_val );
+               sl_free( dn->bv_val, op->o_tmpmemctx );
 
                if ( rc != LDAP_SUCCESS ) {
                        dn->bv_val = NULL;
@@ -1660,9 +1873,9 @@ int slap_sasl_getdn( Connection *conn, char *id, int len,
        }
 
        /* Run thru regexp */
-       slap_sasl2dn( conn, dn, &dn2 );
+       slap_sasl2dn( op, dn, &dn2 );
        if( dn2.bv_val ) {
-               ch_free( dn->bv_val );
+               sl_free( dn->bv_val, op->o_tmpmemctx );
                *dn = dn2;
 #ifdef NEW_LOGGING
                LDAP_LOG( TRANSPORT, ENTRY,