git.sur5r.net Git - openldap/blob - servers/slapd/back-relay/op.c

   1 /* op.c - relay backend operations */
   2 /* $OpenLDAP$ */
   3 /* This work is part of OpenLDAP Software <http://www.openldap.org/>.
   4  *
   5  * Copyright 2004-2009 The OpenLDAP Foundation.
   6  * Portions Copyright 2004 Pierangelo Masarati.
   7  * All rights reserved.
   8  *
   9  * Redistribution and use in source and binary forms, with or without
  10  * modification, are permitted only as authorized by the OpenLDAP
  11  * Public License.
  12  *
  13  * A copy of this license is available in the file LICENSE in the
  14  * top-level directory of the distribution or, alternatively, at
  15  * <http://www.OpenLDAP.org/license.html>.
  16  */
  17 /* ACKNOWLEDGEMENTS:
  18  * This work was initially developed by Pierangelo Masarati for inclusion
  19  * in OpenLDAP Software.
  20  */
  21
  22 #include "portable.h"
  23
  24 #include <stdio.h>
  25
  26 #include "slap.h"
  27 #include "back-relay.h"
  28
  29 /* Results when no real database (.rf_bd) or operation handler (.rf_op) */
  30 static const struct relay_fail_modes_s {
  31         slap_mask_t     rf_bd, rf_op;
  32 #define RB_ERR_MASK     0x0000FFFFU /* bitmask for default return value */
  33 #define RB_BDERR        0x80000000U /* use .rf_bd's default return value */
  34 #define RB_OPERR        0x40000000U /* set rs->sr_err = .rf_op return value */
  35 #define RB_REF          0x20000000U /* use default_referral if available */
  36 #define RB_SEND         0x10000000U /* send result; RB_??ERR is also set */
  37 #define RB_SENDREF      0/*unused*/ /* like RB_SEND when referral found */
  38 #define RB_NO_BIND      (RB_OPERR | LDAP_INVALID_CREDENTIALS)
  39 #define RB_NOT_SUPP     (RB_OPERR | LDAP_UNWILLING_TO_PERFORM)
  40 #define RB_NO_OBJ       (RB_REF | LDAP_NO_SUCH_OBJECT)
  41 #define RB_CHK_REF      (RB_REF | RB_SENDREF | LDAP_SUCCESS)
  42 } relay_fail_modes[relay_op_last] = {
  43         /* .rf_bd is unused when zero, otherwise both fields have RB_BDERR */
  44 #       define RB_OP(b, o)      { (b) | RB_BD2ERR(b), (o) | RB_BD2ERR(b) }
  45 #       define RB_BD2ERR(b)     ((b) ? RB_BDERR : 0)
  46         /* indexed by slap_operation_t: */
  47         RB_OP(RB_NO_BIND|RB_SEND, RB_NO_BIND  |RB_SEND), /* Bind           */
  48         RB_OP(0,                  LDAP_SUCCESS),         /* Unbind: unused */
  49         RB_OP(RB_NO_OBJ |RB_SEND, RB_NOT_SUPP |RB_SEND), /* Search         */
  50         RB_OP(RB_NO_OBJ |RB_SEND, SLAP_CB_CONTINUE),     /* Compare        */
  51         RB_OP(RB_NO_OBJ |RB_SEND, RB_NOT_SUPP |RB_SEND), /* Modify         */
  52         RB_OP(RB_NO_OBJ |RB_SEND, RB_NOT_SUPP |RB_SEND), /* Modrdn         */
  53         RB_OP(RB_NO_OBJ |RB_SEND, RB_NOT_SUPP |RB_SEND), /* Add            */
  54         RB_OP(RB_NO_OBJ |RB_SEND, RB_NOT_SUPP |RB_SEND), /* Delete         */
  55         RB_OP(0,                  LDAP_SUCCESS),         /* Abandon:unused */
  56         RB_OP(RB_NO_OBJ,          RB_NOT_SUPP),          /* Extended       */
  57         RB_OP(0,                  SLAP_CB_CONTINUE),     /* Cancel: unused */
  58         RB_OP(0,                  LDAP_SUCCESS),    /* operational         */
  59         RB_OP(RB_CHK_REF,         LDAP_SUCCESS),    /* chk_referrals:unused*/
  60         RB_OP(0,                  SLAP_CB_CONTINUE),/* chk_controls:unused */
  61         /* additional relay_operation_t indexes from back-relay.h: */
  62         RB_OP(0,                  0/*unused*/),     /* entry_get = op_last */
  63         RB_OP(0,                  0/*unused*/),     /* entry_release       */
  64         RB_OP(0,                  0/*unused*/),     /* has_subordinates    */
  65 };
  66
  67 /*
  68  * Callbacks: Caller changed op->o_bd from Relay to underlying
  69  * BackendDB.  sc_response sets it to Relay BackendDB, sc_cleanup puts
  70  * back underlying BackendDB.  Caller will restore Relay BackendDB.
  71  */
  72
  73 typedef struct relay_callback {
  74         slap_callback rcb_sc;
  75         BackendDB *rcb_bd;
  76 } relay_callback;
  77
  78 int
  79 relay_back_cleanup_cb( Operation *op, SlapReply *rs )
  80 {
  81         op->o_bd = ((relay_callback *) op->o_callback)->rcb_bd;
  82         return SLAP_CB_CONTINUE;
  83 }
  84
  85 int
  86 relay_back_response_cb( Operation *op, SlapReply *rs )
  87 {
  88         relay_callback  *rcb = (relay_callback *) op->o_callback;
  89
  90         rcb->rcb_sc.sc_cleanup = relay_back_cleanup_cb;
  91         rcb->rcb_bd = op->o_bd;
  92         op->o_bd = op->o_callback->sc_private;
  93         return SLAP_CB_CONTINUE;
  94 }
  95
  96 /* quick hack for ITS#6337: use malloc'ed callback for bind */
  97 int
  98 relay_back_cleanup2_cb( Operation *op, SlapReply *rs )
  99 {
 100         op->o_bd = ((relay_callback *) op->o_callback)->rcb_bd;
 101         op->o_tmpfree( op->o_callback, op->o_tmpmemctx );
 102         op->o_callback = NULL;
 103         return SLAP_CB_CONTINUE;
 104 }
 105
 106 int
 107 relay_back_response2_cb( Operation *op, SlapReply *rs )
 108 {
 109         relay_callback  *rcb = (relay_callback *) op->o_callback;
 110
 111         rcb->rcb_sc.sc_cleanup = relay_back_cleanup2_cb;
 112         rcb->rcb_bd = op->o_bd;
 113         op->o_bd = op->o_callback->sc_private;
 114         return SLAP_CB_CONTINUE;
 115 }
 116
 117 #define relay_back_add_cb( rcb, op, bd )                        \
 118         {                                                       \
 119                 (rcb)->rcb_sc.sc_next = (op)->o_callback;       \
 120                 (rcb)->rcb_sc.sc_response = relay_back_response_cb; \
 121                 (rcb)->rcb_sc.sc_cleanup = 0;                   \
 122                 (rcb)->rcb_sc.sc_private = (op)->o_bd;          \
 123                 (op)->o_callback = (slap_callback *) (rcb);     \
 124         }
 125
 126 /*
 127  * Select the backend database with the operation's DN.  On failure,
 128  * set/send results depending on operation type <which>'s fail_modes.
 129  */
 130 static BackendDB *
 131 relay_back_select_backend( Operation *op, SlapReply *rs, int which )
 132 {
 133         OpExtra         *oex;
 134         char            *key = (char *) op->o_bd->be_private;
 135         BackendDB       *bd  = ((relay_back_info *) key)->ri_bd;
 136         slap_mask_t     fail_mode = relay_fail_modes[which].rf_bd;
 137         int             useDN = 0, rc = ( fail_mode & RB_ERR_MASK );
 138
 139         if ( bd == NULL && !BER_BVISNULL( &op->o_req_ndn ) ) {
 140                 useDN = 1;
 141                 bd = select_backend( &op->o_req_ndn, 1 );
 142         }
 143
 144         if ( bd != NULL ) {
 145                 key += which; /* <relay, op type> key from RELAY_WRAP_OP() */
 146                 LDAP_SLIST_FOREACH( oex, &op->o_extra, oe_next ) {
 147                         if ( oex->oe_key == key )
 148                                 break;
 149                 }
 150                 if ( oex == NULL ) {
 151                         return bd;
 152                 }
 153
 154                 Debug( LDAP_DEBUG_ANY,
 155                         "%s: back-relay for DN=\"%s\" would call self.\n",
 156                         op->o_log_prefix, op->o_req_dn.bv_val, 0 );
 157
 158         } else if ( useDN && ( fail_mode & RB_REF ) && default_referral ) {
 159                 rc = LDAP_REFERRAL;
 160
 161                 /* if we set sr_err to LDAP_REFERRAL, we must provide one */
 162                 rs->sr_ref = referral_rewrite(
 163                         default_referral, NULL, &op->o_req_dn,
 164                         op->o_tag == LDAP_REQ_SEARCH ?
 165                         op->ors_scope : LDAP_SCOPE_DEFAULT );
 166                 if ( rs->sr_ref != NULL ) {
 167                         rs->sr_flags |= REP_REF_MUSTBEFREED;
 168                 } else {
 169                         rs->sr_ref = default_referral;
 170                 }
 171
 172                 if ( fail_mode & RB_SENDREF )
 173                         fail_mode = (RB_BDERR | RB_SEND);
 174         }
 175
 176         if ( fail_mode & RB_BDERR ) {
 177                 rs->sr_err = rc;
 178                 if ( fail_mode & RB_SEND ) {
 179                         send_ldap_result( op, rs );
 180                 }
 181         }
 182
 183         return NULL;
 184 }
 185
 186 /*
 187  * Forward <act> on <op> to database <bd>, with <relay, op type>-specific
 188  * key in op->o_extra so relay_back_select_backend() can catch recursion.
 189  */
 190 #define RELAY_WRAP_OP( op, bd, which, act ) { \
 191         OpExtraDB wrap_oex; \
 192         BackendDB *const wrap_bd = (op)->o_bd; \
 193         wrap_oex.oe_db = wrap_bd; \
 194         wrap_oex.oe.oe_key = (char *) wrap_bd->be_private + (which); \
 195         LDAP_SLIST_INSERT_HEAD( &(op)->o_extra, &wrap_oex.oe, oe_next ); \
 196         (op)->o_bd = (bd); \
 197         act; \
 198         (op)->o_bd = wrap_bd; \
 199         LDAP_SLIST_REMOVE( &(op)->o_extra, &wrap_oex.oe, OpExtra, oe_next ); \
 200 }
 201
 202 /*
 203  * Forward backend function #<which> on <op> to operation DN's database
 204  * like RELAY_WRAP_OP, after setting up callbacks. If no database or no
 205  * backend function, set/send results depending on <which>'s fail_modes.
 206  */
 207 static int
 208 relay_back_op( Operation *op, SlapReply *rs, int which )
 209 {
 210         BackendDB       *bd;
 211         BI_op_bind      *func;
 212         slap_mask_t     fail_mode = relay_fail_modes[which].rf_op;
 213         int             rc = ( fail_mode & RB_ERR_MASK );
 214
 215         bd = relay_back_select_backend( op, rs, which );
 216         if ( bd == NULL ) {
 217                 if ( fail_mode & RB_BDERR )
 218                         return rs->sr_err;      /* sr_err was set above */
 219
 220         } else if ( (func = (&bd->be_bind)[which]) != 0 ) {
 221                 relay_callback  rcb;
 222
 223                 if ( which == op_bind ) {
 224                         /* quick hack for ITS#6337: use malloc'ed callback for bind */
 225                         relay_callback *rcbp = op->o_tmpcalloc( sizeof( relay_callback ), 1, op->o_tmpmemctx );
 226                         relay_back_add_cb( rcbp, op, bd );
 227                         rcbp->rcb_sc.sc_response = relay_back_response2_cb;
 228
 229                 } else {
 230                         relay_back_add_cb( &rcb, op, bd );
 231                 }
 232
 233                 RELAY_WRAP_OP( op, bd, which, {
 234                         rc = func( op, rs );
 235                 });
 236
 237                 if ( op->o_callback == (slap_callback *) &rcb ) {
 238                         op->o_callback = op->o_callback->sc_next;
 239                 }
 240
 241         } else if ( fail_mode & RB_OPERR ) {
 242                 rs->sr_err = rc;
 243                 if ( rc == LDAP_UNWILLING_TO_PERFORM ) {
 244                         rs->sr_text = "operation not supported within naming context";
 245                 }
 246
 247                 if ( fail_mode & RB_SEND ) {
 248                         send_ldap_result( op, rs );
 249                 }
 250         }
 251
 252         return rc;
 253 }
 254
 255
 256 int
 257 relay_back_op_bind( Operation *op, SlapReply *rs )
 258 {
 259         /* allow rootdn as a means to auth without the need to actually
 260          * contact the proxied DSA */
 261         switch ( be_rootdn_bind( op, rs ) ) {
 262         case SLAP_CB_CONTINUE:
 263                 break;
 264
 265         default:
 266                 return rs->sr_err;
 267         }
 268
 269         return relay_back_op( op, rs, op_bind );
 270 }
 271
 272 #define RELAY_DEFOP(func, which) \
 273         int func( Operation *op, SlapReply *rs ) \
 274         { return relay_back_op( op, rs, which ); }
 275
 276 RELAY_DEFOP( relay_back_op_search,              op_search )
 277 RELAY_DEFOP( relay_back_op_compare,             op_compare )
 278 RELAY_DEFOP( relay_back_op_modify,              op_modify )
 279 RELAY_DEFOP( relay_back_op_modrdn,              op_modrdn )
 280 RELAY_DEFOP( relay_back_op_add,                 op_add )
 281 RELAY_DEFOP( relay_back_op_delete,              op_delete )
 282 RELAY_DEFOP( relay_back_op_extended,    op_extended )
 283 RELAY_DEFOP( relay_back_operational,    op_aux_operational )
 284
 285 /* Abandon, Cancel, Unbind and some DN-less calls like be_connection_init
 286  * need no extra handling:  slapd already calls them for all databases.
 287  */
 288
 289
 290 int
 291 relay_back_entry_release_rw( Operation *op, Entry *e, int rw )
 292 {
 293         BackendDB               *bd;
 294         int                     rc = LDAP_UNWILLING_TO_PERFORM;
 295
 296         bd = relay_back_select_backend( op, NULL, relay_op_entry_release );
 297         if ( bd && bd->be_release ) {
 298                 RELAY_WRAP_OP( op, bd, relay_op_entry_release, {
 299                         rc = bd->be_release( op, e, rw );
 300                 });
 301         } else if ( e->e_private == NULL ) {
 302                 entry_free( e );
 303                 rc = LDAP_SUCCESS;
 304         }
 305
 306         return rc;
 307 }
 308
 309 int
 310 relay_back_entry_get_rw( Operation *op, struct berval *ndn,
 311         ObjectClass *oc, AttributeDescription *at, int rw, Entry **e )
 312 {
 313         BackendDB               *bd;
 314         int                     rc = LDAP_NO_SUCH_OBJECT;
 315
 316         bd = relay_back_select_backend( op, NULL, relay_op_entry_get );
 317         if ( bd && bd->be_fetch ) {
 318                 RELAY_WRAP_OP( op, bd, relay_op_entry_get, {
 319                         rc = bd->be_fetch( op, ndn, oc, at, rw, e );
 320                 });
 321         }
 322
 323         return rc;
 324 }
 325
 326 #if 0 /* Give the RB_SENDREF flag a nonzero value if implementing this */
 327 /*
 328  * NOTE: even the existence of this function is questionable: we cannot
 329  * pass the bi_chk_referrals() call thru the rwm overlay because there
 330  * is no way to rewrite the req_dn back; but then relay_back_chk_referrals()
 331  * is passing the target database a DN that likely does not belong to its
 332  * naming context... mmmh.
 333  */
 334 RELAY_DEFOP( relay_back_chk_referrals, op_aux_chk_referrals )
 335 #endif /*0*/
 336
 337 int
 338 relay_back_has_subordinates( Operation *op, Entry *e, int *hasSubs )
 339 {
 340         BackendDB               *bd;
 341         int                     rc = LDAP_OTHER;
 342
 343         bd = relay_back_select_backend( op, NULL, relay_op_has_subordinates );
 344         if ( bd && bd->be_has_subordinates ) {
 345                 RELAY_WRAP_OP( op, bd, relay_op_has_subordinates, {
 346                         rc = bd->be_has_subordinates( op, e, hasSubs );
 347                 });
 348         }
 349
 350         return rc;
 351 }
 352
 353
 354 /*
 355  * FIXME: must implement tools as well
 356  */