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                 ldap_pvt_thread_mutex_lock( &conn->c_mutex );
 255                 if ( conn->c_sasl_bind_in_progress ) {
 256                         if((strcmp(conn->c_sasl_bind_mech, mech) != 0)) {
 257                                 /* mechanism changed between bind steps */
 258                                 slap_sasl_reset(conn);
 259                         }
 260                 } else {
 261                         conn->c_sasl_bind_mech = mech;
 262                         mech = NULL;
 263                 }
 264                 ldap_pvt_thread_mutex_unlock( &conn->c_mutex );
 265
 266                 edn = NULL;
 267                 rc = slap_sasl_bind( conn, op, dn, ndn, &cred, &edn, &ssf );
 268
 269                 ldap_pvt_thread_mutex_lock( &conn->c_mutex );
 270                 if( rc == LDAP_SUCCESS ) {
 271                         conn->c_dn = edn;
 272                         conn->c_authmech = conn->c_sasl_bind_mech;
 273                         conn->c_sasl_bind_mech = NULL;
 274                         conn->c_sasl_bind_in_progress = 0;
 275                         conn->c_sasl_ssf = ssf;
 276                         if( ssf > conn->c_ssf ) {
 277                                 conn->c_ssf = ssf;
 278                         }
 279                 } else if ( rc == LDAP_SASL_BIND_IN_PROGRESS ) {
 280                         conn->c_sasl_bind_in_progress = 1;
 281
 282                 } else {
 283                         if ( conn->c_sasl_bind_mech ) {
 284                                 free( conn->c_sasl_bind_mech );
 285                                 conn->c_sasl_bind_mech = NULL;
 286                         }
 287                         conn->c_sasl_bind_in_progress = 0;
 288                 }
 289                 ldap_pvt_thread_mutex_unlock( &conn->c_mutex );
 290
 291                 goto cleanup;
 292
 293         } else {
 294                 /* Not SASL, cancel any in-progress bind */
 295                 ldap_pvt_thread_mutex_lock( &conn->c_mutex );
 296
 297                 if ( conn->c_sasl_bind_mech != NULL ) {
 298                         free(conn->c_sasl_bind_mech);
 299                         conn->c_sasl_bind_mech = NULL;
 300                 }
 301                 conn->c_sasl_bind_in_progress = 0;
 302
 303                 slap_sasl_reset( conn );
 304                 ldap_pvt_thread_mutex_unlock( &conn->c_mutex );
 305         }
 306
 307         if ( method == LDAP_AUTH_SIMPLE ) {
 308                 /* accept "anonymous" binds */
 309                 if ( cred.bv_len == 0 || ndn == NULL || *ndn == '\0' ) {
 310                         rc = LDAP_SUCCESS;
 311                         text = NULL;
 312
 313                         if( cred.bv_len &&
 314                                 ( global_disallows & SLAP_DISALLOW_BIND_ANON_CRED ))
 315                         {
 316                                 /* cred is not empty, disallow */
 317                                 rc = LDAP_INVALID_CREDENTIALS;
 318
 319                         } else if ( ndn != NULL && *ndn != '\0' &&
 320                                 ( global_disallows & SLAP_DISALLOW_BIND_ANON_DN ))
 321                         {
 322                                 /* DN is not empty, disallow */
 323                                 rc = LDAP_UNWILLING_TO_PERFORM;
 324                                 text = "unwilling to allow anonymous bind with non-empty DN";
 325
 326                         } else if ( global_disallows & SLAP_DISALLOW_BIND_ANON ) {
 327                                 /* disallow */
 328                                 rc = LDAP_INAPPROPRIATE_AUTH;
 329                                 text = "anonymous bind disallowed";
 330                         }
 331
 332                         /*
 333                          * we already forced connection to "anonymous",
 334                          * just need to send success
 335                          */
 336                         send_ldap_result( conn, op, rc,
 337                                 NULL, text, NULL, NULL );
 338 #ifdef NEW_LOGGING
 339                         LDAP_LOG(( "operation", LDAP_LEVEL_DETAIL1,
 340                                    "do_bind: conn %d  v%d anonymous bind\n",
 341                                    conn->c_connid, version ));
 342 #else
 343                         Debug( LDAP_DEBUG_TRACE, "do_bind: v%d anonymous bind\n",
 344                                 version, 0, 0 );
 345 #endif
 346                         goto cleanup;
 347
 348                 } else if ( global_disallows & SLAP_DISALLOW_BIND_SIMPLE ) {
 349                         /* disallow simple authentication */
 350                         rc = LDAP_UNWILLING_TO_PERFORM;
 351                         text = "unwilling to perform simple authentication";
 352
 353                         send_ldap_result( conn, op, rc,
 354                                 NULL, text, NULL, NULL );
 355 #ifdef NEW_LOGGING
 356                         LDAP_LOG(( "operation", LDAP_LEVEL_INFO,
 357                                    "do_bind: conn %d  v%d simple bind(%s) disallowed\n",
 358                                    conn->c_connid, version, ndn ));
 359 #else
 360                         Debug( LDAP_DEBUG_TRACE,
 361                                 "do_bind: v%d simple bind(%s) disallowed\n",
 362                                 version, ndn, 0 );
 363 #endif
 364                         goto cleanup;
 365                 }
 366
 367 #ifdef LDAP_API_FEATURE_X_OPENLDAP_V2_KBIND
 368         } else if ( method == LDAP_AUTH_KRBV41 || method == LDAP_AUTH_KRBV42 ) {
 369                 if ( global_disallows & SLAP_DISALLOW_BIND_KRBV4 ) {
 370                         /* disallow simple authentication */
 371                         rc = LDAP_UNWILLING_TO_PERFORM;
 372                         text = "unwilling to perform Kerberos V4 bind";
 373
 374                         send_ldap_result( conn, op, rc,
 375                                 NULL, text, NULL, NULL );
 376 #ifdef NEW_LOGGING
 377                         LDAP_LOG(( "operation", LDAP_LEVEL_DETAIL1,
 378                                    "do_bind: conn %d  v%d Kerberos V4 bind\n",
 379                                    conn->c_connid, version ));
 380 #else
 381                         Debug( LDAP_DEBUG_TRACE, "do_bind: v%d Kerberos V4 bind\n",
 382                                 version, 0, 0 );
 383 #endif
 384                         goto cleanup;
 385                 }
 386 #endif
 387
 388         } else {
 389                 rc = LDAP_AUTH_METHOD_NOT_SUPPORTED;
 390                 text = "unknown authentication method";
 391
 392                 send_ldap_result( conn, op, rc,
 393                         NULL, text, NULL, NULL );
 394 #ifdef NEW_LOGGING
 395                 LDAP_LOG(( "operation", LDAP_LEVEL_INFO,
 396                            "do_bind: conn %d  v%d unknown authentication method (%d)\n",
 397                            conn->c_connid, version, method ));
 398 #else
 399                 Debug( LDAP_DEBUG_TRACE,
 400                         "do_bind: v%d unknown authentication method (%d)\n",
 401                         version, method, 0 );
 402 #endif
 403                 goto cleanup;
 404         }
 405
 406         /*
 407          * We could be serving multiple database backends.  Select the
 408          * appropriate one, or send a referral to our "referral server"
 409          * if we don't hold it.
 410          */
 411
 412         if ( (be = select_backend( ndn, 0 )) == NULL ) {
 413                 if ( default_referral ) {
 414                         send_ldap_result( conn, op, rc = LDAP_REFERRAL,
 415                                 NULL, NULL, default_referral, NULL );
 416
 417                 } else {
 418                         /* noSuchObject is not allowed to be returned by bind */
 419                         send_ldap_result( conn, op, rc = LDAP_INVALID_CREDENTIALS,
 420                                 NULL, NULL, NULL, NULL );
 421                 }
 422
 423                 goto cleanup;
 424         }
 425
 426         /* check restrictions */
 427         rc = backend_check_restrictions( be, conn, op, NULL, &text ) ;
 428         if( rc != LDAP_SUCCESS ) {
 429                 send_ldap_result( conn, op, rc,
 430                         NULL, text, NULL, NULL );
 431                 goto cleanup;
 432         }
 433
 434         conn->c_authz_backend = be;
 435
 436         if ( be->be_bind ) {
 437                 int ret;
 438                 /* alias suffix */
 439                 char *edn = NULL;
 440
 441                 /* deref suffix alias if appropriate */
 442                 ndn = suffix_alias( be, ndn );
 443
 444                 ret = (*be->be_bind)( be, conn, op, dn, ndn,
 445                         method, &cred, &edn );
 446
 447                 if ( ret == 0 ) {
 448                         ldap_pvt_thread_mutex_lock( &conn->c_mutex );
 449
 450                         conn->c_cdn = dn;
 451                         dn = NULL;
 452
 453                         if(edn != NULL) {
 454                                 conn->c_dn = edn;
 455                         } else {
 456                                 conn->c_dn = ndn;
 457                                 ndn = NULL;
 458                         }
 459
 460 #ifdef NEW_LOGGING
 461                         LDAP_LOG(( "operation", LDAP_LEVEL_DETAIL1,
 462                                    "do_bind: conn %d  v%d bind: \"%s\" to \"%s\" \n",
 463                                    conn->c_connid, version, conn->c_cdn, conn->c_dn ));
 464 #else
 465                         Debug( LDAP_DEBUG_TRACE, "do_bind: v%d bind: \"%s\" to \"%s\"\n",
 466                         version, conn->c_cdn, conn->c_dn );
 467 #endif
 468
 469                         ldap_pvt_thread_mutex_unlock( &conn->c_mutex );
 470
 471                         /* send this here to avoid a race condition */
 472                         send_ldap_result( conn, op, LDAP_SUCCESS,
 473                                 NULL, NULL, NULL, NULL );
 474
 475                 } else if (edn != NULL) {
 476                         free( edn );
 477                 }
 478
 479         } else {
 480                 send_ldap_result( conn, op, rc = LDAP_UNWILLING_TO_PERFORM,
 481                         NULL, "operation not supported within namingContext", NULL, NULL );
 482         }
 483
 484 cleanup:
 485         if( dn != NULL ) {
 486                 free( dn );
 487         }
 488         if( ndn != NULL ) {
 489                 free( ndn );
 490         }
 491         if ( mech != NULL ) {
 492                 free( mech );
 493         }
 494         if ( cred.bv_val != NULL ) {
 495                 free( cred.bv_val );
 496         }
 497
 498         return rc;
 499 }