2005-07-18 18:06:42 +00:00
|
|
|
/*
|
|
|
|
* WLDAP32 - LDAP support for Wine
|
|
|
|
*
|
|
|
|
* Copyright 2005 Hans Leidekker
|
|
|
|
*
|
|
|
|
* This library is free software; you can redistribute it and/or
|
|
|
|
* modify it under the terms of the GNU Lesser General Public
|
|
|
|
* License as published by the Free Software Foundation; either
|
|
|
|
* version 2.1 of the License, or (at your option) any later version.
|
|
|
|
*
|
|
|
|
* This library is distributed in the hope that it will be useful,
|
|
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
|
|
* Lesser General Public License for more details.
|
|
|
|
*
|
|
|
|
* You should have received a copy of the GNU Lesser General Public
|
|
|
|
* License along with this library; if not, write to the Free Software
|
2006-05-18 12:49:52 +00:00
|
|
|
* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
|
2005-07-18 18:06:42 +00:00
|
|
|
*/
|
|
|
|
|
|
|
|
#include "config.h"
|
|
|
|
|
2005-11-24 18:21:49 +00:00
|
|
|
#include <stdarg.h>
|
2005-07-18 18:06:42 +00:00
|
|
|
#include "windef.h"
|
2005-11-24 18:21:49 +00:00
|
|
|
#include "winbase.h"
|
2005-07-18 18:06:42 +00:00
|
|
|
#include "winldap.h"
|
2006-04-18 18:40:40 +00:00
|
|
|
#include "wine/debug.h"
|
|
|
|
|
|
|
|
WINE_DEFAULT_DEBUG_CHANNEL(wldap32);
|
2005-07-18 18:06:42 +00:00
|
|
|
|
2006-04-18 18:38:43 +00:00
|
|
|
#ifndef LBER_ERROR
|
|
|
|
# define LBER_ERROR (~0U)
|
|
|
|
#endif
|
2005-07-18 18:06:42 +00:00
|
|
|
|
2006-04-18 18:38:43 +00:00
|
|
|
/***********************************************************************
|
|
|
|
* ber_alloc_t (WLDAP32.@)
|
|
|
|
*/
|
|
|
|
BerElement *WLDAP32_ber_alloc_t( INT options )
|
2005-07-18 18:06:42 +00:00
|
|
|
{
|
2006-04-18 18:38:43 +00:00
|
|
|
#ifdef HAVE_LDAP
|
|
|
|
return ber_alloc_t( options );
|
|
|
|
#else
|
2005-07-18 18:06:42 +00:00
|
|
|
return NULL;
|
2006-04-18 18:38:43 +00:00
|
|
|
#endif
|
2005-07-18 18:06:42 +00:00
|
|
|
}
|
|
|
|
|
2006-04-18 18:38:43 +00:00
|
|
|
|
|
|
|
/***********************************************************************
|
|
|
|
* ber_bvdup (WLDAP32.@)
|
|
|
|
*/
|
|
|
|
BERVAL *WLDAP32_ber_bvdup( BERVAL *berval )
|
2005-07-18 18:06:42 +00:00
|
|
|
{
|
2006-04-18 18:38:43 +00:00
|
|
|
#ifdef HAVE_LDAP
|
|
|
|
return ber_bvdup( berval );
|
|
|
|
#else
|
2005-07-18 18:06:42 +00:00
|
|
|
return NULL;
|
2006-04-18 18:38:43 +00:00
|
|
|
#endif
|
2005-07-18 18:06:42 +00:00
|
|
|
}
|
|
|
|
|
2006-04-18 18:38:43 +00:00
|
|
|
|
|
|
|
/***********************************************************************
|
|
|
|
* ber_bvecfree (WLDAP32.@)
|
|
|
|
*/
|
|
|
|
void WLDAP32_ber_bvecfree( PBERVAL *berval )
|
2005-07-18 18:06:42 +00:00
|
|
|
{
|
2006-04-18 18:38:43 +00:00
|
|
|
#ifdef HAVE_LDAP
|
|
|
|
ber_bvecfree( berval );
|
|
|
|
#endif
|
2005-07-18 18:06:42 +00:00
|
|
|
}
|
|
|
|
|
2006-04-18 18:38:43 +00:00
|
|
|
|
|
|
|
/***********************************************************************
|
|
|
|
* ber_bvfree (WLDAP32.@)
|
|
|
|
*/
|
|
|
|
void WLDAP32_ber_bvfree( BERVAL *berval )
|
2005-07-18 18:06:42 +00:00
|
|
|
{
|
2006-04-18 18:38:43 +00:00
|
|
|
#ifdef HAVE_LDAP
|
|
|
|
ber_bvfree( berval );
|
|
|
|
#endif
|
2005-07-18 18:06:42 +00:00
|
|
|
}
|
|
|
|
|
2006-04-18 18:38:43 +00:00
|
|
|
|
|
|
|
/***********************************************************************
|
|
|
|
* ber_first_element (WLDAP32.@)
|
|
|
|
*/
|
|
|
|
ULONG WLDAP32_ber_first_element( BerElement *berelement, ULONG *len, CHAR **opaque )
|
2005-07-18 18:06:42 +00:00
|
|
|
{
|
2006-04-18 18:38:43 +00:00
|
|
|
#ifdef HAVE_LDAP
|
|
|
|
return ber_first_element( berelement, len, opaque );
|
|
|
|
#else
|
2005-07-18 18:06:42 +00:00
|
|
|
return LBER_ERROR;
|
2006-04-18 18:38:43 +00:00
|
|
|
#endif
|
2005-07-18 18:06:42 +00:00
|
|
|
}
|
|
|
|
|
2006-04-18 18:38:43 +00:00
|
|
|
|
|
|
|
/***********************************************************************
|
|
|
|
* ber_flatten (WLDAP32.@)
|
|
|
|
*/
|
|
|
|
INT WLDAP32_ber_flatten( BerElement *berelement, PBERVAL *berval )
|
2005-07-18 18:06:42 +00:00
|
|
|
{
|
2006-04-18 18:38:43 +00:00
|
|
|
#ifdef HAVE_LDAP
|
|
|
|
return ber_flatten( berelement, berval );
|
|
|
|
#else
|
2005-07-18 18:06:42 +00:00
|
|
|
return LBER_ERROR;
|
2006-04-18 18:38:43 +00:00
|
|
|
#endif
|
2005-07-18 18:06:42 +00:00
|
|
|
}
|
|
|
|
|
2006-04-18 18:38:43 +00:00
|
|
|
|
|
|
|
/***********************************************************************
|
|
|
|
* ber_free (WLDAP32.@)
|
|
|
|
*/
|
|
|
|
void WLDAP32_ber_free( BerElement *berelement, INT buf )
|
2005-07-18 18:06:42 +00:00
|
|
|
{
|
2006-04-18 18:38:43 +00:00
|
|
|
#ifdef HAVE_LDAP
|
|
|
|
ber_free( berelement, buf );
|
|
|
|
#endif
|
2005-07-18 18:06:42 +00:00
|
|
|
}
|
|
|
|
|
2006-04-18 18:38:43 +00:00
|
|
|
|
|
|
|
/***********************************************************************
|
|
|
|
* ber_init (WLDAP32.@)
|
|
|
|
*/
|
|
|
|
BerElement *WLDAP32_ber_init( BERVAL *berval )
|
2005-07-18 18:06:42 +00:00
|
|
|
{
|
2006-04-18 18:38:43 +00:00
|
|
|
#ifdef HAVE_LDAP
|
|
|
|
return ber_init( berval );
|
|
|
|
#else
|
2005-07-18 18:06:42 +00:00
|
|
|
return NULL;
|
2006-04-18 18:38:43 +00:00
|
|
|
#endif
|
2005-07-18 18:06:42 +00:00
|
|
|
}
|
|
|
|
|
2006-04-18 18:38:43 +00:00
|
|
|
|
|
|
|
/***********************************************************************
|
|
|
|
* ber_next_element (WLDAP32.@)
|
|
|
|
*/
|
|
|
|
ULONG WLDAP32_ber_next_element( BerElement *berelement, ULONG *len, CHAR *opaque )
|
2005-07-18 18:06:42 +00:00
|
|
|
{
|
2006-04-18 18:38:43 +00:00
|
|
|
#ifdef HAVE_LDAP
|
|
|
|
return ber_next_element( berelement, len, opaque );
|
|
|
|
#else
|
2005-07-18 18:06:42 +00:00
|
|
|
return LBER_ERROR;
|
2006-04-18 18:38:43 +00:00
|
|
|
#endif
|
2005-07-18 18:06:42 +00:00
|
|
|
}
|
|
|
|
|
2006-04-18 18:38:43 +00:00
|
|
|
|
|
|
|
/***********************************************************************
|
|
|
|
* ber_peek_tag (WLDAP32.@)
|
|
|
|
*/
|
|
|
|
ULONG WLDAP32_ber_peek_tag( BerElement *berelement, ULONG *len )
|
2005-07-18 18:06:42 +00:00
|
|
|
{
|
2006-04-18 18:38:43 +00:00
|
|
|
#ifdef HAVE_LDAP
|
|
|
|
return ber_peek_tag( berelement, len );
|
|
|
|
#else
|
2005-07-18 18:06:42 +00:00
|
|
|
return LBER_ERROR;
|
2006-04-18 18:38:43 +00:00
|
|
|
#endif
|
2005-07-18 18:06:42 +00:00
|
|
|
}
|
|
|
|
|
2006-04-18 18:38:43 +00:00
|
|
|
|
|
|
|
/***********************************************************************
|
|
|
|
* ber_skip_tag (WLDAP32.@)
|
|
|
|
*/
|
|
|
|
ULONG WLDAP32_ber_skip_tag( BerElement *berelement, ULONG *len )
|
2005-07-18 18:06:42 +00:00
|
|
|
{
|
2006-04-18 18:38:43 +00:00
|
|
|
#ifdef HAVE_LDAP
|
|
|
|
return ber_skip_tag( berelement, len );
|
|
|
|
#else
|
2005-07-18 18:06:42 +00:00
|
|
|
return LBER_ERROR;
|
2006-04-18 18:38:43 +00:00
|
|
|
#endif
|
2005-07-18 18:06:42 +00:00
|
|
|
}
|
|
|
|
|
2006-04-18 18:38:43 +00:00
|
|
|
|
2006-04-18 18:40:40 +00:00
|
|
|
/***********************************************************************
|
|
|
|
* ber_printf (WLDAP32.@)
|
|
|
|
*/
|
|
|
|
INT WLDAP32_ber_printf( BerElement *berelement, PCHAR fmt, ... )
|
2005-07-18 18:06:42 +00:00
|
|
|
{
|
2006-04-18 18:40:40 +00:00
|
|
|
#ifdef HAVE_LDAP
|
|
|
|
va_list list;
|
|
|
|
int ret = 0;
|
|
|
|
char new_fmt[2];
|
|
|
|
|
|
|
|
new_fmt[1] = 0;
|
|
|
|
va_start( list, fmt );
|
|
|
|
while (*fmt)
|
|
|
|
{
|
|
|
|
new_fmt[0] = *fmt++;
|
|
|
|
switch(new_fmt[0])
|
|
|
|
{
|
|
|
|
case 'b':
|
|
|
|
case 'e':
|
|
|
|
case 'i':
|
|
|
|
{
|
|
|
|
int i = va_arg( list, int );
|
|
|
|
ret = ber_printf( berelement, new_fmt, i );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
case 'o':
|
|
|
|
case 's':
|
|
|
|
{
|
|
|
|
char *str = va_arg( list, char * );
|
|
|
|
ret = ber_printf( berelement, new_fmt, str );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
case 't':
|
|
|
|
{
|
|
|
|
unsigned int tag = va_arg( list, unsigned int );
|
|
|
|
ret = ber_printf( berelement, new_fmt, tag );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
case 'v':
|
|
|
|
{
|
|
|
|
char **array = va_arg( list, char ** );
|
|
|
|
ret = ber_printf( berelement, new_fmt, array );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
case 'V':
|
|
|
|
{
|
|
|
|
struct berval **array = va_arg( list, struct berval ** );
|
|
|
|
ret = ber_printf( berelement, new_fmt, array );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
case 'X':
|
|
|
|
{
|
|
|
|
char *str = va_arg( list, char * );
|
|
|
|
int len = va_arg( list, int );
|
|
|
|
ret = ber_printf( berelement, "B" /* 'X' is deprecated */, str, len );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
case 'n':
|
|
|
|
case '{':
|
|
|
|
case '}':
|
|
|
|
case '[':
|
|
|
|
case ']':
|
|
|
|
ret = ber_printf( berelement, new_fmt );
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
FIXME( "Unknown format '%c'\n", new_fmt[0] );
|
|
|
|
ret = -1;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
if (ret == -1) break;
|
|
|
|
}
|
|
|
|
va_end( list );
|
|
|
|
return ret;
|
|
|
|
#else
|
2005-07-18 18:06:42 +00:00
|
|
|
return LBER_ERROR;
|
2006-04-18 18:40:40 +00:00
|
|
|
#endif
|
2005-07-18 18:06:42 +00:00
|
|
|
}
|
|
|
|
|
2006-04-18 18:40:40 +00:00
|
|
|
|
2006-04-18 18:41:03 +00:00
|
|
|
/***********************************************************************
|
|
|
|
* ber_scanf (WLDAP32.@)
|
|
|
|
*/
|
|
|
|
INT WLDAP32_ber_scanf( BerElement *berelement, PCHAR fmt, ... )
|
2005-07-18 18:06:42 +00:00
|
|
|
{
|
2006-04-18 18:41:03 +00:00
|
|
|
#ifdef HAVE_LDAP
|
|
|
|
va_list list;
|
|
|
|
int ret = 0;
|
|
|
|
char new_fmt[2];
|
|
|
|
|
|
|
|
new_fmt[1] = 0;
|
|
|
|
va_start( list, fmt );
|
|
|
|
while (*fmt)
|
|
|
|
{
|
|
|
|
new_fmt[0] = *fmt++;
|
|
|
|
switch(new_fmt[0])
|
|
|
|
{
|
|
|
|
case 'a':
|
|
|
|
{
|
|
|
|
char **ptr = va_arg( list, char ** );
|
|
|
|
ret = ber_scanf( berelement, new_fmt, ptr );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
case 'b':
|
|
|
|
case 'e':
|
|
|
|
case 'i':
|
|
|
|
{
|
|
|
|
int *i = va_arg( list, int * );
|
|
|
|
ret = ber_scanf( berelement, new_fmt, i );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
case 't':
|
|
|
|
{
|
|
|
|
unsigned int *tag = va_arg( list, unsigned int * );
|
|
|
|
ret = ber_scanf( berelement, new_fmt, tag );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
case 'v':
|
|
|
|
{
|
|
|
|
char ***array = va_arg( list, char *** );
|
|
|
|
ret = ber_scanf( berelement, new_fmt, array );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
case 'B':
|
|
|
|
{
|
|
|
|
char **str = va_arg( list, char ** );
|
|
|
|
int *len = va_arg( list, int * );
|
|
|
|
ret = ber_scanf( berelement, new_fmt, str, len );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
case 'O':
|
|
|
|
{
|
|
|
|
struct berval **ptr = va_arg( list, struct berval ** );
|
|
|
|
ret = ber_scanf( berelement, new_fmt, ptr );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
case 'V':
|
|
|
|
{
|
|
|
|
struct berval ***array = va_arg( list, struct berval *** );
|
|
|
|
ret = ber_scanf( berelement, new_fmt, array );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
case 'n':
|
|
|
|
case 'x':
|
|
|
|
case '{':
|
|
|
|
case '}':
|
|
|
|
case '[':
|
|
|
|
case ']':
|
|
|
|
ret = ber_scanf( berelement, new_fmt );
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
FIXME( "Unknown format '%c'\n", new_fmt[0] );
|
|
|
|
ret = -1;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
if (ret == -1) break;
|
|
|
|
}
|
|
|
|
va_end( list );
|
|
|
|
return ret;
|
|
|
|
#else
|
2005-07-18 18:06:42 +00:00
|
|
|
return LBER_ERROR;
|
2006-04-18 18:41:03 +00:00
|
|
|
#endif
|
2005-07-18 18:06:42 +00:00
|
|
|
}
|