]> git.sur5r.net Git - openldap/blob - servers/slapd/referral.c
503e1f4558b9237bc5cbd7c831caafe7f8795240
[openldap] / servers / slapd / referral.c
1 /* referral.c - muck with referrals */
2 /* $OpenLDAP$ */
3 /*
4  * Copyright 1998-2003 The OpenLDAP Foundation, All Rights Reserved.
5  * COPYING RESTRICTIONS APPLY, see COPYRIGHT file
6  */
7
8 #include "portable.h"
9
10 #include <stdio.h>
11
12 #include <ac/socket.h>
13 #include <ac/errno.h>
14 #include <ac/string.h>
15 #include <ac/ctype.h>
16 #include <ac/time.h>
17 #include <ac/unistd.h>
18
19 #include <ldap_pvt.h>
20
21 #include "slap.h"
22
23 /*
24  * This routine generates the DN appropriate to return in
25  * an LDAP referral.
26  */
27 static char * referral_dn_muck(
28         const char * refDN,
29         struct berval * baseDN,
30         struct berval * targetDN )
31 {
32         int rc;
33         struct berval bvin;
34         struct berval nrefDN = { 0, NULL };
35         struct berval nbaseDN = { 0, NULL };
36         struct berval ntargetDN = { 0, NULL };
37
38         if( !baseDN ) {
39                 /* no base, return target */
40                 return targetDN ? ch_strdup( targetDN->bv_val ) : NULL;
41         }
42
43         if( refDN ) {
44                 bvin.bv_val = (char *)refDN;
45                 bvin.bv_len = strlen( refDN );
46
47                 rc = dnPretty2( NULL, &bvin, &nrefDN, NULL );
48                 if( rc != LDAP_SUCCESS ) {
49                         /* Invalid refDN */
50                         return NULL;
51                 }
52         }
53
54         if( !targetDN ) {
55                 /* continuation reference
56                  *      if refDN present return refDN
57                  *  else return baseDN
58                  */
59                 return nrefDN.bv_len ? nrefDN.bv_val : ch_strdup( baseDN->bv_val );
60         }
61
62         rc = dnPretty2( NULL, targetDN, &ntargetDN, NULL );
63         if( rc != LDAP_SUCCESS ) {
64                 /* Invalid targetDN */
65                 ch_free( nrefDN.bv_val );
66                 return NULL;
67         }
68
69         if( nrefDN.bv_len ) {
70                 rc = dnPretty2( NULL, baseDN, &nbaseDN, NULL );
71                 if( rc != LDAP_SUCCESS ) {
72                         /* Invalid baseDN */
73                         ch_free( nrefDN.bv_val );
74                         ch_free( ntargetDN.bv_val );
75                         return NULL;
76                 }
77
78                 if( dn_match( &nbaseDN, &nrefDN ) ) {
79                         ch_free( nrefDN.bv_val );
80                         ch_free( nbaseDN.bv_val );
81                         return ntargetDN.bv_val;
82                 }
83
84                 {
85                         struct berval muck;
86
87                         if( ntargetDN.bv_len < nbaseDN.bv_len ) {
88                                 ch_free( nrefDN.bv_val );
89                                 ch_free( nbaseDN.bv_val );
90                                 return ntargetDN.bv_val;
91                         }
92
93                         rc = strcasecmp(
94                                 &ntargetDN.bv_val[ntargetDN.bv_len-nbaseDN.bv_len],
95                                 nbaseDN.bv_val );
96                         if( rc ) {
97                                 /* target not subordinate to base */
98                                 ch_free( nrefDN.bv_val );
99                                 ch_free( nbaseDN.bv_val );
100                                 return ntargetDN.bv_val;
101                         }
102
103                         muck.bv_len = ntargetDN.bv_len + nrefDN.bv_len - nbaseDN.bv_len;
104                         muck.bv_val = SLAP_MALLOC( muck.bv_len + 1 );
105                         if( muck.bv_val == NULL ) {
106 #ifdef NEW_LOGGING
107                                 LDAP_LOG( OPERATION, CRIT, 
108                                         "referral_dn_muck: SLAP_MALLOC failed\n", 0, 0, 0 );
109 #else
110                                 Debug( LDAP_DEBUG_ANY,
111                                         "referral_dn_muck: SLAP_MALLOC failed\n", 0, 0, 0 );
112 #endif
113                                 return NULL;
114                         }
115
116                         strncpy( muck.bv_val, ntargetDN.bv_val,
117                                 ntargetDN.bv_len-nbaseDN.bv_len );
118                         strcpy( &muck.bv_val[ntargetDN.bv_len-nbaseDN.bv_len],
119                                 nrefDN.bv_val );
120
121                         ch_free( nrefDN.bv_val );
122                         ch_free( nbaseDN.bv_val );
123                         ch_free( ntargetDN.bv_val );
124
125                         return muck.bv_val;
126                 }
127         }
128
129         ch_free( nrefDN.bv_val );
130         return ntargetDN.bv_val;
131 }
132
133
134 /* validate URL for global referral use
135  *   LDAP URLs must not have:
136  *     DN, attrs, scope, nor filter
137  *   Any non-LDAP URL is okay
138  *
139  *   XXYYZ: should return an error string
140  */
141 int validate_global_referral( const char *url )
142 {
143         int rc;
144         LDAPURLDesc *lurl;
145
146         rc = ldap_url_parse_ext( url, &lurl );
147
148         switch( rc ) {
149         case LDAP_URL_SUCCESS:
150                 break;
151
152         case LDAP_URL_ERR_BADSCHEME:
153                 /* not LDAP hence valid */
154                 return 0;
155
156         default:
157                 /* other error, bail */
158 #ifdef NEW_LOGGING
159                 LDAP_LOG( CONFIG, CRIT, 
160                         "referral: invalid URL (%s): %s (%d)\n",
161                         url, "" /* ldap_url_error2str(rc) */, rc );
162 #else
163                 Debug( LDAP_DEBUG_ANY,
164                         "referral: invalid URL (%s): %s (%d)\n",
165                         url, "" /* ldap_url_error2str(rc) */, rc );
166 #endif
167                 return 1;
168         }
169
170         rc = 0;
171
172         if( lurl->lud_dn && *lurl->lud_dn ) {
173 #ifdef NEW_LOGGING
174                 LDAP_LOG( CONFIG, CRIT, "referral: URL (%s): contains DN\n", url, 0, 0 );
175 #else
176                 Debug( LDAP_DEBUG_ANY,
177                         "referral: URL (%s): contains DN\n",
178                         url, 0, 0 );
179 #endif
180                 rc = 1;
181
182         } else if( lurl->lud_attrs ) {
183 #ifdef NEW_LOGGING
184                 LDAP_LOG( CONFIG, CRIT, 
185                         "referral: URL (%s): requests attributes\n", url, 0, 0 );
186 #else
187                 Debug( LDAP_DEBUG_ANY,
188                         "referral: URL (%s): requests attributes\n",
189                         url, 0, 0 );
190 #endif
191                 rc = 1;
192
193         } else if( lurl->lud_scope != LDAP_SCOPE_DEFAULT ) {
194 #ifdef NEW_LOGGING
195                 LDAP_LOG( CONFIG, CRIT, 
196                         "referral: URL (%s): contains explicit scope\n", url, 0, 0 );
197 #else
198                 Debug( LDAP_DEBUG_ANY,
199                         "referral: URL (%s): contains explicit scope\n",
200                         url, 0, 0 );
201 #endif
202                 rc = 1;
203
204         } else if( lurl->lud_filter ) {
205 #ifdef NEW_LOGGING
206                 LDAP_LOG( CONFIG, CRIT, 
207                         "referral: URL (%s): contains explicit filter\n", url, 0, 0 );
208 #else
209                 Debug( LDAP_DEBUG_ANY,
210                         "referral: URL (%s): contains explicit filter\n",
211                         url, 0, 0 );
212 #endif
213                 rc = 1;
214         }
215
216         ldap_free_urldesc( lurl );
217         return rc;
218 }
219
220 BerVarray referral_rewrite(
221         BerVarray in,
222         struct berval *base,
223         struct berval *target,
224         int scope )
225 {
226         int i;
227         BerVarray refs;
228         struct berval *iv, *jv;
229
230         if( in == NULL ) return NULL;
231
232         for( i=0; in[i].bv_val != NULL ; i++ ) {
233                 /* just count them */
234         }
235
236         if( i < 1 ) return NULL;
237
238         refs = SLAP_MALLOC( (i+1) * sizeof( struct berval ) );
239         if( refs == NULL ) {
240 #ifdef NEW_LOGGING
241                 LDAP_LOG( OPERATION, CRIT, 
242                         "referral_rewrite: SLAP_MALLOC failed\n", 0, 0, 0 );
243 #else
244                 Debug( LDAP_DEBUG_ANY,
245                         "referral_rewrite: SLAP_MALLOC failed\n", 0, 0, 0 );
246 #endif
247                 return NULL;
248         }
249
250         for( iv=in,jv=refs; iv->bv_val != NULL ; iv++ ) {
251                 LDAPURLDesc *url;
252                 int rc = ldap_url_parse_ext( iv->bv_val, &url );
253
254                 if( rc == LDAP_URL_ERR_BADSCHEME ) {
255                         ber_dupbv( jv++, iv );
256                         continue;
257
258                 } else if( rc != LDAP_URL_SUCCESS ) {
259                         continue;
260                 }
261
262                 {
263                         char *dn = url->lud_dn;
264                         url->lud_dn = referral_dn_muck(
265                                 ( dn && *dn ) ? dn : NULL,
266                                 base, target );
267
268                         ldap_memfree( dn );
269                 }
270
271                 if( url->lud_scope == LDAP_SCOPE_DEFAULT ) {
272                         url->lud_scope = scope;
273                 }
274
275                 jv->bv_val = ldap_url_desc2str( url );
276                 jv->bv_len = strlen( jv->bv_val );
277
278                 ldap_free_urldesc( url );
279                 jv++;
280         }
281
282         if( jv == refs ) {
283                 ch_free( refs );
284                 refs = NULL;
285
286         } else {
287                 jv->bv_val = NULL;
288         }
289
290         return refs;
291 }
292
293
294 BerVarray get_entry_referrals(
295         Operation *op,
296         Entry *e )
297 {
298         Attribute *attr;
299         BerVarray refs;
300         unsigned i;
301         struct berval *iv, *jv;
302
303         AttributeDescription *ad_ref = slap_schema.si_ad_ref;
304
305         attr = attr_find( e->e_attrs, ad_ref );
306
307         if( attr == NULL ) return NULL;
308
309         for( i=0; attr->a_vals[i].bv_val != NULL; i++ ) {
310                 /* count references */
311         }
312
313         if( i < 1 ) return NULL;
314
315         refs = SLAP_MALLOC( (i + 1) * sizeof(struct berval));
316         if( refs == NULL ) {
317 #ifdef NEW_LOGGING
318                 LDAP_LOG( OPERATION, CRIT, 
319                         "get_entry_referrals: SLAP_MALLOC failed\n", 0, 0, 0 );
320 #else
321                 Debug( LDAP_DEBUG_ANY,
322                         "get_entry_referrals: SLAP_MALLOC failed\n", 0, 0, 0 );
323 #endif
324                 return NULL;
325         }
326
327         for( iv=attr->a_vals, jv=refs; iv->bv_val != NULL; iv++ ) {
328                 unsigned k;
329                 ber_dupbv( jv, iv );
330
331                 /* trim the label */
332                 for( k=0; k<jv->bv_len; k++ ) {
333                         if( isspace( (unsigned char) jv->bv_val[k] ) ) {
334                                 jv->bv_val[k] = '\0';
335                                 jv->bv_len = k;
336                                 break;
337                         }
338                 }
339
340                 if(     jv->bv_len > 0 ) {
341                         jv++;
342                 } else {
343                         free( jv->bv_val );
344                 }
345         }
346
347         if( jv == refs ) {
348                 free( refs );
349                 refs = NULL;
350
351         } else {
352                 jv->bv_val = NULL;
353         }
354
355         /* we should check that a referral value exists... */
356         return refs;
357 }
358
359
360 int get_alias_dn(
361         Entry *e,
362         struct berval *ndn,
363         int *err,
364         const char **text )
365 {       
366         Attribute *a;
367         AttributeDescription *aliasedObjectName
368                 = slap_schema.si_ad_aliasedObjectName;
369
370         a = attr_find( e->e_attrs, aliasedObjectName );
371
372         if( a == NULL ) {
373                 /*
374                  * there was an aliasedobjectname defined but no data.
375                  */
376                 *err = LDAP_ALIAS_PROBLEM;
377                 *text = "alias missing aliasedObjectName attribute";
378                 return -1;
379         }
380
381         /* 
382          * aliasedObjectName should be SINGLE-VALUED with a single value. 
383          */                     
384         if ( a->a_vals[0].bv_val == NULL ) {
385                 /*
386                  * there was an aliasedobjectname defined but no data.
387                  */
388                 *err = LDAP_ALIAS_PROBLEM;
389                 *text = "alias missing aliasedObjectName value";
390                 return -1;
391         }
392
393         if( a->a_nvals[1].bv_val != NULL ) {
394                 *err = LDAP_ALIAS_PROBLEM;
395                 *text = "alias has multivalued aliasedObjectName";
396                 return -1;
397         }
398
399         *ndn = a->a_nvals[0];
400
401         return 0;
402 }
403