Mercurial > hg > xemacs-beta

comparison src/eldap.c @ 388:aabb7f5b1c81 r21-2-9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-9
author cvs
date Mon, 13 Aug 2007 11:09:42 +0200
parents bbff43aa5eb7
children 74fd4e045ea6
comparison
equal deleted inserted replaced
387:f892a9d0bb8d 388:aabb7f5b1c81
25 /* This file provides lisp primitives for access to an LDAP library 25 /* This file provides lisp primitives for access to an LDAP library
26 conforming to the API defined in RFC 1823. 26 conforming to the API defined in RFC 1823.
27 It has been tested with: 27 It has been tested with:
28 - UMich LDAP 3.3 (http://www.umich.edu/~dirsvcs/ldap/) 28 - UMich LDAP 3.3 (http://www.umich.edu/~dirsvcs/ldap/)
29 - OpenLDAP 1.0.3 (http://www.openldap.org/) 29 - OpenLDAP 1.0.3 (http://www.openldap.org/)
30 - Netscape's LDAP SDK 1.0 (http://developer.netscape.com) */ 30 - Netscape's LDAP SDK 1.0 (http://developer.netscape.com/) */
31 31
32 32
33 #include <config.h> 33 #include <config.h>
34 #include "lisp.h" 34 #include "lisp.h"
35 #include "opaque.h" 35 #include "opaque.h"
286 { 286 {
287 ldap_port = ldap_default_port; 287 ldap_port = ldap_default_port;
288 } 288 }
289 289
290 /* Connect to the server and bind */ 290 /* Connect to the server and bind */
291 slow_down_interrupts ();
291 ld = ldap_open ((char *)XSTRING_DATA (host), ldap_port); 292 ld = ldap_open ((char *)XSTRING_DATA (host), ldap_port);
293 speed_up_interrupts ();
294
292 if (ld == NULL ) 295 if (ld == NULL )
293 signal_simple_error_2 ("Failed connecting to host", 296 signal_simple_error_2 ("Failed connecting to host",
294 host, 297 host,
295 lisp_strerror (errno)); 298 lisp_strerror (errno));
296 299
561 } 564 }
562 565
563 void 566 void
564 vars_of_eldap (void) 567 vars_of_eldap (void)
565 { 568 {
566 Fprovide (intern ("ldap"));
567 569
568 ldap_default_port = LDAP_PORT; 570 ldap_default_port = LDAP_PORT;
569 Vldap_default_base = Qnil; 571 Vldap_default_base = Qnil;
570 572
571 DEFVAR_INT ("ldap-default-port", &ldap_default_port /* 573 DEFVAR_INT ("ldap-default-port", &ldap_default_port /*