git.sur5r.net Git - openldap/blob - servers/slapd/back-ldap/config.c

   1 /* config.c - ldap backend configuration file routine */
   2 /* $OpenLDAP$ */
   3 /* This work is part of OpenLDAP Software <http://www.openldap.org/>.
   4  *
   5  * Copyright 2003-2008 The OpenLDAP Foundation.
   6  * Portions Copyright 1999-2003 Howard Chu.
   7  * Portions Copyright 2000-2003 Pierangelo Masarati.
   8  * All rights reserved.
   9  *
  10  * Redistribution and use in source and binary forms, with or without
  11  * modification, are permitted only as authorized by the OpenLDAP
  12  * Public License.
  13  *
  14  * A copy of this license is available in the file LICENSE in the
  15  * top-level directory of the distribution or, alternatively, at
  16  * <http://www.OpenLDAP.org/license.html>.
  17  */
  18 /* ACKNOWLEDGEMENTS:
  19  * This work was initially developed by the Howard Chu for inclusion
  20  * in OpenLDAP Software and subsequently enhanced by Pierangelo
  21  * Masarati.
  22  */
  23
  24 #include "portable.h"
  25
  26 #include <stdio.h>
  27
  28 #include <ac/string.h>
  29 #include <ac/ctype.h>
  30 #include <ac/socket.h>
  31
  32 #include "slap.h"
  33 #include "config.h"
  34 #include "back-ldap.h"
  35 #include "lutil.h"
  36 #include "ldif.h"
  37 #undef ldap_debug
  38 /* for advanced URL parsing */
  39 #include "../../../libraries/libldap/ldap-int.h"
  40
  41 static SLAP_EXTOP_MAIN_FN ldap_back_exop_whoami;
  42
  43 static ConfigDriver ldap_back_cf_gen;
  44
  45 enum {
  46         LDAP_BACK_CFG_URI = 1,
  47         LDAP_BACK_CFG_TLS,
  48         LDAP_BACK_CFG_ACL_AUTHCDN,
  49         LDAP_BACK_CFG_ACL_PASSWD,
  50         LDAP_BACK_CFG_ACL_METHOD,
  51         LDAP_BACK_CFG_ACL_BIND,
  52         LDAP_BACK_CFG_IDASSERT_MODE,
  53         LDAP_BACK_CFG_IDASSERT_AUTHCDN,
  54         LDAP_BACK_CFG_IDASSERT_PASSWD,
  55         LDAP_BACK_CFG_IDASSERT_AUTHZFROM,
  56         LDAP_BACK_CFG_IDASSERT_METHOD,
  57         LDAP_BACK_CFG_IDASSERT_BIND,
  58         LDAP_BACK_CFG_REBIND,
  59         LDAP_BACK_CFG_CHASE,
  60         LDAP_BACK_CFG_T_F,
  61         LDAP_BACK_CFG_WHOAMI,
  62         LDAP_BACK_CFG_TIMEOUT,
  63         LDAP_BACK_CFG_IDLE_TIMEOUT,
  64         LDAP_BACK_CFG_CONN_TTL,
  65         LDAP_BACK_CFG_NETWORK_TIMEOUT,
  66         LDAP_BACK_CFG_VERSION,
  67         LDAP_BACK_CFG_SINGLECONN,
  68         LDAP_BACK_CFG_USETEMP,
  69         LDAP_BACK_CFG_CONNPOOLMAX,
  70         LDAP_BACK_CFG_CANCEL,
  71         LDAP_BACK_CFG_QUARANTINE,
  72         LDAP_BACK_CFG_ST_REQUEST,
  73         LDAP_BACK_CFG_NOREFS,
  74         LDAP_BACK_CFG_NOUNDEFFILTER,
  75
  76         LDAP_BACK_CFG_REWRITE,
  77
  78         LDAP_BACK_CFG_LAST
  79 };
  80
  81 static ConfigTable ldapcfg[] = {
  82         { "uri", "uri", 2, 2, 0,
  83                 ARG_MAGIC|LDAP_BACK_CFG_URI,
  84                 ldap_back_cf_gen, "( OLcfgDbAt:0.14 "
  85                         "NAME 'olcDbURI' "
  86                         "DESC 'URI (list) for remote DSA' "
  87                         "SYNTAX OMsDirectoryString "
  88                         "SINGLE-VALUE )",
  89                 NULL, NULL },
  90         { "tls", "what", 2, 0, 0,
  91                 ARG_MAGIC|LDAP_BACK_CFG_TLS,
  92                 ldap_back_cf_gen, "( OLcfgDbAt:3.1 "
  93                         "NAME 'olcDbStartTLS' "
  94                         "DESC 'StartTLS' "
  95                         "SYNTAX OMsDirectoryString "
  96                         "SINGLE-VALUE )",
  97                 NULL, NULL },
  98         { "acl-authcDN", "DN", 2, 2, 0,
  99                 ARG_DN|ARG_MAGIC|LDAP_BACK_CFG_ACL_AUTHCDN,
 100                 ldap_back_cf_gen, "( OLcfgDbAt:3.2 "
 101                         "NAME 'olcDbACLAuthcDn' "
 102                         "DESC 'Remote ACL administrative identity' "
 103                         "OBSOLETE "
 104                         "SYNTAX OMsDN "
 105                         "SINGLE-VALUE )",
 106                 NULL, NULL },
 107         /* deprecated, will be removed; aliases "acl-authcDN" */
 108         { "binddn", "DN", 2, 2, 0,
 109                 ARG_DN|ARG_MAGIC|LDAP_BACK_CFG_ACL_AUTHCDN,
 110                 ldap_back_cf_gen, NULL, NULL, NULL },
 111         { "acl-passwd", "cred", 2, 2, 0,
 112                 ARG_MAGIC|LDAP_BACK_CFG_ACL_PASSWD,
 113                 ldap_back_cf_gen, "( OLcfgDbAt:3.3 "
 114                         "NAME 'olcDbACLPasswd' "
 115                         "DESC 'Remote ACL administrative identity credentials' "
 116                         "OBSOLETE "
 117                         "SYNTAX OMsDirectoryString "
 118                         "SINGLE-VALUE )",
 119                 NULL, NULL },
 120         /* deprecated, will be removed; aliases "acl-passwd" */
 121         { "bindpw", "cred", 2, 2, 0,
 122                 ARG_MAGIC|LDAP_BACK_CFG_ACL_PASSWD,
 123                 ldap_back_cf_gen, NULL, NULL, NULL },
 124         /* deprecated, will be removed; aliases "acl-bind" */
 125         { "acl-method", "args", 2, 0, 0,
 126                 ARG_MAGIC|LDAP_BACK_CFG_ACL_METHOD,
 127                 ldap_back_cf_gen, NULL, NULL, NULL },
 128         { "acl-bind", "args", 2, 0, 0,
 129                 ARG_MAGIC|LDAP_BACK_CFG_ACL_BIND,
 130                 ldap_back_cf_gen, "( OLcfgDbAt:3.4 "
 131                         "NAME 'olcDbACLBind' "
 132                         "DESC 'Remote ACL administrative identity auth bind configuration' "
 133                         "SYNTAX OMsDirectoryString "
 134                         "SINGLE-VALUE )",
 135                 NULL, NULL },
 136         { "idassert-authcDN", "DN", 2, 2, 0,
 137                 ARG_DN|ARG_MAGIC|LDAP_BACK_CFG_IDASSERT_AUTHCDN,
 138                 ldap_back_cf_gen, "( OLcfgDbAt:3.5 "
 139                         "NAME 'olcDbIDAssertAuthcDn' "
 140                         "DESC 'Remote Identity Assertion administrative identity' "
 141                         "OBSOLETE "
 142                         "SYNTAX OMsDN "
 143                         "SINGLE-VALUE )",
 144                 NULL, NULL },
 145         /* deprecated, will be removed; partially aliases "idassert-authcDN" */
 146         { "proxyauthzdn", "DN", 2, 2, 0,
 147                 ARG_DN|ARG_MAGIC|LDAP_BACK_CFG_IDASSERT_AUTHCDN,
 148                 ldap_back_cf_gen, NULL, NULL, NULL },
 149         { "idassert-passwd", "cred", 2, 2, 0,
 150                 ARG_MAGIC|LDAP_BACK_CFG_IDASSERT_PASSWD,
 151                 ldap_back_cf_gen, "( OLcfgDbAt:3.6 "
 152                         "NAME 'olcDbIDAssertPasswd' "
 153                         "DESC 'Remote Identity Assertion administrative identity credentials' "
 154                         "OBSOLETE "
 155                         "SYNTAX OMsDirectoryString "
 156                         "SINGLE-VALUE )",
 157                 NULL, NULL },
 158         /* deprecated, will be removed; partially aliases "idassert-passwd" */
 159         { "proxyauthzpw", "cred", 2, 2, 0,
 160                 ARG_MAGIC|LDAP_BACK_CFG_IDASSERT_PASSWD,
 161                 ldap_back_cf_gen, NULL, NULL, NULL },
 162         { "idassert-bind", "args", 2, 0, 0,
 163                 ARG_MAGIC|LDAP_BACK_CFG_IDASSERT_BIND,
 164                 ldap_back_cf_gen, "( OLcfgDbAt:3.7 "
 165                         "NAME 'olcDbIDAssertBind' "
 166                         "DESC 'Remote Identity Assertion administrative identity auth bind configuration' "
 167                         "SYNTAX OMsDirectoryString "
 168                         "SINGLE-VALUE )",
 169                 NULL, NULL },
 170         { "idassert-method", "args", 2, 0, 0,
 171                 ARG_MAGIC|LDAP_BACK_CFG_IDASSERT_METHOD,
 172                 ldap_back_cf_gen, NULL, NULL, NULL },
 173         { "idassert-mode", "mode>|u:<user>|[dn:]<DN", 2, 0, 0,
 174                 ARG_STRING|ARG_MAGIC|LDAP_BACK_CFG_IDASSERT_MODE,
 175                 ldap_back_cf_gen, "( OLcfgDbAt:3.8 "
 176                         "NAME 'olcDbIDAssertMode' "
 177                         "DESC 'Remote Identity Assertion mode' "
 178                         "OBSOLETE "
 179                         "SYNTAX OMsDirectoryString "
 180                         "SINGLE-VALUE)",
 181                 NULL, NULL },
 182         { "idassert-authzFrom", "authzRule", 2, 2, 0,
 183                 ARG_MAGIC|LDAP_BACK_CFG_IDASSERT_AUTHZFROM,
 184                 ldap_back_cf_gen, "( OLcfgDbAt:3.9 "
 185                         "NAME 'olcDbIDAssertAuthzFrom' "
 186                         "DESC 'Remote Identity Assertion authz rules' "
 187                         "SYNTAX OMsDirectoryString "
 188                         "X-ORDERED 'VALUES' )",
 189                 NULL, NULL },
 190         { "rebind-as-user", "true|FALSE", 1, 2, 0,
 191                 ARG_MAGIC|ARG_ON_OFF|LDAP_BACK_CFG_REBIND,
 192                 ldap_back_cf_gen, "( OLcfgDbAt:3.10 "
 193                         "NAME 'olcDbRebindAsUser' "
 194                         "DESC 'Rebind as user' "
 195                         "SYNTAX OMsBoolean "
 196                         "SINGLE-VALUE )",
 197                 NULL, NULL },
 198         { "chase-referrals", "true|FALSE", 2, 2, 0,
 199                 ARG_MAGIC|ARG_ON_OFF|LDAP_BACK_CFG_CHASE,
 200                 ldap_back_cf_gen, "( OLcfgDbAt:3.11 "
 201                         "NAME 'olcDbChaseReferrals' "
 202                         "DESC 'Chase referrals' "
 203                         "SYNTAX OMsBoolean "
 204                         "SINGLE-VALUE )",
 205                 NULL, NULL },
 206         { "t-f-support", "true|FALSE|discover", 2, 2, 0,
 207                 ARG_MAGIC|LDAP_BACK_CFG_T_F,
 208                 ldap_back_cf_gen, "( OLcfgDbAt:3.12 "
 209                         "NAME 'olcDbTFSupport' "
 210                         "DESC 'Absolute filters support' "
 211                         "SYNTAX OMsDirectoryString "
 212                         "SINGLE-VALUE )",
 213                 NULL, NULL },
 214         { "proxy-whoami", "true|FALSE", 1, 2, 0,
 215                 ARG_MAGIC|ARG_ON_OFF|LDAP_BACK_CFG_WHOAMI,
 216                 ldap_back_cf_gen, "( OLcfgDbAt:3.13 "
 217                         "NAME 'olcDbProxyWhoAmI' "
 218                         "DESC 'Proxy whoAmI exop' "
 219                         "SYNTAX OMsBoolean "
 220                         "SINGLE-VALUE )",
 221                 NULL, NULL },
 222         { "timeout", "timeout(list)", 2, 0, 0,
 223                 ARG_MAGIC|LDAP_BACK_CFG_TIMEOUT,
 224                 ldap_back_cf_gen, "( OLcfgDbAt:3.14 "
 225                         "NAME 'olcDbTimeout' "
 226                         "DESC 'Per-operation timeouts' "
 227                         "SYNTAX OMsDirectoryString "
 228                         "SINGLE-VALUE )",
 229                 NULL, NULL },
 230         { "idle-timeout", "timeout", 2, 2, 0,
 231                 ARG_MAGIC|LDAP_BACK_CFG_IDLE_TIMEOUT,
 232                 ldap_back_cf_gen, "( OLcfgDbAt:3.15 "
 233                         "NAME 'olcDbIdleTimeout' "
 234                         "DESC 'connection idle timeout' "
 235                         "SYNTAX OMsDirectoryString "
 236                         "SINGLE-VALUE )",
 237                 NULL, NULL },
 238         { "conn-ttl", "ttl", 2, 2, 0,
 239                 ARG_MAGIC|LDAP_BACK_CFG_CONN_TTL,
 240                 ldap_back_cf_gen, "( OLcfgDbAt:3.16 "
 241                         "NAME 'olcDbConnTtl' "
 242                         "DESC 'connection ttl' "
 243                         "SYNTAX OMsDirectoryString "
 244                         "SINGLE-VALUE )",
 245                 NULL, NULL },
 246         { "network-timeout", "timeout", 2, 2, 0,
 247                 ARG_MAGIC|LDAP_BACK_CFG_NETWORK_TIMEOUT,
 248                 ldap_back_cf_gen, "( OLcfgDbAt:3.17 "
 249                         "NAME 'olcDbNetworkTimeout' "
 250                         "DESC 'connection network timeout' "
 251                         "SYNTAX OMsDirectoryString "
 252                         "SINGLE-VALUE )",
 253                 NULL, NULL },
 254         { "protocol-version", "version", 2, 2, 0,
 255                 ARG_MAGIC|ARG_INT|LDAP_BACK_CFG_VERSION,
 256                 ldap_back_cf_gen, "( OLcfgDbAt:3.18 "
 257                         "NAME 'olcDbProtocolVersion' "
 258                         "DESC 'protocol version' "
 259                         "SYNTAX OMsInteger "
 260                         "SINGLE-VALUE )",
 261                 NULL, NULL },
 262         { "single-conn", "true|FALSE", 2, 2, 0,
 263                 ARG_MAGIC|ARG_ON_OFF|LDAP_BACK_CFG_SINGLECONN,
 264                 ldap_back_cf_gen, "( OLcfgDbAt:3.19 "
 265                         "NAME 'olcDbSingleConn' "
 266                         "DESC 'cache a single connection per identity' "
 267                         "SYNTAX OMsBoolean "
 268                         "SINGLE-VALUE )",
 269                 NULL, NULL },
 270         { "cancel", "ABANDON|ignore|exop", 2, 2, 0,
 271                 ARG_MAGIC|LDAP_BACK_CFG_CANCEL,
 272                 ldap_back_cf_gen, "( OLcfgDbAt:3.20 "
 273                         "NAME 'olcDbCancel' "
 274                         "DESC 'abandon/ignore/exop operations when appropriate' "
 275                         "SYNTAX OMsDirectoryString "
 276                         "SINGLE-VALUE )",
 277                 NULL, NULL },
 278         { "quarantine", "retrylist", 2, 2, 0,
 279                 ARG_MAGIC|LDAP_BACK_CFG_QUARANTINE,
 280                 ldap_back_cf_gen, "( OLcfgDbAt:3.21 "
 281                         "NAME 'olcDbQuarantine' "
 282                         "DESC 'Quarantine database if connection fails and retry according to rule' "
 283                         "SYNTAX OMsDirectoryString "
 284                         "SINGLE-VALUE )",
 285                 NULL, NULL },
 286         { "use-temporary-conn", "true|FALSE", 2, 2, 0,
 287                 ARG_MAGIC|ARG_ON_OFF|LDAP_BACK_CFG_USETEMP,
 288                 ldap_back_cf_gen, "( OLcfgDbAt:3.22 "
 289                         "NAME 'olcDbUseTemporaryConn' "
 290                         "DESC 'Use temporary connections if the cached one is busy' "
 291                         "SYNTAX OMsBoolean "
 292                         "SINGLE-VALUE )",
 293                 NULL, NULL },
 294         { "conn-pool-max", "<n>", 2, 2, 0,
 295                 ARG_MAGIC|ARG_INT|LDAP_BACK_CFG_CONNPOOLMAX,
 296                 ldap_back_cf_gen, "( OLcfgDbAt:3.23 "
 297                         "NAME 'olcDbConnectionPoolMax' "
 298                         "DESC 'Max size of privileged connections pool' "
 299                         "SYNTAX OMsInteger "
 300                         "SINGLE-VALUE )",
 301                 NULL, NULL },
 302 #ifdef SLAP_CONTROL_X_SESSION_TRACKING
 303         { "session-tracking-request", "true|FALSE", 2, 2, 0,
 304                 ARG_MAGIC|ARG_ON_OFF|LDAP_BACK_CFG_ST_REQUEST,
 305                 ldap_back_cf_gen, "( OLcfgDbAt:3.24 "
 306                         "NAME 'olcDbSessionTrackingRequest' "
 307                         "DESC 'Add session tracking control to proxied requests' "
 308                         "SYNTAX OMsBoolean "
 309                         "SINGLE-VALUE )",
 310                 NULL, NULL },
 311 #endif /* SLAP_CONTROL_X_SESSION_TRACKING */
 312         { "norefs", "true|FALSE", 2, 2, 0,
 313                 ARG_MAGIC|ARG_ON_OFF|LDAP_BACK_CFG_NOREFS,
 314                 ldap_back_cf_gen, "( OLcfgDbAt:3.25 "
 315                         "NAME 'olcDbNoRefs' "
 316                         "DESC 'Do not return search reference responses' "
 317                         "SYNTAX OMsBoolean "
 318                         "SINGLE-VALUE )",
 319                 NULL, NULL },
 320         { "noundeffilter", "true|FALSE", 2, 2, 0,
 321                 ARG_MAGIC|ARG_ON_OFF|LDAP_BACK_CFG_NOUNDEFFILTER,
 322                 ldap_back_cf_gen, "( OLcfgDbAt:3.26 "
 323                         "NAME 'olcDbNoUndefFilter' "
 324                         "DESC 'Do not propagate undefined search filters' "
 325                         "SYNTAX OMsBoolean "
 326                         "SINGLE-VALUE )",
 327                 NULL, NULL },
 328         { "suffixmassage", "[virtual]> <real", 2, 3, 0,
 329                 ARG_STRING|ARG_MAGIC|LDAP_BACK_CFG_REWRITE,
 330                 ldap_back_cf_gen, NULL, NULL, NULL },
 331         { "map", "attribute|objectClass> [*|<local>] *|<remote", 3, 4, 0,
 332                 ARG_STRING|ARG_MAGIC|LDAP_BACK_CFG_REWRITE,
 333                 ldap_back_cf_gen, NULL, NULL, NULL },
 334         { "rewrite", "<arglist>", 2, 4, STRLENOF( "rewrite" ),
 335                 ARG_STRING|ARG_MAGIC|LDAP_BACK_CFG_REWRITE,
 336                 ldap_back_cf_gen, NULL, NULL, NULL },
 337         { NULL, NULL, 0, 0, 0, ARG_IGNORED,
 338                 NULL, NULL, NULL, NULL }
 339 };
 340
 341 static ConfigOCs ldapocs[] = {
 342         { "( OLcfgDbOc:3.1 "
 343                 "NAME 'olcLDAPConfig' "
 344                 "DESC 'LDAP backend configuration' "
 345                 "SUP olcDatabaseConfig "
 346                 "MAY ( olcDbURI "
 347                         "$ olcDbStartTLS "
 348                         "$ olcDbACLAuthcDn "
 349                         "$ olcDbACLPasswd "
 350                         "$ olcDbACLBind "
 351                         "$ olcDbIDAssertAuthcDn "
 352                         "$ olcDbIDAssertPasswd "
 353                         "$ olcDbIDAssertBind "
 354                         "$ olcDbIDAssertMode "
 355                         "$ olcDbIDAssertAuthzFrom "
 356                         "$ olcDbRebindAsUser "
 357                         "$ olcDbChaseReferrals "
 358                         "$ olcDbTFSupport "
 359                         "$ olcDbProxyWhoAmI "
 360                         "$ olcDbTimeout "
 361                         "$ olcDbIdleTimeout "
 362                         "$ olcDbSingleConn "
 363                         "$ olcDbCancel "
 364                         "$ olcDbQuarantine "
 365                         "$ olcDbUseTemporaryConn "
 366                         "$ olcDbConnectionPoolMax "
 367 #ifdef SLAP_CONTROL_X_SESSION_TRACKING
 368                         "$ olcDbSessionTrackingRequest "
 369 #endif /* SLAP_CONTROL_X_SESSION_TRACKING */
 370                         "$ olcDbNoRefs "
 371                         "$ olcDbNoUndefFilter "
 372                 ") )",
 373                         Cft_Database, ldapcfg},
 374         { NULL, 0, NULL }
 375 };
 376
 377 static slap_verbmasks idassert_mode[] = {
 378         { BER_BVC("self"),              LDAP_BACK_IDASSERT_SELF },
 379         { BER_BVC("anonymous"),         LDAP_BACK_IDASSERT_ANONYMOUS },
 380         { BER_BVC("none"),              LDAP_BACK_IDASSERT_NOASSERT },
 381         { BER_BVC("legacy"),            LDAP_BACK_IDASSERT_LEGACY },
 382         { BER_BVNULL,                   0 }
 383 };
 384
 385 static slap_verbmasks tls_mode[] = {
 386         { BER_BVC( "propagate" ),       LDAP_BACK_F_TLS_PROPAGATE_MASK },
 387         { BER_BVC( "try-propagate" ),   LDAP_BACK_F_PROPAGATE_TLS },
 388         { BER_BVC( "start" ),           LDAP_BACK_F_TLS_USE_MASK },
 389         { BER_BVC( "try-start" ),       LDAP_BACK_F_USE_TLS },
 390         { BER_BVC( "ldaps" ),           LDAP_BACK_F_TLS_LDAPS },
 391         { BER_BVC( "none" ),            LDAP_BACK_F_NONE },
 392         { BER_BVNULL,                   0 }
 393 };
 394
 395 static slap_verbmasks t_f_mode[] = {
 396         { BER_BVC( "yes" ),             LDAP_BACK_F_T_F },
 397         { BER_BVC( "discover" ),        LDAP_BACK_F_T_F_DISCOVER },
 398         { BER_BVC( "no" ),              LDAP_BACK_F_NONE },
 399         { BER_BVNULL,                   0 }
 400 };
 401
 402 static slap_verbmasks cancel_mode[] = {
 403         { BER_BVC( "ignore" ),          LDAP_BACK_F_CANCEL_IGNORE },
 404         { BER_BVC( "exop" ),            LDAP_BACK_F_CANCEL_EXOP },
 405         { BER_BVC( "exop-discover" ),   LDAP_BACK_F_CANCEL_EXOP_DISCOVER },
 406         { BER_BVC( "abandon" ),         LDAP_BACK_F_CANCEL_ABANDON },
 407         { BER_BVNULL,                   0 }
 408 };
 409
 410 /* see enum in slap.h */
 411 static slap_cf_aux_table timeout_table[] = {
 412         { BER_BVC("bind="),     SLAP_OP_BIND * sizeof( time_t ),        'u', 0, NULL },
 413         /* unbind makes no sense */
 414         { BER_BVC("add="),      SLAP_OP_ADD * sizeof( time_t ),         'u', 0, NULL },
 415         { BER_BVC("delete="),   SLAP_OP_DELETE * sizeof( time_t ),      'u', 0, NULL },
 416         { BER_BVC("modrdn="),   SLAP_OP_MODRDN * sizeof( time_t ),      'u', 0, NULL },
 417         { BER_BVC("modify="),   SLAP_OP_MODIFY * sizeof( time_t ),      'u', 0, NULL },
 418         { BER_BVC("compare="),  SLAP_OP_COMPARE * sizeof( time_t ),     'u', 0, NULL },
 419         { BER_BVC("search="),   SLAP_OP_SEARCH * sizeof( time_t ),      'u', 0, NULL },
 420         /* abandon makes little sense */
 421 #if 0   /* not implemented yet */
 422         { BER_BVC("extended="), SLAP_OP_EXTENDED * sizeof( time_t ),    'u', 0, NULL },
 423 #endif
 424         { BER_BVNULL, 0, 0, 0, NULL }
 425 };
 426
 427 int
 428 slap_retry_info_parse(
 429         char                    *in,
 430         slap_retry_info_t       *ri,
 431         char                    *buf,
 432         ber_len_t               buflen )
 433 {
 434         char                    **retrylist = NULL;
 435         int                     rc = 0;
 436         int                     i;
 437
 438         slap_str2clist( &retrylist, in, " ;" );
 439         if ( retrylist == NULL ) {
 440                 return 1;
 441         }
 442
 443         for ( i = 0; retrylist[ i ] != NULL; i++ )
 444                 /* count */ ;
 445
 446         ri->ri_interval = ch_calloc( sizeof( time_t ), i + 1 );
 447         ri->ri_num = ch_calloc( sizeof( int ), i + 1 );
 448
 449         for ( i = 0; retrylist[ i ] != NULL; i++ ) {
 450                 unsigned long   t;
 451                 char            *sep = strchr( retrylist[ i ], ',' );
 452
 453                 if ( sep == NULL ) {
 454                         snprintf( buf, buflen,
 455                                 "missing comma in retry pattern #%d \"%s\"",
 456                                 i, retrylist[ i ] );
 457                         rc = 1;
 458                         goto done;
 459                 }
 460
 461                 *sep++ = '\0';
 462
 463                 if ( lutil_parse_time( retrylist[ i ], &t ) ) {
 464                         snprintf( buf, buflen,
 465                                 "unable to parse interval #%d \"%s\"",
 466                                 i, retrylist[ i ] );
 467                         rc = 1;
 468                         goto done;
 469                 }
 470                 ri->ri_interval[ i ] = (time_t)t;
 471
 472                 if ( strcmp( sep, "+" ) == 0 ) {
 473                         if ( retrylist[ i + 1 ] != NULL ) {
 474                                 snprintf( buf, buflen,
 475                                         "extra cruft after retry pattern "
 476                                         "#%d \"%s,+\" with \"forever\" mark",
 477                                         i, retrylist[ i ] );
 478                                 rc = 1;
 479                                 goto done;
 480                         }
 481                         ri->ri_num[ i ] = SLAP_RETRYNUM_FOREVER;
 482
 483                 } else if ( lutil_atoi( &ri->ri_num[ i ], sep ) ) {
 484                         snprintf( buf, buflen,
 485                                 "unable to parse retry num #%d \"%s\"",
 486                                 i, sep );
 487                         rc = 1;
 488                         goto done;
 489                 }
 490         }
 491
 492         ri->ri_num[ i ] = SLAP_RETRYNUM_TAIL;
 493
 494         ri->ri_idx = 0;
 495         ri->ri_count = 0;
 496         ri->ri_last = (time_t)(-1);
 497
 498 done:;
 499         ldap_charray_free( retrylist );
 500
 501         if ( rc ) {
 502                 slap_retry_info_destroy( ri );
 503         }
 504
 505         return rc;
 506 }
 507
 508 int
 509 slap_retry_info_unparse(
 510         slap_retry_info_t       *ri,
 511         struct berval           *bvout )
 512 {
 513         char            buf[ BUFSIZ * 2 ],
 514                         *ptr = buf;
 515         int             i, len, restlen = (int) sizeof( buf );
 516         struct berval   bv;
 517
 518         assert( ri != NULL );
 519         assert( bvout != NULL );
 520
 521         BER_BVZERO( bvout );
 522
 523         for ( i = 0; ri->ri_num[ i ] != SLAP_RETRYNUM_TAIL; i++ ) {
 524                 if ( i > 0 ) {
 525                         if ( --restlen <= 0 ) {
 526                                 return 1;
 527                         }
 528                         *ptr++ = ';';
 529                 }
 530
 531                 if ( lutil_unparse_time( ptr, restlen, ri->ri_interval[i] ) < 0 ) {
 532                         return 1;
 533                 }
 534                 len = (int) strlen( ptr );
 535                 if ( (restlen -= len + 1) <= 0 ) {
 536                         return 1;
 537                 }
 538                 ptr += len;
 539                 *ptr++ = ',';
 540
 541                 if ( ri->ri_num[i] == SLAP_RETRYNUM_FOREVER ) {
 542                         if ( --restlen <= 0 ) {
 543                                 return 1;
 544                         }
 545                         *ptr++ = '+';
 546
 547                 } else {
 548                         len = snprintf( ptr, restlen, "%d", ri->ri_num[i] );
 549                         if ( (restlen -= len) <= 0 || len < 0 ) {
 550                                 return 1;
 551                         }
 552                         ptr += len;
 553                 }
 554         }
 555
 556         bv.bv_val = buf;
 557         bv.bv_len = ptr - buf;
 558         ber_dupbv( bvout, &bv );
 559
 560         return 0;
 561 }
 562
 563 void
 564 slap_retry_info_destroy(
 565         slap_retry_info_t       *ri )
 566 {
 567         assert( ri != NULL );
 568
 569         assert( ri->ri_interval != NULL );
 570         ch_free( ri->ri_interval );
 571         ri->ri_interval = NULL;
 572
 573         assert( ri->ri_num != NULL );
 574         ch_free( ri->ri_num );
 575         ri->ri_num = NULL;
 576 }
 577
 578 static int
 579 slap_idassert_authzfrom_parse( ConfigArgs *c, slap_idassert_t *si )
 580 {
 581         struct berval   bv;
 582         struct berval   in;
 583         int             rc;
 584
 585         if ( strcmp( c->argv[ 1 ], "*" ) == 0
 586                 || strcmp( c->argv[ 1 ], "dn:*" ) == 0
 587                 || strcasecmp( c->argv[ 1 ], "dn.regex:.*" ) == 0 )
 588         {
 589                 if ( si->si_authz != NULL ) {
 590                         snprintf( c->cr_msg, sizeof( c->cr_msg ),
 591                                 "\"idassert-authzFrom <authz>\": "
 592                                 "\"%s\" conflicts with existing authz rules",
 593                                 c->argv[ 1 ] );
 594                         Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
 595                         return 1;
 596                 }
 597
 598                 si->si_flags |= LDAP_BACK_AUTH_AUTHZ_ALL;
 599
 600                 return 0;
 601
 602         } else if ( ( si->si_flags & LDAP_BACK_AUTH_AUTHZ_ALL ) ) {
 603                 snprintf( c->cr_msg, sizeof( c->cr_msg ),
 604                         "\"idassert-authzFrom <authz>\": "
 605                         "\"<authz>\" conflicts with \"*\"" );
 606                 Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
 607                 return 1;
 608         }
 609
 610         ber_str2bv( c->argv[ 1 ], 0, 0, &in );
 611         rc = authzNormalize( 0, NULL, NULL, &in, &bv, NULL );
 612         if ( rc != LDAP_SUCCESS ) {
 613                 snprintf( c->cr_msg, sizeof( c->cr_msg ),
 614                         "\"idassert-authzFrom <authz>\": "
 615                         "invalid syntax" );
 616                 Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
 617                 return 1;
 618         }
 619
 620         ber_bvarray_add( &si->si_authz, &bv );
 621
 622         return 0;
 623 }
 624
 625 static int
 626 slap_idassert_parse( ConfigArgs *c, slap_idassert_t *si )
 627 {
 628         int             i;
 629
 630         for ( i = 1; i < c->argc; i++ ) {
 631                 if ( strncasecmp( c->argv[ i ], "mode=", STRLENOF( "mode=" ) ) == 0 ) {
 632                         char    *argvi = c->argv[ i ] + STRLENOF( "mode=" );
 633                         int     j;
 634
 635                         j = verb_to_mask( argvi, idassert_mode );
 636                         if ( BER_BVISNULL( &idassert_mode[ j ].word ) ) {
 637                                 snprintf( c->cr_msg, sizeof( c->cr_msg ),
 638                                         "\"idassert-bind <args>\": "
 639                                         "unknown mode \"%s\"",
 640                                         argvi );
 641                                 Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
 642                                 return 1;
 643                         }
 644
 645                         si->si_mode = idassert_mode[ j ].mask;
 646
 647                 } else if ( strncasecmp( c->argv[ i ], "authz=", STRLENOF( "authz=" ) ) == 0 ) {
 648                         char    *argvi = c->argv[ i ] + STRLENOF( "authz=" );
 649
 650                         if ( strcasecmp( argvi, "native" ) == 0 ) {
 651                                 if ( si->si_bc.sb_method != LDAP_AUTH_SASL ) {
 652                                         snprintf( c->cr_msg, sizeof( c->cr_msg ),
 653                                                 "\"idassert-bind <args>\": "
 654                                                 "authz=\"native\" incompatible "
 655                                                 "with auth method" );
 656                                         Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
 657                                         return 1;
 658                                 }
 659                                 si->si_flags |= LDAP_BACK_AUTH_NATIVE_AUTHZ;
 660
 661                         } else if ( strcasecmp( argvi, "proxyAuthz" ) == 0 ) {
 662                                 si->si_flags &= ~LDAP_BACK_AUTH_NATIVE_AUTHZ;
 663
 664                         } else {
 665                                 snprintf( c->cr_msg, sizeof( c->cr_msg ),
 666                                         "\"idassert-bind <args>\": "
 667                                         "unknown authz \"%s\"",
 668                                         argvi );
 669                                 Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
 670                                 return 1;
 671                         }
 672
 673                 } else if ( strncasecmp( c->argv[ i ], "flags=", STRLENOF( "flags=" ) ) == 0 ) {
 674                         char    *argvi = c->argv[ i ] + STRLENOF( "flags=" );
 675                         char    **flags = ldap_str2charray( argvi, "," );
 676                         int     j, err = 0;
 677
 678                         if ( flags == NULL ) {
 679                                 snprintf( c->cr_msg, sizeof( c->cr_msg ),
 680                                         "\"idassert-bind <args>\": "
 681                                         "unable to parse flags \"%s\"",
 682                                         argvi );
 683                                 Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
 684                                 return 1;
 685                         }
 686
 687                         for ( j = 0; flags[ j ] != NULL; j++ ) {
 688
 689                                 if ( strcasecmp( flags[ j ], "override" ) == 0 ) {
 690                                         si->si_flags |= LDAP_BACK_AUTH_OVERRIDE;
 691
 692                                 } else if ( strcasecmp( flags[ j ], "prescriptive" ) == 0 ) {
 693                                         si->si_flags |= LDAP_BACK_AUTH_PRESCRIPTIVE;
 694
 695                                 } else if ( strcasecmp( flags[ j ], "non-prescriptive" ) == 0 ) {
 696                                         si->si_flags &= ( ~LDAP_BACK_AUTH_PRESCRIPTIVE );
 697
 698                                 } else if ( strcasecmp( flags[ j ], "obsolete-proxy-authz" ) == 0 ) {
 699                                         if ( si->si_flags & LDAP_BACK_AUTH_OBSOLETE_ENCODING_WORKAROUND ) {
 700                                                 Debug( LDAP_DEBUG_ANY,
 701                                                                 "%s: \"obsolete-proxy-authz\" flag "
 702                                                                 "in \"idassert-mode <args>\" "
 703                                                                 "incompatible with previously issued \"obsolete-encoding-workaround\" flag.\n",
 704                                                                 c->log, 0, 0 );
 705                                                 err = 1;
 706                                                 break;
 707
 708                                         } else {
 709                                                 si->si_flags |= LDAP_BACK_AUTH_OBSOLETE_PROXY_AUTHZ;
 710                                         }
 711
 712                                 } else if ( strcasecmp( flags[ j ], "obsolete-encoding-workaround" ) == 0 ) {
 713                                         if ( si->si_flags & LDAP_BACK_AUTH_OBSOLETE_PROXY_AUTHZ ) {
 714                                                 Debug( LDAP_DEBUG_ANY,
 715                                                                 "%s: \"obsolete-encoding-workaround\" flag "
 716                                                         "in \"idassert-mode <args>\" "
 717                                                         "incompatible with previously issued \"obsolete-proxy-authz\" flag.\n",
 718                                                         c->log, 0, 0 );
 719                                                 err = 1;
 720                                                 break;
 721
 722                                         } else {
 723                                                 si->si_flags |= LDAP_BACK_AUTH_OBSOLETE_ENCODING_WORKAROUND;
 724                                         }
 725
 726                                 } else {
 727                                         snprintf( c->cr_msg, sizeof( c->cr_msg ),
 728                                                 "\"idassert-bind <args>\": "
 729                                                 "unknown flag \"%s\"",
 730                                                 flags[ j ] );
 731                                         Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
 732                                         err = 1;
 733                                         break;
 734                                 }
 735                         }
 736
 737                         ldap_charray_free( flags );
 738                         if ( err ) {
 739                                 return 1;
 740                         }
 741
 742                 } else if ( bindconf_parse( c->argv[ i ], &si->si_bc ) ) {
 743                         return 1;
 744                 }
 745         }
 746         bindconf_tls_defaults( &si->si_bc );
 747
 748         return 0;
 749 }
 750
 751 /* NOTE: temporary, until back-meta is ported to back-config */
 752 int
 753 slap_idassert_authzfrom_parse_cf( const char *fname, int lineno, const char *arg, slap_idassert_t *si )
 754 {
 755         ConfigArgs      c = { 0 };
 756         char            *argv[ 3 ];
 757
 758         snprintf( c.log, sizeof( c.log ), "%s: line %d", fname, lineno );
 759         c.argc = 2;
 760         c.argv = argv;
 761         argv[ 0 ] = "idassert-authzFrom";
 762         argv[ 1 ] = (char *)arg;
 763         argv[ 2 ] = NULL;
 764
 765         return slap_idassert_authzfrom_parse( &c, si );
 766 }
 767
 768 int
 769 slap_idassert_parse_cf( const char *fname, int lineno, int argc, char *argv[], slap_idassert_t *si )
 770 {
 771         ConfigArgs      c = { 0 };
 772
 773         snprintf( c.log, sizeof( c.log ), "%s: line %d", fname, lineno );
 774         c.argc = argc;
 775         c.argv = argv;
 776
 777         return slap_idassert_parse( &c, si );
 778 }
 779
 780 static int
 781 ldap_back_cf_gen( ConfigArgs *c )
 782 {
 783         ldapinfo_t      *li = ( ldapinfo_t * )c->be->be_private;
 784         int             rc = 0;
 785         int             i;
 786
 787         if ( c->op == SLAP_CONFIG_EMIT ) {
 788                 struct berval   bv = BER_BVNULL;
 789
 790                 if ( li == NULL ) {
 791                         return 1;
 792                 }
 793
 794                 switch( c->type ) {
 795                 case LDAP_BACK_CFG_URI:
 796                         if ( li->li_uri != NULL ) {
 797                                 struct berval   bv, bv2;
 798
 799                                 ber_str2bv( li->li_uri, 0, 0, &bv );
 800                                 bv2.bv_len = bv.bv_len + STRLENOF( "\"\"" );
 801                                 bv2.bv_val = ch_malloc( bv2.bv_len + 1 );
 802                                 snprintf( bv2.bv_val, bv2.bv_len + 1,
 803                                         "\"%s\"", bv.bv_val );
 804                                 ber_bvarray_add( &c->rvalue_vals, &bv2 );
 805
 806                         } else {
 807                                 rc = 1;
 808                         }
 809                         break;
 810
 811                 case LDAP_BACK_CFG_TLS: {
 812                         struct berval bc = BER_BVNULL, bv2;
 813                         enum_to_verb( tls_mode, ( li->li_flags & LDAP_BACK_F_TLS_MASK ), &bv );
 814                         assert( !BER_BVISNULL( &bv ) );
 815                         bindconf_tls_unparse( &li->li_tls, &bc );
 816
 817                         if ( !BER_BVISEMPTY( &bc )) {
 818                                 bv2.bv_len = bv.bv_len + bc.bv_len + 1;
 819                                 bv2.bv_val = ch_malloc( bv2.bv_len + 1 );
 820                                 strcpy( bv2.bv_val, bv.bv_val );
 821                                 bv2.bv_val[bv.bv_len] = ' ';
 822                                 strcpy( &bv2.bv_val[bv.bv_len + 1], bc.bv_val );
 823                                 ber_bvarray_add( &c->rvalue_vals, &bv2 );
 824
 825                         } else {
 826                                 value_add_one( &c->rvalue_vals, &bv );
 827                         }
 828                         ber_memfree( bc.bv_val );
 829                         }
 830                         break;
 831
 832                 case LDAP_BACK_CFG_ACL_AUTHCDN:
 833                 case LDAP_BACK_CFG_ACL_PASSWD:
 834                 case LDAP_BACK_CFG_ACL_METHOD:
 835                         /* handled by LDAP_BACK_CFG_ACL_BIND */
 836                         rc = 1;
 837                         break;
 838
 839                 case LDAP_BACK_CFG_ACL_BIND: {
 840                         int     i;
 841
 842                         if ( li->li_acl_authmethod == LDAP_AUTH_NONE ) {
 843                                 return 1;
 844                         }
 845
 846                         bindconf_unparse( &li->li_acl, &bv );
 847
 848                         for ( i = 0; isspace( (unsigned char) bv.bv_val[ i ] ); i++ )
 849                                 /* count spaces */ ;
 850
 851                         if ( i ) {
 852                                 bv.bv_len -= i;
 853                                 AC_MEMCPY( bv.bv_val, &bv.bv_val[ i ],
 854                                         bv.bv_len + 1 );
 855                         }
 856
 857                         ber_bvarray_add( &c->rvalue_vals, &bv );
 858                         break;
 859                 }
 860
 861                 case LDAP_BACK_CFG_IDASSERT_MODE:
 862                 case LDAP_BACK_CFG_IDASSERT_AUTHCDN:
 863                 case LDAP_BACK_CFG_IDASSERT_PASSWD:
 864                 case LDAP_BACK_CFG_IDASSERT_METHOD:
 865                         /* handled by LDAP_BACK_CFG_IDASSERT_BIND */
 866                         rc = 1;
 867                         break;
 868
 869                 case LDAP_BACK_CFG_IDASSERT_AUTHZFROM: {
 870                         int             i;
 871
 872                         if ( li->li_idassert_authz == NULL ) {
 873                                 if ( ( li->li_idassert_flags & LDAP_BACK_AUTH_AUTHZ_ALL ) ) {
 874                                         BER_BVSTR( &bv, "*" );
 875                                         value_add_one( &c->rvalue_vals, &bv );
 876
 877                                 } else {
 878                                         rc = 1;
 879                                 }
 880                                 break;
 881                         }
 882
 883                         for ( i = 0; !BER_BVISNULL( &li->li_idassert_authz[ i ] ); i++ )
 884                         {
 885                                 value_add_one( &c->rvalue_vals, &li->li_idassert_authz[ i ] );
 886                         }
 887                         break;
 888                 }
 889
 890                 case LDAP_BACK_CFG_IDASSERT_BIND: {
 891                         int             i;
 892                         struct berval   bc = BER_BVNULL;
 893                         char            *ptr;
 894
 895                         if ( li->li_idassert_authmethod == LDAP_AUTH_NONE ) {
 896                                 return 1;
 897                         }
 898
 899                         if ( li->li_idassert_authmethod != LDAP_AUTH_NONE ) {
 900                                 ber_len_t       len;
 901
 902                                 switch ( li->li_idassert_mode ) {
 903                                 case LDAP_BACK_IDASSERT_OTHERID:
 904                                 case LDAP_BACK_IDASSERT_OTHERDN:
 905                                         break;
 906
 907                                 default: {
 908                                         struct berval   mode = BER_BVNULL;
 909
 910                                         enum_to_verb( idassert_mode, li->li_idassert_mode, &mode );
 911                                         if ( BER_BVISNULL( &mode ) ) {
 912                                                 /* there's something wrong... */
 913                                                 assert( 0 );
 914                                                 rc = 1;
 915
 916                                         } else {
 917                                                 bv.bv_len = STRLENOF( "mode=" ) + mode.bv_len;
 918                                                 bv.bv_val = ch_malloc( bv.bv_len + 1 );
 919
 920                                                 ptr = lutil_strcopy( bv.bv_val, "mode=" );
 921                                                 ptr = lutil_strcopy( ptr, mode.bv_val );
 922                                         }
 923                                         break;
 924                                 }
 925                                 }
 926
 927                                 if ( li->li_idassert_flags & LDAP_BACK_AUTH_NATIVE_AUTHZ ) {
 928                                         len = bv.bv_len + STRLENOF( "authz=native" );
 929
 930                                         if ( !BER_BVISEMPTY( &bv ) ) {
 931                                                 len += STRLENOF( " " );
 932                                         }
 933
 934                                         bv.bv_val = ch_realloc( bv.bv_val, len + 1 );
 935
 936                                         ptr = &bv.bv_val[ bv.bv_len ];
 937
 938                                         if ( !BER_BVISEMPTY( &bv ) ) {
 939                                                 ptr = lutil_strcopy( ptr, " " );
 940                                         }
 941
 942                                         (void)lutil_strcopy( ptr, "authz=native" );
 943                                 }
 944
 945                                 len = bv.bv_len + STRLENOF( "flags=non-prescriptive,override,obsolete-encoding-workaround" );
 946                                 /* flags */
 947                                 if ( !BER_BVISEMPTY( &bv ) ) {
 948                                         len += STRLENOF( " " );
 949                                 }
 950
 951                                 bv.bv_val = ch_realloc( bv.bv_val, len + 1 );
 952
 953                                 ptr = &bv.bv_val[ bv.bv_len ];
 954
 955                                 if ( !BER_BVISEMPTY( &bv ) ) {
 956                                         ptr = lutil_strcopy( ptr, " " );
 957                                 }
 958
 959                                 ptr = lutil_strcopy( ptr, "flags=" );
 960
 961                                 if ( li->li_idassert_flags & LDAP_BACK_AUTH_PRESCRIPTIVE ) {
 962                                         ptr = lutil_strcopy( ptr, "prescriptive" );
 963                                 } else {
 964                                         ptr = lutil_strcopy( ptr, "non-prescriptive" );
 965                                 }
 966
 967                                 if ( li->li_idassert_flags & LDAP_BACK_AUTH_OVERRIDE ) {
 968                                         ptr = lutil_strcopy( ptr, ",override" );
 969                                 }
 970
 971                                 if ( li->li_idassert_flags & LDAP_BACK_AUTH_OBSOLETE_PROXY_AUTHZ ) {
 972                                         ptr = lutil_strcopy( ptr, ",obsolete-proxy-authz" );
 973
 974                                 } else if ( li->li_idassert_flags & LDAP_BACK_AUTH_OBSOLETE_ENCODING_WORKAROUND ) {
 975                                         ptr = lutil_strcopy( ptr, ",obsolete-encoding-workaround" );
 976                                 }
 977
 978                                 bv.bv_len = ( ptr - bv.bv_val );
 979                                 /* end-of-flags */
 980                         }
 981
 982                         bindconf_unparse( &li->li_idassert.si_bc, &bc );
 983
 984                         if ( !BER_BVISNULL( &bv ) ) {
 985                                 ber_len_t       len = bv.bv_len + bc.bv_len;
 986
 987                                 bv.bv_val = ch_realloc( bv.bv_val, len + 1 );
 988
 989                                 assert( bc.bv_val[ 0 ] == ' ' );
 990
 991                                 ptr = lutil_strcopy( &bv.bv_val[ bv.bv_len ], bc.bv_val );
 992                                 free( bc.bv_val );
 993                                 bv.bv_len = ptr - bv.bv_val;
 994
 995                         } else {
 996                                 for ( i = 0; isspace( (unsigned char) bc.bv_val[ i ] ); i++ )
 997                                         /* count spaces */ ;
 998
 999                                 if ( i ) {
1000                                         bc.bv_len -= i;
1001                                         AC_MEMCPY( bc.bv_val, &bc.bv_val[ i ], bc.bv_len + 1 );
1002                                 }
1003
1004                                 bv = bc;
1005                         }
1006
1007                         ber_bvarray_add( &c->rvalue_vals, &bv );
1008
1009                         break;
1010                 }
1011
1012                 case LDAP_BACK_CFG_REBIND:
1013                         c->value_int = LDAP_BACK_SAVECRED( li );
1014                         break;
1015
1016                 case LDAP_BACK_CFG_CHASE:
1017                         c->value_int = LDAP_BACK_CHASE_REFERRALS( li );
1018                         break;
1019
1020                 case LDAP_BACK_CFG_T_F:
1021                         enum_to_verb( t_f_mode, (li->li_flags & LDAP_BACK_F_T_F_MASK2), &bv );
1022                         if ( BER_BVISNULL( &bv ) ) {
1023                                 /* there's something wrong... */
1024                                 assert( 0 );
1025                                 rc = 1;
1026
1027                         } else {
1028                                 value_add_one( &c->rvalue_vals, &bv );
1029                         }
1030                         break;
1031
1032                 case LDAP_BACK_CFG_WHOAMI:
1033                         c->value_int = LDAP_BACK_PROXY_WHOAMI( li );
1034                         break;
1035
1036                 case LDAP_BACK_CFG_TIMEOUT:
1037                         BER_BVZERO( &bv );
1038
1039                         for ( i = 0; i < SLAP_OP_LAST; i++ ) {
1040                                 if ( li->li_timeout[ i ] != 0 ) {
1041                                         break;
1042                                 }
1043                         }
1044
1045                         if ( i == SLAP_OP_LAST ) {
1046                                 return 1;
1047                         }
1048
1049                         slap_cf_aux_table_unparse( li->li_timeout, &bv, timeout_table );
1050
1051                         if ( BER_BVISNULL( &bv ) ) {
1052                                 return 1;
1053                         }
1054
1055                         for ( i = 0; isspace( (unsigned char) bv.bv_val[ i ] ); i++ )
1056                                 /* count spaces */ ;
1057
1058                         if ( i ) {
1059                                 bv.bv_len -= i;
1060                                 AC_MEMCPY( bv.bv_val, &bv.bv_val[ i ],
1061                                         bv.bv_len + 1 );
1062                         }
1063
1064                         ber_bvarray_add( &c->rvalue_vals, &bv );
1065                         break;
1066
1067                 case LDAP_BACK_CFG_IDLE_TIMEOUT: {
1068                         char    buf[ SLAP_TEXT_BUFLEN ];
1069
1070                         if ( li->li_idle_timeout == 0 ) {
1071                                 return 1;
1072                         }
1073
1074                         lutil_unparse_time( buf, sizeof( buf ), li->li_idle_timeout );
1075                         ber_str2bv( buf, 0, 0, &bv );
1076                         value_add_one( &c->rvalue_vals, &bv );
1077                         } break;
1078
1079                 case LDAP_BACK_CFG_CONN_TTL: {
1080                         char    buf[ SLAP_TEXT_BUFLEN ];
1081
1082                         if ( li->li_conn_ttl == 0 ) {
1083                                 return 1;
1084                         }
1085
1086                         lutil_unparse_time( buf, sizeof( buf ), li->li_conn_ttl );
1087                         ber_str2bv( buf, 0, 0, &bv );
1088                         value_add_one( &c->rvalue_vals, &bv );
1089                         } break;
1090
1091                 case LDAP_BACK_CFG_NETWORK_TIMEOUT: {
1092                         char    buf[ SLAP_TEXT_BUFLEN ];
1093
1094                         if ( li->li_network_timeout == 0 ) {
1095                                 return 1;
1096                         }
1097
1098                         snprintf( buf, sizeof( buf ), "%ld",
1099                                 (long)li->li_network_timeout );
1100                         ber_str2bv( buf, 0, 0, &bv );
1101                         value_add_one( &c->rvalue_vals, &bv );
1102                         } break;
1103
1104                 case LDAP_BACK_CFG_VERSION:
1105                         if ( li->li_version == 0 ) {
1106                                 return 1;
1107                         }
1108
1109                         c->value_int = li->li_version;
1110                         break;
1111
1112                 case LDAP_BACK_CFG_SINGLECONN:
1113                         c->value_int = LDAP_BACK_SINGLECONN( li );
1114                         break;
1115
1116                 case LDAP_BACK_CFG_USETEMP:
1117                         c->value_int = LDAP_BACK_USE_TEMPORARIES( li );
1118                         break;
1119
1120                 case LDAP_BACK_CFG_CONNPOOLMAX:
1121                         c->value_int = li->li_conn_priv_max;
1122                         break;
1123
1124                 case LDAP_BACK_CFG_CANCEL: {
1125                         slap_mask_t     mask = LDAP_BACK_F_CANCEL_MASK2;
1126
1127                         if ( LDAP_BACK_CANCEL_DISCOVER( li ) ) {
1128                                 mask &= ~LDAP_BACK_F_CANCEL_EXOP;
1129                         }
1130                         enum_to_verb( cancel_mode, (li->li_flags & mask), &bv );
1131                         if ( BER_BVISNULL( &bv ) ) {
1132                                 /* there's something wrong... */
1133                                 assert( 0 );
1134                                 rc = 1;
1135
1136                         } else {
1137                                 value_add_one( &c->rvalue_vals, &bv );
1138                         }
1139                         } break;
1140
1141                 case LDAP_BACK_CFG_QUARANTINE:
1142                         if ( !LDAP_BACK_QUARANTINE( li ) ) {
1143                                 rc = 1;
1144                                 break;
1145                         }
1146
1147                         rc = slap_retry_info_unparse( &li->li_quarantine, &bv );
1148                         if ( rc == 0 ) {
1149                                 ber_bvarray_add( &c->rvalue_vals, &bv );
1150                         }
1151                         break;
1152
1153 #ifdef SLAP_CONTROL_X_SESSION_TRACKING
1154                 case LDAP_BACK_CFG_ST_REQUEST:
1155                         c->value_int = LDAP_BACK_ST_REQUEST( li );
1156                         break;
1157 #endif /* SLAP_CONTROL_X_SESSION_TRACKING */
1158
1159                 case LDAP_BACK_CFG_NOREFS:
1160                         c->value_int = LDAP_BACK_NOREFS( li );
1161                         break;
1162
1163                 case LDAP_BACK_CFG_NOUNDEFFILTER:
1164                         c->value_int = LDAP_BACK_NOUNDEFFILTER( li );
1165                         break;
1166
1167                 default:
1168                         /* FIXME: we need to handle all... */
1169                         assert( 0 );
1170                         break;
1171                 }
1172                 return rc;
1173
1174         } else if ( c->op == LDAP_MOD_DELETE ) {
1175                 switch( c->type ) {
1176                 case LDAP_BACK_CFG_URI:
1177                         if ( li->li_uri != NULL ) {
1178                                 ch_free( li->li_uri );
1179                                 li->li_uri = NULL;
1180
1181                                 assert( li->li_bvuri != NULL );
1182                                 ber_bvarray_free( li->li_bvuri );
1183                                 li->li_bvuri = NULL;
1184                         }
1185
1186                         /* better cleanup the cached connections... */
1187                         /* NOTE: don't worry about locking: if we got here,
1188                          * other threads are suspended. */
1189                         if ( li->li_conninfo.lai_tree != NULL ) {
1190                                 avl_free( li->li_conninfo.lai_tree, ldap_back_conn_free );
1191                                 li->li_conninfo.lai_tree = NULL;
1192                         }
1193
1194                         break;
1195
1196                 case LDAP_BACK_CFG_TLS:
1197                         rc = 1;
1198                         break;
1199
1200                 case LDAP_BACK_CFG_ACL_AUTHCDN:
1201                 case LDAP_BACK_CFG_ACL_PASSWD:
1202                 case LDAP_BACK_CFG_ACL_METHOD:
1203                         /* handled by LDAP_BACK_CFG_ACL_BIND */
1204                         rc = 1;
1205                         break;
1206
1207                 case LDAP_BACK_CFG_ACL_BIND:
1208                         bindconf_free( &li->li_acl );
1209                         break;
1210
1211                 case LDAP_BACK_CFG_IDASSERT_MODE:
1212                 case LDAP_BACK_CFG_IDASSERT_AUTHCDN:
1213                 case LDAP_BACK_CFG_IDASSERT_PASSWD:
1214                 case LDAP_BACK_CFG_IDASSERT_METHOD:
1215                         /* handled by LDAP_BACK_CFG_IDASSERT_BIND */
1216                         rc = 1;
1217                         break;
1218
1219                 case LDAP_BACK_CFG_IDASSERT_AUTHZFROM:
1220                         if ( li->li_idassert_authz != NULL ) {
1221                                 ber_bvarray_free( li->li_idassert_authz );
1222                                 li->li_idassert_authz = NULL;
1223                         }
1224                         break;
1225
1226                 case LDAP_BACK_CFG_IDASSERT_BIND:
1227                         bindconf_free( &li->li_idassert.si_bc );
1228                         break;
1229
1230                 case LDAP_BACK_CFG_REBIND:
1231                 case LDAP_BACK_CFG_CHASE:
1232                 case LDAP_BACK_CFG_T_F:
1233                 case LDAP_BACK_CFG_WHOAMI:
1234                 case LDAP_BACK_CFG_CANCEL:
1235                         rc = 1;
1236                         break;
1237
1238                 case LDAP_BACK_CFG_TIMEOUT:
1239                         for ( i = 0; i < SLAP_OP_LAST; i++ ) {
1240                                 li->li_timeout[ i ] = 0;
1241                         }
1242                         break;
1243
1244                 case LDAP_BACK_CFG_IDLE_TIMEOUT:
1245                         li->li_idle_timeout = 0;
1246                         break;
1247
1248                 case LDAP_BACK_CFG_CONN_TTL:
1249                         li->li_conn_ttl = 0;
1250                         break;
1251
1252                 case LDAP_BACK_CFG_NETWORK_TIMEOUT:
1253                         li->li_network_timeout = 0;
1254                         break;
1255
1256                 case LDAP_BACK_CFG_VERSION:
1257                         li->li_version = 0;
1258                         break;
1259
1260                 case LDAP_BACK_CFG_SINGLECONN:
1261                         li->li_flags &= ~LDAP_BACK_F_SINGLECONN;
1262                         break;
1263
1264                 case LDAP_BACK_CFG_USETEMP:
1265                         li->li_flags &= ~LDAP_BACK_F_USE_TEMPORARIES;
1266                         break;
1267
1268                 case LDAP_BACK_CFG_CONNPOOLMAX:
1269                         li->li_conn_priv_max = LDAP_BACK_CONN_PRIV_MIN;
1270                         break;
1271
1272                 case LDAP_BACK_CFG_QUARANTINE:
1273                         if ( !LDAP_BACK_QUARANTINE( li ) ) {
1274                                 break;
1275                         }
1276
1277                         slap_retry_info_destroy( &li->li_quarantine );
1278                         ldap_pvt_thread_mutex_destroy( &li->li_quarantine_mutex );
1279                         li->li_isquarantined = 0;
1280                         li->li_flags &= ~LDAP_BACK_F_QUARANTINE;
1281                         break;
1282
1283 #ifdef SLAP_CONTROL_X_SESSION_TRACKING
1284                 case LDAP_BACK_CFG_ST_REQUEST:
1285                         li->li_flags &= ~LDAP_BACK_F_ST_REQUEST;
1286                         break;
1287 #endif /* SLAP_CONTROL_X_SESSION_TRACKING */
1288
1289                 case LDAP_BACK_CFG_NOREFS:
1290                         li->li_flags &= ~LDAP_BACK_F_NOREFS;
1291                         break;
1292
1293                 case LDAP_BACK_CFG_NOUNDEFFILTER:
1294                         li->li_flags &= ~LDAP_BACK_F_NOUNDEFFILTER;
1295                         break;
1296
1297                 default:
1298                         /* FIXME: we need to handle all... */
1299                         assert( 0 );
1300                         break;
1301                 }
1302                 return rc;
1303
1304         }
1305
1306         switch( c->type ) {
1307         case LDAP_BACK_CFG_URI: {
1308                 LDAPURLDesc     *tmpludp, *lud;
1309                 char            **urllist = NULL;
1310                 int             urlrc = LDAP_URL_SUCCESS, i;
1311
1312                 if ( li->li_uri != NULL ) {
1313                         ch_free( li->li_uri );
1314                         li->li_uri = NULL;
1315
1316                         assert( li->li_bvuri != NULL );
1317                         ber_bvarray_free( li->li_bvuri );
1318                         li->li_bvuri = NULL;
1319                 }
1320
1321                 /* PARANOID: DN and more are not required nor allowed */
1322                 urlrc = ldap_url_parselist_ext( &lud, c->argv[ 1 ], ", \t", LDAP_PVT_URL_PARSE_NONE );
1323                 if ( urlrc != LDAP_URL_SUCCESS ) {
1324                         char    *why;
1325
1326                         switch ( urlrc ) {
1327                         case LDAP_URL_ERR_MEM:
1328                                 why = "no memory";
1329                                 break;
1330                         case LDAP_URL_ERR_PARAM:
1331                                 why = "parameter is bad";
1332                                 break;
1333                         case LDAP_URL_ERR_BADSCHEME:
1334                                 why = "URL doesn't begin with \"[c]ldap[si]://\"";
1335                                 break;
1336                         case LDAP_URL_ERR_BADENCLOSURE:
1337                                 why = "URL is missing trailing \">\"";
1338                                 break;
1339                         case LDAP_URL_ERR_BADURL:
1340                                 why = "URL is bad";
1341                                 break;
1342                         case LDAP_URL_ERR_BADHOST:
1343                                 why = "host/port is bad";
1344                                 break;
1345                         case LDAP_URL_ERR_BADATTRS:
1346                                 why = "bad (or missing) attributes";
1347                                 break;
1348                         case LDAP_URL_ERR_BADSCOPE:
1349                                 why = "scope string is invalid (or missing)";
1350                                 break;
1351                         case LDAP_URL_ERR_BADFILTER:
1352                                 why = "bad or missing filter";
1353                                 break;
1354                         case LDAP_URL_ERR_BADEXTS:
1355                                 why = "bad or missing extensions";
1356                                 break;
1357                         default:
1358                                 why = "unknown reason";
1359                                 break;
1360                         }
1361                         snprintf( c->cr_msg, sizeof( c->cr_msg),
1362                                         "unable to parse uri \"%s\" "
1363                                         "in \"uri <uri>\" line: %s",
1364                                         c->value_string, why );
1365                         Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
1366                         urlrc = 1;
1367                         goto done_url;
1368                 }
1369
1370                 for ( i = 0, tmpludp = lud;
1371                                 tmpludp;
1372                                 i++, tmpludp = tmpludp->lud_next )
1373                 {
1374                         if ( ( tmpludp->lud_dn != NULL
1375                                                 && tmpludp->lud_dn[0] != '\0' )
1376                                         || tmpludp->lud_attrs != NULL
1377                                         /* || tmpludp->lud_scope != LDAP_SCOPE_DEFAULT */
1378                                         || tmpludp->lud_filter != NULL
1379                                         || tmpludp->lud_exts != NULL )
1380                         {
1381                                 snprintf( c->cr_msg, sizeof( c->cr_msg ),
1382                                                 "warning, only protocol, "
1383                                                 "host and port allowed "
1384                                                 "in \"uri <uri>\" statement "
1385                                                 "for uri #%d of \"%s\"",
1386                                                 i, c->argv[ 1 ] );
1387                                 Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
1388                         }
1389                 }
1390
1391                 for ( i = 0, tmpludp = lud;
1392                                 tmpludp;
1393                                 i++, tmpludp = tmpludp->lud_next )
1394                         /* just count */
1395                         ;
1396                 urllist = ch_calloc( sizeof( char * ), i + 1 );
1397
1398                 for ( i = 0, tmpludp = lud;
1399                                 tmpludp;
1400                                 i++, tmpludp = tmpludp->lud_next )
1401                 {
1402                         LDAPURLDesc     tmplud;
1403
1404                         tmplud = *tmpludp;
1405                         tmplud.lud_dn = "";
1406                         tmplud.lud_attrs = NULL;
1407                         tmplud.lud_filter = NULL;
1408                         if ( !ldap_is_ldapi_url( tmplud.lud_scheme ) ) {
1409                                 tmplud.lud_exts = NULL;
1410                                 tmplud.lud_crit_exts = 0;
1411                         }
1412
1413                         urllist[ i ]  = ldap_url_desc2str( &tmplud );
1414
1415                         if ( urllist[ i ] == NULL ) {
1416                                 snprintf( c->cr_msg, sizeof( c->cr_msg),
1417                                         "unable to rebuild uri "
1418                                         "in \"uri <uri>\" statement "
1419                                         "for \"%s\"",
1420                                         c->argv[ 1 ] );
1421                                 Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
1422                                 urlrc = 1;
1423                                 goto done_url;
1424                         }
1425                 }
1426
1427                 li->li_uri = ldap_charray2str( urllist, " " );
1428                 for ( i = 0; urllist[ i ] != NULL; i++ ) {
1429                         struct berval   bv;
1430
1431                         ber_str2bv( urllist[ i ], 0, 0, &bv );
1432                         ber_bvarray_add( &li->li_bvuri, &bv );
1433                         urllist[ i ] = NULL;
1434                 }
1435                 ldap_memfree( urllist );
1436                 urllist = NULL;
1437
1438 done_url:;
1439                 if ( urllist ) {
1440                         ldap_charray_free( urllist );
1441                 }
1442                 if ( lud ) {
1443                         ldap_free_urllist( lud );
1444                 }
1445                 if ( urlrc != LDAP_URL_SUCCESS ) {
1446                         return 1;
1447                 }
1448                 break;
1449         }
1450
1451         case LDAP_BACK_CFG_TLS:
1452                 i = verb_to_mask( c->argv[1], tls_mode );
1453                 if ( BER_BVISNULL( &tls_mode[i].word ) ) {
1454                         return 1;
1455                 }
1456                 li->li_flags &= ~LDAP_BACK_F_TLS_MASK;
1457                 li->li_flags |= tls_mode[i].mask;
1458                 if ( c->argc > 2 ) {
1459                         for ( i=2; i<c->argc; i++ ) {
1460                                 if ( bindconf_tls_parse( c->argv[i], &li->li_tls ))
1461                                         return 1;
1462                         }
1463                         bindconf_tls_defaults( &li->li_tls );
1464                 }
1465                 break;
1466
1467         case LDAP_BACK_CFG_ACL_AUTHCDN:
1468                 switch ( li->li_acl_authmethod ) {
1469                 case LDAP_AUTH_NONE:
1470                         li->li_acl_authmethod = LDAP_AUTH_SIMPLE;
1471                         break;
1472
1473                 case LDAP_AUTH_SIMPLE:
1474                         break;
1475
1476                 default:
1477                         snprintf( c->cr_msg, sizeof( c->cr_msg),
1478                                 "\"acl-authcDN <DN>\" incompatible "
1479                                 "with auth method %d",
1480                                 li->li_acl_authmethod );
1481                         Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
1482                         return 1;
1483                 }
1484                 if ( !BER_BVISNULL( &li->li_acl_authcDN ) ) {
1485                         free( li->li_acl_authcDN.bv_val );
1486                 }
1487                 ber_memfree_x( c->value_dn.bv_val, NULL );
1488                 li->li_acl_authcDN = c->value_ndn;
1489                 BER_BVZERO( &c->value_dn );
1490                 BER_BVZERO( &c->value_ndn );
1491                 break;
1492
1493         case LDAP_BACK_CFG_ACL_PASSWD:
1494                 switch ( li->li_acl_authmethod ) {
1495                 case LDAP_AUTH_NONE:
1496                         li->li_acl_authmethod = LDAP_AUTH_SIMPLE;
1497                         break;
1498
1499                 case LDAP_AUTH_SIMPLE:
1500                         break;
1501
1502                 default:
1503                         snprintf( c->cr_msg, sizeof( c->cr_msg ),
1504                                 "\"acl-passwd <cred>\" incompatible "
1505                                 "with auth method %d",
1506                                 li->li_acl_authmethod );
1507                         Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
1508                         return 1;
1509                 }
1510                 if ( !BER_BVISNULL( &li->li_acl_passwd ) ) {
1511                         free( li->li_acl_passwd.bv_val );
1512                 }
1513                 ber_str2bv( c->argv[ 1 ], 0, 1, &li->li_acl_passwd );
1514                 break;
1515
1516         case LDAP_BACK_CFG_ACL_METHOD:
1517         case LDAP_BACK_CFG_ACL_BIND:
1518                 for ( i = 1; i < c->argc; i++ ) {
1519                         if ( bindconf_parse( c->argv[ i ], &li->li_acl ) ) {
1520                                 return 1;
1521                         }
1522                 }
1523                 bindconf_tls_defaults( &li->li_acl );
1524                 break;
1525
1526         case LDAP_BACK_CFG_IDASSERT_MODE:
1527                 i = verb_to_mask( c->argv[1], idassert_mode );
1528                 if ( BER_BVISNULL( &idassert_mode[i].word ) ) {
1529                         if ( strncasecmp( c->argv[1], "u:", STRLENOF( "u:" ) ) == 0 ) {
1530                                 li->li_idassert_mode = LDAP_BACK_IDASSERT_OTHERID;
1531                                 ber_str2bv( c->argv[1], 0, 1, &li->li_idassert_authzID );
1532                                 li->li_idassert_authzID.bv_val[ 0 ] = 'u';
1533
1534                         } else {
1535                                 struct berval   id, ndn;
1536
1537                                 ber_str2bv( c->argv[1], 0, 0, &id );
1538
1539                                 if ( strncasecmp( c->argv[1], "dn:", STRLENOF( "dn:" ) ) == 0 ) {
1540                                         id.bv_val += STRLENOF( "dn:" );
1541                                         id.bv_len -= STRLENOF( "dn:" );
1542                                 }
1543
1544                                 rc = dnNormalize( 0, NULL, NULL, &id, &ndn, NULL );
1545                                 if ( rc != LDAP_SUCCESS ) {
1546                                         Debug( LDAP_DEBUG_ANY,
1547                                                 "%s: line %d: idassert ID \"%s\" is not a valid DN\n",
1548                                                 c->fname, c->lineno, c->argv[1] );
1549                                         return 1;
1550                                 }
1551
1552                                 li->li_idassert_authzID.bv_len = STRLENOF( "dn:" ) + ndn.bv_len;
1553                                 li->li_idassert_authzID.bv_val = ch_malloc( li->li_idassert_authzID.bv_len + 1 );
1554                                 AC_MEMCPY( li->li_idassert_authzID.bv_val, "dn:", STRLENOF( "dn:" ) );
1555                                 AC_MEMCPY( &li->li_idassert_authzID.bv_val[ STRLENOF( "dn:" ) ], ndn.bv_val, ndn.bv_len + 1 );
1556                                 ch_free( ndn.bv_val );
1557
1558                                 li->li_idassert_mode = LDAP_BACK_IDASSERT_OTHERDN;
1559                         }
1560
1561                 } else {
1562                         li->li_idassert_mode = idassert_mode[i].mask;
1563                 }
1564
1565                 if ( c->argc > 2 ) {
1566                         int     i;
1567
1568                         for ( i = 2; i < c->argc; i++ ) {
1569                                 if ( strcasecmp( c->argv[ i ], "override" ) == 0 ) {
1570                                         li->li_idassert_flags |= LDAP_BACK_AUTH_OVERRIDE;
1571
1572                                 } else if ( strcasecmp( c->argv[ i ], "prescriptive" ) == 0 ) {
1573                                         li->li_idassert_flags |= LDAP_BACK_AUTH_PRESCRIPTIVE;
1574
1575                                 } else if ( strcasecmp( c->argv[ i ], "non-prescriptive" ) == 0 ) {
1576                                         li->li_idassert_flags &= ( ~LDAP_BACK_AUTH_PRESCRIPTIVE );
1577
1578                                 } else if ( strcasecmp( c->argv[ i ], "obsolete-proxy-authz" ) == 0 ) {
1579                                         if ( li->li_idassert_flags & LDAP_BACK_AUTH_OBSOLETE_ENCODING_WORKAROUND ) {
1580                                                 Debug( LDAP_DEBUG_ANY,
1581                                                         "%s: line %d: \"obsolete-proxy-authz\" flag "
1582                                                         "in \"idassert-mode <args>\" "
1583                                                         "incompatible with previously issued \"obsolete-encoding-workaround\" flag.\n",
1584                                                         c->fname, c->lineno, 0 );
1585                                                 return 1;
1586                                         }
1587                                         li->li_idassert_flags |= LDAP_BACK_AUTH_OBSOLETE_PROXY_AUTHZ;
1588
1589                                 } else if ( strcasecmp( c->argv[ i ], "obsolete-encoding-workaround" ) == 0 ) {
1590                                         if ( li->li_idassert_flags & LDAP_BACK_AUTH_OBSOLETE_PROXY_AUTHZ ) {
1591                                                 Debug( LDAP_DEBUG_ANY,
1592                                                         "%s: line %d: \"obsolete-encoding-workaround\" flag "
1593                                                         "in \"idassert-mode <args>\" "
1594                                                         "incompatible with previously issued \"obsolete-proxy-authz\" flag.\n",
1595                                                         c->fname, c->lineno, 0 );
1596                                                 return 1;
1597                                         }
1598                                         li->li_idassert_flags |= LDAP_BACK_AUTH_OBSOLETE_ENCODING_WORKAROUND;
1599
1600                                 } else {
1601                                         Debug( LDAP_DEBUG_ANY,
1602                                                 "%s: line %d: unknown flag #%d "
1603                                                 "in \"idassert-mode <args> "
1604                                                 "[<flags>]\" line.\n",
1605                                                 c->fname, c->lineno, i - 2 );
1606                                         return 1;
1607                                 }
1608                         }
1609                 }
1610                 break;
1611
1612         case LDAP_BACK_CFG_IDASSERT_AUTHCDN:
1613                 switch ( li->li_idassert_authmethod ) {
1614                 case LDAP_AUTH_NONE:
1615                         li->li_idassert_authmethod = LDAP_AUTH_SIMPLE;
1616                         break;
1617
1618                 case LDAP_AUTH_SIMPLE:
1619                         break;
1620
1621                 default:
1622                         snprintf( c->cr_msg, sizeof( c->cr_msg ),
1623                                 "\"idassert-authcDN <DN>\" incompatible "
1624                                 "with auth method %d",
1625                                 li->li_idassert_authmethod );
1626                         Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
1627                         return 1;
1628                 }
1629                 if ( !BER_BVISNULL( &li->li_idassert_authcDN ) ) {
1630                         free( li->li_idassert_authcDN.bv_val );
1631                 }
1632                 ber_memfree_x( c->value_dn.bv_val, NULL );
1633                 li->li_idassert_authcDN = c->value_ndn;
1634                 BER_BVZERO( &c->value_dn );
1635                 BER_BVZERO( &c->value_ndn );
1636                 break;
1637
1638         case LDAP_BACK_CFG_IDASSERT_PASSWD:
1639                 switch ( li->li_idassert_authmethod ) {
1640                 case LDAP_AUTH_NONE:
1641                         li->li_idassert_authmethod = LDAP_AUTH_SIMPLE;
1642                         break;
1643
1644                 case LDAP_AUTH_SIMPLE:
1645                         break;
1646
1647                 default:
1648                         snprintf( c->cr_msg, sizeof( c->cr_msg ),
1649                                 "\"idassert-passwd <cred>\" incompatible "
1650                                 "with auth method %d",
1651                                 li->li_idassert_authmethod );
1652                         Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
1653                         return 1;
1654                 }
1655                 if ( !BER_BVISNULL( &li->li_idassert_passwd ) ) {
1656                         free( li->li_idassert_passwd.bv_val );
1657                 }
1658                 ber_str2bv( c->argv[ 1 ], 0, 1, &li->li_idassert_passwd );
1659                 break;
1660
1661         case LDAP_BACK_CFG_IDASSERT_AUTHZFROM:
1662                 rc = slap_idassert_authzfrom_parse( c, &li->li_idassert );
1663                 break;
1664
1665         case LDAP_BACK_CFG_IDASSERT_METHOD:
1666                 /* no longer supported */
1667                 snprintf( c->cr_msg, sizeof( c->cr_msg ),
1668                         "\"idassert-method <args>\": "
1669                         "no longer supported; use \"idassert-bind\"" );
1670                 Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
1671                 return 1;
1672
1673         case LDAP_BACK_CFG_IDASSERT_BIND:
1674                 rc = slap_idassert_parse( c, &li->li_idassert );
1675                 break;
1676
1677         case LDAP_BACK_CFG_REBIND:
1678                 if ( c->argc == 1 || c->value_int ) {
1679                         li->li_flags |= LDAP_BACK_F_SAVECRED;
1680
1681                 } else {
1682                         li->li_flags &= ~LDAP_BACK_F_SAVECRED;
1683                 }
1684                 break;
1685
1686         case LDAP_BACK_CFG_CHASE:
1687                 if ( c->argc == 1 || c->value_int ) {
1688                         li->li_flags |= LDAP_BACK_F_CHASE_REFERRALS;
1689
1690                 } else {
1691                         li->li_flags &= ~LDAP_BACK_F_CHASE_REFERRALS;
1692                 }
1693                 break;
1694
1695         case LDAP_BACK_CFG_T_F: {
1696                 slap_mask_t             mask;
1697
1698                 i = verb_to_mask( c->argv[1], t_f_mode );
1699                 if ( BER_BVISNULL( &t_f_mode[i].word ) ) {
1700                         return 1;
1701                 }
1702
1703                 mask = t_f_mode[i].mask;
1704
1705                 if ( LDAP_BACK_ISOPEN( li )
1706                         && mask == LDAP_BACK_F_T_F_DISCOVER
1707                         && !LDAP_BACK_T_F( li ) )
1708                 {
1709                         slap_bindconf   sb = { BER_BVNULL };
1710                         int             rc;
1711
1712                         if ( li->li_uri == NULL ) {
1713                                 snprintf( c->cr_msg, sizeof( c->cr_msg ),
1714                                         "need URI to discover absolute filters support "
1715                                         "in \"t-f-support discover\"" );
1716                                 Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
1717                                 return 1;
1718                         }
1719
1720                         ber_str2bv( li->li_uri, 0, 0, &sb.sb_uri );
1721                         sb.sb_version = li->li_version;
1722                         sb.sb_method = LDAP_AUTH_SIMPLE;
1723                         BER_BVSTR( &sb.sb_binddn, "" );
1724
1725                         rc = slap_discover_feature( &sb,
1726                                         slap_schema.si_ad_supportedFeatures->ad_cname.bv_val,
1727                                         LDAP_FEATURE_ABSOLUTE_FILTERS );
1728                         if ( rc == LDAP_COMPARE_TRUE ) {
1729                                 mask |= LDAP_BACK_F_T_F;
1730                         }
1731                 }
1732
1733                 li->li_flags &= ~LDAP_BACK_F_T_F_MASK2;
1734                 li->li_flags |= mask;
1735                 } break;
1736
1737         case LDAP_BACK_CFG_WHOAMI:
1738                 if ( c->argc == 1 || c->value_int ) {
1739                         li->li_flags |= LDAP_BACK_F_PROXY_WHOAMI;
1740                         load_extop( (struct berval *)&slap_EXOP_WHOAMI,
1741                                         0, ldap_back_exop_whoami );
1742
1743                 } else {
1744                         li->li_flags &= ~LDAP_BACK_F_PROXY_WHOAMI;
1745                 }
1746                 break;
1747
1748         case LDAP_BACK_CFG_TIMEOUT:
1749                 for ( i = 1; i < c->argc; i++ ) {
1750                         if ( isdigit( (unsigned char) c->argv[ i ][ 0 ] ) ) {
1751                                 int             j;
1752                                 unsigned        u;
1753
1754                                 if ( lutil_atoux( &u, c->argv[ i ], 0 ) != 0 ) {
1755                                         snprintf( c->cr_msg, sizeof( c->cr_msg),
1756                                                 "unable to parse timeout \"%s\"",
1757                                                 c->argv[ i ] );
1758                                         Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
1759                                         return 1;
1760                                 }
1761
1762                                 for ( j = 0; j < SLAP_OP_LAST; j++ ) {
1763                                         li->li_timeout[ j ] = u;
1764                                 }
1765
1766                                 continue;
1767                         }
1768
1769                         if ( slap_cf_aux_table_parse( c->argv[ i ], li->li_timeout, timeout_table, "slapd-ldap timeout" ) ) {
1770                                 snprintf( c->cr_msg, sizeof( c->cr_msg),
1771                                         "unable to parse timeout \"%s\"",
1772                                         c->argv[ i ] );
1773                                 Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
1774                                 return 1;
1775                         }
1776                 }
1777                 break;
1778
1779         case LDAP_BACK_CFG_IDLE_TIMEOUT: {
1780                 unsigned long   t;
1781
1782                 if ( lutil_parse_time( c->argv[ 1 ], &t ) != 0 ) {
1783                         snprintf( c->cr_msg, sizeof( c->cr_msg),
1784                                 "unable to parse idle timeout \"%s\"",
1785                                 c->argv[ 1 ] );
1786                         Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
1787                         return 1;
1788                 }
1789                 li->li_idle_timeout = (time_t)t;
1790                 } break;
1791
1792         case LDAP_BACK_CFG_CONN_TTL: {
1793                 unsigned long   t;
1794
1795                 if ( lutil_parse_time( c->argv[ 1 ], &t ) != 0 ) {
1796                         snprintf( c->cr_msg, sizeof( c->cr_msg),
1797                                 "unable to parse conn ttl\"%s\"",
1798                                 c->argv[ 1 ] );
1799                         Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
1800                         return 1;
1801                 }
1802                 li->li_conn_ttl = (time_t)t;
1803                 } break;
1804
1805         case LDAP_BACK_CFG_NETWORK_TIMEOUT: {
1806                 unsigned long   t;
1807
1808                 if ( lutil_parse_time( c->argv[ 1 ], &t ) != 0 ) {
1809                         snprintf( c->cr_msg, sizeof( c->cr_msg),
1810                                 "unable to parse network timeout \"%s\"",
1811                                 c->argv[ 1 ] );
1812                         Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
1813                         return 1;
1814                 }
1815                 li->li_network_timeout = (time_t)t;
1816                 } break;
1817
1818         case LDAP_BACK_CFG_VERSION:
1819                 if ( c->value_int != 0 && ( c->value_int < LDAP_VERSION_MIN || c->value_int > LDAP_VERSION_MAX ) ) {
1820                         snprintf( c->cr_msg, sizeof( c->cr_msg ),
1821                                 "unsupported version \"%s\" "
1822                                 "in \"protocol-version <version>\"",
1823                                 c->argv[ 1 ] );
1824                         Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
1825                         return 1;
1826                 }
1827
1828                 li->li_version = c->value_int;
1829                 break;
1830
1831         case LDAP_BACK_CFG_SINGLECONN:
1832                 if ( c->value_int ) {
1833                         li->li_flags |= LDAP_BACK_F_SINGLECONN;
1834
1835                 } else {
1836                         li->li_flags &= ~LDAP_BACK_F_SINGLECONN;
1837                 }
1838                 break;
1839
1840         case LDAP_BACK_CFG_USETEMP:
1841                 if ( c->value_int ) {
1842                         li->li_flags |= LDAP_BACK_F_USE_TEMPORARIES;
1843
1844                 } else {
1845                         li->li_flags &= ~LDAP_BACK_F_USE_TEMPORARIES;
1846                 }
1847                 break;
1848
1849         case LDAP_BACK_CFG_CONNPOOLMAX:
1850                 if ( c->value_int < LDAP_BACK_CONN_PRIV_MIN
1851                         || c->value_int > LDAP_BACK_CONN_PRIV_MAX )
1852                 {
1853                         snprintf( c->cr_msg, sizeof( c->cr_msg ),
1854                                 "invalid max size " "of privileged "
1855                                 "connections pool \"%s\" "
1856                                 "in \"conn-pool-max <n> "
1857                                 "(must be between %d and %d)\"",
1858                                 c->argv[ 1 ],
1859                                 LDAP_BACK_CONN_PRIV_MIN,
1860                                 LDAP_BACK_CONN_PRIV_MAX );
1861                         Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
1862                         return 1;
1863                 }
1864                 li->li_conn_priv_max = c->value_int;
1865                 break;
1866
1867         case LDAP_BACK_CFG_CANCEL: {
1868                 slap_mask_t             mask;
1869
1870                 i = verb_to_mask( c->argv[1], cancel_mode );
1871                 if ( BER_BVISNULL( &cancel_mode[i].word ) ) {
1872                         return 1;
1873                 }
1874
1875                 mask = cancel_mode[i].mask;
1876
1877                 if ( LDAP_BACK_ISOPEN( li )
1878                         && mask == LDAP_BACK_F_CANCEL_EXOP_DISCOVER
1879                         && !LDAP_BACK_CANCEL( li ) )
1880                 {
1881                         slap_bindconf   sb = { BER_BVNULL };
1882                         int             rc;
1883
1884                         if ( li->li_uri == NULL ) {
1885                                 snprintf( c->cr_msg, sizeof( c->cr_msg ),
1886                                         "need URI to discover \"cancel\" support "
1887                                         "in \"cancel exop-discover\"" );
1888                                 Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
1889                                 return 1;
1890                         }
1891
1892                         ber_str2bv( li->li_uri, 0, 0, &sb.sb_uri );
1893                         sb.sb_version = li->li_version;
1894                         sb.sb_method = LDAP_AUTH_SIMPLE;
1895                         BER_BVSTR( &sb.sb_binddn, "" );
1896
1897                         rc = slap_discover_feature( &sb,
1898                                         slap_schema.si_ad_supportedExtension->ad_cname.bv_val,
1899                                         LDAP_EXOP_CANCEL );
1900                         if ( rc == LDAP_COMPARE_TRUE ) {
1901                                 mask |= LDAP_BACK_F_CANCEL_EXOP;
1902                         }
1903                 }
1904
1905                 li->li_flags &= ~LDAP_BACK_F_CANCEL_MASK2;
1906                 li->li_flags |= mask;
1907                 } break;
1908
1909         case LDAP_BACK_CFG_QUARANTINE:
1910                 if ( LDAP_BACK_QUARANTINE( li ) ) {
1911                         snprintf( c->cr_msg, sizeof( c->cr_msg ),
1912                                 "quarantine already defined" );
1913                         Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
1914                         return 1;
1915                 }
1916                 rc = slap_retry_info_parse( c->argv[1], &li->li_quarantine,
1917                         c->cr_msg, sizeof( c->cr_msg ) );
1918                 if ( rc ) {
1919                         Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
1920
1921                 } else {
1922                         ldap_pvt_thread_mutex_init( &li->li_quarantine_mutex );
1923                         /* give it a chance to retry if the pattern gets reset
1924                          * via back-config */
1925                         li->li_isquarantined = 0;
1926                         li->li_flags |= LDAP_BACK_F_QUARANTINE;
1927                 }
1928                 break;
1929
1930 #ifdef SLAP_CONTROL_X_SESSION_TRACKING
1931         case LDAP_BACK_CFG_ST_REQUEST:
1932                 if ( c->value_int ) {
1933                         li->li_flags |= LDAP_BACK_F_ST_REQUEST;
1934
1935                 } else {
1936                         li->li_flags &= ~LDAP_BACK_F_ST_REQUEST;
1937                 }
1938                 break;
1939 #endif /* SLAP_CONTROL_X_SESSION_TRACKING */
1940
1941         case LDAP_BACK_CFG_NOREFS:
1942                 if ( c->value_int ) {
1943                         li->li_flags |= LDAP_BACK_F_NOREFS;
1944
1945                 } else {
1946                         li->li_flags &= ~LDAP_BACK_F_NOREFS;
1947                 }
1948                 break;
1949
1950         case LDAP_BACK_CFG_NOUNDEFFILTER:
1951                 if ( c->value_int ) {
1952                         li->li_flags |= LDAP_BACK_F_NOUNDEFFILTER;
1953
1954                 } else {
1955                         li->li_flags &= ~LDAP_BACK_F_NOUNDEFFILTER;
1956                 }
1957                 break;
1958
1959         case LDAP_BACK_CFG_REWRITE:
1960                 snprintf( c->cr_msg, sizeof( c->cr_msg ),
1961                         "rewrite/remap capabilities have been moved "
1962                         "to the \"rwm\" overlay; see slapo-rwm(5) "
1963                         "for details (hint: add \"overlay rwm\" "
1964                         "and prefix all directives with \"rwm-\")" );
1965                 Debug( LDAP_DEBUG_ANY, "%s: %s.\n", c->log, c->cr_msg, 0 );
1966                 return 1;
1967
1968         default:
1969                 /* FIXME: try to catch inconsistencies */
1970                 assert( 0 );
1971                 break;
1972         }
1973
1974         return rc;
1975 }
1976
1977 int
1978 ldap_back_init_cf( BackendInfo *bi )
1979 {
1980         int                     rc;
1981         AttributeDescription    *ad = NULL;
1982         const char              *text;
1983
1984         /* Make sure we don't exceed the bits reserved for userland */
1985         config_check_userland( LDAP_BACK_CFG_LAST );
1986
1987         bi->bi_cf_ocs = ldapocs;
1988
1989         rc = config_register_schema( ldapcfg, ldapocs );
1990         if ( rc ) {
1991                 return rc;
1992         }
1993
1994         /* setup olcDbAclPasswd and olcDbIDAssertPasswd
1995          * to be base64-encoded when written in LDIF form;
1996          * basically, we don't care if it fails */
1997         rc = slap_str2ad( "olcDbACLPasswd", &ad, &text );
1998         if ( rc ) {
1999                 Debug( LDAP_DEBUG_ANY, "config_back_initialize: "
2000                         "warning, unable to get \"olcDbACLPasswd\" "
2001                         "attribute description: %d: %s\n",
2002                         rc, text, 0 );
2003         } else {
2004                 (void)ldif_must_b64_encode_register( ad->ad_cname.bv_val,
2005                         ad->ad_type->sat_oid );
2006         }
2007
2008         ad = NULL;
2009         rc = slap_str2ad( "olcDbIDAssertPasswd", &ad, &text );
2010         if ( rc ) {
2011                 Debug( LDAP_DEBUG_ANY, "config_back_initialize: "
2012                         "warning, unable to get \"olcDbIDAssertPasswd\" "
2013                         "attribute description: %d: %s\n",
2014                         rc, text, 0 );
2015         } else {
2016                 (void)ldif_must_b64_encode_register( ad->ad_cname.bv_val,
2017                         ad->ad_type->sat_oid );
2018         }
2019
2020         return 0;
2021 }
2022
2023
2024 static int
2025 ldap_back_exop_whoami(
2026                 Operation       *op,
2027                 SlapReply       *rs )
2028 {
2029         struct berval *bv = NULL;
2030
2031         if ( op->oq_extended.rs_reqdata != NULL ) {
2032                 /* no request data should be provided */
2033                 rs->sr_text = "no request data expected";
2034                 return rs->sr_err = LDAP_PROTOCOL_ERROR;
2035         }
2036
2037         Statslog( LDAP_DEBUG_STATS, "%s WHOAMI\n",
2038             op->o_log_prefix, 0, 0, 0, 0 );
2039
2040         rs->sr_err = backend_check_restrictions( op, rs,
2041                         (struct berval *)&slap_EXOP_WHOAMI );
2042         if( rs->sr_err != LDAP_SUCCESS ) return rs->sr_err;
2043
2044         /* if auth'd by back-ldap and request is proxied, forward it */
2045         if ( op->o_conn->c_authz_backend
2046                 && !strcmp( op->o_conn->c_authz_backend->be_type, "ldap" )
2047                 && !dn_match( &op->o_ndn, &op->o_conn->c_ndn ) )
2048         {
2049                 ldapconn_t      *lc = NULL;
2050                 LDAPControl c, *ctrls[2] = {NULL, NULL};
2051                 LDAPMessage *res;
2052                 Operation op2 = *op;
2053                 ber_int_t msgid;
2054                 int doretry = 1;
2055                 char *ptr;
2056
2057                 ctrls[0] = &c;
2058                 op2.o_ndn = op->o_conn->c_ndn;
2059                 if ( !ldap_back_dobind( &lc, &op2, rs, LDAP_BACK_SENDERR ) ) {
2060                         return -1;
2061                 }
2062                 c.ldctl_oid = LDAP_CONTROL_PROXY_AUTHZ;
2063                 c.ldctl_iscritical = 1;
2064                 c.ldctl_value.bv_val = op->o_tmpalloc(
2065                         op->o_ndn.bv_len + STRLENOF( "dn:" ) + 1,
2066                         op->o_tmpmemctx );
2067                 c.ldctl_value.bv_len = op->o_ndn.bv_len + 3;
2068                 ptr = c.ldctl_value.bv_val;
2069                 ptr = lutil_strcopy( ptr, "dn:" );
2070                 ptr = lutil_strncopy( ptr, op->o_ndn.bv_val, op->o_ndn.bv_len );
2071                 ptr[ 0 ] = '\0';
2072
2073 retry:
2074                 rs->sr_err = ldap_whoami( lc->lc_ld, ctrls, NULL, &msgid );
2075                 if ( rs->sr_err == LDAP_SUCCESS ) {
2076                         if ( ldap_result( lc->lc_ld, msgid, LDAP_MSG_ALL, NULL, &res ) == -1 ) {
2077                                 ldap_get_option( lc->lc_ld, LDAP_OPT_ERROR_NUMBER,
2078                                         &rs->sr_err );
2079                                 if ( rs->sr_err == LDAP_SERVER_DOWN && doretry ) {
2080                                         doretry = 0;
2081                                         if ( ldap_back_retry( &lc, op, rs, LDAP_BACK_SENDERR ) ) {
2082                                                 goto retry;
2083                                         }
2084                                 }
2085
2086                         } else {
2087                                 /* NOTE: are we sure "bv" will be malloc'ed
2088                                  * with the appropriate memory? */
2089                                 rs->sr_err = ldap_parse_whoami( lc->lc_ld, res, &bv );
2090                                 ldap_msgfree(res);
2091                         }
2092                 }
2093                 op->o_tmpfree( c.ldctl_value.bv_val, op->o_tmpmemctx );
2094                 if ( rs->sr_err != LDAP_SUCCESS ) {
2095                         rs->sr_err = slap_map_api2result( rs );
2096                 }
2097
2098                 if ( lc != NULL ) {
2099                         ldap_back_release_conn( (ldapinfo_t *)op2.o_bd->be_private, lc );
2100                 }
2101
2102         } else {
2103                 /* else just do the same as before */
2104                 bv = (struct berval *) ch_malloc( sizeof( struct berval ) );
2105                 if ( !BER_BVISEMPTY( &op->o_dn ) ) {
2106                         bv->bv_len = op->o_dn.bv_len + STRLENOF( "dn:" );
2107                         bv->bv_val = ch_malloc( bv->bv_len + 1 );
2108                         AC_MEMCPY( bv->bv_val, "dn:", STRLENOF( "dn:" ) );
2109                         AC_MEMCPY( &bv->bv_val[ STRLENOF( "dn:" ) ], op->o_dn.bv_val,
2110                                 op->o_dn.bv_len );
2111                         bv->bv_val[ bv->bv_len ] = '\0';
2112
2113                 } else {
2114                         bv->bv_len = 0;
2115                         bv->bv_val = NULL;
2116                 }
2117         }
2118
2119         rs->sr_rspdata = bv;
2120         return rs->sr_err;
2121 }
2122
2123