dlls/wldap32/value.c

   1 /*
   2  * WLDAP32 - LDAP support for Wine
   3  *
   4  * Copyright 2005 Hans Leidekker
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, write to the Free Software
  18  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  19  */
  20
  21 #include "config.h"
  22
  23 #include "wine/port.h"
  24 #include "wine/debug.h"
  25
  26 #include <stdarg.h>
  27
  28 #include "windef.h"
  29 #include "winbase.h"
  30 #include "winnls.h"
  31
  32 #ifdef HAVE_LDAP_H
  33 #include <ldap.h>
  34 #endif
  35
  36 #include "winldap_private.h"
  37 #include "wldap32.h"
  38
  39 WINE_DEFAULT_DEBUG_CHANNEL(wldap32);
  40
  41 /***********************************************************************
  42  *      ldap_count_values_len     (WLDAP32.@)
  43  *
  44  * Count the number of values in an array of berval structures.
  45  *
  46  * PARAMS
  47  *  vals  [I] Pointer to an array of berval structures.
  48  *
  49  * RETURNS
  50  *  Success: The number of values counted.
  51  *  Failure: 0
  52  *
  53  * NOTES
  54  *  Call ldap_count_values_len with the result of a call to
  55  *  ldap_get_values_len.
  56  */
  57 ULONG CDECL WLDAP32_ldap_count_values_len( struct WLDAP32_berval **vals )
  58 {
  59     ULONG ret = WLDAP32_LDAP_NOT_SUPPORTED;
  60 #ifdef HAVE_LDAP
  61
  62     TRACE( "(%p)\n", vals );
  63     ret = ldap_count_values_len( (struct berval **)vals );
  64
  65 #endif
  66     return ret;
  67 }
  68
  69 /***********************************************************************
  70  *      ldap_count_valuesA     (WLDAP32.@)
  71  *
  72  * See ldap_count_valuesW.
  73  */
  74 ULONG CDECL ldap_count_valuesA( PCHAR *vals )
  75 {
  76     ULONG ret = WLDAP32_LDAP_NOT_SUPPORTED;
  77 #ifdef HAVE_LDAP
  78     WCHAR **valsW = NULL;
  79
  80     TRACE( "(%p)\n", vals );
  81
  82     if (!vals) return 0;
  83
  84     valsW = strarrayAtoW( vals );
  85     if (!valsW) return WLDAP32_LDAP_NO_MEMORY;
  86
  87     ret = ldap_count_valuesW( valsW );
  88     strarrayfreeW( valsW );
  89
  90 #endif
  91     return ret;
  92 }
  93
  94 /***********************************************************************
  95  *      ldap_count_valuesW     (WLDAP32.@)
  96  *
  97  * Count the number of values in a string array.
  98  *
  99  * PARAMS
 100  *  vals  [I] Pointer to an array of strings.
 101  *
 102  * RETURNS
 103  *  Success: The number of values counted.
 104  *  Failure: 0
 105  *
 106  * NOTES
 107  *  Call ldap_count_valuesW with the result of a call to
 108  *  ldap_get_valuesW.
 109  */
 110 ULONG CDECL ldap_count_valuesW( PWCHAR *vals )
 111 {
 112     ULONG ret = WLDAP32_LDAP_NOT_SUPPORTED;
 113 #ifdef HAVE_LDAP
 114     WCHAR **p = vals;
 115
 116     TRACE( "(%p)\n", vals );
 117
 118     if (!vals) return 0;
 119
 120     ret = 0;
 121     while (*p++) ret++;
 122
 123 #endif
 124     return ret;
 125 }
 126
 127 /***********************************************************************
 128  *      ldap_get_valuesA     (WLDAP32.@)
 129  *
 130  * See ldap_get_valuesW.
 131  */
 132 PCHAR * CDECL ldap_get_valuesA( WLDAP32_LDAP *ld, WLDAP32_LDAPMessage *entry, PCHAR attr )
 133 {
 134     PCHAR *ret = NULL;
 135 #ifdef HAVE_LDAP
 136     WCHAR *attrW = NULL, **retW;
 137
 138     TRACE( "(%p, %p, %s)\n", ld, entry, debugstr_a(attr) );
 139
 140     if (!ld || !entry || !attr) return NULL;
 141
 142     attrW = strAtoW( attr );
 143     if (!attrW) return NULL;
 144
 145     retW = ldap_get_valuesW( ld, entry, attrW );
 146
 147     ret = strarrayWtoA( retW );
 148     ldap_value_freeW( retW );
 149     strfreeW( attrW );
 150
 151 #endif
 152     return ret;
 153 }
 154
 155 #ifdef HAVE_LDAP
 156 static char *bv2str( struct berval *bv )
 157 {
 158     char *str = NULL;
 159     unsigned int len = bv->bv_len;
 160
 161     str = HeapAlloc( GetProcessHeap(), 0, len + 1 );
 162     if (str)
 163     {
 164         memcpy( str, bv->bv_val, len );
 165         str[len] = '\0';
 166     }
 167     return str;
 168 }
 169
 170 static char **bv2str_array( struct berval **bv )
 171 {
 172     unsigned int len = 0, i = 0;
 173     struct berval **p = bv;
 174     char **str;
 175
 176     while (*p)
 177     {
 178         len++;
 179         p++;
 180     }
 181     str = HeapAlloc( GetProcessHeap(), 0, (len + 1) * sizeof(char *) );
 182     if (!str) return NULL;
 183
 184     p = bv;
 185     while (*p)
 186     {
 187         str[i] = bv2str( *p );
 188         if (!str[i])
 189         {
 190             while (i > 0) HeapFree( GetProcessHeap(), 0, str[--i] );
 191             HeapFree( GetProcessHeap(), 0, str );
 192             return NULL;
 193         }
 194         i++;
 195         p++;
 196     }
 197     str[i] = NULL;
 198     return str;
 199 }
 200 #endif
 201
 202 /***********************************************************************
 203  *      ldap_get_valuesW     (WLDAP32.@)
 204  *
 205  * Retrieve string values for a given attribute.
 206  *
 207  * PARAMS
 208  *  ld     [I] Pointer to an LDAP context.
 209  *  entry  [I] Entry to retrieve values from.
 210  *  attr   [I] Attribute to retrieve values for.
 211  *
 212  * RETURNS
 213  *  Success: Pointer to a character array holding the values.
 214  *  Failure: NULL
 215  *
 216  * NOTES
 217  *  Call ldap_get_valuesW with the result of a call to
 218  *  ldap_first_entry or ldap_next_entry. Free the returned
 219  *  array with a call to ldap_value_freeW.
 220  */
 221 PWCHAR * CDECL ldap_get_valuesW( WLDAP32_LDAP *ld, WLDAP32_LDAPMessage *entry, PWCHAR attr )
 222 {
 223     PWCHAR *ret = NULL;
 224 #ifdef HAVE_LDAP
 225     char *attrU = NULL, **retU;
 226     struct berval **bv;
 227
 228     TRACE( "(%p, %p, %s)\n", ld, entry, debugstr_w(attr) );
 229
 230     if (!ld || !entry || !attr) return NULL;
 231
 232     attrU = strWtoU( attr );
 233     if (!attrU) return NULL;
 234
 235     bv = ldap_get_values_len( ld, entry, attrU );
 236
 237     retU = bv2str_array( bv );
 238     ret = strarrayUtoW( retU );
 239
 240     ldap_value_free_len( bv );
 241     strarrayfreeU( retU );
 242     strfreeU( attrU );
 243
 244 #endif
 245     return ret;
 246 }
 247
 248 /***********************************************************************
 249  *      ldap_get_values_lenA     (WLDAP32.@)
 250  *
 251  * See ldap_get_values_lenW.
 252  */
 253 struct WLDAP32_berval ** CDECL ldap_get_values_lenA( WLDAP32_LDAP *ld,
 254     WLDAP32_LDAPMessage *message, PCHAR attr )
 255 {
 256 #ifdef HAVE_LDAP
 257     WCHAR *attrW = NULL;
 258     struct WLDAP32_berval **ret;
 259
 260     TRACE( "(%p, %p, %s)\n", ld, message, debugstr_a(attr) );
 261
 262     if (!ld || !message || !attr) return NULL;
 263
 264     attrW = strAtoW( attr );
 265     if (!attrW) return NULL;
 266
 267     ret = ldap_get_values_lenW( ld, message, attrW );
 268
 269     strfreeW( attrW );
 270     return ret;
 271
 272 #else
 273     return NULL;
 274 #endif
 275 }
 276
 277 /***********************************************************************
 278  *      ldap_get_values_lenW     (WLDAP32.@)
 279  *
 280  * Retrieve binary values for a given attribute.
 281  *
 282  * PARAMS
 283  *  ld      [I] Pointer to an LDAP context.
 284  *  message [I] Entry to retrieve values from.
 285  *  attr    [I] Attribute to retrieve values for.
 286  *
 287  * RETURNS
 288  *  Success: Pointer to a berval array holding the values.
 289  *  Failure: NULL
 290  *
 291  * NOTES
 292  *  Call ldap_get_values_lenW with the result of a call to
 293  *  ldap_first_entry or ldap_next_entry. Free the returned
 294  *  array with a call to ldap_value_free_len.
 295  */
 296 struct WLDAP32_berval ** CDECL ldap_get_values_lenW( WLDAP32_LDAP *ld,
 297     WLDAP32_LDAPMessage *message, PWCHAR attr )
 298 {
 299 #ifdef HAVE_LDAP
 300     char *attrU = NULL;
 301     struct berval **ret;
 302
 303     TRACE( "(%p, %p, %s)\n", ld, message, debugstr_w(attr) );
 304
 305     if (!ld || !message || !attr) return NULL;
 306
 307     attrU = strWtoU( attr );
 308     if (!attrU) return NULL;
 309
 310     ret = ldap_get_values_len( ld, message, attrU );
 311
 312     strfreeU( attrU );
 313     return (struct WLDAP32_berval **)ret;
 314
 315 #else
 316     return NULL;
 317 #endif
 318 }
 319
 320 /***********************************************************************
 321  *      ldap_value_free_len     (WLDAP32.@)
 322  *
 323  * Free an array of berval structures.
 324  *
 325  * PARAMS
 326  *  vals  [I] Array of berval structures.
 327  *
 328  * RETURNS
 329  *  Success: LDAP_SUCCESS
 330  *  Failure: An LDAP error code.
 331  */
 332 ULONG CDECL WLDAP32_ldap_value_free_len( struct WLDAP32_berval **vals )
 333 {
 334 #ifdef HAVE_LDAP
 335
 336     TRACE( "(%p)\n", vals );
 337     ldap_value_free_len( (struct berval **)vals );
 338
 339 #endif
 340     return WLDAP32_LDAP_SUCCESS;
 341 }
 342
 343 /***********************************************************************
 344  *      ldap_value_freeA     (WLDAP32.@)
 345  *
 346  * See ldap_value_freeW.
 347  */
 348 ULONG CDECL ldap_value_freeA( PCHAR *vals )
 349 {
 350     TRACE( "(%p)\n", vals );
 351
 352     strarrayfreeA( vals );
 353     return WLDAP32_LDAP_SUCCESS;
 354 }
 355
 356 /***********************************************************************
 357  *      ldap_value_freeW     (WLDAP32.@)
 358  *
 359  * Free an array of string values.
 360  *
 361  * PARAMS
 362  *  vals  [I] Array of string values.
 363  *
 364  * RETURNS
 365  *  Success: LDAP_SUCCESS
 366  *  Failure: An LDAP error code.
 367  */
 368 ULONG CDECL ldap_value_freeW( PWCHAR *vals )
 369 {
 370     TRACE( "(%p)\n", vals );
 371
 372     strarrayfreeW( vals );
 373     return WLDAP32_LDAP_SUCCESS;
 374 }