pike.git / lib / modules / Protocols.pmod / LDAP.pmod / client.pike

version» Context lines:

pike.git/lib/modules/Protocols.pmod/LDAP.pmod/client.pike:1:   #pike __REAL_VERSION__      // LDAP client protocol implementation for Pike.   // - // $Id: client.pike,v 1.116 2008/09/07 22:48:58 mast Exp $ + // $Id: client.pike,v 1.117 2008/10/29 14:19:08 mast Exp $   //   // Honza Petrous, hop@unibase.cz   //   // ----------------------------------------------------------------------   //   // History:   //   // v0.0 1998-05-25 Starting up!   // v1.0 1998-06-21 Core functions (open, bind, unbind, delete, add,   // compare, search), only V2 operations,
pike.git/lib/modules/Protocols.pmod/LDAP.pmod/client.pike:694: Inside #if undefined(PARSE_RFCS) and #if constant(SSL.Cipher.CipherAlgorithm)
   context = SSL.context();    // Allow only strong crypto    context->preferred_suites = ({    SSL_rsa_with_idea_cbc_sha,    SSL_rsa_with_rc4_128_sha,    SSL_rsa_with_rc4_128_md5,    SSL_rsa_with_3des_ede_cbc_sha,    });    }   #endif +  +  Stdio.File low_fd = Stdio.File(); +     if(!(low_fd->connect(lauth->host, lauth->port))) {    //errno = ldapfd->errno(); -  seterr (LDAP_SERVER_DOWN); -  DWRITE("client.create: ERROR: can't open socket.\n"); +  seterr (LDAP_SERVER_DOWN, strerror (low_fd->errno()));    //ldapfd->destroy();    //ldap=0;    //ok = 0;    //if(con_fail)    // con_fail(this, @extra_args); -  THROW(({"Failed to connect to LDAP server.\n",backtrace()})); +  ERROR ("Failed to connect to LDAP server: %s\n", ldap_rem_errstr);    }      #if constant(SSL.Cipher.CipherAlgorithm)    if(lauth->scheme == "ldaps") {    context->random = Crypto.Random.random_string;    ::create(SSL.sslfile(low_fd, context, 1,1));    info->tls_version = ldapfd->version;    } else    ::create(low_fd);   #else