external/bsd/openldap/dist/libraries/libldap/references.c

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