git.sur5r.net Git - openldap/blob - servers/slapd/bind.c

   1 /* bind.c - decode an ldap bind operation and pass it to a backend db */
   2 /* $OpenLDAP$ */
   3 /*
   4  * Copyright 1998-2000 The OpenLDAP Foundation, All Rights Reserved.
   5  * COPYING RESTRICTIONS APPLY, see COPYRIGHT file
   6  */
   7
   8 /*
   9  * Copyright (c) 1995 Regents of the University of Michigan.
  10  * All rights reserved.
  11  *
  12  * Redistribution and use in source and binary forms are permitted
  13  * provided that this notice is preserved and that due credit is given
  14  * to the University of Michigan at Ann Arbor. The name of the University
  15  * may not be used to endorse or promote products derived from this
  16  * software without specific prior written permission. This software
  17  * is provided ``as is'' without express or implied warranty.
  18  */
  19
  20 #include "portable.h"
  21
  22 #include <stdio.h>
  23
  24 #include <ac/string.h>
  25 #include <ac/socket.h>
  26
  27 #include "ldap_pvt.h"
  28 #include "slap.h"
  29
  30 int
  31 do_bind(
  32     Connection  *conn,
  33     Operation   *op
  34 )
  35 {
  36         BerElement      *ber = op->o_ber;
  37         ber_int_t               version;
  38         ber_tag_t method;
  39         char            *mech;
  40         char            *dn;
  41         char *ndn;
  42         ber_tag_t       tag;
  43         int                     rc = LDAP_SUCCESS;
  44         const char      *text;
  45         struct berval   cred;
  46         Backend         *be;
  47
  48 #ifdef NEW_LOGGING
  49         LDAP_LOG(( "operation", LDAP_LEVEL_ENTRY, "do_bind: conn %d\n", conn->c_connid ));
  50 #else
  51         Debug( LDAP_DEBUG_TRACE, "do_bind\n", 0, 0, 0 );
  52 #endif
  53
  54         dn = NULL;
  55         ndn = NULL;
  56         mech = NULL;
  57         cred.bv_val = NULL;
  58
  59         /*
  60          * Force to connection to "anonymous" until bind succeeds.
  61          */
  62         ldap_pvt_thread_mutex_lock( &conn->c_mutex );
  63         connection2anonymous( conn );
  64         ldap_pvt_thread_mutex_unlock( &conn->c_mutex );
  65
  66         if ( op->o_dn != NULL ) {
  67                 free( op->o_dn );
  68                 op->o_dn = ch_strdup( "" );
  69         }
  70
  71         if ( op->o_ndn != NULL ) {
  72                 free( op->o_ndn );
  73                 op->o_ndn = ch_strdup( "" );
  74         }
  75
  76         /*
  77          * Parse the bind request.  It looks like this:
  78          *
  79          *      BindRequest ::= SEQUENCE {
  80          *              version         INTEGER,                 -- version
  81          *              name            DistinguishedName,       -- dn
  82          *              authentication  CHOICE {
  83          *                      simple          [0] OCTET STRING -- passwd
  84          *                      krbv42ldap      [1] OCTET STRING
  85          *                      krbv42dsa       [2] OCTET STRING
  86          *                      SASL            [3] SaslCredentials
  87          *              }
  88          *      }
  89          *
  90          *      SaslCredentials ::= SEQUENCE {
  91      *          mechanism           LDAPString,
  92      *          credentials         OCTET STRING OPTIONAL
  93          *      }
  94          */
  95
  96         tag = ber_scanf( ber, "{iat" /*}*/, &version, &dn, &method );
  97
  98         if ( tag == LBER_ERROR ) {
  99 #ifdef NEW_LOGGING
 100                 LDAP_LOG(( "operation", LDAP_LEVEL_ERR,
 101                            "do_bind: conn %d  ber_scanf failed\n", conn->c_connid ));
 102 #else
 103                 Debug( LDAP_DEBUG_ANY, "bind: ber_scanf failed\n", 0, 0, 0 );
 104 #endif
 105                 send_ldap_disconnect( conn, op,
 106                         LDAP_PROTOCOL_ERROR, "decoding error" );
 107                 rc = -1;
 108                 goto cleanup;
 109         }
 110
 111         op->o_protocol = version;
 112
 113         if( method != LDAP_AUTH_SASL ) {
 114                 tag = ber_scanf( ber, /*{*/ "o}", &cred );
 115
 116         } else {
 117                 tag = ber_scanf( ber, "{a" /*}*/, &mech );
 118
 119                 if ( tag != LBER_ERROR ) {
 120                         ber_len_t len;
 121                         tag = ber_peek_tag( ber, &len );
 122
 123                         if ( tag == LDAP_TAG_LDAPCRED ) {
 124                                 tag = ber_scanf( ber, "o", &cred );
 125                         } else {
 126                                 tag = LDAP_TAG_LDAPCRED;
 127                                 cred.bv_val = NULL;
 128                                 cred.bv_len = 0;
 129                         }
 130
 131                         if ( tag != LBER_ERROR ) {
 132                                 tag = ber_scanf( ber, /*{{*/ "}}" );
 133                         }
 134                 }
 135         }
 136
 137         if ( tag == LBER_ERROR ) {
 138                 send_ldap_disconnect( conn, op,
 139                         LDAP_PROTOCOL_ERROR,
 140                 "decoding error" );
 141                 rc = SLAPD_DISCONNECT;
 142                 goto cleanup;
 143         }
 144
 145         if( (rc = get_ctrls( conn, op, 1 )) != LDAP_SUCCESS ) {
 146 #ifdef NEW_LOGGING
 147                 LDAP_LOG(( "operation", LDAP_LEVEL_INFO,
 148                            "do_bind: conn %d  get_ctrls failed\n", conn->c_connid ));
 149 #else
 150                 Debug( LDAP_DEBUG_ANY, "do_bind: get_ctrls failed\n", 0, 0, 0 );
 151 #endif
 152                 goto cleanup;
 153         }
 154
 155         ndn = ch_strdup( dn );
 156
 157         if ( dn_normalize( ndn ) == NULL ) {
 158 #ifdef NEW_LOGGING
 159                 LDAP_LOG(( "operation", LDAP_LEVEL_INFO,
 160                            "do_bind: conn %d  invalid dn (%s)\n", conn->c_connid, dn ));
 161 #else
 162                 Debug( LDAP_DEBUG_ANY, "bind: invalid dn (%s)\n", dn, 0, 0 );
 163 #endif
 164                 send_ldap_result( conn, op, rc = LDAP_INVALID_DN_SYNTAX, NULL,
 165                     "invalid DN", NULL, NULL );
 166                 goto cleanup;
 167         }
 168
 169         if( method == LDAP_AUTH_SASL ) {
 170 #ifdef NEW_LOGGING
 171                 LDAP_LOG(( "operation",  LDAP_LEVEL_DETAIL1,
 172                            "do_sasl_bind: conn %d  dn (%s) mech %s\n", conn->c_connid,
 173                            dn, mech ));
 174 #else
 175                 Debug( LDAP_DEBUG_TRACE, "do_sasl_bind: dn (%s) mech %s\n",
 176                         dn, mech, NULL );
 177 #endif
 178         } else {
 179 #ifdef NEW_LOGGING
 180                 LDAP_LOG(( "operation", LDAP_LEVEL_DETAIL1,
 181                            "do_bind: conn %d  version=%ld dn=\"%s\" method=%ld\n",
 182                            conn->c_connid, (unsigned long) version, dn, (unsigned long)method ));
 183 #else
 184                 Debug( LDAP_DEBUG_TRACE, "do_bind: version=%ld dn=\"%s\" method=%ld\n",
 185                         (unsigned long) version, dn, (unsigned long) method );
 186 #endif
 187         }
 188
 189         Statslog( LDAP_DEBUG_STATS, "conn=%ld op=%d BIND dn=\"%s\" method=%ld\n",
 190             op->o_connid, op->o_opid, ndn, (unsigned long) method, 0 );
 191
 192         if ( version < LDAP_VERSION_MIN || version > LDAP_VERSION_MAX ) {
 193 #ifdef NEW_LOGGING
 194                 LDAP_LOG(( "operation", LDAP_LEVEL_INFO,
 195                            "do_bind: conn %d  unknown version = %ld\n",
 196                            conn->c_connid, (unsigned long)version ));
 197 #else
 198                 Debug( LDAP_DEBUG_ANY, "do_bind: unknown version=%ld\n",
 199                         (unsigned long) version, 0, 0 );
 200 #endif
 201                 send_ldap_result( conn, op, rc = LDAP_PROTOCOL_ERROR,
 202                         NULL, "requested protocol version not supported", NULL, NULL );
 203                 goto cleanup;
 204
 205         } else if (( global_disallows & SLAP_DISALLOW_BIND_V2 ) &&
 206                 version < LDAP_VERSION3 )
 207         {
 208                 send_ldap_result( conn, op, rc = LDAP_PROTOCOL_ERROR,
 209                         NULL, "requested protocol version not allowed", NULL, NULL );
 210                 goto cleanup;
 211         }
 212
 213         /* we set connection version regardless of whether bind succeeds
 214          * or not.
 215          */
 216         ldap_pvt_thread_mutex_lock( &conn->c_mutex );
 217         conn->c_protocol = version;
 218         ldap_pvt_thread_mutex_unlock( &conn->c_mutex );
 219
 220         if ( method == LDAP_AUTH_SASL ) {
 221                 char *edn;
 222                 slap_ssf_t ssf = 0;
 223
 224                 if ( version < LDAP_VERSION3 ) {
 225 #ifdef NEW_LOGGING
 226                         LDAP_LOG(( "operation", LDAP_LEVEL_INFO,
 227                                    "do_bind: conn %d  sasl with LDAPv%ld\n",
 228                                    conn->c_connid, (unsigned long)version ));
 229 #else
 230                         Debug( LDAP_DEBUG_ANY, "do_bind: sasl with LDAPv%ld\n",
 231                                 (unsigned long) version, 0, 0 );
 232 #endif
 233                         send_ldap_disconnect( conn, op,
 234                                 LDAP_PROTOCOL_ERROR, "SASL bind requires LDAPv3" );
 235                         rc = SLAPD_DISCONNECT;
 236                         goto cleanup;
 237                 }
 238
 239                 if( mech == NULL || *mech == '\0' ) {
 240 #ifdef NEW_LOGGING
 241                         LDAP_LOG(( "operation", LDAP_LEVEL_INFO,
 242                                    "do_bind: conn %d  no SASL mechanism provided\n",
 243                                    conn->c_connid ));
 244 #else
 245                         Debug( LDAP_DEBUG_ANY,
 246                                 "do_bind: no sasl mechanism provided\n",
 247                                 0, 0, 0 );
 248 #endif
 249                         send_ldap_result( conn, op, rc = LDAP_AUTH_METHOD_NOT_SUPPORTED,
 250                                 NULL, "no SASL mechanism provided", NULL, NULL );
 251                         goto cleanup;
 252                 }
 253
 254                 /* check restrictions */
 255                 rc = backend_check_restrictions( NULL, conn, op, mech, &text );
 256                 if( rc != LDAP_SUCCESS ) {
 257                         send_ldap_result( conn, op, rc,
 258                                 NULL, text, NULL, NULL );
 259                         goto cleanup;
 260                 }
 261
 262                 ldap_pvt_thread_mutex_lock( &conn->c_mutex );
 263                 if ( conn->c_sasl_bind_in_progress ) {
 264                         if((strcmp(conn->c_sasl_bind_mech, mech) != 0)) {
 265                                 /* mechanism changed between bind steps */
 266                                 slap_sasl_reset(conn);
 267                         }
 268                 } else {
 269                         conn->c_sasl_bind_mech = mech;
 270                         mech = NULL;
 271                 }
 272                 ldap_pvt_thread_mutex_unlock( &conn->c_mutex );
 273
 274                 edn = NULL;
 275                 rc = slap_sasl_bind( conn, op, dn, ndn, &cred, &edn, &ssf );
 276
 277                 ldap_pvt_thread_mutex_lock( &conn->c_mutex );
 278                 if( rc == LDAP_SUCCESS ) {
 279                         conn->c_dn = edn;
 280                         conn->c_authmech = conn->c_sasl_bind_mech;
 281                         conn->c_sasl_bind_mech = NULL;
 282                         conn->c_sasl_bind_in_progress = 0;
 283                         conn->c_sasl_ssf = ssf;
 284                         if( ssf > conn->c_ssf ) {
 285                                 conn->c_ssf = ssf;
 286                         }
 287                 } else if ( rc == LDAP_SASL_BIND_IN_PROGRESS ) {
 288                         conn->c_sasl_bind_in_progress = 1;
 289
 290                 } else {
 291                         if ( conn->c_sasl_bind_mech ) {
 292                                 free( conn->c_sasl_bind_mech );
 293                                 conn->c_sasl_bind_mech = NULL;
 294                         }
 295                         conn->c_sasl_bind_in_progress = 0;
 296                 }
 297                 ldap_pvt_thread_mutex_unlock( &conn->c_mutex );
 298
 299                 goto cleanup;
 300
 301         } else {
 302                 /* Not SASL, cancel any in-progress bind */
 303                 ldap_pvt_thread_mutex_lock( &conn->c_mutex );
 304
 305                 if ( conn->c_sasl_bind_mech != NULL ) {
 306                         free(conn->c_sasl_bind_mech);
 307                         conn->c_sasl_bind_mech = NULL;
 308                 }
 309                 conn->c_sasl_bind_in_progress = 0;
 310
 311                 slap_sasl_reset( conn );
 312                 ldap_pvt_thread_mutex_unlock( &conn->c_mutex );
 313         }
 314
 315         if ( method == LDAP_AUTH_SIMPLE ) {
 316                 /* accept "anonymous" binds */
 317                 if ( cred.bv_len == 0 || ndn == NULL || *ndn == '\0' ) {
 318                         rc = LDAP_SUCCESS;
 319                         text = NULL;
 320
 321                         if( cred.bv_len &&
 322                                 ( global_disallows & SLAP_DISALLOW_BIND_ANON_CRED ))
 323                         {
 324                                 /* cred is not empty, disallow */
 325                                 rc = LDAP_INVALID_CREDENTIALS;
 326
 327                         } else if ( ndn != NULL && *ndn != '\0' &&
 328                                 ( global_disallows & SLAP_DISALLOW_BIND_ANON_DN ))
 329                         {
 330                                 /* DN is not empty, disallow */
 331                                 rc = LDAP_UNWILLING_TO_PERFORM;
 332                                 text = "unwilling to allow anonymous bind with non-empty DN";
 333
 334                         } else if ( global_disallows & SLAP_DISALLOW_BIND_ANON ) {
 335                                 /* disallow */
 336                                 rc = LDAP_INAPPROPRIATE_AUTH;
 337                                 text = "anonymous bind disallowed";
 338
 339                         } else {
 340                                 rc = backend_check_restrictions( NULL, conn, op, mech, &text );
 341                         }
 342
 343                         /*
 344                          * we already forced connection to "anonymous",
 345                          * just need to send success
 346                          */
 347                         send_ldap_result( conn, op, rc,
 348                                 NULL, text, NULL, NULL );
 349 #ifdef NEW_LOGGING
 350                         LDAP_LOG(( "operation", LDAP_LEVEL_DETAIL1,
 351                                    "do_bind: conn %d  v%d anonymous bind\n",
 352                                    conn->c_connid, version ));
 353 #else
 354                         Debug( LDAP_DEBUG_TRACE, "do_bind: v%d anonymous bind\n",
 355                                 version, 0, 0 );
 356 #endif
 357                         goto cleanup;
 358
 359                 } else if ( global_disallows & SLAP_DISALLOW_BIND_SIMPLE ) {
 360                         /* disallow simple authentication */
 361                         rc = LDAP_UNWILLING_TO_PERFORM;
 362                         text = "unwilling to perform simple authentication";
 363
 364                         send_ldap_result( conn, op, rc,
 365                                 NULL, text, NULL, NULL );
 366 #ifdef NEW_LOGGING
 367                         LDAP_LOG(( "operation", LDAP_LEVEL_INFO,
 368                                    "do_bind: conn %d  v%d simple bind(%s) disallowed\n",
 369                                    conn->c_connid, version, ndn ));
 370 #else
 371                         Debug( LDAP_DEBUG_TRACE,
 372                                 "do_bind: v%d simple bind(%s) disallowed\n",
 373                                 version, ndn, 0 );
 374 #endif
 375                         goto cleanup;
 376                 }
 377
 378 #ifdef LDAP_API_FEATURE_X_OPENLDAP_V2_KBIND
 379         } else if ( method == LDAP_AUTH_KRBV41 || method == LDAP_AUTH_KRBV42 ) {
 380                 if ( global_disallows & SLAP_DISALLOW_BIND_KRBV4 ) {
 381                         /* disallow simple authentication */
 382                         rc = LDAP_UNWILLING_TO_PERFORM;
 383                         text = "unwilling to perform Kerberos V4 bind";
 384
 385                         send_ldap_result( conn, op, rc,
 386                                 NULL, text, NULL, NULL );
 387 #ifdef NEW_LOGGING
 388                         LDAP_LOG(( "operation", LDAP_LEVEL_DETAIL1,
 389                                    "do_bind: conn %d  v%d Kerberos V4 bind\n",
 390                                    conn->c_connid, version ));
 391 #else
 392                         Debug( LDAP_DEBUG_TRACE, "do_bind: v%d Kerberos V4 bind\n",
 393                                 version, 0, 0 );
 394 #endif
 395                         goto cleanup;
 396                 }
 397 #endif
 398
 399         } else {
 400                 rc = LDAP_AUTH_METHOD_NOT_SUPPORTED;
 401                 text = "unknown authentication method";
 402
 403                 send_ldap_result( conn, op, rc,
 404                         NULL, text, NULL, NULL );
 405 #ifdef NEW_LOGGING
 406                 LDAP_LOG(( "operation", LDAP_LEVEL_INFO,
 407                            "do_bind: conn %d  v%d unknown authentication method (%d)\n",
 408                            conn->c_connid, version, method ));
 409 #else
 410                 Debug( LDAP_DEBUG_TRACE,
 411                         "do_bind: v%d unknown authentication method (%d)\n",
 412                         version, method, 0 );
 413 #endif
 414                 goto cleanup;
 415         }
 416
 417         /*
 418          * We could be serving multiple database backends.  Select the
 419          * appropriate one, or send a referral to our "referral server"
 420          * if we don't hold it.
 421          */
 422
 423         if ( (be = select_backend( ndn, 0 )) == NULL ) {
 424                 if ( default_referral ) {
 425                         send_ldap_result( conn, op, rc = LDAP_REFERRAL,
 426                                 NULL, NULL, default_referral, NULL );
 427
 428                 } else {
 429                         /* noSuchObject is not allowed to be returned by bind */
 430                         send_ldap_result( conn, op, rc = LDAP_INVALID_CREDENTIALS,
 431                                 NULL, NULL, NULL, NULL );
 432                 }
 433
 434                 goto cleanup;
 435         }
 436
 437         /* check restrictions */
 438         rc = backend_check_restrictions( be, conn, op, NULL, &text );
 439         if( rc != LDAP_SUCCESS ) {
 440                 send_ldap_result( conn, op, rc,
 441                         NULL, text, NULL, NULL );
 442                 goto cleanup;
 443         }
 444
 445         conn->c_authz_backend = be;
 446
 447         if ( be->be_bind ) {
 448                 int ret;
 449                 /* alias suffix */
 450                 char *edn = NULL;
 451
 452                 /* deref suffix alias if appropriate */
 453                 ndn = suffix_alias( be, ndn );
 454
 455                 ret = (*be->be_bind)( be, conn, op, dn, ndn,
 456                         method, &cred, &edn );
 457
 458                 if ( ret == 0 ) {
 459                         ldap_pvt_thread_mutex_lock( &conn->c_mutex );
 460
 461                         conn->c_cdn = dn;
 462                         dn = NULL;
 463
 464                         if(edn != NULL) {
 465                                 conn->c_dn = edn;
 466                         } else {
 467                                 conn->c_dn = ndn;
 468                                 ndn = NULL;
 469                         }
 470
 471 #ifdef NEW_LOGGING
 472                         LDAP_LOG(( "operation", LDAP_LEVEL_DETAIL1,
 473                                    "do_bind: conn %d  v%d bind: \"%s\" to \"%s\" \n",
 474                                    conn->c_connid, version, conn->c_cdn, conn->c_dn ));
 475 #else
 476                         Debug( LDAP_DEBUG_TRACE, "do_bind: v%d bind: \"%s\" to \"%s\"\n",
 477                         version, conn->c_cdn, conn->c_dn );
 478 #endif
 479
 480                         ldap_pvt_thread_mutex_unlock( &conn->c_mutex );
 481
 482                         /* send this here to avoid a race condition */
 483                         send_ldap_result( conn, op, LDAP_SUCCESS,
 484                                 NULL, NULL, NULL, NULL );
 485
 486                 } else if (edn != NULL) {
 487                         free( edn );
 488                 }
 489
 490         } else {
 491                 send_ldap_result( conn, op, rc = LDAP_UNWILLING_TO_PERFORM,
 492                         NULL, "operation not supported within namingContext", NULL, NULL );
 493         }
 494
 495 cleanup:
 496         if( dn != NULL ) {
 497                 free( dn );
 498         }
 499         if( ndn != NULL ) {
 500                 free( ndn );
 501         }
 502         if ( mech != NULL ) {
 503                 free( mech );
 504         }
 505         if ( cred.bv_val != NULL ) {
 506                 free( cred.bv_val );
 507         }
 508
 509         return rc;
 510 }