Branch: Tag:

2004-06-18

2004-06-18 14:54:03 by Anders Johansson <anders@roxen.com>

Backported fix from 7.4 to make ldaps work again.

Rev: lib/modules/Protocols.pmod/LDAP.pmod/client.pike:1.34

2:      // LDAP client protocol implementation for Pike.   // - // $Id: client.pike,v 1.33 2003/12/05 14:58:08 wellhard Exp $ + // $Id: client.pike,v 1.34 2004/06/18 14:54:03 anders Exp $   //   // Honza Petrous, hop@unibase.cz   //
358:    void create(string|void url, object|void context)    {    -  info = ([ "code_revision" : ("$Revision: 1.33 $"/" ")[1] ]); +  info = ([ "code_revision" : ("$Revision: 1.34 $"/" ")[1] ]);       if(!url || !sizeof(url))    url = LDAP_DEFAULT_URL;
399:    }       if(lauth->scheme == "ldaps") { + #if constant(SSL.sslfile)    context->random = Crypto.randomness.reasonably_random()->read; -  ::create(SSL.sslfile(::_fd, context, 1,1)); +  ::create(SSL.sslfile(this_object(), context, 1,1));    info->tls_version = ldapfd->version; -  + #else +  error("LDAP: LDAPS is not available without SSL support.\n"); + #endif    } else    ::create(::_fd);