Annotation of embedaddon/php/ext/ldap/ldap.c, revision 1.1

1.1     ! misho       1: /*
        !             2:    +----------------------------------------------------------------------+
        !             3:    | PHP Version 5                                                        |
        !             4:    +----------------------------------------------------------------------+
        !             5:    | Copyright (c) 1997-2012 The PHP Group                                |
        !             6:    +----------------------------------------------------------------------+
        !             7:    | This source file is subject to version 3.01 of the PHP license,      |
        !             8:    | that is bundled with this package in the file LICENSE, and is        |
        !             9:    | available through the world-wide-web at the following url:           |
        !            10:    | http://www.php.net/license/3_01.txt                                  |
        !            11:    | If you did not receive a copy of the PHP license and are unable to   |
        !            12:    | obtain it through the world-wide-web, please send a note to          |
        !            13:    | license@php.net so we can mail you a copy immediately.               |
        !            14:    +----------------------------------------------------------------------+
        !            15:    | Authors: Amitay Isaacs  <amitay@w-o-i.com>                           |
        !            16:    |          Eric Warnke    <ericw@albany.edu>                           |
        !            17:    |          Rasmus Lerdorf <rasmus@php.net>                             |
        !            18:    |          Gerrit Thomson <334647@swin.edu.au>                         |
        !            19:    |          Jani Taskinen  <sniper@iki.fi>                              |
        !            20:    |          Stig Venaas    <venaas@uninett.no>                          |
        !            21:    |          Doug Goldstein <cardoe@cardoe.com>                          |
        !            22:    | PHP 4.0 updates:  Zeev Suraski <zeev@zend.com>                       |
        !            23:    +----------------------------------------------------------------------+
        !            24:  */
        !            25:  
        !            26: /* $Id: ldap.c 321634 2012-01-01 13:15:04Z felipe $ */
        !            27: #define IS_EXT_MODULE
        !            28: 
        !            29: #ifdef HAVE_CONFIG_H
        !            30: #include "config.h"
        !            31: #endif
        !            32: 
        !            33: /* Additional headers for NetWare */
        !            34: #if defined(NETWARE) && (NEW_LIBC)
        !            35: #include <sys/select.h>
        !            36: #include <sys/timeval.h>
        !            37: #endif
        !            38: 
        !            39: #include "php.h"
        !            40: #include "php_ini.h"
        !            41: 
        !            42: #include <stddef.h>
        !            43: 
        !            44: #include "ext/standard/dl.h"
        !            45: #include "php_ldap.h"
        !            46: 
        !            47: #ifdef PHP_WIN32
        !            48: #include <string.h>
        !            49: #include "config.w32.h"
        !            50: #if HAVE_NSLDAP
        !            51: #include <winsock2.h>
        !            52: #endif
        !            53: #define strdup _strdup
        !            54: #undef WINDOWS
        !            55: #undef strcasecmp
        !            56: #undef strncasecmp
        !            57: #define WINSOCK 1
        !            58: #define __STDC__ 1
        !            59: #endif
        !            60: 
        !            61: #include "ext/standard/php_string.h"
        !            62: #include "ext/standard/info.h"
        !            63: 
        !            64: #ifdef HAVE_LDAP_SASL_H
        !            65: #include <sasl.h>
        !            66: #elif defined(HAVE_LDAP_SASL_SASL_H)
        !            67: #include <sasl/sasl.h>
        !            68: #endif
        !            69: 
        !            70: typedef struct {
        !            71:        LDAP *link;
        !            72: #if defined(LDAP_API_FEATURE_X_OPENLDAP) && defined(HAVE_3ARG_SETREBINDPROC)
        !            73:        zval *rebindproc;
        !            74: #endif
        !            75: } ldap_linkdata;
        !            76: 
        !            77: typedef struct {
        !            78:        LDAPMessage *data;
        !            79:        BerElement *ber;
        !            80:        int id;
        !            81: } ldap_resultentry;
        !            82: 
        !            83: ZEND_DECLARE_MODULE_GLOBALS(ldap)
        !            84: static PHP_GINIT_FUNCTION(ldap);
        !            85: 
        !            86: static int le_link, le_result, le_result_entry;
        !            87: 
        !            88: #ifdef COMPILE_DL_LDAP
        !            89: ZEND_GET_MODULE(ldap)
        !            90: #endif
        !            91: 
        !            92: static void _close_ldap_link(zend_rsrc_list_entry *rsrc TSRMLS_DC) /* {{{ */
        !            93: {
        !            94:        ldap_linkdata *ld = (ldap_linkdata *)rsrc->ptr;
        !            95: 
        !            96:        ldap_unbind_s(ld->link);
        !            97: #if defined(LDAP_API_FEATURE_X_OPENLDAP) && defined(HAVE_3ARG_SETREBINDPROC)
        !            98:        if (ld->rebindproc != NULL) {
        !            99:                zval_dtor(ld->rebindproc);
        !           100:                FREE_ZVAL(ld->rebindproc);
        !           101:        }
        !           102: #endif
        !           103:        efree(ld);
        !           104:        LDAPG(num_links)--;
        !           105: }
        !           106: /* }}} */
        !           107: 
        !           108: static void _free_ldap_result(zend_rsrc_list_entry *rsrc TSRMLS_DC) /* {{{ */
        !           109: {
        !           110:        LDAPMessage *result = (LDAPMessage *)rsrc->ptr;
        !           111:        ldap_msgfree(result);
        !           112: }
        !           113: /* }}} */
        !           114: 
        !           115: static void _free_ldap_result_entry(zend_rsrc_list_entry *rsrc TSRMLS_DC) /* {{{ */
        !           116: {
        !           117:        ldap_resultentry *entry = (ldap_resultentry *)rsrc->ptr;
        !           118: 
        !           119:        if (entry->ber != NULL) {
        !           120:                ber_free(entry->ber, 0);
        !           121:                entry->ber = NULL;
        !           122:        }
        !           123:        zend_list_delete(entry->id);
        !           124:        efree(entry);
        !           125: } 
        !           126: /* }}} */
        !           127: 
        !           128: /* {{{ PHP_INI_BEGIN
        !           129:  */
        !           130: PHP_INI_BEGIN()
        !           131:        STD_PHP_INI_ENTRY_EX("ldap.max_links", "-1", PHP_INI_SYSTEM, OnUpdateLong, max_links, zend_ldap_globals, ldap_globals, display_link_numbers)
        !           132: PHP_INI_END()
        !           133: /* }}} */
        !           134: 
        !           135: /* {{{ PHP_GINIT_FUNCTION
        !           136:  */
        !           137: static PHP_GINIT_FUNCTION(ldap)
        !           138: {
        !           139:        ldap_globals->num_links = 0;
        !           140: }
        !           141: /* }}} */
        !           142: 
        !           143: /* {{{ PHP_MINIT_FUNCTION
        !           144:  */
        !           145: PHP_MINIT_FUNCTION(ldap)
        !           146: {
        !           147:        REGISTER_INI_ENTRIES();
        !           148: 
        !           149:        /* Constants to be used with deref-parameter in php_ldap_do_search() */
        !           150:        REGISTER_LONG_CONSTANT("LDAP_DEREF_NEVER", LDAP_DEREF_NEVER, CONST_PERSISTENT | CONST_CS);
        !           151:        REGISTER_LONG_CONSTANT("LDAP_DEREF_SEARCHING", LDAP_DEREF_SEARCHING, CONST_PERSISTENT | CONST_CS);
        !           152:        REGISTER_LONG_CONSTANT("LDAP_DEREF_FINDING", LDAP_DEREF_FINDING, CONST_PERSISTENT | CONST_CS);
        !           153:        REGISTER_LONG_CONSTANT("LDAP_DEREF_ALWAYS", LDAP_DEREF_ALWAYS, CONST_PERSISTENT | CONST_CS);
        !           154: 
        !           155: #if (LDAP_API_VERSION > 2000) || HAVE_NSLDAP || HAVE_ORALDAP_10
        !           156:        /* LDAP options */
        !           157:        REGISTER_LONG_CONSTANT("LDAP_OPT_DEREF", LDAP_OPT_DEREF, CONST_PERSISTENT | CONST_CS);
        !           158:        REGISTER_LONG_CONSTANT("LDAP_OPT_SIZELIMIT", LDAP_OPT_SIZELIMIT, CONST_PERSISTENT | CONST_CS);
        !           159:        REGISTER_LONG_CONSTANT("LDAP_OPT_TIMELIMIT", LDAP_OPT_TIMELIMIT, CONST_PERSISTENT | CONST_CS);
        !           160: #ifdef LDAP_OPT_NETWORK_TIMEOUT
        !           161:        REGISTER_LONG_CONSTANT("LDAP_OPT_NETWORK_TIMEOUT", LDAP_OPT_NETWORK_TIMEOUT, CONST_PERSISTENT | CONST_CS);
        !           162: #elif defined (LDAP_X_OPT_CONNECT_TIMEOUT)
        !           163:        REGISTER_LONG_CONSTANT("LDAP_OPT_NETWORK_TIMEOUT", LDAP_X_OPT_CONNECT_TIMEOUT, CONST_PERSISTENT | CONST_CS);
        !           164: #endif
        !           165:        REGISTER_LONG_CONSTANT("LDAP_OPT_PROTOCOL_VERSION", LDAP_OPT_PROTOCOL_VERSION, CONST_PERSISTENT | CONST_CS);
        !           166:        REGISTER_LONG_CONSTANT("LDAP_OPT_ERROR_NUMBER", LDAP_OPT_ERROR_NUMBER, CONST_PERSISTENT | CONST_CS);
        !           167:        REGISTER_LONG_CONSTANT("LDAP_OPT_REFERRALS", LDAP_OPT_REFERRALS, CONST_PERSISTENT | CONST_CS);
        !           168: #ifdef LDAP_OPT_RESTART
        !           169:        REGISTER_LONG_CONSTANT("LDAP_OPT_RESTART", LDAP_OPT_RESTART, CONST_PERSISTENT | CONST_CS);
        !           170: #endif
        !           171: #ifdef LDAP_OPT_HOST_NAME
        !           172:        REGISTER_LONG_CONSTANT("LDAP_OPT_HOST_NAME", LDAP_OPT_HOST_NAME, CONST_PERSISTENT | CONST_CS);
        !           173: #endif
        !           174:        REGISTER_LONG_CONSTANT("LDAP_OPT_ERROR_STRING", LDAP_OPT_ERROR_STRING, CONST_PERSISTENT | CONST_CS);
        !           175: #ifdef LDAP_OPT_MATCHED_DN
        !           176:        REGISTER_LONG_CONSTANT("LDAP_OPT_MATCHED_DN", LDAP_OPT_MATCHED_DN, CONST_PERSISTENT | CONST_CS);
        !           177: #endif
        !           178:        REGISTER_LONG_CONSTANT("LDAP_OPT_SERVER_CONTROLS", LDAP_OPT_SERVER_CONTROLS, CONST_PERSISTENT | CONST_CS);
        !           179:        REGISTER_LONG_CONSTANT("LDAP_OPT_CLIENT_CONTROLS", LDAP_OPT_CLIENT_CONTROLS, CONST_PERSISTENT | CONST_CS);
        !           180: #endif
        !           181: #ifdef LDAP_OPT_DEBUG_LEVEL
        !           182:        REGISTER_LONG_CONSTANT("LDAP_OPT_DEBUG_LEVEL", LDAP_OPT_DEBUG_LEVEL, CONST_PERSISTENT | CONST_CS);
        !           183: #endif
        !           184: 
        !           185: #ifdef HAVE_LDAP_SASL
        !           186:        REGISTER_LONG_CONSTANT("LDAP_OPT_X_SASL_MECH", LDAP_OPT_X_SASL_MECH, CONST_PERSISTENT | CONST_CS);
        !           187:        REGISTER_LONG_CONSTANT("LDAP_OPT_X_SASL_REALM", LDAP_OPT_X_SASL_REALM, CONST_PERSISTENT | CONST_CS);
        !           188:        REGISTER_LONG_CONSTANT("LDAP_OPT_X_SASL_AUTHCID", LDAP_OPT_X_SASL_AUTHCID, CONST_PERSISTENT | CONST_CS);
        !           189:        REGISTER_LONG_CONSTANT("LDAP_OPT_X_SASL_AUTHZID", LDAP_OPT_X_SASL_AUTHZID, CONST_PERSISTENT | CONST_CS);
        !           190: #endif
        !           191: 
        !           192: #ifdef ORALDAP
        !           193:        REGISTER_LONG_CONSTANT("GSLC_SSL_NO_AUTH", GSLC_SSL_NO_AUTH, CONST_PERSISTENT | CONST_CS);
        !           194:        REGISTER_LONG_CONSTANT("GSLC_SSL_ONEWAY_AUTH", GSLC_SSL_ONEWAY_AUTH, CONST_PERSISTENT | CONST_CS);
        !           195:        REGISTER_LONG_CONSTANT("GSLC_SSL_TWOWAY_AUTH", GSLC_SSL_TWOWAY_AUTH, CONST_PERSISTENT | CONST_CS);
        !           196: #endif
        !           197: 
        !           198:        le_link = zend_register_list_destructors_ex(_close_ldap_link, NULL, "ldap link", module_number);
        !           199:        le_result = zend_register_list_destructors_ex(_free_ldap_result, NULL, "ldap result", module_number);
        !           200:        le_result_entry = zend_register_list_destructors_ex(_free_ldap_result_entry, NULL, "ldap result entry", module_number);
        !           201: 
        !           202:        Z_TYPE(ldap_module_entry) = type;
        !           203: 
        !           204:        return SUCCESS;
        !           205: }
        !           206: /* }}} */
        !           207: 
        !           208: /* {{{ PHP_MSHUTDOWN_FUNCTION
        !           209:  */
        !           210: PHP_MSHUTDOWN_FUNCTION(ldap)
        !           211: {
        !           212:        UNREGISTER_INI_ENTRIES();
        !           213:        return SUCCESS;
        !           214: }
        !           215: /* }}} */
        !           216: 
        !           217: /* {{{ PHP_MINFO_FUNCTION
        !           218:  */
        !           219: PHP_MINFO_FUNCTION(ldap)
        !           220: {
        !           221:        char tmp[32];
        !           222: #if HAVE_NSLDAP
        !           223:        LDAPVersion ver;
        !           224:        double SDKVersion;
        !           225: #endif
        !           226: 
        !           227:        php_info_print_table_start();
        !           228:        php_info_print_table_row(2, "LDAP Support", "enabled");
        !           229:        php_info_print_table_row(2, "RCS Version", "$Id: ldap.c 321634 2012-01-01 13:15:04Z felipe $");
        !           230: 
        !           231:        if (LDAPG(max_links) == -1) {
        !           232:                snprintf(tmp, 31, "%ld/unlimited", LDAPG(num_links));
        !           233:        } else {
        !           234:                snprintf(tmp, 31, "%ld/%ld", LDAPG(num_links), LDAPG(max_links));
        !           235:        }
        !           236:        php_info_print_table_row(2, "Total Links", tmp);
        !           237: 
        !           238: #ifdef LDAP_API_VERSION
        !           239:        snprintf(tmp, 31, "%d", LDAP_API_VERSION);
        !           240:        php_info_print_table_row(2, "API Version", tmp);
        !           241: #endif
        !           242: 
        !           243: #ifdef LDAP_VENDOR_NAME
        !           244:        php_info_print_table_row(2, "Vendor Name", LDAP_VENDOR_NAME);
        !           245: #endif
        !           246: 
        !           247: #ifdef LDAP_VENDOR_VERSION
        !           248:        snprintf(tmp, 31, "%d", LDAP_VENDOR_VERSION);
        !           249:        php_info_print_table_row(2, "Vendor Version", tmp);
        !           250: #endif
        !           251: 
        !           252: #if HAVE_NSLDAP
        !           253:        SDKVersion = ldap_version(&ver);
        !           254:        snprintf(tmp, 31, "%F", SDKVersion/100.0);
        !           255:        php_info_print_table_row(2, "SDK Version", tmp);
        !           256: 
        !           257:        snprintf(tmp, 31, "%F", ver.protocol_version/100.0);
        !           258:        php_info_print_table_row(2, "Highest LDAP Protocol Supported", tmp);
        !           259: 
        !           260:        snprintf(tmp, 31, "%F", ver.SSL_version/100.0);
        !           261:        php_info_print_table_row(2, "SSL Level Supported", tmp);
        !           262: 
        !           263:        if (ver.security_level != LDAP_SECURITY_NONE) {
        !           264:                snprintf(tmp, 31, "%d", ver.security_level);
        !           265:        } else {
        !           266:                strcpy(tmp, "SSL not enabled");
        !           267:        }
        !           268:        php_info_print_table_row(2, "Level of Encryption", tmp);
        !           269: #endif
        !           270: 
        !           271: #ifdef HAVE_LDAP_SASL
        !           272:        php_info_print_table_row(2, "SASL Support", "Enabled");
        !           273: #endif
        !           274: 
        !           275:        php_info_print_table_end();
        !           276:        DISPLAY_INI_ENTRIES();
        !           277: }
        !           278: /* }}} */
        !           279: 
        !           280: /* {{{ proto resource ldap_connect([string host [, int port [, string wallet [, string wallet_passwd [, int authmode]]]]])
        !           281:    Connect to an LDAP server */
        !           282: PHP_FUNCTION(ldap_connect)
        !           283: {
        !           284:        char *host = NULL;
        !           285:        int hostlen;
        !           286:        long port = 389; /* Default port */
        !           287: #ifdef HAVE_ORALDAP
        !           288:        char *wallet = NULL, *walletpasswd = NULL;
        !           289:        int walletlen = 0, walletpasswdlen = 0;
        !           290:        long authmode = GSLC_SSL_NO_AUTH;
        !           291:        int ssl=0;
        !           292: #endif
        !           293:        ldap_linkdata *ld;
        !           294:        LDAP *ldap;
        !           295: 
        !           296: #ifdef HAVE_ORALDAP
        !           297:        if (ZEND_NUM_ARGS() == 3 || ZEND_NUM_ARGS() == 4) {
        !           298:                WRONG_PARAM_COUNT;
        !           299:        }
        !           300: 
        !           301:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "|slssl", &host, &hostlen, &port, &wallet, &walletlen, &walletpasswd, &walletpasswdlen, &authmode) != SUCCESS) {
        !           302:                RETURN_FALSE;
        !           303:        }
        !           304: 
        !           305:        if (ZEND_NUM_ARGS() == 5) {
        !           306:                ssl = 1;
        !           307:        }
        !           308: #else
        !           309:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "|sl", &host, &hostlen, &port) != SUCCESS) {
        !           310:                RETURN_FALSE;
        !           311:        }
        !           312: #endif
        !           313: 
        !           314:        if (LDAPG(max_links) != -1 && LDAPG(num_links) >= LDAPG(max_links)) {
        !           315:                php_error_docref(NULL TSRMLS_CC, E_WARNING, "Too many open links (%ld)", LDAPG(num_links));
        !           316:                RETURN_FALSE;
        !           317:        }
        !           318: 
        !           319:        ld = ecalloc(1, sizeof(ldap_linkdata));
        !           320: 
        !           321: #ifdef LDAP_API_FEATURE_X_OPENLDAP
        !           322:        if (host != NULL && strchr(host, '/')) {
        !           323:                int rc;
        !           324:                
        !           325:                rc = ldap_initialize(&ldap, host);
        !           326:                if (rc != LDAP_SUCCESS) {
        !           327:                        efree(ld);
        !           328:                        php_error_docref(NULL TSRMLS_CC, E_WARNING, "Could not create session handle: %s", ldap_err2string(rc));
        !           329:                        RETURN_FALSE;
        !           330:                }
        !           331:        } else {
        !           332:                ldap = ldap_init(host, port);
        !           333:        }
        !           334: #else
        !           335:        ldap = ldap_open(host, port);
        !           336: #endif
        !           337:        
        !           338:        if (ldap == NULL) {
        !           339:                efree(ld);
        !           340:                RETURN_FALSE;
        !           341:        } else {
        !           342: #ifdef HAVE_ORALDAP
        !           343:                if (ssl) {
        !           344:                        if (ldap_init_SSL(&ldap->ld_sb, wallet, walletpasswd, authmode)) {
        !           345:                                efree(ld);
        !           346:                                php_error_docref(NULL TSRMLS_CC, E_WARNING, "SSL init failed");
        !           347:                                RETURN_FALSE;
        !           348:                        }
        !           349:                }                       
        !           350: #endif
        !           351:                LDAPG(num_links)++;
        !           352:                ld->link = ldap;
        !           353:                ZEND_REGISTER_RESOURCE(return_value, ld, le_link);
        !           354:        }
        !           355: 
        !           356: }
        !           357: /* }}} */
        !           358: 
        !           359: /* {{{ _get_lderrno
        !           360:  */
        !           361: static int _get_lderrno(LDAP *ldap)
        !           362: {
        !           363: #if !HAVE_NSLDAP
        !           364: #if LDAP_API_VERSION > 2000 || HAVE_ORALDAP_10
        !           365:        int lderr;
        !           366: 
        !           367:        /* New versions of OpenLDAP do it this way */
        !           368:        ldap_get_option(ldap, LDAP_OPT_ERROR_NUMBER, &lderr);
        !           369:        return lderr;
        !           370: #else
        !           371:        return ldap->ld_errno;
        !           372: #endif
        !           373: #else
        !           374:        return ldap_get_lderrno(ldap, NULL, NULL);
        !           375: #endif
        !           376: }
        !           377: /* }}} */
        !           378: 
        !           379: /* {{{ proto bool ldap_bind(resource link [, string dn [, string password]])
        !           380:    Bind to LDAP directory */
        !           381: PHP_FUNCTION(ldap_bind)
        !           382: {
        !           383:        zval *link;
        !           384:        char *ldap_bind_dn = NULL, *ldap_bind_pw = NULL;
        !           385:        int ldap_bind_dnlen, ldap_bind_pwlen;
        !           386:        ldap_linkdata *ld;
        !           387:        int rc;
        !           388: 
        !           389:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r|ss", &link, &ldap_bind_dn, &ldap_bind_dnlen, &ldap_bind_pw, &ldap_bind_pwlen) != SUCCESS) {
        !           390:                RETURN_FALSE;
        !           391:        }
        !           392: 
        !           393:        ZEND_FETCH_RESOURCE(ld, ldap_linkdata *, &link, -1, "ldap link", le_link);
        !           394: 
        !           395:        if ((rc = ldap_bind_s(ld->link, ldap_bind_dn, ldap_bind_pw, LDAP_AUTH_SIMPLE)) != LDAP_SUCCESS) {
        !           396:                php_error_docref(NULL TSRMLS_CC, E_WARNING, "Unable to bind to server: %s", ldap_err2string(rc));
        !           397:                RETURN_FALSE;
        !           398:        } else {
        !           399:                RETURN_TRUE;
        !           400:        }
        !           401: }
        !           402: /* }}} */
        !           403: 
        !           404: #ifdef HAVE_LDAP_SASL
        !           405: typedef struct {
        !           406:        char *mech;
        !           407:        char *realm;
        !           408:        char *authcid;
        !           409:        char *passwd;
        !           410:        char *authzid;
        !           411: } php_ldap_bictx;
        !           412: 
        !           413: /* {{{ _php_sasl_setdefs
        !           414:  */
        !           415: static php_ldap_bictx *_php_sasl_setdefs(LDAP *ld, char *sasl_mech, char *sasl_realm, char *sasl_authc_id, char *passwd, char *sasl_authz_id)
        !           416: {
        !           417:        php_ldap_bictx *ctx;
        !           418: 
        !           419:        ctx = ber_memalloc(sizeof(php_ldap_bictx));     
        !           420:        ctx->mech    = (sasl_mech) ? ber_strdup(sasl_mech) : NULL;
        !           421:        ctx->realm   = (sasl_realm) ? ber_strdup(sasl_realm) : NULL;
        !           422:        ctx->authcid = (sasl_authc_id) ? ber_strdup(sasl_authc_id) : NULL;
        !           423:        ctx->passwd  = (passwd) ? ber_strdup(passwd) : NULL;
        !           424:        ctx->authzid = (sasl_authz_id) ? ber_strdup(sasl_authz_id) : NULL;
        !           425: 
        !           426:        if (ctx->mech == NULL) {
        !           427:                ldap_get_option(ld, LDAP_OPT_X_SASL_MECH, &ctx->mech);
        !           428:        }
        !           429:        if (ctx->realm == NULL) {
        !           430:                ldap_get_option(ld, LDAP_OPT_X_SASL_REALM, &ctx->realm);
        !           431:        }
        !           432:        if (ctx->authcid == NULL) {
        !           433:                ldap_get_option(ld, LDAP_OPT_X_SASL_AUTHCID, &ctx->authcid);
        !           434:        }
        !           435:        if (ctx->authzid == NULL) {
        !           436:                ldap_get_option(ld, LDAP_OPT_X_SASL_AUTHZID, &ctx->authzid);
        !           437:        }
        !           438: 
        !           439:        return ctx;
        !           440: }
        !           441: /* }}} */
        !           442: 
        !           443: /* {{{ _php_sasl_freedefs
        !           444:  */
        !           445: static void _php_sasl_freedefs(php_ldap_bictx *ctx)
        !           446: {
        !           447:        if (ctx->mech) ber_memfree(ctx->mech);
        !           448:        if (ctx->realm) ber_memfree(ctx->realm);
        !           449:        if (ctx->authcid) ber_memfree(ctx->authcid);
        !           450:        if (ctx->passwd) ber_memfree(ctx->passwd);
        !           451:        if (ctx->authzid) ber_memfree(ctx->authzid);
        !           452:        ber_memfree(ctx);
        !           453: }
        !           454: /* }}} */
        !           455: 
        !           456: /* {{{ _php_sasl_interact
        !           457:    Internal interact function for SASL */
        !           458: static int _php_sasl_interact(LDAP *ld, unsigned flags, void *defaults, void *in)
        !           459: {
        !           460:        sasl_interact_t *interact = in;
        !           461:        const char *p;
        !           462:        php_ldap_bictx *ctx = defaults;
        !           463: 
        !           464:        for (;interact->id != SASL_CB_LIST_END;interact++) {
        !           465:                p = NULL;
        !           466:                switch(interact->id) {
        !           467:                        case SASL_CB_GETREALM:
        !           468:                                p = ctx->realm;
        !           469:                                break;
        !           470:                        case SASL_CB_AUTHNAME:
        !           471:                                p = ctx->authcid;
        !           472:                                break;
        !           473:                        case SASL_CB_USER:
        !           474:                                p = ctx->authzid;
        !           475:                                break;
        !           476:                        case SASL_CB_PASS:
        !           477:                                p = ctx->passwd;
        !           478:                                break;
        !           479:                }
        !           480:                if (p) {
        !           481:                        interact->result = p;
        !           482:                        interact->len = strlen(interact->result);
        !           483:                }
        !           484:        }
        !           485:        return LDAP_SUCCESS;
        !           486: }
        !           487: /* }}} */
        !           488: 
        !           489: /* {{{ proto bool ldap_sasl_bind(resource link [, string binddn [, string password [, string sasl_mech [, string sasl_realm [, string sasl_authc_id [, string sasl_authz_id [, string props]]]]]]])
        !           490:    Bind to LDAP directory using SASL */
        !           491: PHP_FUNCTION(ldap_sasl_bind)
        !           492: {
        !           493:        zval *link;
        !           494:        ldap_linkdata *ld;
        !           495:        char *binddn = NULL;
        !           496:        char *passwd = NULL;
        !           497:        char *sasl_mech = NULL;
        !           498:        char *sasl_realm = NULL;
        !           499:        char *sasl_authz_id = NULL;
        !           500:        char *sasl_authc_id = NULL;
        !           501:        char *props = NULL;
        !           502:        int rc, dn_len, passwd_len, mech_len, realm_len, authc_id_len, authz_id_len, props_len;
        !           503:        php_ldap_bictx *ctx;
        !           504: 
        !           505:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r|sssssss", &link, &binddn, &dn_len, &passwd, &passwd_len, &sasl_mech, &mech_len, &sasl_realm, &realm_len, &sasl_authc_id, &authc_id_len, &sasl_authz_id, &authz_id_len, &props, &props_len) != SUCCESS) {
        !           506:                RETURN_FALSE;
        !           507:        }
        !           508: 
        !           509:        ZEND_FETCH_RESOURCE(ld, ldap_linkdata *, &link, -1, "ldap link", le_link);
        !           510: 
        !           511:        ctx = _php_sasl_setdefs(ld->link, sasl_mech, sasl_realm, sasl_authc_id, passwd, sasl_authz_id);
        !           512: 
        !           513:        if (props) {
        !           514:                ldap_set_option(ld->link, LDAP_OPT_X_SASL_SECPROPS, props);
        !           515:        }
        !           516: 
        !           517:        rc = ldap_sasl_interactive_bind_s(ld->link, binddn, ctx->mech, NULL, NULL, LDAP_SASL_QUIET, _php_sasl_interact, ctx);
        !           518:        if (rc != LDAP_SUCCESS) {
        !           519:                php_error_docref(NULL TSRMLS_CC, E_WARNING, "Unable to bind to server: %s", ldap_err2string(rc));
        !           520:                RETVAL_FALSE;
        !           521:        } else {
        !           522:                RETVAL_TRUE;
        !           523:        }
        !           524:        _php_sasl_freedefs(ctx);
        !           525: }
        !           526: /* }}} */
        !           527: #endif /* HAVE_LDAP_SASL */
        !           528: 
        !           529: /* {{{ proto bool ldap_unbind(resource link)
        !           530:    Unbind from LDAP directory */
        !           531: PHP_FUNCTION(ldap_unbind)
        !           532: {
        !           533:        zval *link;
        !           534:        ldap_linkdata *ld;
        !           535: 
        !           536:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &link) != SUCCESS) {
        !           537:                RETURN_FALSE;
        !           538:        }
        !           539: 
        !           540:        ZEND_FETCH_RESOURCE(ld, ldap_linkdata *, &link, -1, "ldap link", le_link);
        !           541: 
        !           542:        zend_list_delete(Z_LVAL_P(link));
        !           543:        RETURN_TRUE;
        !           544: }
        !           545: /* }}} */
        !           546: 
        !           547: /* {{{ php_set_opts
        !           548:  */
        !           549: static void php_set_opts(LDAP *ldap, int sizelimit, int timelimit, int deref, int *old_sizelimit, int *old_timelimit, int *old_deref)
        !           550: {
        !           551:        /* sizelimit */
        !           552:        if (sizelimit > -1) {
        !           553: #if (LDAP_API_VERSION >= 2004) || HAVE_NSLDAP || HAVE_ORALDAP_10
        !           554:                ldap_get_option(ldap, LDAP_OPT_SIZELIMIT, old_sizelimit);
        !           555:                ldap_set_option(ldap, LDAP_OPT_SIZELIMIT, &sizelimit);
        !           556: #else
        !           557:                *old_sizelimit = ldap->ld_sizelimit; 
        !           558:                ldap->ld_sizelimit = sizelimit; 
        !           559: #endif
        !           560:        }
        !           561: 
        !           562:        /* timelimit */
        !           563:        if (timelimit > -1) {
        !           564: #if (LDAP_API_VERSION >= 2004) || HAVE_NSLDAP || HAVE_ORALDAP_10
        !           565:                ldap_get_option(ldap, LDAP_OPT_SIZELIMIT, old_timelimit);
        !           566:                ldap_set_option(ldap, LDAP_OPT_TIMELIMIT, &timelimit);
        !           567: #else
        !           568:                *old_timelimit = ldap->ld_timelimit; 
        !           569:                ldap->ld_timelimit = timelimit; 
        !           570: #endif
        !           571:        }
        !           572: 
        !           573:        /* deref */
        !           574:        if (deref > -1) {
        !           575: #if (LDAP_API_VERSION >= 2004) || HAVE_NSLDAP || HAVE_ORALDAP_10
        !           576:                ldap_get_option(ldap, LDAP_OPT_SIZELIMIT, old_deref);
        !           577:                ldap_set_option(ldap, LDAP_OPT_DEREF, &deref);
        !           578: #else
        !           579:                *old_deref = ldap->ld_deref; 
        !           580:                ldap->ld_deref = deref; 
        !           581: #endif
        !           582:        }
        !           583: }
        !           584: /* }}} */
        !           585: 
        !           586: /* {{{ php_ldap_do_search
        !           587:  */
        !           588: static void php_ldap_do_search(INTERNAL_FUNCTION_PARAMETERS, int scope)
        !           589: {
        !           590:        zval *link, *base_dn, **filter, *attrs, **attr;
        !           591:        long attrsonly, sizelimit, timelimit, deref;
        !           592:        char *ldap_base_dn = NULL, *ldap_filter = NULL, **ldap_attrs = NULL; 
        !           593:        ldap_linkdata *ld = NULL;
        !           594:        LDAPMessage *ldap_res;
        !           595:        int ldap_attrsonly = 0, ldap_sizelimit = -1, ldap_timelimit = -1, ldap_deref = -1;       
        !           596:        int old_ldap_sizelimit = -1, old_ldap_timelimit = -1, old_ldap_deref = -1;       
        !           597:        int num_attribs = 0, ret = 1, i, errno, argcount = ZEND_NUM_ARGS();
        !           598: 
        !           599:        if (zend_parse_parameters(argcount TSRMLS_CC, "zzZ|allll", &link, &base_dn, &filter, &attrs, &attrsonly,
        !           600:                &sizelimit, &timelimit, &deref) == FAILURE) {
        !           601:                return;
        !           602:        }
        !           603: 
        !           604:        /* Reverse -> fall through */
        !           605:        switch (argcount) {
        !           606:                case 8:
        !           607:                        ldap_deref = deref;
        !           608:                case 7:
        !           609:                        ldap_timelimit = timelimit;
        !           610:                case 6:
        !           611:                        ldap_sizelimit = sizelimit;
        !           612:                case 5:
        !           613:                        ldap_attrsonly = attrsonly;
        !           614:                case 4:
        !           615:                        num_attribs = zend_hash_num_elements(Z_ARRVAL_P(attrs));
        !           616:                        ldap_attrs = safe_emalloc((num_attribs+1), sizeof(char *), 0);
        !           617: 
        !           618:                        for (i = 0; i<num_attribs; i++) {
        !           619:                                if (zend_hash_index_find(Z_ARRVAL_P(attrs), i, (void **) &attr) != SUCCESS) {
        !           620:                                        php_error_docref(NULL TSRMLS_CC, E_WARNING, "Array initialization wrong");
        !           621:                                        ret = 0;
        !           622:                                        goto cleanup;
        !           623:                                }
        !           624: 
        !           625:                                SEPARATE_ZVAL(attr);
        !           626:                                convert_to_string_ex(attr);
        !           627:                                ldap_attrs[i] = Z_STRVAL_PP(attr);
        !           628:                        }
        !           629:                        ldap_attrs[num_attribs] = NULL;
        !           630:                default:
        !           631:                        break;
        !           632:        }
        !           633: 
        !           634:        /* parallel search? */
        !           635:        if (Z_TYPE_P(link) == IS_ARRAY) {
        !           636:                int i, nlinks, nbases, nfilters, *rcs;
        !           637:                ldap_linkdata **lds;
        !           638:                zval **entry, *resource;
        !           639:                
        !           640:                nlinks = zend_hash_num_elements(Z_ARRVAL_P(link));
        !           641:                if (nlinks == 0) {
        !           642:                        php_error_docref(NULL TSRMLS_CC, E_WARNING, "No links in link array");
        !           643:                        ret = 0;
        !           644:                        goto cleanup;
        !           645:                }
        !           646: 
        !           647:                if (Z_TYPE_P(base_dn) == IS_ARRAY) {
        !           648:                        nbases = zend_hash_num_elements(Z_ARRVAL_P(base_dn));
        !           649:                        if (nbases != nlinks) {
        !           650:                                php_error_docref(NULL TSRMLS_CC, E_WARNING, "Base must either be a string, or an array with the same number of elements as the links array");
        !           651:                                ret = 0;
        !           652:                                goto cleanup;
        !           653:                        }
        !           654:                        zend_hash_internal_pointer_reset(Z_ARRVAL_P(base_dn));
        !           655:                } else {
        !           656:                        nbases = 0; /* this means string, not array */
        !           657:                        /* If anything else than string is passed, ldap_base_dn = NULL */
        !           658:                        if (Z_TYPE_P(base_dn) == IS_STRING) {
        !           659:                                ldap_base_dn = Z_STRVAL_P(base_dn);
        !           660:                        } else {
        !           661:                                ldap_base_dn = NULL;
        !           662:                        }
        !           663:                }
        !           664: 
        !           665:                if (Z_TYPE_PP(filter) == IS_ARRAY) {
        !           666:                        nfilters = zend_hash_num_elements(Z_ARRVAL_PP(filter));
        !           667:                        if (nfilters != nlinks) {
        !           668:                                php_error_docref(NULL TSRMLS_CC, E_WARNING, "Filter must either be a string, or an array with the same number of elements as the links array");
        !           669:                                ret = 0;
        !           670:                                goto cleanup;
        !           671:                        }
        !           672:                        zend_hash_internal_pointer_reset(Z_ARRVAL_PP(filter));
        !           673:                } else {
        !           674:                        nfilters = 0; /* this means string, not array */
        !           675:                        convert_to_string_ex(filter);
        !           676:                        ldap_filter = Z_STRVAL_PP(filter);
        !           677:                }
        !           678: 
        !           679:                lds = safe_emalloc(nlinks, sizeof(ldap_linkdata), 0);
        !           680:                rcs = safe_emalloc(nlinks, sizeof(*rcs), 0);
        !           681:                
        !           682:                zend_hash_internal_pointer_reset(Z_ARRVAL_P(link));
        !           683:                for (i=0; i<nlinks; i++) {
        !           684:                        zend_hash_get_current_data(Z_ARRVAL_P(link), (void **)&entry);
        !           685: 
        !           686:                        ld = (ldap_linkdata *) zend_fetch_resource(entry TSRMLS_CC, -1, "ldap link", NULL, 1, le_link);
        !           687:                        if (ld == NULL) {
        !           688:                                ret = 0;
        !           689:                                goto cleanup_parallel;
        !           690:                        }
        !           691:                        if (nbases != 0) { /* base_dn an array? */
        !           692:                                zend_hash_get_current_data(Z_ARRVAL_P(base_dn), (void **)&entry);
        !           693:                                zend_hash_move_forward(Z_ARRVAL_P(base_dn));
        !           694: 
        !           695:                                /* If anything else than string is passed, ldap_base_dn = NULL */
        !           696:                                if (Z_TYPE_PP(entry) == IS_STRING) {
        !           697:                                        ldap_base_dn = Z_STRVAL_PP(entry);
        !           698:                                } else {
        !           699:                                        ldap_base_dn = NULL;
        !           700:                                }
        !           701:                        }
        !           702:                        if (nfilters != 0) { /* filter an array? */
        !           703:                                zend_hash_get_current_data(Z_ARRVAL_PP(filter), (void **)&entry);
        !           704:                                zend_hash_move_forward(Z_ARRVAL_PP(filter));
        !           705:                                convert_to_string_ex(entry);
        !           706:                                ldap_filter = Z_STRVAL_PP(entry);
        !           707:                        }
        !           708: 
        !           709:                        php_set_opts(ld->link, ldap_sizelimit, ldap_timelimit, ldap_deref, &old_ldap_sizelimit, &old_ldap_timelimit, &old_ldap_deref);
        !           710: 
        !           711:                        /* Run the actual search */     
        !           712:                        rcs[i] = ldap_search(ld->link, ldap_base_dn, scope, ldap_filter, ldap_attrs, ldap_attrsonly);
        !           713:                        lds[i] = ld;
        !           714:                        zend_hash_move_forward(Z_ARRVAL_P(link));
        !           715:                }
        !           716:                
        !           717:                array_init(return_value);
        !           718: 
        !           719:                /* Collect results from the searches */
        !           720:                for (i=0; i<nlinks; i++) {
        !           721:                        MAKE_STD_ZVAL(resource);
        !           722:                        if (rcs[i] != -1) {
        !           723:                                rcs[i] = ldap_result(lds[i]->link, LDAP_RES_ANY, 1 /* LDAP_MSG_ALL */, NULL, &ldap_res);
        !           724:                        }
        !           725:                        if (rcs[i] != -1) {
        !           726:                                ZEND_REGISTER_RESOURCE(resource, ldap_res, le_result);
        !           727:                                add_next_index_zval(return_value, resource);
        !           728:                        } else {
        !           729:                                add_next_index_bool(return_value, 0);
        !           730:                        }
        !           731:                }
        !           732: 
        !           733: cleanup_parallel:
        !           734:                efree(lds);
        !           735:                efree(rcs);
        !           736:        } else {
        !           737:                convert_to_string_ex(filter);
        !           738:                ldap_filter = Z_STRVAL_PP(filter);
        !           739: 
        !           740:                /* If anything else than string is passed, ldap_base_dn = NULL */
        !           741:                if (Z_TYPE_P(base_dn) == IS_STRING) {
        !           742:                        ldap_base_dn = Z_STRVAL_P(base_dn);
        !           743:                }
        !           744: 
        !           745:                ld = (ldap_linkdata *) zend_fetch_resource(&link TSRMLS_CC, -1, "ldap link", NULL, 1, le_link);
        !           746:                if (ld == NULL) {
        !           747:                        ret = 0;
        !           748:                        goto cleanup;
        !           749:                }
        !           750: 
        !           751:                php_set_opts(ld->link, ldap_sizelimit, ldap_timelimit, ldap_deref, &old_ldap_sizelimit, &old_ldap_timelimit, &old_ldap_deref);
        !           752: 
        !           753:                /* Run the actual search */     
        !           754:                errno = ldap_search_s(ld->link, ldap_base_dn, scope, ldap_filter, ldap_attrs, ldap_attrsonly, &ldap_res);
        !           755:        
        !           756:                if (errno != LDAP_SUCCESS
        !           757:                        && errno != LDAP_SIZELIMIT_EXCEEDED
        !           758: #ifdef LDAP_ADMINLIMIT_EXCEEDED
        !           759:                        && errno != LDAP_ADMINLIMIT_EXCEEDED
        !           760: #endif
        !           761: #ifdef LDAP_REFERRAL
        !           762:                        && errno != LDAP_REFERRAL
        !           763: #endif
        !           764:                ) {
        !           765:                        php_error_docref(NULL TSRMLS_CC, E_WARNING, "Search: %s", ldap_err2string(errno));
        !           766:                        ret = 0;
        !           767:                } else {
        !           768:                        if (errno == LDAP_SIZELIMIT_EXCEEDED) {
        !           769:                                php_error_docref(NULL TSRMLS_CC, E_WARNING, "Partial search results returned: Sizelimit exceeded");
        !           770:                        }
        !           771: #ifdef LDAP_ADMINLIMIT_EXCEEDED
        !           772:                        else if (errno == LDAP_ADMINLIMIT_EXCEEDED) {
        !           773:                                php_error_docref(NULL TSRMLS_CC, E_WARNING, "Partial search results returned: Adminlimit exceeded");
        !           774:                        }
        !           775: #endif
        !           776:                        
        !           777:                        ZEND_REGISTER_RESOURCE(return_value, ldap_res, le_result);
        !           778:                }
        !           779:        }
        !           780: 
        !           781: cleanup:
        !           782:        if (ld) {
        !           783:                /* Restoring previous options */
        !           784:                php_set_opts(ld->link, old_ldap_sizelimit, old_ldap_timelimit, old_ldap_deref, &ldap_sizelimit, &ldap_timelimit, &ldap_deref);
        !           785:        }
        !           786:        if (ldap_attrs != NULL) {
        !           787:                efree(ldap_attrs);
        !           788:        }
        !           789:        if (!ret) {
        !           790:                RETVAL_BOOL(ret);
        !           791:        }
        !           792: }
        !           793: /* }}} */
        !           794: 
        !           795: /* {{{ proto resource ldap_read(resource|array link, string base_dn, string filter [, array attrs [, int attrsonly [, int sizelimit [, int timelimit [, int deref]]]]])
        !           796:    Read an entry */
        !           797: PHP_FUNCTION(ldap_read)
        !           798: {
        !           799:        php_ldap_do_search(INTERNAL_FUNCTION_PARAM_PASSTHRU, LDAP_SCOPE_BASE);
        !           800: }
        !           801: /* }}} */
        !           802: 
        !           803: /* {{{ proto resource ldap_list(resource|array link, string base_dn, string filter [, array attrs [, int attrsonly [, int sizelimit [, int timelimit [, int deref]]]]])
        !           804:    Single-level search */
        !           805: PHP_FUNCTION(ldap_list)
        !           806: {
        !           807:        php_ldap_do_search(INTERNAL_FUNCTION_PARAM_PASSTHRU, LDAP_SCOPE_ONELEVEL);
        !           808: }
        !           809: /* }}} */
        !           810: 
        !           811: /* {{{ proto resource ldap_search(resource|array link, string base_dn, string filter [, array attrs [, int attrsonly [, int sizelimit [, int timelimit [, int deref]]]]])
        !           812:    Search LDAP tree under base_dn */
        !           813: PHP_FUNCTION(ldap_search)
        !           814: {
        !           815:        php_ldap_do_search(INTERNAL_FUNCTION_PARAM_PASSTHRU, LDAP_SCOPE_SUBTREE);
        !           816: }
        !           817: /* }}} */
        !           818: 
        !           819: /* {{{ proto bool ldap_free_result(resource result)
        !           820:    Free result memory */
        !           821: PHP_FUNCTION(ldap_free_result)
        !           822: {
        !           823:        zval *result;
        !           824:        LDAPMessage *ldap_result;
        !           825: 
        !           826:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &result) != SUCCESS) {
        !           827:                return;
        !           828:        }
        !           829: 
        !           830:        ZEND_FETCH_RESOURCE(ldap_result, LDAPMessage *, &result, -1, "ldap result", le_result);
        !           831: 
        !           832:        zend_list_delete(Z_LVAL_P(result));  /* Delete list entry */
        !           833:        RETVAL_TRUE;
        !           834: }
        !           835: /* }}} */
        !           836: 
        !           837: /* {{{ proto int ldap_count_entries(resource link, resource result)
        !           838:    Count the number of entries in a search result */
        !           839: PHP_FUNCTION(ldap_count_entries)
        !           840: {
        !           841:        zval *link, *result;
        !           842:        ldap_linkdata *ld;
        !           843:        LDAPMessage *ldap_result;
        !           844: 
        !           845:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rr", &link, &result) != SUCCESS) {
        !           846:                return;
        !           847:        }
        !           848: 
        !           849:        ZEND_FETCH_RESOURCE(ld, ldap_linkdata *, &link, -1, "ldap link", le_link);
        !           850:        ZEND_FETCH_RESOURCE(ldap_result, LDAPMessage *, &result, -1, "ldap result", le_result);
        !           851: 
        !           852:        RETURN_LONG(ldap_count_entries(ld->link, ldap_result));
        !           853: }
        !           854: /* }}} */
        !           855: 
        !           856: /* {{{ proto resource ldap_first_entry(resource link, resource result)
        !           857:    Return first result id */
        !           858: PHP_FUNCTION(ldap_first_entry)
        !           859: {
        !           860:        zval *link, *result;
        !           861:        ldap_linkdata *ld;      
        !           862:        ldap_resultentry *resultentry;
        !           863:        LDAPMessage *ldap_result, *entry;
        !           864: 
        !           865:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rr", &link, &result) != SUCCESS) {
        !           866:                return;
        !           867:        }
        !           868: 
        !           869:        ZEND_FETCH_RESOURCE(ld, ldap_linkdata *, &link, -1, "ldap link", le_link);
        !           870:        ZEND_FETCH_RESOURCE(ldap_result, LDAPMessage *, &result, -1, "ldap result", le_result);
        !           871: 
        !           872:        if ((entry = ldap_first_entry(ld->link, ldap_result)) == NULL) {
        !           873:                RETVAL_FALSE;
        !           874:        } else {
        !           875:                resultentry = emalloc(sizeof(ldap_resultentry));
        !           876:                ZEND_REGISTER_RESOURCE(return_value, resultentry, le_result_entry);
        !           877:                resultentry->id = Z_LVAL_P(result);
        !           878:                zend_list_addref(resultentry->id);
        !           879:                resultentry->data = entry;
        !           880:                resultentry->ber = NULL;
        !           881:        }
        !           882: }
        !           883: /* }}} */
        !           884: 
        !           885: /* {{{ proto resource ldap_next_entry(resource link, resource result_entry)
        !           886:    Get next result entry */
        !           887: PHP_FUNCTION(ldap_next_entry)
        !           888: {
        !           889:        zval *link, *result_entry;
        !           890:        ldap_linkdata *ld;
        !           891:        ldap_resultentry *resultentry, *resultentry_next;
        !           892:        LDAPMessage *entry_next;
        !           893: 
        !           894:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rr", &link, &result_entry) != SUCCESS) {
        !           895:                return;
        !           896:        }
        !           897: 
        !           898:        ZEND_FETCH_RESOURCE(ld, ldap_linkdata *, &link, -1, "ldap link", le_link);
        !           899:        ZEND_FETCH_RESOURCE(resultentry, ldap_resultentry *, &result_entry, -1, "ldap result entry", le_result_entry);
        !           900: 
        !           901:        if ((entry_next = ldap_next_entry(ld->link, resultentry->data)) == NULL) {
        !           902:                RETVAL_FALSE;
        !           903:        } else {
        !           904:                resultentry_next = emalloc(sizeof(ldap_resultentry));
        !           905:                ZEND_REGISTER_RESOURCE(return_value, resultentry_next, le_result_entry);
        !           906:                resultentry_next->id = resultentry->id;
        !           907:                zend_list_addref(resultentry->id);
        !           908:                resultentry_next->data = entry_next;
        !           909:                resultentry_next->ber = NULL;
        !           910:        }
        !           911: }
        !           912: /* }}} */
        !           913: 
        !           914: /* {{{ proto array ldap_get_entries(resource link, resource result)
        !           915:    Get all result entries */
        !           916: PHP_FUNCTION(ldap_get_entries)
        !           917: {
        !           918:        zval *link, *result;
        !           919:        LDAPMessage *ldap_result, *ldap_result_entry;
        !           920:        zval *tmp1, *tmp2;
        !           921:        ldap_linkdata *ld;
        !           922:        LDAP *ldap;
        !           923:        int num_entries, num_attrib, num_values, i;
        !           924:        BerElement *ber;
        !           925:        char *attribute;
        !           926:        size_t attr_len;
        !           927:        struct berval **ldap_value;
        !           928:        char *dn;
        !           929: 
        !           930:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rr", &link, &result) != SUCCESS) {
        !           931:                return;
        !           932:        }
        !           933: 
        !           934:        ZEND_FETCH_RESOURCE(ld, ldap_linkdata *, &link, -1, "ldap link", le_link);
        !           935:        ZEND_FETCH_RESOURCE(ldap_result, LDAPMessage *, &result, -1, "ldap result", le_result);
        !           936: 
        !           937:        ldap = ld->link;
        !           938:        num_entries = ldap_count_entries(ldap, ldap_result);
        !           939: 
        !           940:        array_init(return_value);
        !           941:        add_assoc_long(return_value, "count", num_entries);
        !           942: 
        !           943:        if (num_entries == 0) {
        !           944:                return;
        !           945:        }
        !           946:        
        !           947:        ldap_result_entry = ldap_first_entry(ldap, ldap_result);
        !           948:        if (ldap_result_entry == NULL) {
        !           949:                zval_dtor(return_value);
        !           950:                RETURN_FALSE;
        !           951:        }
        !           952: 
        !           953:        num_entries = 0;
        !           954:        while (ldap_result_entry != NULL) {
        !           955:                MAKE_STD_ZVAL(tmp1);
        !           956:                array_init(tmp1);
        !           957: 
        !           958:                num_attrib = 0;
        !           959:                attribute = ldap_first_attribute(ldap, ldap_result_entry, &ber);
        !           960: 
        !           961:                while (attribute != NULL) {
        !           962:                        ldap_value = ldap_get_values_len(ldap, ldap_result_entry, attribute);
        !           963:                        num_values = ldap_count_values_len(ldap_value);
        !           964: 
        !           965:                        MAKE_STD_ZVAL(tmp2);
        !           966:                        array_init(tmp2);
        !           967:                        add_assoc_long(tmp2, "count", num_values);
        !           968:                        for (i = 0; i < num_values; i++) {
        !           969:                                add_index_stringl(tmp2, i, ldap_value[i]->bv_val, ldap_value[i]->bv_len, 1);
        !           970:                        }       
        !           971:                        ldap_value_free_len(ldap_value);
        !           972: 
        !           973:                        attr_len = strlen(attribute);
        !           974:                        zend_hash_update(Z_ARRVAL_P(tmp1), php_strtolower(attribute, attr_len), attr_len+1, (void *) &tmp2, sizeof(zval *), NULL);
        !           975:                        add_index_string(tmp1, num_attrib, attribute, 1);
        !           976: 
        !           977:                        num_attrib++;
        !           978: #if (LDAP_API_VERSION > 2000) || HAVE_NSLDAP || HAVE_ORALDAP_10 || WINDOWS
        !           979:                        ldap_memfree(attribute);
        !           980: #endif
        !           981:                        attribute = ldap_next_attribute(ldap, ldap_result_entry, ber);
        !           982:                }
        !           983: #if (LDAP_API_VERSION > 2000) || HAVE_NSLDAP || HAVE_ORALDAP_10 || WINDOWS
        !           984:                if (ber != NULL) {
        !           985:                        ber_free(ber, 0);
        !           986:                }
        !           987: #endif
        !           988: 
        !           989:                add_assoc_long(tmp1, "count", num_attrib);
        !           990:                dn = ldap_get_dn(ldap, ldap_result_entry);
        !           991:                add_assoc_string(tmp1, "dn", dn, 1);
        !           992: #if (LDAP_API_VERSION > 2000) || HAVE_NSLDAP || HAVE_ORALDAP_10 || WINDOWS
        !           993:                ldap_memfree(dn);
        !           994: #else
        !           995:                free(dn);
        !           996: #endif
        !           997: 
        !           998:                zend_hash_index_update(Z_ARRVAL_P(return_value), num_entries, (void *) &tmp1, sizeof(zval *), NULL);
        !           999:                
        !          1000:                num_entries++;
        !          1001:                ldap_result_entry = ldap_next_entry(ldap, ldap_result_entry);
        !          1002:        }
        !          1003: 
        !          1004:        add_assoc_long(return_value, "count", num_entries);
        !          1005: 
        !          1006: }
        !          1007: /* }}} */
        !          1008: 
        !          1009: /* {{{ proto string ldap_first_attribute(resource link, resource result_entry)
        !          1010:    Return first attribute */
        !          1011: PHP_FUNCTION(ldap_first_attribute)
        !          1012: {
        !          1013:        zval *link, *result_entry;
        !          1014:        ldap_linkdata *ld;
        !          1015:        ldap_resultentry *resultentry;
        !          1016:        char *attribute;
        !          1017:        long dummy_ber;
        !          1018: 
        !          1019:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rr|l", &link, &result_entry, &dummy_ber) != SUCCESS) {
        !          1020:                return;
        !          1021:        }
        !          1022: 
        !          1023:        ZEND_FETCH_RESOURCE(ld, ldap_linkdata *, &link, -1, "ldap link", le_link);
        !          1024:        ZEND_FETCH_RESOURCE(resultentry, ldap_resultentry *, &result_entry, -1, "ldap result entry", le_result_entry);
        !          1025: 
        !          1026:        if ((attribute = ldap_first_attribute(ld->link, resultentry->data, &resultentry->ber)) == NULL) {
        !          1027:                RETURN_FALSE;
        !          1028:        } else {
        !          1029:                RETVAL_STRING(attribute, 1);
        !          1030: #if (LDAP_API_VERSION > 2000) || HAVE_NSLDAP || HAVE_ORALDAP_10 || WINDOWS
        !          1031:                ldap_memfree(attribute);
        !          1032: #endif
        !          1033:        }
        !          1034: }
        !          1035: /* }}} */
        !          1036: 
        !          1037: /* {{{ proto string ldap_next_attribute(resource link, resource result_entry)
        !          1038:    Get the next attribute in result */
        !          1039: PHP_FUNCTION(ldap_next_attribute)
        !          1040: {
        !          1041:        zval *link, *result_entry;
        !          1042:        ldap_linkdata *ld;
        !          1043:        ldap_resultentry *resultentry;
        !          1044:        char *attribute;
        !          1045:        long dummy_ber;
        !          1046: 
        !          1047:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rr|l", &link, &result_entry, &dummy_ber) != SUCCESS) {
        !          1048:                return;
        !          1049:        }
        !          1050: 
        !          1051:        ZEND_FETCH_RESOURCE(ld, ldap_linkdata *, &link, -1, "ldap link", le_link);
        !          1052:        ZEND_FETCH_RESOURCE(resultentry, ldap_resultentry *, &result_entry, -1, "ldap result entry", le_result_entry);
        !          1053: 
        !          1054:        if (resultentry->ber == NULL) {
        !          1055:                php_error_docref(NULL TSRMLS_CC, E_WARNING, "called before calling ldap_first_attribute() or no attributes found in result entry");
        !          1056:                RETURN_FALSE;
        !          1057:        }
        !          1058: 
        !          1059:        if ((attribute = ldap_next_attribute(ld->link, resultentry->data, resultentry->ber)) == NULL) {
        !          1060: #if (LDAP_API_VERSION > 2000) || HAVE_NSLDAP || HAVE_ORALDAP_10 || WINDOWS
        !          1061:                if (resultentry->ber != NULL) {
        !          1062:                        ber_free(resultentry->ber, 0);
        !          1063:                        resultentry->ber = NULL;
        !          1064:                }
        !          1065: #endif
        !          1066:                RETURN_FALSE;
        !          1067:        } else {
        !          1068:                RETVAL_STRING(attribute, 1);
        !          1069: #if (LDAP_API_VERSION > 2000) || HAVE_NSLDAP || HAVE_ORALDAP_10 || WINDOWS
        !          1070:                ldap_memfree(attribute);
        !          1071: #endif
        !          1072:        }
        !          1073: }
        !          1074: /* }}} */
        !          1075: 
        !          1076: /* {{{ proto array ldap_get_attributes(resource link, resource result_entry)
        !          1077:    Get attributes from a search result entry */
        !          1078: PHP_FUNCTION(ldap_get_attributes)
        !          1079: {
        !          1080:        zval *link, *result_entry;
        !          1081:        zval *tmp;
        !          1082:        ldap_linkdata *ld;
        !          1083:        ldap_resultentry *resultentry;
        !          1084:        char *attribute;
        !          1085:        struct berval **ldap_value;
        !          1086:        int i, num_values, num_attrib;
        !          1087:        BerElement *ber;
        !          1088: 
        !          1089:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rr", &link, &result_entry) != SUCCESS) {
        !          1090:                return;
        !          1091:        }
        !          1092: 
        !          1093:        ZEND_FETCH_RESOURCE(ld, ldap_linkdata *, &link, -1, "ldap link", le_link);
        !          1094:        ZEND_FETCH_RESOURCE(resultentry, ldap_resultentry *, &result_entry, -1, "ldap result entry", le_result_entry);
        !          1095: 
        !          1096:        array_init(return_value);
        !          1097:        num_attrib = 0;
        !          1098:        
        !          1099:        attribute = ldap_first_attribute(ld->link, resultentry->data, &ber);
        !          1100:        while (attribute != NULL) {
        !          1101:                ldap_value = ldap_get_values_len(ld->link, resultentry->data, attribute);
        !          1102:                num_values = ldap_count_values_len(ldap_value);
        !          1103: 
        !          1104:                MAKE_STD_ZVAL(tmp);
        !          1105:                array_init(tmp);
        !          1106:                add_assoc_long(tmp, "count", num_values);
        !          1107:                for (i = 0; i < num_values; i++) {
        !          1108:                        add_index_stringl(tmp, i, ldap_value[i]->bv_val, ldap_value[i]->bv_len, 1);
        !          1109:                }
        !          1110:                ldap_value_free_len(ldap_value);
        !          1111: 
        !          1112:                zend_hash_update(Z_ARRVAL_P(return_value), attribute, strlen(attribute)+1, (void *) &tmp, sizeof(zval *), NULL);
        !          1113:                add_index_string(return_value, num_attrib, attribute, 1);
        !          1114: 
        !          1115:                num_attrib++;
        !          1116: #if (LDAP_API_VERSION > 2000) || HAVE_NSLDAP || HAVE_ORALDAP_10 || WINDOWS
        !          1117:                ldap_memfree(attribute);
        !          1118: #endif
        !          1119:                attribute = ldap_next_attribute(ld->link, resultentry->data, ber);
        !          1120:        }
        !          1121: #if (LDAP_API_VERSION > 2000) || HAVE_NSLDAP || HAVE_ORALDAP_10 || WINDOWS
        !          1122:        if (ber != NULL) {
        !          1123:                ber_free(ber, 0);
        !          1124:        }
        !          1125: #endif
        !          1126:        
        !          1127:        add_assoc_long(return_value, "count", num_attrib);
        !          1128: }
        !          1129: /* }}} */
        !          1130: 
        !          1131: /* {{{ proto array ldap_get_values_len(resource link, resource result_entry, string attribute)
        !          1132:    Get all values with lengths from a result entry */
        !          1133: PHP_FUNCTION(ldap_get_values_len)
        !          1134: {
        !          1135:        zval *link, *result_entry;
        !          1136:        ldap_linkdata *ld;
        !          1137:        ldap_resultentry *resultentry;
        !          1138:        char *attr;
        !          1139:        struct berval **ldap_value_len;
        !          1140:        int i, num_values, attr_len;
        !          1141:        
        !          1142:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rrs", &link, &result_entry, &attr, &attr_len) != SUCCESS) {
        !          1143:                return;
        !          1144:        }
        !          1145:        
        !          1146:        ZEND_FETCH_RESOURCE(ld, ldap_linkdata *, &link, -1, "ldap link", le_link);
        !          1147:        ZEND_FETCH_RESOURCE(resultentry, ldap_resultentry *, &result_entry, -1, "ldap result entry", le_result_entry);
        !          1148: 
        !          1149:        if ((ldap_value_len = ldap_get_values_len(ld->link, resultentry->data, attr)) == NULL) {
        !          1150:                php_error_docref(NULL TSRMLS_CC, E_WARNING, "Cannot get the value(s) of attribute %s", ldap_err2string(_get_lderrno(ld->link)));
        !          1151:                RETURN_FALSE;
        !          1152:        }
        !          1153:        
        !          1154:        num_values = ldap_count_values_len(ldap_value_len);
        !          1155:        array_init(return_value);
        !          1156:        
        !          1157:        for (i=0; i<num_values; i++) {
        !          1158:                add_next_index_stringl(return_value, ldap_value_len[i]->bv_val, ldap_value_len[i]->bv_len, 1);
        !          1159:        }
        !          1160:        
        !          1161:        add_assoc_long(return_value, "count", num_values);
        !          1162:        ldap_value_free_len(ldap_value_len);
        !          1163: 
        !          1164: }
        !          1165: /* }}} */
        !          1166: 
        !          1167: /* {{{ proto string ldap_get_dn(resource link, resource result_entry)
        !          1168:    Get the DN of a result entry */
        !          1169: PHP_FUNCTION(ldap_get_dn) 
        !          1170: {
        !          1171:        zval *link, *result_entry;
        !          1172:        ldap_linkdata *ld;
        !          1173:        ldap_resultentry *resultentry;
        !          1174:        char *text;
        !          1175: 
        !          1176:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rr", &link, &result_entry) != SUCCESS) {
        !          1177:                return;
        !          1178:        }
        !          1179:        
        !          1180:        ZEND_FETCH_RESOURCE(ld, ldap_linkdata *, &link, -1, "ldap link", le_link);
        !          1181:        ZEND_FETCH_RESOURCE(resultentry, ldap_resultentry *, &result_entry, -1, "ldap result entry", le_result_entry);
        !          1182: 
        !          1183:        text = ldap_get_dn(ld->link, resultentry->data);
        !          1184:        if (text != NULL) {
        !          1185:                RETVAL_STRING(text, 1);
        !          1186: #if (LDAP_API_VERSION > 2000) || HAVE_NSLDAP || HAVE_ORALDAP_10 || WINDOWS
        !          1187:                ldap_memfree(text);
        !          1188: #else
        !          1189:                free(text);
        !          1190: #endif
        !          1191:        } else {
        !          1192:                RETURN_FALSE;
        !          1193:        }
        !          1194: }
        !          1195: /* }}} */
        !          1196: 
        !          1197: /* {{{ proto array ldap_explode_dn(string dn, int with_attrib)
        !          1198:    Splits DN into its component parts */
        !          1199: PHP_FUNCTION(ldap_explode_dn)
        !          1200: {
        !          1201:        long with_attrib;
        !          1202:        char *dn, **ldap_value;
        !          1203:        int i, count, dn_len;
        !          1204: 
        !          1205:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "sl", &dn, &dn_len, &with_attrib) != SUCCESS) {
        !          1206:                return;
        !          1207:        }
        !          1208: 
        !          1209:        if (!(ldap_value = ldap_explode_dn(dn, with_attrib))) {
        !          1210:                /* Invalid parameters were passed to ldap_explode_dn */
        !          1211:                RETURN_FALSE;
        !          1212:        }
        !          1213: 
        !          1214:        i=0;
        !          1215:        while (ldap_value[i] != NULL) i++;
        !          1216:        count = i;
        !          1217: 
        !          1218:        array_init(return_value);
        !          1219: 
        !          1220:        add_assoc_long(return_value, "count", count);
        !          1221:        for (i = 0; i<count; i++) {
        !          1222:                add_index_string(return_value, i, ldap_value[i], 1);
        !          1223:        }
        !          1224: 
        !          1225:        ldap_value_free(ldap_value);
        !          1226: }
        !          1227: /* }}} */
        !          1228: 
        !          1229: /* {{{ proto string ldap_dn2ufn(string dn)
        !          1230:    Convert DN to User Friendly Naming format */
        !          1231: PHP_FUNCTION(ldap_dn2ufn)
        !          1232: {
        !          1233:        char *dn, *ufn;
        !          1234:        int dn_len;
        !          1235: 
        !          1236:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s", &dn, &dn_len) != SUCCESS) {
        !          1237:                return;
        !          1238:        }
        !          1239:        
        !          1240:        ufn = ldap_dn2ufn(dn);
        !          1241:        
        !          1242:        if (ufn != NULL) {
        !          1243:                RETVAL_STRING(ufn, 1);
        !          1244: #if (LDAP_API_VERSION > 2000) || HAVE_NSLDAP || HAVE_ORALDAP_10 || WINDOWS
        !          1245:                ldap_memfree(ufn);
        !          1246: #endif
        !          1247:        } else {
        !          1248:                RETURN_FALSE;
        !          1249:        }
        !          1250: }
        !          1251: /* }}} */
        !          1252: 
        !          1253: 
        !          1254: /* added to fix use of ldap_modify_add for doing an ldap_add, gerrit thomson. */
        !          1255: #define PHP_LD_FULL_ADD 0xff
        !          1256: /* {{{ php_ldap_do_modify
        !          1257:  */
        !          1258: static void php_ldap_do_modify(INTERNAL_FUNCTION_PARAMETERS, int oper)
        !          1259: {
        !          1260:        zval *link, *entry, **value, **ivalue;
        !          1261:        ldap_linkdata *ld;
        !          1262:        char *dn;
        !          1263:        LDAPMod **ldap_mods;
        !          1264:        int i, j, num_attribs, num_values, dn_len;
        !          1265:        int *num_berval;
        !          1266:        char *attribute;
        !          1267:        ulong index;
        !          1268:        int is_full_add=0; /* flag for full add operation so ldap_mod_add can be put back into oper, gerrit THomson */
        !          1269: 
        !          1270:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rsa", &link, &dn, &dn_len, &entry) != SUCCESS) {
        !          1271:                return;
        !          1272:        }       
        !          1273: 
        !          1274:        ZEND_FETCH_RESOURCE(ld, ldap_linkdata *, &link, -1, "ldap link", le_link);
        !          1275: 
        !          1276:        num_attribs = zend_hash_num_elements(Z_ARRVAL_P(entry));
        !          1277:        ldap_mods = safe_emalloc((num_attribs+1), sizeof(LDAPMod *), 0);
        !          1278:        num_berval = safe_emalloc(num_attribs, sizeof(int), 0);
        !          1279:        zend_hash_internal_pointer_reset(Z_ARRVAL_P(entry));
        !          1280: 
        !          1281:        /* added by gerrit thomson to fix ldap_add using ldap_mod_add */
        !          1282:        if (oper == PHP_LD_FULL_ADD) {
        !          1283:                oper = LDAP_MOD_ADD;
        !          1284:                is_full_add = 1;
        !          1285:        }
        !          1286:        /* end additional , gerrit thomson */
        !          1287: 
        !          1288:        for (i = 0; i < num_attribs; i++) {
        !          1289:                ldap_mods[i] = emalloc(sizeof(LDAPMod));
        !          1290:                ldap_mods[i]->mod_op = oper | LDAP_MOD_BVALUES;
        !          1291:                ldap_mods[i]->mod_type = NULL;
        !          1292: 
        !          1293:                if (zend_hash_get_current_key(Z_ARRVAL_P(entry), &attribute, &index, 0) == HASH_KEY_IS_STRING) {
        !          1294:                        ldap_mods[i]->mod_type = estrdup(attribute);
        !          1295:                } else {
        !          1296:                        php_error_docref(NULL TSRMLS_CC, E_WARNING, "Unknown attribute in the data");
        !          1297:                        /* Free allocated memory */
        !          1298:                        while (i >= 0) {
        !          1299:                                if (ldap_mods[i]->mod_type) {
        !          1300:                                        efree(ldap_mods[i]->mod_type);
        !          1301:                                }
        !          1302:                                efree(ldap_mods[i]);
        !          1303:                                i--;
        !          1304:                        }
        !          1305:                        efree(num_berval);
        !          1306:                        efree(ldap_mods);       
        !          1307:                        RETURN_FALSE;
        !          1308:                }
        !          1309: 
        !          1310:                zend_hash_get_current_data(Z_ARRVAL_P(entry), (void **)&value);
        !          1311: 
        !          1312:                if (Z_TYPE_PP(value) != IS_ARRAY) {
        !          1313:                        num_values = 1;
        !          1314:                } else {
        !          1315:                        num_values = zend_hash_num_elements(Z_ARRVAL_PP(value));
        !          1316:                }
        !          1317:                
        !          1318:                num_berval[i] = num_values;
        !          1319:                ldap_mods[i]->mod_bvalues = safe_emalloc((num_values + 1), sizeof(struct berval *), 0);
        !          1320: 
        !          1321: /* allow for arrays with one element, no allowance for arrays with none but probably not required, gerrit thomson. */
        !          1322:                if ((num_values == 1) && (Z_TYPE_PP(value) != IS_ARRAY)) {
        !          1323:                        convert_to_string_ex(value);
        !          1324:                        ldap_mods[i]->mod_bvalues[0] = (struct berval *) emalloc (sizeof(struct berval));
        !          1325:                        ldap_mods[i]->mod_bvalues[0]->bv_len = Z_STRLEN_PP(value);
        !          1326:                        ldap_mods[i]->mod_bvalues[0]->bv_val = Z_STRVAL_PP(value);
        !          1327:                } else {        
        !          1328:                        for (j = 0; j < num_values; j++) {
        !          1329:                                if (zend_hash_index_find(Z_ARRVAL_PP(value), j, (void **) &ivalue) != SUCCESS) {
        !          1330:                                        php_error_docref(NULL TSRMLS_CC, E_WARNING, "Value array must have consecutive indices 0, 1, ...");
        !          1331:                                        num_berval[i] = j;
        !          1332:                                        num_attribs = i + 1;
        !          1333:                                        RETVAL_FALSE;
        !          1334:                                        goto errexit;
        !          1335:                                }
        !          1336:                                convert_to_string_ex(ivalue);
        !          1337:                                ldap_mods[i]->mod_bvalues[j] = (struct berval *) emalloc (sizeof(struct berval));
        !          1338:                                ldap_mods[i]->mod_bvalues[j]->bv_len = Z_STRLEN_PP(ivalue);
        !          1339:                                ldap_mods[i]->mod_bvalues[j]->bv_val = Z_STRVAL_PP(ivalue);
        !          1340:                        }
        !          1341:                }
        !          1342:                ldap_mods[i]->mod_bvalues[num_values] = NULL;
        !          1343:                zend_hash_move_forward(Z_ARRVAL_P(entry));
        !          1344:        }
        !          1345:        ldap_mods[num_attribs] = NULL;
        !          1346: 
        !          1347: /* check flag to see if do_mod was called to perform full add , gerrit thomson */
        !          1348:        if (is_full_add == 1) {
        !          1349:                if ((i = ldap_add_s(ld->link, dn, ldap_mods)) != LDAP_SUCCESS) {
        !          1350:                        php_error_docref(NULL TSRMLS_CC, E_WARNING, "Add: %s", ldap_err2string(i));
        !          1351:                        RETVAL_FALSE;
        !          1352:                } else RETVAL_TRUE;
        !          1353:        } else {
        !          1354:                if ((i = ldap_modify_ext_s(ld->link, dn, ldap_mods, NULL, NULL)) != LDAP_SUCCESS) {
        !          1355:                        php_error_docref(NULL TSRMLS_CC, E_WARNING, "Modify: %s", ldap_err2string(i));
        !          1356:                        RETVAL_FALSE;
        !          1357:                } else RETVAL_TRUE;     
        !          1358:        }
        !          1359: 
        !          1360: errexit:
        !          1361:        for (i = 0; i < num_attribs; i++) {
        !          1362:                efree(ldap_mods[i]->mod_type);
        !          1363:                for (j = 0; j < num_berval[i]; j++) {
        !          1364:                        efree(ldap_mods[i]->mod_bvalues[j]);
        !          1365:                }
        !          1366:                efree(ldap_mods[i]->mod_bvalues);
        !          1367:                efree(ldap_mods[i]);
        !          1368:        }
        !          1369:        efree(num_berval);
        !          1370:        efree(ldap_mods);       
        !          1371: 
        !          1372:        return;
        !          1373: }
        !          1374: /* }}} */
        !          1375: 
        !          1376: /* {{{ proto bool ldap_add(resource link, string dn, array entry)
        !          1377:    Add entries to LDAP directory */
        !          1378: PHP_FUNCTION(ldap_add)
        !          1379: {
        !          1380:        /* use a newly define parameter into the do_modify so ldap_mod_add can be used the way it is supposed to be used , Gerrit THomson */
        !          1381:        php_ldap_do_modify(INTERNAL_FUNCTION_PARAM_PASSTHRU, PHP_LD_FULL_ADD);
        !          1382: }
        !          1383: /* }}} */
        !          1384: 
        !          1385: /* three functions for attribute base modifications, gerrit Thomson */
        !          1386: 
        !          1387: /* {{{ proto bool ldap_mod_replace(resource link, string dn, array entry)
        !          1388:    Replace attribute values with new ones */
        !          1389: PHP_FUNCTION(ldap_mod_replace)
        !          1390: {
        !          1391:        php_ldap_do_modify(INTERNAL_FUNCTION_PARAM_PASSTHRU, LDAP_MOD_REPLACE);
        !          1392: }
        !          1393: /* }}} */
        !          1394: 
        !          1395: /* {{{ proto bool ldap_mod_add(resource link, string dn, array entry)
        !          1396:    Add attribute values to current */
        !          1397: PHP_FUNCTION(ldap_mod_add)
        !          1398: {
        !          1399:        php_ldap_do_modify(INTERNAL_FUNCTION_PARAM_PASSTHRU, LDAP_MOD_ADD);
        !          1400: }
        !          1401: /* }}} */
        !          1402: 
        !          1403: /* {{{ proto bool ldap_mod_del(resource link, string dn, array entry)
        !          1404:    Delete attribute values */
        !          1405: PHP_FUNCTION(ldap_mod_del)
        !          1406: {
        !          1407:        php_ldap_do_modify(INTERNAL_FUNCTION_PARAM_PASSTHRU, LDAP_MOD_DELETE);
        !          1408: }
        !          1409: /* }}} */
        !          1410: 
        !          1411: /* {{{ proto bool ldap_delete(resource link, string dn)
        !          1412:    Delete an entry from a directory */
        !          1413: PHP_FUNCTION(ldap_delete)
        !          1414: {
        !          1415:        zval *link;
        !          1416:        ldap_linkdata *ld;
        !          1417:        char *dn;
        !          1418:        int rc, dn_len;
        !          1419: 
        !          1420:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rs", &link, &dn, &dn_len) != SUCCESS) {
        !          1421:                return;
        !          1422:        }
        !          1423: 
        !          1424:        ZEND_FETCH_RESOURCE(ld, ldap_linkdata *, &link, -1, "ldap link", le_link);
        !          1425: 
        !          1426:        if ((rc = ldap_delete_s(ld->link, dn)) != LDAP_SUCCESS) {
        !          1427:                php_error_docref(NULL TSRMLS_CC, E_WARNING, "Delete: %s", ldap_err2string(rc));
        !          1428:                RETURN_FALSE;
        !          1429:        }
        !          1430: 
        !          1431:        RETURN_TRUE;
        !          1432: }
        !          1433: /* }}} */
        !          1434: 
        !          1435: /* {{{ proto int ldap_errno(resource link)
        !          1436:    Get the current ldap error number */
        !          1437: PHP_FUNCTION(ldap_errno)
        !          1438: {
        !          1439:        zval *link;
        !          1440:        ldap_linkdata *ld;
        !          1441: 
        !          1442:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &link) != SUCCESS) {
        !          1443:                return;
        !          1444:        }
        !          1445: 
        !          1446:        ZEND_FETCH_RESOURCE(ld, ldap_linkdata *, &link, -1, "ldap link", le_link);
        !          1447: 
        !          1448:        RETURN_LONG(_get_lderrno(ld->link));
        !          1449: }
        !          1450: /* }}} */
        !          1451: 
        !          1452: /* {{{ proto string ldap_err2str(int errno)
        !          1453:    Convert error number to error string */
        !          1454: PHP_FUNCTION(ldap_err2str)
        !          1455: {
        !          1456:        long perrno;
        !          1457: 
        !          1458:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "l", &perrno) != SUCCESS) {
        !          1459:                return;
        !          1460:        }
        !          1461: 
        !          1462:        RETURN_STRING(ldap_err2string(perrno), 1);
        !          1463: }
        !          1464: /* }}} */
        !          1465: 
        !          1466: /* {{{ proto string ldap_error(resource link)
        !          1467:    Get the current ldap error string */
        !          1468: PHP_FUNCTION(ldap_error) 
        !          1469: {
        !          1470:        zval *link;
        !          1471:        ldap_linkdata *ld;
        !          1472:        int ld_errno;
        !          1473: 
        !          1474:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &link) != SUCCESS) {
        !          1475:                return;
        !          1476:        }
        !          1477: 
        !          1478:        ZEND_FETCH_RESOURCE(ld, ldap_linkdata *, &link, -1, "ldap link", le_link);
        !          1479: 
        !          1480:        ld_errno = _get_lderrno(ld->link);
        !          1481: 
        !          1482:        RETURN_STRING(ldap_err2string(ld_errno), 1);
        !          1483: }
        !          1484: /* }}} */
        !          1485: 
        !          1486: /* {{{ proto bool ldap_compare(resource link, string dn, string attr, string value)
        !          1487:    Determine if an entry has a specific value for one of its attributes */
        !          1488: PHP_FUNCTION(ldap_compare) 
        !          1489: {
        !          1490:        zval *link;
        !          1491:        char *dn, *attr, *value;
        !          1492:        int dn_len, attr_len, value_len;
        !          1493:        ldap_linkdata *ld;
        !          1494:        int errno;
        !          1495: 
        !          1496:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rsss", &link, &dn, &dn_len, &attr, &attr_len, &value, &value_len) != SUCCESS) {
        !          1497:                return;
        !          1498:        }
        !          1499: 
        !          1500:        ZEND_FETCH_RESOURCE(ld, ldap_linkdata *, &link, -1, "ldap link", le_link);
        !          1501: 
        !          1502:        errno = ldap_compare_s(ld->link, dn, attr, value);
        !          1503: 
        !          1504:        switch (errno) {
        !          1505:                case LDAP_COMPARE_TRUE:
        !          1506:                        RETURN_TRUE;
        !          1507:                        break;
        !          1508: 
        !          1509:                case LDAP_COMPARE_FALSE:
        !          1510:                        RETURN_FALSE;
        !          1511:                        break;
        !          1512:        }
        !          1513:        
        !          1514:        php_error_docref(NULL TSRMLS_CC, E_WARNING, "Compare: %s", ldap_err2string(errno));
        !          1515:        RETURN_LONG(-1);
        !          1516: }
        !          1517: /* }}} */
        !          1518: 
        !          1519: /* {{{ proto bool ldap_sort(resource link, resource result, string sortfilter)
        !          1520:    Sort LDAP result entries */
        !          1521: PHP_FUNCTION(ldap_sort)
        !          1522: {
        !          1523:        zval *link, *result;
        !          1524:        ldap_linkdata *ld;
        !          1525:        char *sortfilter;
        !          1526:        int sflen;
        !          1527:        zend_rsrc_list_entry *le;
        !          1528: 
        !          1529:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rrs", &link, &result, &sortfilter, &sflen) != SUCCESS) {
        !          1530:                RETURN_FALSE;
        !          1531:        }
        !          1532: 
        !          1533:        ZEND_FETCH_RESOURCE(ld, ldap_linkdata *, &link, -1, "ldap link", le_link);
        !          1534: 
        !          1535:        if (zend_hash_index_find(&EG(regular_list), Z_LVAL_P(result), (void **) &le) != SUCCESS || le->type != le_result) {
        !          1536:                php_error_docref(NULL TSRMLS_CC, E_WARNING, "Supplied resource is not a valid ldap result resource");
        !          1537:                RETURN_FALSE;
        !          1538:        }
        !          1539: 
        !          1540:        if (ldap_sort_entries(ld->link, (LDAPMessage **) &le->ptr, sflen ? sortfilter : NULL, strcmp) != LDAP_SUCCESS) {
        !          1541:                php_error_docref(NULL TSRMLS_CC, E_WARNING, "%s", ldap_err2string(errno));
        !          1542:                RETURN_FALSE;
        !          1543:        }
        !          1544: 
        !          1545:        RETURN_TRUE;
        !          1546: }
        !          1547: /* }}} */
        !          1548: 
        !          1549: #if (LDAP_API_VERSION > 2000) || HAVE_NSLDAP || HAVE_ORALDAP_10
        !          1550: /* {{{ proto bool ldap_get_option(resource link, int option, mixed retval)
        !          1551:    Get the current value of various session-wide parameters */
        !          1552: PHP_FUNCTION(ldap_get_option) 
        !          1553: {
        !          1554:        zval *link, *retval;
        !          1555:        ldap_linkdata *ld;
        !          1556:        long option;
        !          1557:        
        !          1558:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rlz", &link, &option, &retval) != SUCCESS) {
        !          1559:                return;
        !          1560:        }
        !          1561: 
        !          1562:        ZEND_FETCH_RESOURCE(ld, ldap_linkdata *, &link, -1, "ldap link", le_link);
        !          1563: 
        !          1564:        switch (option) {
        !          1565:        /* options with int value */
        !          1566:        case LDAP_OPT_DEREF:
        !          1567:        case LDAP_OPT_SIZELIMIT:
        !          1568:        case LDAP_OPT_TIMELIMIT:
        !          1569:        case LDAP_OPT_PROTOCOL_VERSION:
        !          1570:        case LDAP_OPT_ERROR_NUMBER:
        !          1571:        case LDAP_OPT_REFERRALS:
        !          1572: #ifdef LDAP_OPT_RESTART
        !          1573:        case LDAP_OPT_RESTART:
        !          1574: #endif
        !          1575:                {
        !          1576:                        int val;
        !          1577: 
        !          1578:                        if (ldap_get_option(ld->link, option, &val)) {
        !          1579:                                RETURN_FALSE;
        !          1580:                        }
        !          1581:                        zval_dtor(retval);
        !          1582:                        ZVAL_LONG(retval, val);
        !          1583:                } break;
        !          1584: #ifdef LDAP_OPT_NETWORK_TIMEOUT
        !          1585:        case LDAP_OPT_NETWORK_TIMEOUT:
        !          1586:                {
        !          1587:                        struct timeval *timeout = NULL;
        !          1588: 
        !          1589:                        if (ldap_get_option(ld->link, LDAP_OPT_NETWORK_TIMEOUT, (void *) &timeout)) {
        !          1590:                                if (timeout) {
        !          1591:                                        ldap_memfree(timeout);
        !          1592:                                }
        !          1593:                                RETURN_FALSE;
        !          1594:                        }                   
        !          1595:                        if (!timeout) {
        !          1596:                                RETURN_FALSE;
        !          1597:                        }
        !          1598:                        zval_dtor(retval);
        !          1599:                        ZVAL_LONG(retval, timeout->tv_sec);
        !          1600:                        ldap_memfree(timeout);
        !          1601:                } break;
        !          1602: #elif defined(LDAP_X_OPT_CONNECT_TIMEOUT)
        !          1603:        case LDAP_X_OPT_CONNECT_TIMEOUT:
        !          1604:                {
        !          1605:                        int timeout;
        !          1606: 
        !          1607:                        if (ldap_get_option(ld->link, LDAP_X_OPT_CONNECT_TIMEOUT, &timeout)) {
        !          1608:                                RETURN_FALSE;
        !          1609:                        }                       
        !          1610:                        zval_dtor(retval);
        !          1611:                        ZVAL_LONG(retval, (timeout / 1000));
        !          1612:                } break;
        !          1613: #endif
        !          1614:        /* options with string value */
        !          1615:        case LDAP_OPT_ERROR_STRING:
        !          1616: #ifdef LDAP_OPT_HOST_NAME
        !          1617:        case LDAP_OPT_HOST_NAME:
        !          1618: #endif
        !          1619: #ifdef HAVE_LDAP_SASL
        !          1620:        case LDAP_OPT_X_SASL_MECH:   
        !          1621:        case LDAP_OPT_X_SASL_REALM:
        !          1622:        case LDAP_OPT_X_SASL_AUTHCID:
        !          1623:        case LDAP_OPT_X_SASL_AUTHZID:
        !          1624: #endif
        !          1625: #ifdef LDAP_OPT_MATCHED_DN
        !          1626:        case LDAP_OPT_MATCHED_DN:
        !          1627: #endif
        !          1628:                {
        !          1629:                        char *val = NULL;
        !          1630: 
        !          1631:                        if (ldap_get_option(ld->link, option, &val) || val == NULL || *val == '\0') {
        !          1632:                                if (val) {
        !          1633:                                        ldap_memfree(val);
        !          1634:                                }
        !          1635:                                RETURN_FALSE;
        !          1636:                        }
        !          1637:                        zval_dtor(retval);
        !          1638:                        ZVAL_STRING(retval, val, 1);
        !          1639:                        ldap_memfree(val);
        !          1640:                } break;
        !          1641: /* options not implemented
        !          1642:        case LDAP_OPT_SERVER_CONTROLS:
        !          1643:        case LDAP_OPT_CLIENT_CONTROLS:
        !          1644:        case LDAP_OPT_API_INFO:
        !          1645:        case LDAP_OPT_API_FEATURE_INFO:
        !          1646: */
        !          1647:        default:
        !          1648:                RETURN_FALSE;
        !          1649:        }
        !          1650:        RETURN_TRUE;
        !          1651: }
        !          1652: /* }}} */
        !          1653: 
        !          1654: /* {{{ proto bool ldap_set_option(resource link, int option, mixed newval)
        !          1655:    Set the value of various session-wide parameters */
        !          1656: PHP_FUNCTION(ldap_set_option) 
        !          1657: {
        !          1658:        zval *link, **newval;
        !          1659:        ldap_linkdata *ld;
        !          1660:        LDAP *ldap;
        !          1661:        long option;
        !          1662:        
        !          1663:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "zlZ", &link, &option, &newval) != SUCCESS) {
        !          1664:                return;
        !          1665:        }
        !          1666: 
        !          1667:        if (Z_TYPE_P(link) == IS_NULL) {
        !          1668:                ldap = NULL;
        !          1669:        } else {
        !          1670:                ZEND_FETCH_RESOURCE(ld, ldap_linkdata *, &link, -1, "ldap link", le_link);
        !          1671:                ldap = ld->link;
        !          1672:        }
        !          1673: 
        !          1674:        switch (option) {
        !          1675:        /* options with int value */
        !          1676:        case LDAP_OPT_DEREF:
        !          1677:        case LDAP_OPT_SIZELIMIT:
        !          1678:        case LDAP_OPT_TIMELIMIT:
        !          1679:        case LDAP_OPT_PROTOCOL_VERSION:
        !          1680:        case LDAP_OPT_ERROR_NUMBER:
        !          1681: #ifdef LDAP_OPT_DEBUG_LEVEL
        !          1682:        case LDAP_OPT_DEBUG_LEVEL:
        !          1683: #endif
        !          1684:                {
        !          1685:                        int val;
        !          1686: 
        !          1687:                        convert_to_long_ex(newval);
        !          1688:                        val = Z_LVAL_PP(newval);
        !          1689:                        if (ldap_set_option(ldap, option, &val)) {
        !          1690:                                RETURN_FALSE;
        !          1691:                        }
        !          1692:                } break;
        !          1693: #ifdef LDAP_OPT_NETWORK_TIMEOUT
        !          1694:        case LDAP_OPT_NETWORK_TIMEOUT:
        !          1695:                {
        !          1696:                        struct timeval timeout;
        !          1697: 
        !          1698:                        convert_to_long_ex(newval);
        !          1699:                        timeout.tv_sec = Z_LVAL_PP(newval);
        !          1700:                        timeout.tv_usec = 0;
        !          1701:                        if (ldap_set_option(ldap, LDAP_OPT_NETWORK_TIMEOUT, (void *) &timeout)) {
        !          1702:                                RETURN_FALSE;
        !          1703:                        }                       
        !          1704:                } break;
        !          1705: #elif defined(LDAP_X_OPT_CONNECT_TIMEOUT)
        !          1706:        case LDAP_X_OPT_CONNECT_TIMEOUT:
        !          1707:                {
        !          1708:                        int timeout;
        !          1709: 
        !          1710:                        convert_to_long_ex(newval);
        !          1711:                        timeout = 1000 * Z_LVAL_PP(newval); /* Convert to milliseconds */
        !          1712:                        if (ldap_set_option(ldap, LDAP_X_OPT_CONNECT_TIMEOUT, &timeout)) {
        !          1713:                                RETURN_FALSE;
        !          1714:                        }                       
        !          1715:                } break;
        !          1716: #endif
        !          1717:                /* options with string value */
        !          1718:        case LDAP_OPT_ERROR_STRING:
        !          1719: #ifdef LDAP_OPT_HOST_NAME
        !          1720:        case LDAP_OPT_HOST_NAME:
        !          1721: #endif
        !          1722: #ifdef HAVE_LDAP_SASL
        !          1723:        case LDAP_OPT_X_SASL_MECH:   
        !          1724:        case LDAP_OPT_X_SASL_REALM:
        !          1725:        case LDAP_OPT_X_SASL_AUTHCID:
        !          1726:        case LDAP_OPT_X_SASL_AUTHZID:
        !          1727: #endif
        !          1728: #ifdef LDAP_OPT_MATCHED_DN
        !          1729:        case LDAP_OPT_MATCHED_DN:
        !          1730: #endif
        !          1731:                {
        !          1732:                        char *val;
        !          1733:                        convert_to_string_ex(newval);
        !          1734:                        val = Z_STRVAL_PP(newval);
        !          1735:                        if (ldap_set_option(ldap, option, val)) {
        !          1736:                                RETURN_FALSE;
        !          1737:                        }
        !          1738:                } break;
        !          1739:                /* options with boolean value */
        !          1740:        case LDAP_OPT_REFERRALS:
        !          1741: #ifdef LDAP_OPT_RESTART
        !          1742:        case LDAP_OPT_RESTART:
        !          1743: #endif
        !          1744:                {
        !          1745:                        void *val;
        !          1746:                        convert_to_boolean_ex(newval);
        !          1747:                        val = Z_LVAL_PP(newval)
        !          1748:                                ? LDAP_OPT_ON : LDAP_OPT_OFF;
        !          1749:                        if (ldap_set_option(ldap, option, val)) {
        !          1750:                                RETURN_FALSE;
        !          1751:                        }
        !          1752:                } break;
        !          1753:                /* options with control list value */
        !          1754:        case LDAP_OPT_SERVER_CONTROLS:
        !          1755:        case LDAP_OPT_CLIENT_CONTROLS:
        !          1756:                {
        !          1757:                        LDAPControl *ctrl, **ctrls, **ctrlp;
        !          1758:                        zval **ctrlval, **val;
        !          1759:                        int ncontrols;
        !          1760:                        char error=0;
        !          1761: 
        !          1762:                        if ((Z_TYPE_PP(newval) != IS_ARRAY) || !(ncontrols = zend_hash_num_elements(Z_ARRVAL_PP(newval)))) {
        !          1763:                                php_error_docref(NULL TSRMLS_CC, E_WARNING, "Expected non-empty array value for this option");
        !          1764:                                RETURN_FALSE;
        !          1765:                        }
        !          1766:                        ctrls = safe_emalloc((1 + ncontrols), sizeof(*ctrls), 0);
        !          1767:                        *ctrls = NULL;
        !          1768:                        ctrlp = ctrls;
        !          1769:                        zend_hash_internal_pointer_reset(Z_ARRVAL_PP(newval));
        !          1770:                        while (zend_hash_get_current_data(Z_ARRVAL_PP(newval), (void**)&ctrlval) == SUCCESS) {
        !          1771:                                if (Z_TYPE_PP(ctrlval) != IS_ARRAY) {
        !          1772:                                        php_error_docref(NULL TSRMLS_CC, E_WARNING, "The array value must contain only arrays, where each array is a control");
        !          1773:                                        error = 1;
        !          1774:                                        break;
        !          1775:                                }
        !          1776:                                if (zend_hash_find(Z_ARRVAL_PP(ctrlval), "oid", sizeof("oid"), (void **) &val) != SUCCESS) {
        !          1777:                                        php_error_docref(NULL TSRMLS_CC, E_WARNING, "Control must have an oid key");
        !          1778:                                        error = 1;
        !          1779:                                        break;
        !          1780:                                }
        !          1781:                                ctrl = *ctrlp = emalloc(sizeof(**ctrlp));
        !          1782:                                convert_to_string_ex(val);
        !          1783:                                ctrl->ldctl_oid = Z_STRVAL_PP(val);
        !          1784:                                if (zend_hash_find(Z_ARRVAL_PP(ctrlval), "value", sizeof("value"), (void **) &val) == SUCCESS) {
        !          1785:                                        convert_to_string_ex(val);
        !          1786:                                        ctrl->ldctl_value.bv_val = Z_STRVAL_PP(val);
        !          1787:                                        ctrl->ldctl_value.bv_len = Z_STRLEN_PP(val);
        !          1788:                                } else {
        !          1789:                                        ctrl->ldctl_value.bv_val = NULL;
        !          1790:                                        ctrl->ldctl_value.bv_len = 0;
        !          1791:                                }
        !          1792:                                if (zend_hash_find(Z_ARRVAL_PP(ctrlval), "iscritical", sizeof("iscritical"), (void **) &val) == SUCCESS) {
        !          1793:                                        convert_to_boolean_ex(val);
        !          1794:                                        ctrl->ldctl_iscritical = Z_BVAL_PP(val);
        !          1795:                                } else {
        !          1796:                                        ctrl->ldctl_iscritical = 0;
        !          1797:                                }
        !          1798:                                
        !          1799:                                ++ctrlp;
        !          1800:                                *ctrlp = NULL;
        !          1801:                                zend_hash_move_forward(Z_ARRVAL_PP(newval));
        !          1802:                        }
        !          1803:                        if (!error) {
        !          1804:                                error = ldap_set_option(ldap, option, ctrls);
        !          1805:                        }
        !          1806:                        ctrlp = ctrls;
        !          1807:                        while (*ctrlp) {
        !          1808:                                efree(*ctrlp);
        !          1809:                                ctrlp++;
        !          1810:                        }
        !          1811:                        efree(ctrls);
        !          1812:                        if (error) {
        !          1813:                                RETURN_FALSE;
        !          1814:                        }
        !          1815:                } break;
        !          1816:        default:
        !          1817:                RETURN_FALSE;
        !          1818:        }
        !          1819:        RETURN_TRUE;
        !          1820: }
        !          1821: /* }}} */
        !          1822: 
        !          1823: #ifdef HAVE_LDAP_PARSE_RESULT
        !          1824: /* {{{ proto bool ldap_parse_result(resource link, resource result, int errcode, string matcheddn, string errmsg, array referrals)
        !          1825:    Extract information from result */
        !          1826: PHP_FUNCTION(ldap_parse_result) 
        !          1827: {
        !          1828:        zval *link, *result, *errcode, *matcheddn, *errmsg, *referrals;
        !          1829:        ldap_linkdata *ld;
        !          1830:        LDAPMessage *ldap_result;
        !          1831:        char **lreferrals, **refp;
        !          1832:        char *lmatcheddn, *lerrmsg;
        !          1833:        int rc, lerrcode, myargcount = ZEND_NUM_ARGS();
        !          1834: 
        !          1835:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rrz|zzz", &link, &result, &errcode, &matcheddn, &errmsg, &referrals) != SUCCESS) {
        !          1836:                return; 
        !          1837:        }
        !          1838: 
        !          1839:        ZEND_FETCH_RESOURCE(ld, ldap_linkdata *, &link, -1, "ldap link", le_link);
        !          1840:        ZEND_FETCH_RESOURCE(ldap_result, LDAPMessage *, &result, -1, "ldap result", le_result);
        !          1841: 
        !          1842:        rc = ldap_parse_result(ld->link, ldap_result, &lerrcode,
        !          1843:                                myargcount > 3 ? &lmatcheddn : NULL,
        !          1844:                                myargcount > 4 ? &lerrmsg : NULL,
        !          1845:                                myargcount > 5 ? &lreferrals : NULL,
        !          1846:                                NULL /* &serverctrls */,
        !          1847:                                0);
        !          1848:        if (rc != LDAP_SUCCESS) {
        !          1849:                php_error_docref(NULL TSRMLS_CC, E_WARNING, "Unable to parse result: %s", ldap_err2string(rc));
        !          1850:                RETURN_FALSE;
        !          1851:        }
        !          1852: 
        !          1853:        zval_dtor(errcode);
        !          1854:        ZVAL_LONG(errcode, lerrcode);
        !          1855: 
        !          1856:        /* Reverse -> fall through */
        !          1857:        switch (myargcount) {
        !          1858:                case 6:
        !          1859:                        zval_dtor(referrals);
        !          1860:                        array_init(referrals);
        !          1861:                        if (lreferrals != NULL) {
        !          1862:                                refp = lreferrals;
        !          1863:                                while (*refp) {
        !          1864:                                        add_next_index_string(referrals, *refp, 1);
        !          1865:                                        refp++;
        !          1866:                                }
        !          1867:                                ldap_value_free(lreferrals);
        !          1868:                        }
        !          1869:                case 5:
        !          1870:                        zval_dtor(errmsg);
        !          1871:                        if (lerrmsg == NULL) {
        !          1872:                                ZVAL_EMPTY_STRING(errmsg);
        !          1873:                        } else {
        !          1874:                                ZVAL_STRING(errmsg, lerrmsg, 1);
        !          1875:                                ldap_memfree(lerrmsg);
        !          1876:                        }
        !          1877:                case 4: 
        !          1878:                        zval_dtor(matcheddn);
        !          1879:                        if (lmatcheddn == NULL) {
        !          1880:                                ZVAL_EMPTY_STRING(matcheddn);
        !          1881:                        } else {
        !          1882:                                ZVAL_STRING(matcheddn, lmatcheddn, 1);
        !          1883:                                ldap_memfree(lmatcheddn);
        !          1884:                        }
        !          1885:        }
        !          1886:        RETURN_TRUE;
        !          1887: }
        !          1888: /* }}} */
        !          1889: #endif
        !          1890: 
        !          1891: /* {{{ proto resource ldap_first_reference(resource link, resource result)
        !          1892:    Return first reference */
        !          1893: PHP_FUNCTION(ldap_first_reference)
        !          1894: {
        !          1895:        zval *link, *result;
        !          1896:        ldap_linkdata *ld;
        !          1897:        ldap_resultentry *resultentry;
        !          1898:        LDAPMessage *ldap_result, *entry;
        !          1899: 
        !          1900:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rr", &link, &result) != SUCCESS) {
        !          1901:                return;
        !          1902:        }
        !          1903: 
        !          1904:        ZEND_FETCH_RESOURCE(ld, ldap_linkdata *, &link, -1, "ldap link", le_link);
        !          1905:        ZEND_FETCH_RESOURCE(ldap_result, LDAPMessage *, &result, -1, "ldap result", le_result);
        !          1906: 
        !          1907:        if ((entry = ldap_first_reference(ld->link, ldap_result)) == NULL) {
        !          1908:                RETVAL_FALSE;
        !          1909:        } else {
        !          1910:                resultentry = emalloc(sizeof(ldap_resultentry));
        !          1911:                ZEND_REGISTER_RESOURCE(return_value, resultentry, le_result_entry);
        !          1912:                resultentry->id = Z_LVAL_P(result);
        !          1913:                zend_list_addref(resultentry->id);
        !          1914:                resultentry->data = entry;
        !          1915:                resultentry->ber = NULL;
        !          1916:        }
        !          1917: }
        !          1918: /* }}} */
        !          1919: 
        !          1920: /* {{{ proto resource ldap_next_reference(resource link, resource reference_entry)
        !          1921:    Get next reference */
        !          1922: PHP_FUNCTION(ldap_next_reference)
        !          1923: {
        !          1924:        zval *link, *result_entry;
        !          1925:        ldap_linkdata *ld;
        !          1926:        ldap_resultentry *resultentry, *resultentry_next;
        !          1927:        LDAPMessage *entry_next;
        !          1928: 
        !          1929:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rr", &link, &result_entry) != SUCCESS) {
        !          1930:                return;
        !          1931:        }
        !          1932: 
        !          1933:        ZEND_FETCH_RESOURCE(ld, ldap_linkdata *, &link, -1, "ldap link", le_link);
        !          1934:        ZEND_FETCH_RESOURCE(resultentry, ldap_resultentry *, &result_entry, -1, "ldap result entry", le_result_entry);
        !          1935: 
        !          1936:        if ((entry_next = ldap_next_reference(ld->link, resultentry->data)) == NULL) {
        !          1937:                RETVAL_FALSE;
        !          1938:        } else {
        !          1939:                resultentry_next = emalloc(sizeof(ldap_resultentry));
        !          1940:                ZEND_REGISTER_RESOURCE(return_value, resultentry_next, le_result_entry);
        !          1941:                resultentry_next->id = resultentry->id;
        !          1942:                zend_list_addref(resultentry->id);
        !          1943:                resultentry_next->data = entry_next;
        !          1944:                resultentry_next->ber = NULL;
        !          1945:        }
        !          1946: }
        !          1947: /* }}} */
        !          1948: 
        !          1949: #ifdef HAVE_LDAP_PARSE_REFERENCE
        !          1950: /* {{{ proto bool ldap_parse_reference(resource link, resource reference_entry, array referrals)
        !          1951:    Extract information from reference entry */
        !          1952: PHP_FUNCTION(ldap_parse_reference)
        !          1953: {
        !          1954:        zval *link, *result_entry, *referrals;
        !          1955:        ldap_linkdata *ld;
        !          1956:        ldap_resultentry *resultentry;
        !          1957:        char **lreferrals, **refp;
        !          1958: 
        !          1959:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rrz", &link, &result_entry, &referrals) != SUCCESS) {
        !          1960:                return;
        !          1961:        }
        !          1962: 
        !          1963:        ZEND_FETCH_RESOURCE(ld, ldap_linkdata *, &link, -1, "ldap link", le_link);
        !          1964:        ZEND_FETCH_RESOURCE(resultentry, ldap_resultentry *, &result_entry, -1, "ldap result entry", le_result_entry);
        !          1965: 
        !          1966:        if (ldap_parse_reference(ld->link, resultentry->data, &lreferrals, NULL /* &serverctrls */, 0) != LDAP_SUCCESS) {
        !          1967:                RETURN_FALSE;
        !          1968:        }
        !          1969: 
        !          1970:        zval_dtor(referrals);
        !          1971:        array_init(referrals);
        !          1972:        if (lreferrals != NULL) {
        !          1973:                refp = lreferrals;
        !          1974:                while (*refp) {
        !          1975:                        add_next_index_string(referrals, *refp, 1);
        !          1976:                        refp++;
        !          1977:                }
        !          1978:                ldap_value_free(lreferrals);
        !          1979:        }
        !          1980:        RETURN_TRUE;
        !          1981: }
        !          1982: /* }}} */
        !          1983: #endif
        !          1984: 
        !          1985: /* {{{ proto bool ldap_rename(resource link, string dn, string newrdn, string newparent, bool deleteoldrdn);
        !          1986:    Modify the name of an entry */
        !          1987: PHP_FUNCTION(ldap_rename)
        !          1988: {
        !          1989:        zval *link;
        !          1990:        ldap_linkdata *ld;
        !          1991:        int rc;
        !          1992:        char *dn, *newrdn, *newparent;
        !          1993:        int dn_len, newrdn_len, newparent_len;
        !          1994:        zend_bool deleteoldrdn;
        !          1995:        
        !          1996:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rsssb", &link, &dn, &dn_len, &newrdn, &newrdn_len, &newparent, &newparent_len, &deleteoldrdn) != SUCCESS) {
        !          1997:                return;
        !          1998:        }
        !          1999: 
        !          2000:        ZEND_FETCH_RESOURCE(ld, ldap_linkdata *, &link, -1, "ldap link", le_link);
        !          2001: 
        !          2002:        if (newparent_len == 0) {
        !          2003:                newparent = NULL;
        !          2004:        }
        !          2005: 
        !          2006: #if (LDAP_API_VERSION > 2000) || HAVE_NSLDAP || HAVE_ORALDAP_10
        !          2007:        rc = ldap_rename_s(ld->link, dn, newrdn, newparent, deleteoldrdn, NULL, NULL);
        !          2008: #else
        !          2009:        if (newparent_len != 0) {
        !          2010:                php_error_docref(NULL TSRMLS_CC, E_WARNING, "You are using old LDAP API, newparent must be the empty string, can only modify RDN");
        !          2011:                RETURN_FALSE;
        !          2012:        }
        !          2013: /* could support old APIs but need check for ldap_modrdn2()/ldap_modrdn() */
        !          2014:        rc = ldap_modrdn2_s(ld->link, dn, newrdn, deleteoldrdn);
        !          2015: #endif
        !          2016: 
        !          2017:        if (rc == LDAP_SUCCESS) {
        !          2018:                RETURN_TRUE;
        !          2019:        }
        !          2020:        RETURN_FALSE;
        !          2021: }
        !          2022: /* }}} */
        !          2023: 
        !          2024: #ifdef HAVE_LDAP_START_TLS_S
        !          2025: /* {{{ proto bool ldap_start_tls(resource link)
        !          2026:    Start TLS */
        !          2027: PHP_FUNCTION(ldap_start_tls)
        !          2028: {
        !          2029:        zval *link;
        !          2030:        ldap_linkdata *ld;
        !          2031:        int rc, protocol = LDAP_VERSION3;
        !          2032: 
        !          2033:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &link) != SUCCESS) {
        !          2034:                return;
        !          2035:        }
        !          2036: 
        !          2037:        ZEND_FETCH_RESOURCE(ld, ldap_linkdata *, &link, -1, "ldap link", le_link);
        !          2038: 
        !          2039:        if (((rc = ldap_set_option(ld->link, LDAP_OPT_PROTOCOL_VERSION, &protocol)) != LDAP_SUCCESS) ||
        !          2040:                ((rc = ldap_start_tls_s(ld->link, NULL, NULL)) != LDAP_SUCCESS)
        !          2041:        ) {
        !          2042:                php_error_docref(NULL TSRMLS_CC, E_WARNING,"Unable to start TLS: %s", ldap_err2string(rc));
        !          2043:                RETURN_FALSE;
        !          2044:        } else {
        !          2045:                RETURN_TRUE;
        !          2046:        }
        !          2047: }
        !          2048: /* }}} */
        !          2049: #endif
        !          2050: #endif /* (LDAP_API_VERSION > 2000) || HAVE_NSLDAP || HAVE_ORALDAP_10 */
        !          2051: 
        !          2052: #if defined(LDAP_API_FEATURE_X_OPENLDAP) && defined(HAVE_3ARG_SETREBINDPROC)
        !          2053: /* {{{ _ldap_rebind_proc()
        !          2054: */
        !          2055: int _ldap_rebind_proc(LDAP *ldap, const char *url, ber_tag_t req, ber_int_t msgid, void *params)
        !          2056: {
        !          2057:        ldap_linkdata *ld;
        !          2058:        int retval;
        !          2059:        zval *cb_url;
        !          2060:        zval **cb_args[2];
        !          2061:        zval *cb_retval;
        !          2062:        zval *cb_link = (zval *) params;
        !          2063:        TSRMLS_FETCH();
        !          2064: 
        !          2065:        ld = (ldap_linkdata *) zend_fetch_resource(&cb_link TSRMLS_CC, -1, "ldap link", NULL, 1, le_link);
        !          2066: 
        !          2067:        /* link exists and callback set? */
        !          2068:        if (ld == NULL || ld->rebindproc == NULL) {
        !          2069:                php_error_docref(NULL TSRMLS_CC, E_WARNING, "Link not found or no callback set");
        !          2070:                return LDAP_OTHER;
        !          2071:        }
        !          2072: 
        !          2073:        /* callback */
        !          2074:        MAKE_STD_ZVAL(cb_url);
        !          2075:        ZVAL_STRING(cb_url, estrdup(url), 0);
        !          2076:        cb_args[0] = &cb_link;
        !          2077:        cb_args[1] = &cb_url;
        !          2078:        if (call_user_function_ex(EG(function_table), NULL, ld->rebindproc, &cb_retval, 2, cb_args, 0, NULL TSRMLS_CC) == SUCCESS && cb_retval) {
        !          2079:                convert_to_long_ex(&cb_retval);
        !          2080:                retval = Z_LVAL_P(cb_retval);
        !          2081:                zval_ptr_dtor(&cb_retval);
        !          2082:        } else {
        !          2083:                php_error_docref(NULL TSRMLS_CC, E_WARNING, "rebind_proc PHP callback failed");
        !          2084:                retval = LDAP_OTHER;
        !          2085:        }
        !          2086:        zval_dtor(cb_url);
        !          2087:        FREE_ZVAL(cb_url);
        !          2088:        return retval;
        !          2089: }
        !          2090: /* }}} */
        !          2091: 
        !          2092: /* {{{ proto bool ldap_set_rebind_proc(resource link, string callback)
        !          2093:    Set a callback function to do re-binds on referral chasing. */
        !          2094: PHP_FUNCTION(ldap_set_rebind_proc)
        !          2095: {
        !          2096:        zval *link, *callback;
        !          2097:        ldap_linkdata *ld;
        !          2098:        char *callback_name;
        !          2099: 
        !          2100:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rz", &link, &callback) != SUCCESS) {
        !          2101:                RETURN_FALSE;
        !          2102:        }
        !          2103: 
        !          2104:        ZEND_FETCH_RESOURCE(ld, ldap_linkdata *, &link, -1, "ldap link", le_link);
        !          2105: 
        !          2106:        if (Z_TYPE_P(callback) == IS_STRING && Z_STRLEN_P(callback) == 0) {
        !          2107:                /* unregister rebind procedure */
        !          2108:                if (ld->rebindproc != NULL) {
        !          2109:                        zval_dtor(ld->rebindproc);
        !          2110:                        ld->rebindproc = NULL;
        !          2111:                        ldap_set_rebind_proc(ld->link, NULL, NULL);
        !          2112:                }
        !          2113:                RETURN_TRUE;
        !          2114:        }
        !          2115: 
        !          2116:        /* callable? */
        !          2117:        if (!zend_is_callable(callback, 0, &callback_name TSRMLS_CC)) {
        !          2118:                php_error_docref(NULL TSRMLS_CC, E_WARNING, "Two arguments expected for '%s' to be a valid callback", callback_name);
        !          2119:                efree(callback_name);
        !          2120:                RETURN_FALSE;
        !          2121:        }
        !          2122:        efree(callback_name);
        !          2123: 
        !          2124:        /* register rebind procedure */
        !          2125:        if (ld->rebindproc == NULL) {
        !          2126:                ldap_set_rebind_proc(ld->link, _ldap_rebind_proc, (void *) link);
        !          2127:        } else {
        !          2128:                zval_dtor(ld->rebindproc);
        !          2129:        }
        !          2130: 
        !          2131:        ALLOC_ZVAL(ld->rebindproc);
        !          2132:        *ld->rebindproc = *callback;
        !          2133:        zval_copy_ctor(ld->rebindproc);
        !          2134:        RETURN_TRUE;
        !          2135: }
        !          2136: /* }}} */
        !          2137: #endif
        !          2138: 
        !          2139: #ifdef STR_TRANSLATION
        !          2140: /* {{{ php_ldap_do_translate
        !          2141:  */
        !          2142: static void php_ldap_do_translate(INTERNAL_FUNCTION_PARAMETERS, int way) 
        !          2143: {
        !          2144:        char *value;
        !          2145:        int result, ldap_len;
        !          2146:                
        !          2147:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s", &value, &value_len) != SUCCESS) {
        !          2148:                return;
        !          2149:        }
        !          2150: 
        !          2151:        if (value_len == 0) {
        !          2152:                RETURN_FALSE;
        !          2153:        }
        !          2154: 
        !          2155:        if (way == 1) {
        !          2156:                result = ldap_8859_to_t61(&value, &value_len, 0);
        !          2157:        } else {
        !          2158:                result = ldap_t61_to_8859(&value, &value_len, 0);
        !          2159:        }
        !          2160: 
        !          2161:        if (result == LDAP_SUCCESS) {
        !          2162:                RETVAL_STRINGL(value, value_len, 1);
        !          2163:                free(value);
        !          2164:        } else {
        !          2165:                php_error_docref(NULL TSRMLS_CC, E_WARNING, "Conversion from iso-8859-1 to t61 failed: %s", ldap_err2string(result));
        !          2166:                RETVAL_FALSE;
        !          2167:        }
        !          2168: }
        !          2169: /* }}} */
        !          2170: 
        !          2171: /* {{{ proto string ldap_t61_to_8859(string value)
        !          2172:    Translate t61 characters to 8859 characters */
        !          2173: PHP_FUNCTION(ldap_t61_to_8859)
        !          2174: {
        !          2175:        php_ldap_do_translate(INTERNAL_FUNCTION_PARAM_PASSTHRU, 0);
        !          2176: }
        !          2177: /* }}} */
        !          2178: 
        !          2179: /* {{{ proto string ldap_8859_to_t61(string value)
        !          2180:    Translate 8859 characters to t61 characters */
        !          2181: PHP_FUNCTION(ldap_8859_to_t61)
        !          2182: {
        !          2183:        php_ldap_do_translate(INTERNAL_FUNCTION_PARAM_PASSTHRU, 1);
        !          2184: }
        !          2185: /* }}} */
        !          2186: #endif
        !          2187: 
        !          2188: /* {{{ arginfo */
        !          2189: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_connect, 0, 0, 0)
        !          2190:        ZEND_ARG_INFO(0, hostname)
        !          2191:        ZEND_ARG_INFO(0, port)
        !          2192: #ifdef HAVE_ORALDAP
        !          2193:        ZEND_ARG_INFO(0, wallet)
        !          2194:        ZEND_ARG_INFO(0, wallet_passwd)
        !          2195:        ZEND_ARG_INFO(0, authmode)
        !          2196: #endif
        !          2197: ZEND_END_ARG_INFO()
        !          2198: 
        !          2199: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_resource, 0, 0, 1)
        !          2200:        ZEND_ARG_INFO(0, link_identifier)
        !          2201: ZEND_END_ARG_INFO()
        !          2202: 
        !          2203: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_bind, 0, 0, 1)
        !          2204:        ZEND_ARG_INFO(0, link_identifier)
        !          2205:        ZEND_ARG_INFO(0, bind_rdn)
        !          2206:        ZEND_ARG_INFO(0, bind_password)
        !          2207: ZEND_END_ARG_INFO()
        !          2208: 
        !          2209: #ifdef HAVE_LDAP_SASL
        !          2210: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_sasl_bind, 0, 0, 1)
        !          2211:        ZEND_ARG_INFO(0, link)
        !          2212:        ZEND_ARG_INFO(0, binddn)
        !          2213:        ZEND_ARG_INFO(0, password)
        !          2214:        ZEND_ARG_INFO(0, sasl_mech)
        !          2215:        ZEND_ARG_INFO(0, sasl_realm)
        !          2216:        ZEND_ARG_INFO(0, sasl_authz_id)
        !          2217:        ZEND_ARG_INFO(0, props)
        !          2218: ZEND_END_ARG_INFO()
        !          2219: #endif
        !          2220: 
        !          2221: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_read, 0, 0, 3)
        !          2222:        ZEND_ARG_INFO(0, link_identifier)
        !          2223:        ZEND_ARG_INFO(0, base_dn)
        !          2224:        ZEND_ARG_INFO(0, filter)
        !          2225:        ZEND_ARG_INFO(0, attributes)
        !          2226:        ZEND_ARG_INFO(0, attrsonly)
        !          2227:        ZEND_ARG_INFO(0, sizelimit)
        !          2228:        ZEND_ARG_INFO(0, timelimit)
        !          2229:        ZEND_ARG_INFO(0, deref)
        !          2230: ZEND_END_ARG_INFO()
        !          2231: 
        !          2232: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_list, 0, 0, 3)
        !          2233:        ZEND_ARG_INFO(0, link_identifier)
        !          2234:        ZEND_ARG_INFO(0, base_dn)
        !          2235:        ZEND_ARG_INFO(0, filter)
        !          2236:        ZEND_ARG_INFO(0, attributes)
        !          2237:        ZEND_ARG_INFO(0, attrsonly)
        !          2238:        ZEND_ARG_INFO(0, sizelimit)
        !          2239:        ZEND_ARG_INFO(0, timelimit)
        !          2240:        ZEND_ARG_INFO(0, deref)
        !          2241: ZEND_END_ARG_INFO()
        !          2242: 
        !          2243: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_search, 0, 0, 3)
        !          2244:        ZEND_ARG_INFO(0, link_identifier)
        !          2245:        ZEND_ARG_INFO(0, base_dn)
        !          2246:        ZEND_ARG_INFO(0, filter)
        !          2247:        ZEND_ARG_INFO(0, attributes)
        !          2248:        ZEND_ARG_INFO(0, attrsonly)
        !          2249:        ZEND_ARG_INFO(0, sizelimit)
        !          2250:        ZEND_ARG_INFO(0, timelimit)
        !          2251:        ZEND_ARG_INFO(0, deref)
        !          2252: ZEND_END_ARG_INFO()
        !          2253: 
        !          2254: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_count_entries, 0, 0, 2)
        !          2255:        ZEND_ARG_INFO(0, link_identifier)
        !          2256:        ZEND_ARG_INFO(0, result_identifier)
        !          2257: ZEND_END_ARG_INFO()
        !          2258: 
        !          2259: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_first_entry, 0, 0, 2)
        !          2260:        ZEND_ARG_INFO(0, link_identifier)
        !          2261:        ZEND_ARG_INFO(0, result_identifier)
        !          2262: ZEND_END_ARG_INFO()
        !          2263: 
        !          2264: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_next_entry, 0, 0, 2)
        !          2265:        ZEND_ARG_INFO(0, link_identifier)
        !          2266:        ZEND_ARG_INFO(0, result_identifier)
        !          2267: ZEND_END_ARG_INFO()
        !          2268: 
        !          2269: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_get_entries, 0, 0, 2)
        !          2270:        ZEND_ARG_INFO(0, link_identifier)
        !          2271:        ZEND_ARG_INFO(0, result_identifier)
        !          2272: ZEND_END_ARG_INFO()
        !          2273: 
        !          2274: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_first_attribute, 0, 0, 2)
        !          2275:        ZEND_ARG_INFO(0, link_identifier)
        !          2276:        ZEND_ARG_INFO(0, result_entry_identifier)
        !          2277: ZEND_END_ARG_INFO()
        !          2278: 
        !          2279: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_next_attribute, 0, 0, 2)
        !          2280:        ZEND_ARG_INFO(0, link_identifier)
        !          2281:        ZEND_ARG_INFO(0, result_entry_identifier)
        !          2282: ZEND_END_ARG_INFO()
        !          2283: 
        !          2284: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_get_attributes, 0, 0, 2)
        !          2285:        ZEND_ARG_INFO(0, link_identifier)
        !          2286:        ZEND_ARG_INFO(0, result_entry_identifier)
        !          2287: ZEND_END_ARG_INFO()
        !          2288: 
        !          2289: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_get_values, 0, 0, 3)
        !          2290:        ZEND_ARG_INFO(0, link_identifier)
        !          2291:        ZEND_ARG_INFO(0, result_entry_identifier)
        !          2292:        ZEND_ARG_INFO(0, attribute)
        !          2293: ZEND_END_ARG_INFO()
        !          2294: 
        !          2295: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_get_values_len, 0, 0, 3)
        !          2296:        ZEND_ARG_INFO(0, link_identifier)
        !          2297:        ZEND_ARG_INFO(0, result_entry_identifier)
        !          2298:        ZEND_ARG_INFO(0, attribute)
        !          2299: ZEND_END_ARG_INFO()
        !          2300: 
        !          2301: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_get_dn, 0, 0, 2)
        !          2302:        ZEND_ARG_INFO(0, link_identifier)
        !          2303:        ZEND_ARG_INFO(0, result_entry_identifier)
        !          2304: ZEND_END_ARG_INFO()
        !          2305: 
        !          2306: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_explode_dn, 0, 0, 2)
        !          2307:        ZEND_ARG_INFO(0, dn)
        !          2308:        ZEND_ARG_INFO(0, with_attrib)
        !          2309: ZEND_END_ARG_INFO()
        !          2310: 
        !          2311: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_dn2ufn, 0, 0, 1)
        !          2312:        ZEND_ARG_INFO(0, dn)
        !          2313: ZEND_END_ARG_INFO()
        !          2314: 
        !          2315: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_add, 0, 0, 3)
        !          2316:        ZEND_ARG_INFO(0, link_identifier)
        !          2317:        ZEND_ARG_INFO(0, dn)
        !          2318:        ZEND_ARG_INFO(0, entry)
        !          2319: ZEND_END_ARG_INFO()
        !          2320: 
        !          2321: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_delete, 0, 0, 2)
        !          2322:        ZEND_ARG_INFO(0, link_identifier)
        !          2323:        ZEND_ARG_INFO(0, dn)
        !          2324: ZEND_END_ARG_INFO()
        !          2325: 
        !          2326: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_modify, 0, 0, 3)
        !          2327:        ZEND_ARG_INFO(0, link_identifier)
        !          2328:        ZEND_ARG_INFO(0, dn)
        !          2329:        ZEND_ARG_INFO(0, entry)
        !          2330: ZEND_END_ARG_INFO()
        !          2331: 
        !          2332: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_mod_add, 0, 0, 3)
        !          2333:        ZEND_ARG_INFO(0, link_identifier)
        !          2334:        ZEND_ARG_INFO(0, dn)
        !          2335:        ZEND_ARG_INFO(0, entry)
        !          2336: ZEND_END_ARG_INFO()
        !          2337: 
        !          2338: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_mod_replace, 0, 0, 3)
        !          2339:        ZEND_ARG_INFO(0, link_identifier)
        !          2340:        ZEND_ARG_INFO(0, dn)
        !          2341:        ZEND_ARG_INFO(0, entry)
        !          2342: ZEND_END_ARG_INFO()
        !          2343: 
        !          2344: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_mod_del, 0, 0, 3)
        !          2345:        ZEND_ARG_INFO(0, link_identifier)
        !          2346:        ZEND_ARG_INFO(0, dn)
        !          2347:        ZEND_ARG_INFO(0, entry)
        !          2348: ZEND_END_ARG_INFO()
        !          2349: 
        !          2350: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_err2str, 0, 0, 1)
        !          2351:        ZEND_ARG_INFO(0, errno)
        !          2352: ZEND_END_ARG_INFO()
        !          2353: 
        !          2354: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_compare, 0, 0, 4)
        !          2355:        ZEND_ARG_INFO(0, link_identifier)
        !          2356:        ZEND_ARG_INFO(0, dn)
        !          2357:        ZEND_ARG_INFO(0, attribute)
        !          2358:        ZEND_ARG_INFO(0, value)
        !          2359: ZEND_END_ARG_INFO()
        !          2360: 
        !          2361: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_sort, 0, 0, 3)
        !          2362:        ZEND_ARG_INFO(0, link)
        !          2363:        ZEND_ARG_INFO(0, result)
        !          2364:        ZEND_ARG_INFO(0, sortfilter)
        !          2365: ZEND_END_ARG_INFO()
        !          2366: 
        !          2367: #if (LDAP_API_VERSION > 2000) || HAVE_NSLDAP || HAVE_ORALDAP_10
        !          2368: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_rename, 0, 0, 5)
        !          2369:        ZEND_ARG_INFO(0, link_identifier)
        !          2370:        ZEND_ARG_INFO(0, dn)
        !          2371:        ZEND_ARG_INFO(0, newrdn)
        !          2372:        ZEND_ARG_INFO(0, newparent)
        !          2373:        ZEND_ARG_INFO(0, deleteoldrdn)
        !          2374: ZEND_END_ARG_INFO()
        !          2375: 
        !          2376: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_get_option, 0, 0, 3)
        !          2377:        ZEND_ARG_INFO(0, link_identifier)
        !          2378:        ZEND_ARG_INFO(0, option)
        !          2379:        ZEND_ARG_INFO(1, retval)
        !          2380: ZEND_END_ARG_INFO()
        !          2381: 
        !          2382: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_set_option, 0, 0, 3)
        !          2383:        ZEND_ARG_INFO(0, link_identifier)
        !          2384:        ZEND_ARG_INFO(0, option)
        !          2385:        ZEND_ARG_INFO(0, newval)
        !          2386: ZEND_END_ARG_INFO()
        !          2387: 
        !          2388: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_first_reference, 0, 0, 2)
        !          2389:        ZEND_ARG_INFO(0, link)
        !          2390:        ZEND_ARG_INFO(0, result)
        !          2391: ZEND_END_ARG_INFO()
        !          2392: 
        !          2393: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_next_reference, 0, 0, 2)
        !          2394:        ZEND_ARG_INFO(0, link)
        !          2395:        ZEND_ARG_INFO(0, entry)
        !          2396: ZEND_END_ARG_INFO()
        !          2397: 
        !          2398: #ifdef HAVE_LDAP_PARSE_REFERENCE
        !          2399: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_parse_reference, 0, 0, 3)
        !          2400:        ZEND_ARG_INFO(0, link)
        !          2401:        ZEND_ARG_INFO(0, entry)
        !          2402:        ZEND_ARG_INFO(1, referrals)
        !          2403: ZEND_END_ARG_INFO()
        !          2404: #endif
        !          2405: 
        !          2406: 
        !          2407: #ifdef HAVE_LDAP_PARSE_RESULT
        !          2408: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_parse_result, 0, 0, 3)
        !          2409:        ZEND_ARG_INFO(0, link)
        !          2410:        ZEND_ARG_INFO(0, result)
        !          2411:        ZEND_ARG_INFO(1, errcode)
        !          2412:        ZEND_ARG_INFO(1, matcheddn)
        !          2413:        ZEND_ARG_INFO(1, errmsg)
        !          2414:        ZEND_ARG_INFO(1, referrals)
        !          2415: ZEND_END_ARG_INFO()
        !          2416: #endif
        !          2417: #endif
        !          2418: 
        !          2419: #if defined(LDAP_API_FEATURE_X_OPENLDAP) && defined(HAVE_3ARG_SETREBINDPROC)
        !          2420: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_set_rebind_proc, 0, 0, 2)
        !          2421:        ZEND_ARG_INFO(0, link)
        !          2422:        ZEND_ARG_INFO(0, callback)
        !          2423: ZEND_END_ARG_INFO()
        !          2424: #endif
        !          2425: 
        !          2426: #ifdef STR_TRANSLATION
        !          2427: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_t61_to_8859, 0, 0, 1)
        !          2428:        ZEND_ARG_INFO(0, value)
        !          2429: ZEND_END_ARG_INFO()
        !          2430: 
        !          2431: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_8859_to_t61, 0, 0, 1)
        !          2432:        ZEND_ARG_INFO(0, value)
        !          2433: ZEND_END_ARG_INFO()
        !          2434: #endif
        !          2435: /* }}} */
        !          2436:        
        !          2437: /*
        !          2438:        This is just a small subset of the functionality provided by the LDAP library. All the 
        !          2439:        operations are synchronous. Referrals are not handled automatically.
        !          2440: */
        !          2441: /* {{{ ldap_functions[]
        !          2442:  */
        !          2443: const zend_function_entry ldap_functions[] = {
        !          2444:        PHP_FE(ldap_connect,                                                            arginfo_ldap_connect)
        !          2445:        PHP_FALIAS(ldap_close,          ldap_unbind,                    arginfo_ldap_resource)
        !          2446:        PHP_FE(ldap_bind,                                                                       arginfo_ldap_bind)
        !          2447: #ifdef HAVE_LDAP_SASL
        !          2448:        PHP_FE(ldap_sasl_bind,                                                          arginfo_ldap_sasl_bind)
        !          2449: #endif
        !          2450:        PHP_FE(ldap_unbind,                                                                     arginfo_ldap_resource)
        !          2451:        PHP_FE(ldap_read,                                                                       arginfo_ldap_read)
        !          2452:        PHP_FE(ldap_list,                                                                       arginfo_ldap_list)
        !          2453:        PHP_FE(ldap_search,                                                                     arginfo_ldap_search)
        !          2454:        PHP_FE(ldap_free_result,                                                        arginfo_ldap_resource)
        !          2455:        PHP_FE(ldap_count_entries,                                                      arginfo_ldap_count_entries)
        !          2456:        PHP_FE(ldap_first_entry,                                                        arginfo_ldap_first_entry)
        !          2457:        PHP_FE(ldap_next_entry,                                                         arginfo_ldap_next_entry)
        !          2458:        PHP_FE(ldap_get_entries,                                                        arginfo_ldap_get_entries)
        !          2459:        PHP_FE(ldap_first_attribute,                                            arginfo_ldap_first_attribute)
        !          2460:        PHP_FE(ldap_next_attribute,                                                     arginfo_ldap_next_attribute)
        !          2461:        PHP_FE(ldap_get_attributes,                                                     arginfo_ldap_get_attributes)
        !          2462:        PHP_FALIAS(ldap_get_values,     ldap_get_values_len,    arginfo_ldap_get_values)
        !          2463:        PHP_FE(ldap_get_values_len,                                                     arginfo_ldap_get_values_len)
        !          2464:        PHP_FE(ldap_get_dn,                                                                     arginfo_ldap_get_dn)
        !          2465:        PHP_FE(ldap_explode_dn,                                                         arginfo_ldap_explode_dn)
        !          2466:        PHP_FE(ldap_dn2ufn,                                                                     arginfo_ldap_dn2ufn)
        !          2467:        PHP_FE(ldap_add,                                                                        arginfo_ldap_add)
        !          2468:        PHP_FE(ldap_delete,                                                                     arginfo_ldap_delete)
        !          2469:        PHP_FALIAS(ldap_modify,         ldap_mod_replace,               arginfo_ldap_modify)
        !          2470: 
        !          2471: /* additional functions for attribute based modifications, Gerrit Thomson */
        !          2472:        PHP_FE(ldap_mod_add,                                                            arginfo_ldap_mod_add)
        !          2473:        PHP_FE(ldap_mod_replace,                                                        arginfo_ldap_mod_replace)
        !          2474:        PHP_FE(ldap_mod_del,                                                            arginfo_ldap_mod_del)
        !          2475: /* end gjt mod */
        !          2476: 
        !          2477:        PHP_FE(ldap_errno,                                                                      arginfo_ldap_resource)
        !          2478:        PHP_FE(ldap_err2str,                                                            arginfo_ldap_err2str)
        !          2479:        PHP_FE(ldap_error,                                                                      arginfo_ldap_resource)
        !          2480:        PHP_FE(ldap_compare,                                                            arginfo_ldap_compare)
        !          2481:        PHP_FE(ldap_sort,                                                                       arginfo_ldap_sort)
        !          2482: 
        !          2483: #if (LDAP_API_VERSION > 2000) || HAVE_NSLDAP || HAVE_ORALDAP_10
        !          2484:        PHP_FE(ldap_rename,                                                                     arginfo_ldap_rename)
        !          2485:        PHP_FE(ldap_get_option,                                                         arginfo_ldap_get_option)
        !          2486:        PHP_FE(ldap_set_option,                                                         arginfo_ldap_set_option)
        !          2487:        PHP_FE(ldap_first_reference,                                            arginfo_ldap_first_reference)
        !          2488:        PHP_FE(ldap_next_reference,                                                     arginfo_ldap_next_reference)
        !          2489: #ifdef HAVE_LDAP_PARSE_REFERENCE
        !          2490:        PHP_FE(ldap_parse_reference,                                            arginfo_ldap_parse_reference)
        !          2491: #endif
        !          2492: #ifdef HAVE_LDAP_PARSE_RESULT
        !          2493:        PHP_FE(ldap_parse_result,                                                       arginfo_ldap_parse_result)
        !          2494: #endif
        !          2495: #ifdef HAVE_LDAP_START_TLS_S
        !          2496:        PHP_FE(ldap_start_tls,                                                          arginfo_ldap_resource)
        !          2497: #endif
        !          2498: #endif
        !          2499: 
        !          2500: #if defined(LDAP_API_FEATURE_X_OPENLDAP) && defined(HAVE_3ARG_SETREBINDPROC)
        !          2501:        PHP_FE(ldap_set_rebind_proc,                                            arginfo_ldap_set_rebind_proc)
        !          2502: #endif
        !          2503: 
        !          2504: #ifdef STR_TRANSLATION
        !          2505:        PHP_FE(ldap_t61_to_8859,                                                        arginfo_ldap_t61_to_8859)
        !          2506:        PHP_FE(ldap_8859_to_t61,                                                        arginfo_ldap_8859_to_t61)
        !          2507: #endif
        !          2508: 
        !          2509:        PHP_FE_END
        !          2510: };
        !          2511: /* }}} */
        !          2512: 
        !          2513: zend_module_entry ldap_module_entry = { /* {{{ */
        !          2514:        STANDARD_MODULE_HEADER,
        !          2515:        "ldap", 
        !          2516:        ldap_functions, 
        !          2517:        PHP_MINIT(ldap), 
        !          2518:        PHP_MSHUTDOWN(ldap), 
        !          2519:        NULL, 
        !          2520:        NULL,
        !          2521:        PHP_MINFO(ldap), 
        !          2522:        NO_VERSION_YET,
        !          2523:        PHP_MODULE_GLOBALS(ldap),
        !          2524:        PHP_GINIT(ldap),
        !          2525:        NULL,
        !          2526:        NULL,
        !          2527:        STANDARD_MODULE_PROPERTIES_EX
        !          2528: };
        !          2529: /* }}} */
        !          2530: 
        !          2531: /*
        !          2532:  * Local variables:
        !          2533:  * tab-width: 4
        !          2534:  * c-basic-offset: 4
        !          2535:  * End:
        !          2536:  * vim600: sw=4 ts=4 fdm=marker
        !          2537:  * vim<600: sw=4 ts=4
        !          2538:  */

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>