git.sur5r.net Git - openldap/blob - servers/slapd/back-dnssrv/search.c

   1 /* search.c - DNS SRV backend search function */
   2 /* $OpenLDAP$ */
   3 /*
   4  * Copyright 2000-2003 The OpenLDAP Foundation, All Rights Reserved.
   5  * COPYING RESTRICTIONS APPLY, see COPYRIGHT file
   6  */
   7
   8
   9 #include "portable.h"
  10
  11 #include <stdio.h>
  12
  13 #include <ac/socket.h>
  14 #include <ac/string.h>
  15 #include <ac/time.h>
  16
  17 #include "slap.h"
  18 #include "external.h"
  19
  20 int
  21 dnssrv_back_search(
  22     Backend     *be,
  23     Connection  *conn,
  24     Operation   *op,
  25     struct berval       *dn,
  26     struct berval       *ndn,
  27     int         scope,
  28     int         deref,
  29     int         size,
  30     int         time,
  31     Filter      *filter,
  32     struct berval       *filterstr,
  33     AttributeName       *attrs,
  34     int         attrsonly )
  35 {
  36         int i;
  37         int rc;
  38         char *domain = NULL;
  39         char *hostlist = NULL;
  40         char **hosts = NULL;
  41         char *refdn;
  42         struct berval nrefdn = { 0, NULL };
  43         BerVarray urls = NULL;
  44
  45         assert( get_manageDSAit( op ) );
  46
  47         if( ldap_dn2domain( dn->bv_val, &domain ) || domain == NULL ) {
  48                 send_ldap_result( conn, op, LDAP_REFERRAL,
  49                         NULL, NULL, default_referral, NULL );
  50                 goto done;
  51         }
  52
  53         Debug( LDAP_DEBUG_TRACE, "DNSSRV: dn=\"%s\" -> domain=\"%s\"\n",
  54                 dn->bv_len ? dn->bv_val : "", domain, 0 );
  55
  56         if( ( rc = ldap_domain2hostlist( domain, &hostlist ) ) ) {
  57                 Debug( LDAP_DEBUG_TRACE, "DNSSRV: domain2hostlist returned %d\n",
  58                         rc, 0, 0 );
  59                 send_ldap_result( conn, op, LDAP_NO_SUCH_OBJECT,
  60                         NULL, "no DNS SRV RR available for DN", NULL, NULL );
  61                 goto done;
  62         }
  63
  64         hosts = ldap_str2charray( hostlist, " " );
  65
  66         if( hosts == NULL ) {
  67                 Debug( LDAP_DEBUG_TRACE, "DNSSRV: str2charrary error\n", 0, 0, 0 );
  68                 send_ldap_result( conn, op, LDAP_OTHER,
  69                         NULL, "problem processing DNS SRV records for DN", NULL, NULL );
  70                 goto done;
  71         }
  72
  73         for( i=0; hosts[i] != NULL; i++) {
  74                 struct berval url;
  75
  76                 url.bv_len = sizeof("ldap://")-1 + strlen(hosts[i]);
  77                 url.bv_val = ch_malloc( url.bv_len + 1 );
  78
  79                 strcpy( url.bv_val, "ldap://" );
  80                 strcpy( &url.bv_val[sizeof("ldap://")-1], hosts[i] );
  81
  82                 if( ber_bvarray_add( &urls, &url ) < 0 ) {
  83                         free( url.bv_val );
  84                         send_ldap_result( conn, op, LDAP_OTHER,
  85                         NULL, "problem processing DNS SRV records for DN",
  86                         NULL, NULL );
  87                         goto done;
  88                 }
  89         }
  90
  91         Statslog( LDAP_DEBUG_STATS,
  92             "conn=%lu op=%lu DNSSRV p=%d dn=\"%s\" url=\"%s\"\n",
  93             op->o_connid, op->o_opid, op->o_protocol,
  94                 dn->bv_len ? dn->bv_val : "", urls[0].bv_val );
  95
  96         Debug( LDAP_DEBUG_TRACE,
  97                 "DNSSRV: ManageDSAit scope=%d dn=\"%s\" -> url=\"%s\"\n",
  98                 scope,
  99                 dn->bv_len ? dn->bv_val : "",
 100                 urls[0].bv_val );
 101
 102         rc = ldap_domain2dn(domain, &refdn);
 103
 104         if( rc != LDAP_SUCCESS ) {
 105                 send_ldap_result( conn, op, LDAP_OTHER,
 106                         NULL, "DNS SRV problem processing manageDSAit control",
 107                         NULL, NULL );
 108                 goto done;
 109
 110         } else {
 111                 struct berval bv;
 112                 bv.bv_val = refdn;
 113                 bv.bv_len = strlen( refdn );
 114
 115                 rc = dnNormalize2( NULL, &bv, &nrefdn );
 116                 if( rc != LDAP_SUCCESS ) {
 117                         send_ldap_result( conn, op, LDAP_OTHER,
 118                                 NULL, "DNS SRV problem processing manageDSAit control",
 119                                 NULL, NULL );
 120                         goto done;
 121                 }
 122         }
 123
 124         if( !dn_match( &nrefdn, ndn ) ) {
 125                 /* requested dn is subordinate */
 126
 127                 Debug( LDAP_DEBUG_TRACE,
 128                         "DNSSRV: dn=\"%s\" subordindate to refdn=\"%s\"\n",
 129                         dn->bv_len ? dn->bv_val : "",
 130                         refdn == NULL ? "" : refdn,
 131                         NULL );
 132
 133                 send_ldap_result( conn, op, LDAP_NO_SUCH_OBJECT,
 134                         refdn, NULL,
 135                         NULL, NULL );
 136
 137         } else if ( scope == LDAP_SCOPE_ONELEVEL ) {
 138                 send_ldap_result( conn, op, LDAP_SUCCESS,
 139                         NULL, NULL, NULL, NULL );
 140
 141         } else {
 142                 struct berval   vals[2];
 143                 Entry *e = ch_calloc( 1, sizeof(Entry) );
 144                 AttributeDescription *ad_objectClass
 145                         = slap_schema.si_ad_objectClass;
 146                 AttributeDescription *ad_ref = slap_schema.si_ad_ref;
 147                 e->e_dn = strdup( dn->bv_val );
 148                 e->e_name.bv_len = dn->bv_len;
 149                 e->e_ndn = strdup( ndn->bv_val );
 150                 e->e_nname.bv_len = ndn->bv_len;
 151
 152                 e->e_attrs = NULL;
 153                 e->e_private = NULL;
 154
 155                 vals[1].bv_val = NULL;
 156
 157                 vals[0].bv_val = "top";
 158                 vals[0].bv_len = sizeof("top")-1;
 159                 attr_mergeit( e, ad_objectClass, vals );
 160
 161                 vals[0].bv_val = "referral";
 162                 vals[0].bv_len = sizeof("referral")-1;
 163                 attr_mergeit( e, ad_objectClass, vals );
 164
 165                 vals[0].bv_val = "extensibleObject";
 166                 vals[0].bv_len = sizeof("extensibleObject")-1;
 167                 attr_mergeit( e, ad_objectClass, vals );
 168
 169                 {
 170                         AttributeDescription *ad = NULL;
 171                         const char *text;
 172
 173                         rc = slap_str2ad( "dc", &ad, &text );
 174
 175                         if( rc == LDAP_SUCCESS ) {
 176                                 char *p;
 177                                 vals[0].bv_val = ch_strdup( domain );
 178
 179                                 p = strchr( vals[0].bv_val, '.' );
 180
 181                                 if( p == vals[0].bv_val ) {
 182                                         vals[0].bv_val[1] = '\0';
 183                                 } else if ( p != NULL ) {
 184                                         *p = '\0';
 185                                 }
 186
 187                                 vals[0].bv_len = strlen(vals[0].bv_val);
 188                                 attr_mergeit( e, ad, vals );
 189                         }
 190                 }
 191
 192                 {
 193                         AttributeDescription *ad = NULL;
 194                         const char *text;
 195
 196                         rc = slap_str2ad( "associatedDomain", &ad, &text );
 197
 198                         if( rc == LDAP_SUCCESS ) {
 199                                 vals[0].bv_val = domain;
 200                                 vals[0].bv_len = strlen(domain);
 201                                 attr_mergeit( e, ad, vals );
 202                         }
 203                 }
 204
 205                 attr_mergeit( e, ad_ref, urls );
 206
 207                 rc = test_filter( be, conn, op, e, filter );
 208
 209                 if( rc == LDAP_COMPARE_TRUE ) {
 210                         send_search_entry( be, conn, op,
 211                                 e, attrs, attrsonly, NULL );
 212                 }
 213
 214                 entry_free( e );
 215
 216                 send_ldap_result( conn, op, LDAP_SUCCESS,
 217                         NULL, NULL, NULL, NULL );
 218         }
 219
 220         if ( refdn ) free( refdn );
 221         if ( nrefdn.bv_val ) free( nrefdn.bv_val );
 222
 223 done:
 224         if( domain != NULL ) ch_free( domain );
 225         if( hostlist != NULL ) ch_free( hostlist );
 226         if( hosts != NULL ) ldap_charray_free( hosts );
 227         if( urls != NULL ) ber_bvarray_free( urls );
 228         return 0;
 229 }