git.sur5r.net Git - openldap/blob - libraries/libldap/references.c

   1 /*
   2  * Copyright 1998-1999 The OpenLDAP Foundation, All Rights Reserved.
   3  * COPYING RESTRICTIONS APPLY, see COPYRIGHT file
   4  */
   5 /*
   6  *  references.c
   7  */
   8
   9 #include "portable.h"
  10
  11 #include <stdio.h>
  12 #include <stdlib.h>
  13
  14 #include <ac/ctype.h>
  15 #include <ac/socket.h>
  16 #include <ac/string.h>
  17 #include <ac/time.h>
  18
  19 #include "ldap-int.h"
  20
  21 /* ARGSUSED */
  22 LDAPMessage *
  23 ldap_first_reference( LDAP *ld, LDAPMessage *chain )
  24 {
  25         assert( ld != NULL );
  26         assert( chain !=  NULL );
  27
  28         if ( ld == NULL || chain == NULLMSG ) {
  29                 return NULLMSG;
  30         }
  31
  32         return chain->lm_msgtype == LDAP_RES_SEARCH_REFERENCE
  33                 ? chain
  34                 : ldap_next_reference( ld, chain );
  35 }
  36
  37 LDAPMessage *
  38 ldap_next_reference( LDAP *ld, LDAPMessage *ref )
  39 {
  40         assert( ld != NULL );
  41         assert( ref !=  NULL );
  42
  43         if ( ld == NULL || ref == NULLMSG ) {
  44                 return NULLMSG;
  45         }
  46
  47         for (
  48                 ref = ref->lm_chain;
  49                 ref != NULLMSG;
  50                 ref = ref->lm_chain )
  51         {
  52                 if( ref->lm_msgtype == LDAP_RES_SEARCH_REFERENCE ) {
  53                         return( ref );
  54                 }
  55         }
  56
  57         return( NULLMSG );
  58 }
  59
  60 int
  61 ldap_count_references( LDAP *ld, LDAPMessage *chain )
  62 {
  63         int     i;
  64
  65         assert( ld != NULL );
  66         assert( chain !=  NULL );
  67
  68         if ( ld == NULL ) {
  69                 return -1;
  70         }
  71
  72         for ( i = 0; chain != NULL; chain = chain->lm_chain ) {
  73                 if( chain->lm_msgtype == LDAP_RES_SEARCH_REFERENCE ) {
  74                         i++;
  75                 }
  76         }
  77
  78         return( i );
  79 }
  80
  81 int
  82 ldap_parse_reference(
  83         LDAP            *ld,
  84         LDAPMessage     *ref,
  85         char            ***referralsp,
  86         LDAPControl     ***serverctrls,
  87         int             freeit)
  88 {
  89         BerElement be;
  90         char **refs = NULL;
  91         int rc;
  92
  93         assert( ld != NULL );
  94         assert( ref !=  NULL );
  95
  96         if( ld == NULL || ref == NULL ||
  97                 ref->lm_msgtype != LDAP_RES_SEARCH_REFERENCE )
  98         {
  99                 return LDAP_PARAM_ERROR;
 100         }
 101
 102         /* make a private copy of BerElement */
 103         SAFEMEMCPY(&be, ref->lm_ber, sizeof(be));
 104
 105         if ( ber_scanf( &be, "{v" /*}*/, &refs ) == LBER_ERROR ) {
 106                 rc = LDAP_DECODING_ERROR;
 107                 goto free_and_return;
 108         }
 109
 110         if ( serverctrls == NULL ) {
 111                 rc = LDAP_SUCCESS;
 112                 goto free_and_return;
 113         }
 114
 115         if ( ber_scanf( &be, /*{*/ "}" ) == LBER_ERROR ) {
 116                 rc = LDAP_DECODING_ERROR;
 117                 goto free_and_return;
 118         }
 119
 120         rc = ldap_int_get_controls( &be, serverctrls );
 121
 122 free_and_return:
 123
 124         if( referralsp != NULL ) {
 125                 /* provide references regradless of return code */
 126                 *referralsp = refs;
 127
 128         } else {
 129                 ldap_value_free( refs );
 130         }
 131
 132         if( freeit ) {
 133                 ldap_msgfree( ref );
 134         }
 135
 136         if( rc != LDAP_SUCCESS ) {
 137                 ld->ld_errno = rc;
 138
 139                 if( ld->ld_matched != NULL )
 140                         free( ld->ld_matched );
 141
 142                 ld->ld_matched = NULL;
 143
 144                 if( ld->ld_error != NULL )
 145                         free( ld->ld_error );
 146
 147                 ld->ld_error = NULL;
 148         }
 149
 150         return rc;
 151 }