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

   1 /* init.c - initialize relay backend */
   2 /* This work is part of OpenLDAP Software <http://www.openldap.org/>.
   3  *
   4  * Copyright 2004-2008 The OpenLDAP Foundation.
   5  * Portions Copyright 2004 Pierangelo Masarati.
   6  * All rights reserved.
   7  *
   8  * Redistribution and use in source and binary forms, with or without
   9  * modification, are permitted only as authorized by the OpenLDAP
  10  * Public License.
  11  *
  12  * A copy of this license is available in the file LICENSE in the
  13  * top-level directory of the distribution or, alternatively, at
  14  * <http://www.OpenLDAP.org/license.html>.
  15  */
  16 /* ACKNOWLEDGEMENTS:
  17  * This work was initially developed by Pierangelo Masarati for inclusion
  18  * in OpenLDAP Software.
  19  */
  20
  21 #include "portable.h"
  22
  23 #include <stdio.h>
  24 #include <ac/string.h>
  25
  26 #include "slap.h"
  27 #include "config.h"
  28 #include "back-relay.h"
  29
  30 static ConfigDriver relay_back_cf;
  31
  32 static ConfigTable relaycfg[] = {
  33         { "relay", "relay", 2, 2, 0,
  34                 ARG_MAGIC|ARG_DN,
  35                 relay_back_cf, "( OLcfgDbAt:5.1 "
  36                         "NAME 'olcRelay' "
  37                         "DESC 'Relay DN' "
  38                         "SYNTAX OMsDN "
  39                         "SINGLE-VALUE )",
  40                 NULL, NULL },
  41         { NULL }
  42 };
  43
  44 static ConfigOCs relayocs[] = {
  45         { "( OLcfgDbOc:5.1 "
  46                 "NAME 'olcRelayConfig' "
  47                 "DESC 'Relay backend configuration' "
  48                 "SUP olcDatabaseConfig "
  49                 "MAY ( olcRelay "
  50                 ") )",
  51                         Cft_Database, relaycfg},
  52         { NULL, 0, NULL }
  53 };
  54
  55 static int
  56 relay_back_cf( ConfigArgs *c )
  57 {
  58         relay_back_info *ri = ( relay_back_info * )c->be->be_private;
  59         int             rc = 0;
  60
  61         if ( c->op == SLAP_CONFIG_EMIT ) {
  62                 if ( ri != NULL && !BER_BVISNULL( &ri->ri_realsuffix ) ) {
  63                         value_add_one( &c->rvalue_vals, &ri->ri_realsuffix );
  64                         return 0;
  65                 }
  66                 return 1;
  67
  68         } else if ( c->op == LDAP_MOD_DELETE ) {
  69                 if ( !BER_BVISNULL( &ri->ri_realsuffix ) ) {
  70                         ch_free( ri->ri_realsuffix.bv_val );
  71                         BER_BVZERO( &ri->ri_realsuffix );
  72                         ri->ri_bd = NULL;
  73                         return 0;
  74                 }
  75                 return 1;
  76
  77         } else {
  78                 BackendDB *bd;
  79
  80                 assert( ri != NULL );
  81                 assert( BER_BVISNULL( &ri->ri_realsuffix ) );
  82
  83                 if ( c->be->be_nsuffix == NULL ) {
  84                         snprintf( c->cr_msg, sizeof( c->cr_msg),
  85                                 "\"relay\" directive "
  86                                 "must appear after \"suffix\"" );
  87                         Log2( LDAP_DEBUG_ANY, LDAP_LEVEL_ERR,
  88                                 "%s: %s.\n", c->log, c->cr_msg );
  89                         rc = 1;
  90                         goto relay_done;
  91                 }
  92
  93                 if ( !BER_BVISNULL( &c->be->be_nsuffix[ 1 ] ) ) {
  94                         snprintf( c->cr_msg, sizeof( c->cr_msg),
  95                                 "relaying of multiple suffix "
  96                                 "database not supported" );
  97                         Log2( LDAP_DEBUG_ANY, LDAP_LEVEL_ERR,
  98                                 "%s: %s.\n", c->log, c->cr_msg );
  99                         rc = 1;
 100                         goto relay_done;
 101                 }
 102
 103                 bd = select_backend( &c->value_ndn, 1 );
 104                 if ( bd == NULL ) {
 105                         snprintf( c->cr_msg, sizeof( c->cr_msg),
 106                                 "cannot find database "
 107                                 "of relay dn \"%s\" "
 108                                 "in \"olcRelay <dn>\"\n",
 109                                 c->value_dn.bv_val );
 110                         Log2( LDAP_DEBUG_ANY, LDAP_LEVEL_ERR,
 111                                 "%s: %s.\n", c->log, c->cr_msg );
 112                         rc = 1;
 113                         goto relay_done;
 114
 115                 } else if ( bd->be_private == c->be->be_private ) {
 116                         snprintf( c->cr_msg, sizeof( c->cr_msg),
 117                                 "relay dn \"%s\" would call self "
 118                                 "in \"relay <dn>\" line\n",
 119                                 c->value_dn.bv_val );
 120                         Log2( LDAP_DEBUG_ANY, LDAP_LEVEL_ERR,
 121                                 "%s: %s.\n", c->log, c->cr_msg );
 122                         rc = 1;
 123                         goto relay_done;
 124                 }
 125
 126                 ri->ri_realsuffix = c->value_ndn;
 127                 BER_BVZERO( &c->value_ndn );
 128
 129 relay_done:;
 130                 ch_free( c->value_dn.bv_val );
 131                 ch_free( c->value_ndn.bv_val );
 132         }
 133
 134         return rc;
 135 }
 136
 137 int
 138 relay_back_initialize( BackendInfo *bi )
 139 {
 140         bi->bi_init = 0;
 141         bi->bi_open = 0;
 142         bi->bi_config = 0;
 143         bi->bi_close = 0;
 144         bi->bi_destroy = 0;
 145
 146         bi->bi_db_init = relay_back_db_init;
 147         bi->bi_db_config = config_generic_wrapper;
 148         bi->bi_db_open = relay_back_db_open;
 149 #if 0
 150         bi->bi_db_close = relay_back_db_close;
 151 #endif
 152         bi->bi_db_destroy = relay_back_db_destroy;
 153
 154         bi->bi_op_bind = relay_back_op_bind;
 155         bi->bi_op_unbind = relay_back_op_unbind;
 156         bi->bi_op_search = relay_back_op_search;
 157         bi->bi_op_compare = relay_back_op_compare;
 158         bi->bi_op_modify = relay_back_op_modify;
 159         bi->bi_op_modrdn = relay_back_op_modrdn;
 160         bi->bi_op_add = relay_back_op_add;
 161         bi->bi_op_delete = relay_back_op_delete;
 162         bi->bi_op_abandon = relay_back_op_abandon;
 163         bi->bi_op_cancel = relay_back_op_cancel;
 164         bi->bi_extended = relay_back_op_extended;
 165         bi->bi_entry_release_rw = relay_back_entry_release_rw;
 166         bi->bi_entry_get_rw = relay_back_entry_get_rw;
 167 #if 0   /* see comment in op.c */
 168         bi->bi_chk_referrals = relay_back_chk_referrals;
 169 #endif
 170         bi->bi_operational = relay_back_operational;
 171         bi->bi_has_subordinates = relay_back_has_subordinates;
 172
 173         bi->bi_connection_init = relay_back_connection_init;
 174         bi->bi_connection_destroy = relay_back_connection_destroy;
 175
 176         bi->bi_cf_ocs = relayocs;
 177
 178         return config_register_schema( relaycfg, relayocs );
 179 }
 180
 181 int
 182 relay_back_db_init( Backend *be, ConfigReply *cr)
 183 {
 184         relay_back_info         *ri;
 185
 186         be->be_private = NULL;
 187
 188         ri = (relay_back_info *)ch_calloc( 1, sizeof( relay_back_info ) );
 189         if ( ri == NULL ) {
 190                 return -1;
 191         }
 192
 193         ri->ri_bd = NULL;
 194         BER_BVZERO( &ri->ri_realsuffix );
 195         ri->ri_massage = 0;
 196
 197         be->be_cf_ocs = be->bd_info->bi_cf_ocs;
 198
 199         be->be_private = (void *)ri;
 200
 201         return 0;
 202 }
 203
 204 int
 205 relay_back_db_open( Backend *be, ConfigReply *cr )
 206 {
 207         relay_back_info         *ri = (relay_back_info *)be->be_private;
 208
 209         assert( ri != NULL );
 210
 211         if ( !BER_BVISNULL( &ri->ri_realsuffix ) ) {
 212                 ri->ri_bd = select_backend( &ri->ri_realsuffix, 1 );
 213
 214                 /* must be there: it was during config! */
 215                 assert( ri->ri_bd != NULL );
 216
 217                 /* inherit controls */
 218                 AC_MEMCPY( be->be_ctrls, ri->ri_bd->be_ctrls, sizeof( be->be_ctrls ) );
 219
 220         } else {
 221                 /* inherit all? */
 222                 AC_MEMCPY( be->be_ctrls, frontendDB->be_ctrls, sizeof( be->be_ctrls ) );
 223         }
 224
 225         return 0;
 226 }
 227
 228 int
 229 relay_back_db_close( Backend *be, ConfigReply *cr )
 230 {
 231         return 0;
 232 }
 233
 234 int
 235 relay_back_db_destroy( Backend *be, ConfigReply *cr)
 236 {
 237         relay_back_info         *ri = (relay_back_info *)be->be_private;
 238
 239         if ( ri ) {
 240                 if ( !BER_BVISNULL( &ri->ri_realsuffix ) ) {
 241                         ch_free( ri->ri_realsuffix.bv_val );
 242                 }
 243                 ch_free( ri );
 244         }
 245
 246         return 0;
 247 }
 248
 249 #if SLAPD_RELAY == SLAPD_MOD_DYNAMIC
 250
 251 /* conditionally define the init_module() function */
 252 SLAP_BACKEND_INIT_MODULE( relay )
 253
 254 #endif /* SLAPD_RELAY == SLAPD_MOD_DYNAMIC */
 255