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 <stdio.h>
27 #include <stdarg.h>
28
29 #include "windef.h"
30 #include "winbase.h"
31 #include "winnls.h"
32
33 #ifdef HAVE_LDAP_H
34 #include <ldap.h>
35 #endif
36
37 #include "winldap_private.h"
38 #include "wldap32.h"
39
40 #ifdef HAVE_LDAP
41 /* Should eventually be determined by the algorithm documented on MSDN. */
42 static const WCHAR defaulthost[] = { 'l','o','c','a','l','h','o','s','t',0 };
43
44 /* Split a space separated string of hostnames into a string array */
45 static char **split_hostnames( const char *hostnames )
46 {
47 char **res, *str, *p, *q;
48 unsigned int i = 0;
49
50 str = strdupU( hostnames );
51 if (!str) return NULL;
52
53 p = str;
54 while (isspace( *p )) p++;
55 if (*p) i++;
56
57 while (*p)
58 {
59 if (isspace( *p ))
60 {
61 while (isspace( *p )) p++;
62 if (*p) i++;
63 }
64 p++;
65 }
66
67 res = HeapAlloc( GetProcessHeap(), 0, (i + 1) * sizeof(char *) );
68 if (!res)
69 {
70 HeapFree( GetProcessHeap(), 0, str );
71 return NULL;
72 }
73
74 p = str;
75 while (isspace( *p )) p++;
76
77 q = p;
78 i = 0;
79
80 while (*p)
81 {
82 if (p[1] != '\0')
83 {
84 if (isspace( *p ))
85 {
86 *p = '\0'; p++;
87 res[i] = strdupU( q );
88 if (!res[i]) goto oom;
89 i++;
90
91 while (isspace( *p )) p++;
92 q = p;
93 }
94 }
95 else
96 {
97 res[i] = strdupU( q );
98 if (!res[i]) goto oom;
99 i++;
100 }
101 p++;
102 }
103 res[i] = NULL;
104
105 HeapFree( GetProcessHeap(), 0, str );
106 return res;
107
108 oom:
109 while (i > 0) strfreeU( res[--i] );
110
111 HeapFree( GetProcessHeap(), 0, res );
112 HeapFree( GetProcessHeap(), 0, str );
113
114 return NULL;
115 }
116
117 /* Determine if a URL starts with a known LDAP scheme */
118 static int has_ldap_scheme( char *url )
119 {
120 if (!strncasecmp( url, "ldap://", 7 ) ||
121 !strncasecmp( url, "ldaps://", 8 ) ||
122 !strncasecmp( url, "ldapi://", 8 ) ||
123 !strncasecmp( url, "cldap://", 8 )) return 1;
124 return 0;
125 }
126
127 /* Flatten an array of hostnames into a space separated string of URLs.
128 * Prepend a given scheme and append a given portnumber to each hostname
129 * if necessary.
130 */
131 static char *join_hostnames( const char *scheme, char **hostnames, ULONG portnumber )
132 {
133 char *res, *p, *q, **v;
134 unsigned int i = 0, size = 0;
135 static const char sep[] = " ", fmt[] = ":%d";
136 char port[7];
137
138 sprintf( port, fmt, portnumber );
139
140 for (v = hostnames; *v; v++)
141 {
142 if (!has_ldap_scheme( *v ))
143 {
144 size += strlen( scheme );
145 q = *v;
146 }
147 else
148 /* skip past colon in scheme prefix */
149 q = strchr( *v, '/' );
150
151 size += strlen( *v );
152
153 if (!strchr( q, ':' ))
154 size += strlen( port );
155
156 i++;
157 }
158
159 size += (i - 1) * strlen( sep );
160
161 res = HeapAlloc( GetProcessHeap(), 0, size + 1 );
162 if (!res) return NULL;
163
164 p = res;
165 for (v = hostnames; *v; v++)
166 {
167 if (v != hostnames)
168 {
169 strcpy( p, sep );
170 p += strlen( sep );
171 }
172
173 if (!has_ldap_scheme( *v ))
174 {
175 strcpy( p, scheme );
176 p += strlen( scheme );
177 q = *v;
178 }
179 else
180 /* skip past colon in scheme prefix */
181 q = strchr( *v, '/' );
182
183 strcpy( p, *v );
184 p += strlen( *v );
185
186 if (!strchr( q, ':' ))
187 {
188 strcpy( p, port );
189 p += strlen( port );
190 }
191 }
192 return res;
193 }
194
195 static char *urlify_hostnames( const char *scheme, char *hostnames, ULONG port )
196 {
197 char *url = NULL, **strarray;
198
199 strarray = split_hostnames( hostnames );
200 if (strarray)
201 url = join_hostnames( scheme, strarray, port );
202 else
203 return NULL;
204
205 strarrayfreeU( strarray );
206 return url;
207 }
208 #endif
209
210 WINE_DEFAULT_DEBUG_CHANNEL(wldap32);
211
212 /***********************************************************************
213 * cldap_openA (WLDAP32.@)
214 *
215 * See cldap_openW.
216 */
217 WLDAP32_LDAP * CDECL cldap_openA( PCHAR hostname, ULONG portnumber )
218 {
219 #ifdef HAVE_LDAP
220 WLDAP32_LDAP *ld = NULL;
221 WCHAR *hostnameW = NULL;
222
223 TRACE( "(%s, %d)\n", debugstr_a(hostname), portnumber );
224
225 if (hostname) {
226 hostnameW = strAtoW( hostname );
227 if (!hostnameW) goto exit;
228 }
229
230 ld = cldap_openW( hostnameW, portnumber );
231
232 exit:
233 strfreeW( hostnameW );
234 return ld;
235
236 #else
237 return NULL;
238 #endif
239 }
240
241 /***********************************************************************
242 * cldap_openW (WLDAP32.@)
243 *
244 * Initialize an LDAP context and create a UDP connection.
245 *
246 * PARAMS
247 * hostname [I] Name of the host to connect to.
248 * portnumber [I] Portnumber to use.
249 *
250 * RETURNS
251 * Success: Pointer to an LDAP context.
252 * Failure: NULL
253 *
254 * NOTES
255 * The hostname string can be a space separated string of hostnames,
256 * in which case the LDAP runtime will try to connect to the hosts
257 * in order, until a connection can be made. A hostname may have a
258 * trailing portnumber (separated from the hostname by a ':'), which
259 * will take precedence over the portnumber supplied as a parameter
260 * to this function.
261 */
262 WLDAP32_LDAP * CDECL cldap_openW( PWCHAR hostname, ULONG portnumber )
263 {
264 #ifdef HAVE_LDAP
265 LDAP *ld = NULL;
266 char *hostnameU = NULL, *url = NULL;
267
268 TRACE( "(%s, %d)\n", debugstr_w(hostname), portnumber );
269
270 if (hostname) {
271 hostnameU = strWtoU( hostname );
272 if (!hostnameU) goto exit;
273 }
274 else {
275 hostnameU = strWtoU( defaulthost );
276 if (!hostnameU) goto exit;
277 }
278
279 url = urlify_hostnames( "cldap://", hostnameU, portnumber );
280 if (!url) goto exit;
281
282 ldap_initialize( &ld, url );
283
284 exit:
285 strfreeU( hostnameU );
286 strfreeU( url );
287 return ld;
288
289 #else
290 return NULL;
291 #endif
292 }
293
294 /***********************************************************************
295 * ldap_connect (WLDAP32.@)
296 *
297 * Connect to an LDAP server.
298 *
299 * PARAMS
300 * ld [I] Pointer to an LDAP context.
301 * timeout [I] Pointer to an l_timeval structure specifying the
302 * timeout in seconds.
303 *
304 * RETURNS
305 * Success: LDAP_SUCCESS
306 * Failure: An LDAP error code.
307 *
308 * NOTES
309 * The timeout parameter may be NULL in which case a default timeout
310 * value will be used.
311 */
312 ULONG CDECL ldap_connect( WLDAP32_LDAP *ld, struct l_timeval *timeout )
313 {
314 TRACE( "(%p, %p)\n", ld, timeout );
315
316 if (!ld) return WLDAP32_LDAP_PARAM_ERROR;
317 return WLDAP32_LDAP_SUCCESS; /* FIXME: do something, e.g. ping the host */
318 }
319
320 /***********************************************************************
321 * ldap_initA (WLDAP32.@)
322 *
323 * See ldap_initW.
324 */
325 WLDAP32_LDAP * CDECL ldap_initA( PCHAR hostname, ULONG portnumber )
326 {
327 #ifdef HAVE_LDAP
328 WLDAP32_LDAP *ld = NULL;
329 WCHAR *hostnameW = NULL;
330
331 TRACE( "(%s, %d)\n", debugstr_a(hostname), portnumber );
332
333 if (hostname) {
334 hostnameW = strAtoW( hostname );
335 if (!hostnameW) goto exit;
336 }
337
338 ld = ldap_initW( hostnameW, portnumber );
339
340 exit:
341 strfreeW( hostnameW );
342 return ld;
343
344 #else
345 return NULL;
346 #endif
347 }
348
349 /***********************************************************************
350 * ldap_initW (WLDAP32.@)
351 *
352 * Initialize an LDAP context and create a TCP connection.
353 *
354 * PARAMS
355 * hostname [I] Name of the host to connect to.
356 * portnumber [I] Portnumber to use.
357 *
358 * RETURNS
359 * Success: Pointer to an LDAP context.
360 * Failure: NULL
361 *
362 * NOTES
363 * The hostname string can be a space separated string of hostnames,
364 * in which case the LDAP runtime will try to connect to the hosts
365 * in order, until a connection can be made. A hostname may have a
366 * trailing portnumber (separated from the hostname by a ':'), which
367 * will take precedence over the portnumber supplied as a parameter
368 * to this function. The connection will not be made until the first
369 * LDAP function that needs it is called.
370 */
371 WLDAP32_LDAP * CDECL ldap_initW( PWCHAR hostname, ULONG portnumber )
372 {
373 #ifdef HAVE_LDAP
374 LDAP *ld = NULL;
375 char *hostnameU = NULL, *url = NULL;
376
377 TRACE( "(%s, %d)\n", debugstr_w(hostname), portnumber );
378
379 if (hostname) {
380 hostnameU = strWtoU( hostname );
381 if (!hostnameU) goto exit;
382 }
383 else {
384 hostnameU = strWtoU( defaulthost );
385 if (!hostnameU) goto exit;
386 }
387
388 url = urlify_hostnames( "ldap://", hostnameU, portnumber );
389 if (!url) goto exit;
390
391 ldap_initialize( &ld, url );
392
393 exit:
394 strfreeU( hostnameU );
395 strfreeU( url );
396 return ld;
397
398 #else
399 return NULL;
400 #endif
401 }
402
403 /***********************************************************************
404 * ldap_openA (WLDAP32.@)
405 *
406 * See ldap_openW.
407 */
408 WLDAP32_LDAP * CDECL ldap_openA( PCHAR hostname, ULONG portnumber )
409 {
410 #ifdef HAVE_LDAP
411 WLDAP32_LDAP *ld = NULL;
412 WCHAR *hostnameW = NULL;
413
414 TRACE( "(%s, %d)\n", debugstr_a(hostname), portnumber );
415
416 if (hostname) {
417 hostnameW = strAtoW( hostname );
418 if (!hostnameW) goto exit;
419 }
420
421 ld = ldap_openW( hostnameW, portnumber );
422
423 exit:
424 strfreeW( hostnameW );
425 return ld;
426
427 #else
428 return NULL;
429 #endif
430 }
431
432 /***********************************************************************
433 * ldap_openW (WLDAP32.@)
434 *
435 * Initialize an LDAP context and create a TCP connection.
436 *
437 * PARAMS
438 * hostname [I] Name of the host to connect to.
439 * portnumber [I] Portnumber to use.
440 *
441 * RETURNS
442 * Success: Pointer to an LDAP context.
443 * Failure: NULL
444 *
445 * NOTES
446 * The hostname string can be a space separated string of hostnames,
447 * in which case the LDAP runtime will try to connect to the hosts
448 * in order, until a connection can be made. A hostname may have a
449 * trailing portnumber (separated from the hostname by a ':'), which
450 * will take precedence over the portnumber supplied as a parameter
451 * to this function.
452 */
453 WLDAP32_LDAP * CDECL ldap_openW( PWCHAR hostname, ULONG portnumber )
454 {
455 #ifdef HAVE_LDAP
456 LDAP *ld = NULL;
457 char *hostnameU = NULL, *url = NULL;
458
459 TRACE( "(%s, %d)\n", debugstr_w(hostname), portnumber );
460
461 if (hostname) {
462 hostnameU = strWtoU( hostname );
463 if (!hostnameU) goto exit;
464 }
465 else {
466 hostnameU = strWtoU( defaulthost );
467 if (!hostnameU) goto exit;
468 }
469
470 url = urlify_hostnames( "ldap://", hostnameU, portnumber );
471 if (!url) goto exit;
472
473 ldap_initialize( &ld, url );
474
475 exit:
476 strfreeU( hostnameU );
477 strfreeU( url );
478 return ld;
479
480 #else
481 return NULL;
482 #endif
483 }
484
485 /***********************************************************************
486 * ldap_sslinitA (WLDAP32.@)
487 *
488 * See ldap_sslinitW.
489 */
490 WLDAP32_LDAP * CDECL ldap_sslinitA( PCHAR hostname, ULONG portnumber, int secure )
491 {
492 #ifdef HAVE_LDAP
493 WLDAP32_LDAP *ld;
494 WCHAR *hostnameW = NULL;
495
496 TRACE( "(%s, %d, 0x%08x)\n", debugstr_a(hostname), portnumber, secure );
497
498 if (hostname) {
499 hostnameW = strAtoW( hostname );
500 if (!hostnameW) return NULL;
501 }
502
503 ld = ldap_sslinitW( hostnameW, portnumber, secure );
504
505 strfreeW( hostnameW );
506 return ld;
507
508 #else
509 return NULL;
510 #endif
511 }
512
513 /***********************************************************************
514 * ldap_sslinitW (WLDAP32.@)
515 *
516 * Initialize an LDAP context and create a secure TCP connection.
517 *
518 * PARAMS
519 * hostname [I] Name of the host to connect to.
520 * portnumber [I] Portnumber to use.
521 * secure [I] Ask the server to create an SSL connection.
522 *
523 * RETURNS
524 * Success: Pointer to an LDAP context.
525 * Failure: NULL
526 *
527 * NOTES
528 * The hostname string can be a space separated string of hostnames,
529 * in which case the LDAP runtime will try to connect to the hosts
530 * in order, until a connection can be made. A hostname may have a
531 * trailing portnumber (separated from the hostname by a ':'), which
532 * will take precedence over the portnumber supplied as a parameter
533 * to this function. The connection will not be made until the first
534 * LDAP function that needs it is called.
535 */
536 WLDAP32_LDAP * CDECL ldap_sslinitW( PWCHAR hostname, ULONG portnumber, int secure )
537 {
538 #ifdef HAVE_LDAP
539 WLDAP32_LDAP *ld = NULL;
540 char *hostnameU = NULL, *url = NULL;
541
542 TRACE( "(%s, %d, 0x%08x)\n", debugstr_w(hostname), portnumber, secure );
543
544 if (hostname) {
545 hostnameU = strWtoU( hostname );
546 if (!hostnameU) goto exit;
547 }
548 else {
549 hostnameU = strWtoU( defaulthost );
550 if (!hostnameU) goto exit;
551 }
552
553 if (secure)
554 url = urlify_hostnames( "ldaps://", hostnameU, portnumber );
555 else
556 url = urlify_hostnames( "ldap://", hostnameU, portnumber );
557
558 if (!url) goto exit;
559 ldap_initialize( &ld, url );
560
561 exit:
562 strfreeU( hostnameU );
563 strfreeU( url );
564 return ld;
565
566 #else
567 return NULL;
568 #endif
569 }
570
571 /***********************************************************************
572 * ldap_start_tls_sA (WLDAP32.@)
573 *
574 * See ldap_start_tls_sW.
575 */
576 ULONG CDECL ldap_start_tls_sA( WLDAP32_LDAP *ld, PULONG retval, WLDAP32_LDAPMessage **result,
577 PLDAPControlA *serverctrls, PLDAPControlA *clientctrls )
578 {
579 ULONG ret = WLDAP32_LDAP_NOT_SUPPORTED;
580 #ifdef HAVE_LDAP
581 LDAPControlW **serverctrlsW = NULL, **clientctrlsW = NULL;
582
583 ret = WLDAP32_LDAP_NO_MEMORY;
584
585 TRACE( "(%p, %p, %p, %p, %p)\n", ld, retval, result, serverctrls, clientctrls );
586
587 if (!ld) return ~0UL;
588
589 if (serverctrls) {
590 serverctrlsW = controlarrayAtoW( serverctrls );
591 if (!serverctrlsW) goto exit;
592 }
593 if (clientctrls) {
594 clientctrlsW = controlarrayAtoW( clientctrls );
595 if (!clientctrlsW) goto exit;
596 }
597
598 ret = ldap_start_tls_sW( ld, retval, result, serverctrlsW, clientctrlsW );
599
600 exit:
601 controlarrayfreeW( serverctrlsW );
602 controlarrayfreeW( clientctrlsW );
603
604 #endif
605 return ret;
606 }
607
608 /***********************************************************************
609 * ldap_start_tls_s (WLDAP32.@)
610 *
611 * Start TLS encryption on an LDAP connection.
612 *
613 * PARAMS
614 * ld [I] Pointer to an LDAP context.
615 * retval [I] Return value from the server.
616 * result [I] Response message from the server.
617 * serverctrls [I] Array of LDAP server controls.
618 * clientctrls [I] Array of LDAP client controls.
619 *
620 * RETURNS
621 * Success: LDAP_SUCCESS
622 * Failure: An LDAP error code.
623 *
624 * NOTES
625 * LDAP function that needs it is called.
626 */
627 ULONG CDECL ldap_start_tls_sW( WLDAP32_LDAP *ld, PULONG retval, WLDAP32_LDAPMessage **result,
628 PLDAPControlW *serverctrls, PLDAPControlW *clientctrls )
629 {
630 ULONG ret = WLDAP32_LDAP_NOT_SUPPORTED;
631 #ifdef HAVE_LDAP
632 LDAPControl **serverctrlsU = NULL, **clientctrlsU = NULL;
633
634 ret = WLDAP32_LDAP_NO_MEMORY;
635
636 TRACE( "(%p, %p, %p, %p, %p)\n", ld, retval, result, serverctrls, clientctrls );
637
638 if (!ld) return ~0UL;
639
640 if (serverctrls) {
641 serverctrlsU = controlarrayWtoU( serverctrls );
642 if (!serverctrlsU) goto exit;
643 }
644 if (clientctrls) {
645 clientctrlsU = controlarrayWtoU( clientctrls );
646 if (!clientctrlsU) goto exit;
647 }
648
649 ret = ldap_start_tls_s( ld, serverctrlsU, clientctrlsU );
650
651 exit:
652 controlarrayfreeU( serverctrlsU );
653 controlarrayfreeU( clientctrlsU );
654
655 #endif
656 return ret;
657 }
658
659 /***********************************************************************
660 * ldap_startup (WLDAP32.@)
661 */
662 ULONG CDECL ldap_startup( PLDAP_VERSION_INFO version, HANDLE *instance )
663 {
664 TRACE( "(%p, %p)\n", version, instance );
665 return WLDAP32_LDAP_SUCCESS;
666 }
667
668 /***********************************************************************
669 * ldap_stop_tls_s (WLDAP32.@)
670 *
671 * Stop TLS encryption on an LDAP connection.
672 *
673 * PARAMS
674 * ld [I] Pointer to an LDAP context.
675 *
676 * RETURNS
677 * Success: TRUE
678 * Failure: FALSE
679 */
680 BOOLEAN CDECL ldap_stop_tls_s( WLDAP32_LDAP *ld )
681 {
682 TRACE( "(%p)\n", ld );
683 return TRUE; /* FIXME: find a way to stop tls on a connection */
684 }
685
This page was automatically generated by the
LXR engine.
Visit the LXR main site for more
information.