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

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:  
1.1.1.2 ! misho      26: /* $Id$ */
1.1       misho      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");
1.1.1.2 ! misho     229:        php_info_print_table_row(2, "RCS Version", "$Id$");
1.1       misho     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: {
1.1.1.2 ! misho     590:        zval *link, *base_dn, **filter, *attrs = NULL, **attr;
1.1       misho     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: 
1.1.1.2 ! misho    2188: #ifdef LDAP_CONTROL_PAGEDRESULTS
        !          2189: /* {{{ proto mixed ldap_control_paged_result(resource link, int pagesize [, bool iscritical [, string cookie]])
        !          2190:    Inject paged results control*/
        !          2191: PHP_FUNCTION(ldap_control_paged_result) 
        !          2192: {
        !          2193:        long pagesize;
        !          2194:        zend_bool iscritical;
        !          2195:        zval *link;
        !          2196:        char *cookie = NULL;
        !          2197:        int cookie_len = 0;
        !          2198:        struct berval lcookie = { 0, NULL };
        !          2199:        ldap_linkdata *ld;
        !          2200:        LDAP *ldap;
        !          2201:        BerElement *ber = NULL;
        !          2202:        LDAPControl     ctrl, *ctrlsp[2];
        !          2203:        int rc, myargcount = ZEND_NUM_ARGS();
        !          2204: 
        !          2205:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rl|bs", &link, &pagesize, &iscritical, &cookie, &cookie_len) != SUCCESS) {
        !          2206:                return;
        !          2207:        }
        !          2208: 
        !          2209:        if (Z_TYPE_P(link) == IS_NULL) {
        !          2210:                ldap = NULL;
        !          2211:        } else {
        !          2212:                ZEND_FETCH_RESOURCE(ld, ldap_linkdata *, &link, -1, "ldap link", le_link);
        !          2213:                ldap = ld->link;
        !          2214:        }
        !          2215: 
        !          2216:        ber = ber_alloc_t(LBER_USE_DER);
        !          2217:        if (ber == NULL) {
        !          2218:                php_error_docref(NULL TSRMLS_CC, E_WARNING, "Unable to alloc BER encoding resources for paged results control");
        !          2219:                RETURN_FALSE;
        !          2220:        }
        !          2221: 
        !          2222:        ctrl.ldctl_iscritical = 0;
        !          2223: 
        !          2224:        switch (myargcount) {
        !          2225:                case 4:
        !          2226:                        lcookie.bv_val = cookie;
        !          2227:                        lcookie.bv_len = cookie_len;
        !          2228:                        /* fallthru */
        !          2229:                case 3:
        !          2230:                        ctrl.ldctl_iscritical = (int)iscritical;
        !          2231:                        /* fallthru */
        !          2232:        }
        !          2233: 
        !          2234:        if (ber_printf(ber, "{iO}", (int)pagesize, &lcookie) == LBER_ERROR) {
        !          2235:                php_error_docref(NULL TSRMLS_CC, E_WARNING, "Unable to BER printf paged results control");
        !          2236:                RETVAL_FALSE;
        !          2237:                goto lcpr_error_out;
        !          2238:        }
        !          2239:        rc = ber_flatten2(ber, &ctrl.ldctl_value, 0);
        !          2240:        if (rc == LBER_ERROR) {
        !          2241:                php_error_docref(NULL TSRMLS_CC, E_WARNING, "Unable to BER encode paged results control");
        !          2242:                RETVAL_FALSE;
        !          2243:                goto lcpr_error_out;
        !          2244:        }
        !          2245: 
        !          2246:        ctrl.ldctl_oid = LDAP_CONTROL_PAGEDRESULTS;
        !          2247: 
        !          2248:        if (ldap) {
        !          2249:                /* directly set the option */
        !          2250:                ctrlsp[0] = &ctrl;
        !          2251:                ctrlsp[1] = NULL;
        !          2252: 
        !          2253:                rc = ldap_set_option(ldap, LDAP_OPT_SERVER_CONTROLS, ctrlsp);
        !          2254:                if (rc != LDAP_SUCCESS) {
        !          2255:                        php_error_docref(NULL TSRMLS_CC, E_WARNING, "Unable to set paged results control: %s (%d)", ldap_err2string(rc), rc);
        !          2256:                        RETVAL_FALSE;
        !          2257:                        goto lcpr_error_out;
        !          2258:                }
        !          2259:                RETVAL_TRUE;
        !          2260:        } else {
        !          2261:                /* return a PHP control object */
        !          2262:                array_init(return_value);
        !          2263: 
        !          2264:                add_assoc_string(return_value, "oid", ctrl.ldctl_oid, 1);
        !          2265:                if (ctrl.ldctl_value.bv_len) {
        !          2266:                        add_assoc_stringl(return_value, "value", ctrl.ldctl_value.bv_val, ctrl.ldctl_value.bv_len, 1);
        !          2267:                }
        !          2268:                if (ctrl.ldctl_iscritical) {
        !          2269:                        add_assoc_bool(return_value, "iscritical", ctrl.ldctl_iscritical);
        !          2270:                }
        !          2271:        }
        !          2272: 
        !          2273: lcpr_error_out:
        !          2274:        if (ber != NULL) {
        !          2275:                ber_free(ber, 1);
        !          2276:        }
        !          2277:        return;
        !          2278: }
        !          2279: /* }}} */
        !          2280: 
        !          2281: /* {{{ proto bool ldap_control_paged_result_response(resource link, resource result [, string &cookie [, int &estimated]])
        !          2282:    Extract paged results control response */
        !          2283: PHP_FUNCTION(ldap_control_paged_result_response) 
        !          2284: {
        !          2285:        zval *link, *result, *cookie, *estimated;
        !          2286:        struct berval lcookie;
        !          2287:        int lestimated;
        !          2288:        ldap_linkdata *ld;
        !          2289:        LDAPMessage *ldap_result;
        !          2290:        LDAPControl **lserverctrls, *lctrl;
        !          2291:        BerElement *ber;
        !          2292:        ber_tag_t tag;
        !          2293:        int rc, lerrcode, myargcount = ZEND_NUM_ARGS();
        !          2294: 
        !          2295:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "rr|zz", &link, &result, &cookie, &estimated) != SUCCESS) {
        !          2296:                return;
        !          2297:        }
        !          2298: 
        !          2299:        ZEND_FETCH_RESOURCE(ld, ldap_linkdata *, &link, -1, "ldap link", le_link);
        !          2300:        ZEND_FETCH_RESOURCE(ldap_result, LDAPMessage *, &result, -1, "ldap result", le_result);
        !          2301: 
        !          2302:        rc = ldap_parse_result(ld->link,
        !          2303:                                ldap_result,
        !          2304:                                &lerrcode,
        !          2305:                                NULL,           /* matcheddn */
        !          2306:                                NULL,           /* errmsg */
        !          2307:                                NULL,           /* referrals */
        !          2308:                                &lserverctrls,
        !          2309:                                0);
        !          2310: 
        !          2311:        if (rc != LDAP_SUCCESS) {
        !          2312:                php_error_docref(NULL TSRMLS_CC, E_WARNING, "Unable to parse result: %s (%d)", ldap_err2string(rc), rc);
        !          2313:                RETURN_FALSE;
        !          2314:        }
        !          2315: 
        !          2316:        if (lerrcode != LDAP_SUCCESS) {
        !          2317:                php_error_docref(NULL TSRMLS_CC, E_WARNING, "Result is: %s (%d)", ldap_err2string(lerrcode), lerrcode);
        !          2318:                RETURN_FALSE;
        !          2319:        }
        !          2320: 
        !          2321:        if (lserverctrls == NULL) {
        !          2322:                php_error_docref(NULL TSRMLS_CC, E_WARNING, "No server controls in result");
        !          2323:                RETURN_FALSE;
        !          2324:        }
        !          2325: 
        !          2326:        lctrl = ldap_find_control(LDAP_CONTROL_PAGEDRESULTS, lserverctrls);
        !          2327:        if (lctrl == NULL) {
        !          2328:                ldap_controls_free(lserverctrls);
        !          2329:                php_error_docref(NULL TSRMLS_CC, E_WARNING, "No paged results control response in result");
        !          2330:                RETURN_FALSE;
        !          2331:        }
        !          2332: 
        !          2333:        ber = ber_init(&lctrl->ldctl_value);
        !          2334:        if (ber == NULL) {
        !          2335:                ldap_controls_free(lserverctrls);
        !          2336:                php_error_docref(NULL TSRMLS_CC, E_WARNING, "Unable to alloc BER decoding resources for paged results control response");
        !          2337:                RETURN_FALSE;
        !          2338:        }
        !          2339: 
        !          2340:        tag = ber_scanf(ber, "{io}", &lestimated, &lcookie);
        !          2341:        (void)ber_free(ber, 1);
        !          2342: 
        !          2343:        if (tag == LBER_ERROR) {
        !          2344:                ldap_controls_free(lserverctrls);
        !          2345:                php_error_docref(NULL TSRMLS_CC, E_WARNING, "Unable to decode paged results control response");
        !          2346:                RETURN_FALSE;
        !          2347:        }
        !          2348: 
        !          2349:        if (lestimated < 0) {
        !          2350:                ldap_controls_free(lserverctrls);
        !          2351:                php_error_docref(NULL TSRMLS_CC, E_WARNING, "Invalid paged results control response value");
        !          2352:                RETURN_FALSE;
        !          2353:        }
        !          2354: 
        !          2355:        ldap_controls_free(lserverctrls);
        !          2356:        if (myargcount == 4) {
        !          2357:                zval_dtor(estimated);
        !          2358:                ZVAL_LONG(estimated, lestimated);
        !          2359:        }
        !          2360: 
        !          2361:        zval_dtor(cookie);
        !          2362:        if (lcookie.bv_len == 0) {
        !          2363:                ZVAL_EMPTY_STRING(cookie);
        !          2364:        } else {
        !          2365:                ZVAL_STRINGL(cookie, lcookie.bv_val, lcookie.bv_len, 1);
        !          2366:        }
        !          2367:        ldap_memfree(lcookie.bv_val);
        !          2368: 
        !          2369:        RETURN_TRUE;
        !          2370: }
        !          2371: /* }}} */
        !          2372: #endif
        !          2373: 
1.1       misho    2374: /* {{{ arginfo */
                   2375: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_connect, 0, 0, 0)
                   2376:        ZEND_ARG_INFO(0, hostname)
                   2377:        ZEND_ARG_INFO(0, port)
                   2378: #ifdef HAVE_ORALDAP
                   2379:        ZEND_ARG_INFO(0, wallet)
                   2380:        ZEND_ARG_INFO(0, wallet_passwd)
                   2381:        ZEND_ARG_INFO(0, authmode)
                   2382: #endif
                   2383: ZEND_END_ARG_INFO()
                   2384: 
                   2385: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_resource, 0, 0, 1)
                   2386:        ZEND_ARG_INFO(0, link_identifier)
                   2387: ZEND_END_ARG_INFO()
                   2388: 
                   2389: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_bind, 0, 0, 1)
                   2390:        ZEND_ARG_INFO(0, link_identifier)
                   2391:        ZEND_ARG_INFO(0, bind_rdn)
                   2392:        ZEND_ARG_INFO(0, bind_password)
                   2393: ZEND_END_ARG_INFO()
                   2394: 
                   2395: #ifdef HAVE_LDAP_SASL
                   2396: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_sasl_bind, 0, 0, 1)
                   2397:        ZEND_ARG_INFO(0, link)
                   2398:        ZEND_ARG_INFO(0, binddn)
                   2399:        ZEND_ARG_INFO(0, password)
                   2400:        ZEND_ARG_INFO(0, sasl_mech)
                   2401:        ZEND_ARG_INFO(0, sasl_realm)
                   2402:        ZEND_ARG_INFO(0, sasl_authz_id)
                   2403:        ZEND_ARG_INFO(0, props)
                   2404: ZEND_END_ARG_INFO()
                   2405: #endif
                   2406: 
                   2407: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_read, 0, 0, 3)
                   2408:        ZEND_ARG_INFO(0, link_identifier)
                   2409:        ZEND_ARG_INFO(0, base_dn)
                   2410:        ZEND_ARG_INFO(0, filter)
                   2411:        ZEND_ARG_INFO(0, attributes)
                   2412:        ZEND_ARG_INFO(0, attrsonly)
                   2413:        ZEND_ARG_INFO(0, sizelimit)
                   2414:        ZEND_ARG_INFO(0, timelimit)
                   2415:        ZEND_ARG_INFO(0, deref)
                   2416: ZEND_END_ARG_INFO()
                   2417: 
                   2418: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_list, 0, 0, 3)
                   2419:        ZEND_ARG_INFO(0, link_identifier)
                   2420:        ZEND_ARG_INFO(0, base_dn)
                   2421:        ZEND_ARG_INFO(0, filter)
                   2422:        ZEND_ARG_INFO(0, attributes)
                   2423:        ZEND_ARG_INFO(0, attrsonly)
                   2424:        ZEND_ARG_INFO(0, sizelimit)
                   2425:        ZEND_ARG_INFO(0, timelimit)
                   2426:        ZEND_ARG_INFO(0, deref)
                   2427: ZEND_END_ARG_INFO()
                   2428: 
                   2429: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_search, 0, 0, 3)
                   2430:        ZEND_ARG_INFO(0, link_identifier)
                   2431:        ZEND_ARG_INFO(0, base_dn)
                   2432:        ZEND_ARG_INFO(0, filter)
                   2433:        ZEND_ARG_INFO(0, attributes)
                   2434:        ZEND_ARG_INFO(0, attrsonly)
                   2435:        ZEND_ARG_INFO(0, sizelimit)
                   2436:        ZEND_ARG_INFO(0, timelimit)
                   2437:        ZEND_ARG_INFO(0, deref)
                   2438: ZEND_END_ARG_INFO()
                   2439: 
                   2440: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_count_entries, 0, 0, 2)
                   2441:        ZEND_ARG_INFO(0, link_identifier)
                   2442:        ZEND_ARG_INFO(0, result_identifier)
                   2443: ZEND_END_ARG_INFO()
                   2444: 
                   2445: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_first_entry, 0, 0, 2)
                   2446:        ZEND_ARG_INFO(0, link_identifier)
                   2447:        ZEND_ARG_INFO(0, result_identifier)
                   2448: ZEND_END_ARG_INFO()
                   2449: 
                   2450: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_next_entry, 0, 0, 2)
                   2451:        ZEND_ARG_INFO(0, link_identifier)
                   2452:        ZEND_ARG_INFO(0, result_identifier)
                   2453: ZEND_END_ARG_INFO()
                   2454: 
                   2455: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_get_entries, 0, 0, 2)
                   2456:        ZEND_ARG_INFO(0, link_identifier)
                   2457:        ZEND_ARG_INFO(0, result_identifier)
                   2458: ZEND_END_ARG_INFO()
                   2459: 
                   2460: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_first_attribute, 0, 0, 2)
                   2461:        ZEND_ARG_INFO(0, link_identifier)
                   2462:        ZEND_ARG_INFO(0, result_entry_identifier)
                   2463: ZEND_END_ARG_INFO()
                   2464: 
                   2465: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_next_attribute, 0, 0, 2)
                   2466:        ZEND_ARG_INFO(0, link_identifier)
                   2467:        ZEND_ARG_INFO(0, result_entry_identifier)
                   2468: ZEND_END_ARG_INFO()
                   2469: 
                   2470: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_get_attributes, 0, 0, 2)
                   2471:        ZEND_ARG_INFO(0, link_identifier)
                   2472:        ZEND_ARG_INFO(0, result_entry_identifier)
                   2473: ZEND_END_ARG_INFO()
                   2474: 
                   2475: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_get_values, 0, 0, 3)
                   2476:        ZEND_ARG_INFO(0, link_identifier)
                   2477:        ZEND_ARG_INFO(0, result_entry_identifier)
                   2478:        ZEND_ARG_INFO(0, attribute)
                   2479: ZEND_END_ARG_INFO()
                   2480: 
                   2481: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_get_values_len, 0, 0, 3)
                   2482:        ZEND_ARG_INFO(0, link_identifier)
                   2483:        ZEND_ARG_INFO(0, result_entry_identifier)
                   2484:        ZEND_ARG_INFO(0, attribute)
                   2485: ZEND_END_ARG_INFO()
                   2486: 
                   2487: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_get_dn, 0, 0, 2)
                   2488:        ZEND_ARG_INFO(0, link_identifier)
                   2489:        ZEND_ARG_INFO(0, result_entry_identifier)
                   2490: ZEND_END_ARG_INFO()
                   2491: 
                   2492: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_explode_dn, 0, 0, 2)
                   2493:        ZEND_ARG_INFO(0, dn)
                   2494:        ZEND_ARG_INFO(0, with_attrib)
                   2495: ZEND_END_ARG_INFO()
                   2496: 
                   2497: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_dn2ufn, 0, 0, 1)
                   2498:        ZEND_ARG_INFO(0, dn)
                   2499: ZEND_END_ARG_INFO()
                   2500: 
                   2501: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_add, 0, 0, 3)
                   2502:        ZEND_ARG_INFO(0, link_identifier)
                   2503:        ZEND_ARG_INFO(0, dn)
                   2504:        ZEND_ARG_INFO(0, entry)
                   2505: ZEND_END_ARG_INFO()
                   2506: 
                   2507: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_delete, 0, 0, 2)
                   2508:        ZEND_ARG_INFO(0, link_identifier)
                   2509:        ZEND_ARG_INFO(0, dn)
                   2510: ZEND_END_ARG_INFO()
                   2511: 
                   2512: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_modify, 0, 0, 3)
                   2513:        ZEND_ARG_INFO(0, link_identifier)
                   2514:        ZEND_ARG_INFO(0, dn)
                   2515:        ZEND_ARG_INFO(0, entry)
                   2516: ZEND_END_ARG_INFO()
                   2517: 
                   2518: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_mod_add, 0, 0, 3)
                   2519:        ZEND_ARG_INFO(0, link_identifier)
                   2520:        ZEND_ARG_INFO(0, dn)
                   2521:        ZEND_ARG_INFO(0, entry)
                   2522: ZEND_END_ARG_INFO()
                   2523: 
                   2524: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_mod_replace, 0, 0, 3)
                   2525:        ZEND_ARG_INFO(0, link_identifier)
                   2526:        ZEND_ARG_INFO(0, dn)
                   2527:        ZEND_ARG_INFO(0, entry)
                   2528: ZEND_END_ARG_INFO()
                   2529: 
                   2530: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_mod_del, 0, 0, 3)
                   2531:        ZEND_ARG_INFO(0, link_identifier)
                   2532:        ZEND_ARG_INFO(0, dn)
                   2533:        ZEND_ARG_INFO(0, entry)
                   2534: ZEND_END_ARG_INFO()
                   2535: 
                   2536: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_err2str, 0, 0, 1)
                   2537:        ZEND_ARG_INFO(0, errno)
                   2538: ZEND_END_ARG_INFO()
                   2539: 
                   2540: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_compare, 0, 0, 4)
                   2541:        ZEND_ARG_INFO(0, link_identifier)
                   2542:        ZEND_ARG_INFO(0, dn)
                   2543:        ZEND_ARG_INFO(0, attribute)
                   2544:        ZEND_ARG_INFO(0, value)
                   2545: ZEND_END_ARG_INFO()
                   2546: 
                   2547: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_sort, 0, 0, 3)
                   2548:        ZEND_ARG_INFO(0, link)
                   2549:        ZEND_ARG_INFO(0, result)
                   2550:        ZEND_ARG_INFO(0, sortfilter)
                   2551: ZEND_END_ARG_INFO()
                   2552: 
1.1.1.2 ! misho    2553: #ifdef LDAP_CONTROL_PAGEDRESULTS
        !          2554: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_control_paged_result, 0, 0, 2)
        !          2555:        ZEND_ARG_INFO(0, link)
        !          2556:        ZEND_ARG_INFO(0, pagesize)
        !          2557:        ZEND_ARG_INFO(0, iscritical)
        !          2558:        ZEND_ARG_INFO(0, cookie)
        !          2559: ZEND_END_ARG_INFO();
        !          2560: 
        !          2561: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_control_paged_result_response, 0, 0, 2)
        !          2562:        ZEND_ARG_INFO(0, link)
        !          2563:        ZEND_ARG_INFO(0, result)
        !          2564:        ZEND_ARG_INFO(1, cookie)
        !          2565:        ZEND_ARG_INFO(1, estimated)
        !          2566: ZEND_END_ARG_INFO();
        !          2567: #endif
        !          2568: 
1.1       misho    2569: #if (LDAP_API_VERSION > 2000) || HAVE_NSLDAP || HAVE_ORALDAP_10
                   2570: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_rename, 0, 0, 5)
                   2571:        ZEND_ARG_INFO(0, link_identifier)
                   2572:        ZEND_ARG_INFO(0, dn)
                   2573:        ZEND_ARG_INFO(0, newrdn)
                   2574:        ZEND_ARG_INFO(0, newparent)
                   2575:        ZEND_ARG_INFO(0, deleteoldrdn)
                   2576: ZEND_END_ARG_INFO()
                   2577: 
                   2578: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_get_option, 0, 0, 3)
                   2579:        ZEND_ARG_INFO(0, link_identifier)
                   2580:        ZEND_ARG_INFO(0, option)
                   2581:        ZEND_ARG_INFO(1, retval)
                   2582: ZEND_END_ARG_INFO()
                   2583: 
                   2584: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_set_option, 0, 0, 3)
                   2585:        ZEND_ARG_INFO(0, link_identifier)
                   2586:        ZEND_ARG_INFO(0, option)
                   2587:        ZEND_ARG_INFO(0, newval)
                   2588: ZEND_END_ARG_INFO()
                   2589: 
                   2590: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_first_reference, 0, 0, 2)
                   2591:        ZEND_ARG_INFO(0, link)
                   2592:        ZEND_ARG_INFO(0, result)
                   2593: ZEND_END_ARG_INFO()
                   2594: 
                   2595: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_next_reference, 0, 0, 2)
                   2596:        ZEND_ARG_INFO(0, link)
                   2597:        ZEND_ARG_INFO(0, entry)
                   2598: ZEND_END_ARG_INFO()
                   2599: 
                   2600: #ifdef HAVE_LDAP_PARSE_REFERENCE
                   2601: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_parse_reference, 0, 0, 3)
                   2602:        ZEND_ARG_INFO(0, link)
                   2603:        ZEND_ARG_INFO(0, entry)
                   2604:        ZEND_ARG_INFO(1, referrals)
                   2605: ZEND_END_ARG_INFO()
                   2606: #endif
                   2607: 
                   2608: 
                   2609: #ifdef HAVE_LDAP_PARSE_RESULT
                   2610: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_parse_result, 0, 0, 3)
                   2611:        ZEND_ARG_INFO(0, link)
                   2612:        ZEND_ARG_INFO(0, result)
                   2613:        ZEND_ARG_INFO(1, errcode)
                   2614:        ZEND_ARG_INFO(1, matcheddn)
                   2615:        ZEND_ARG_INFO(1, errmsg)
                   2616:        ZEND_ARG_INFO(1, referrals)
                   2617: ZEND_END_ARG_INFO()
                   2618: #endif
                   2619: #endif
                   2620: 
                   2621: #if defined(LDAP_API_FEATURE_X_OPENLDAP) && defined(HAVE_3ARG_SETREBINDPROC)
                   2622: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_set_rebind_proc, 0, 0, 2)
                   2623:        ZEND_ARG_INFO(0, link)
                   2624:        ZEND_ARG_INFO(0, callback)
                   2625: ZEND_END_ARG_INFO()
                   2626: #endif
                   2627: 
                   2628: #ifdef STR_TRANSLATION
                   2629: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_t61_to_8859, 0, 0, 1)
                   2630:        ZEND_ARG_INFO(0, value)
                   2631: ZEND_END_ARG_INFO()
                   2632: 
                   2633: ZEND_BEGIN_ARG_INFO_EX(arginfo_ldap_8859_to_t61, 0, 0, 1)
                   2634:        ZEND_ARG_INFO(0, value)
                   2635: ZEND_END_ARG_INFO()
                   2636: #endif
                   2637: /* }}} */
                   2638:        
                   2639: /*
                   2640:        This is just a small subset of the functionality provided by the LDAP library. All the 
                   2641:        operations are synchronous. Referrals are not handled automatically.
                   2642: */
                   2643: /* {{{ ldap_functions[]
                   2644:  */
                   2645: const zend_function_entry ldap_functions[] = {
                   2646:        PHP_FE(ldap_connect,                                                            arginfo_ldap_connect)
                   2647:        PHP_FALIAS(ldap_close,          ldap_unbind,                    arginfo_ldap_resource)
                   2648:        PHP_FE(ldap_bind,                                                                       arginfo_ldap_bind)
                   2649: #ifdef HAVE_LDAP_SASL
                   2650:        PHP_FE(ldap_sasl_bind,                                                          arginfo_ldap_sasl_bind)
                   2651: #endif
                   2652:        PHP_FE(ldap_unbind,                                                                     arginfo_ldap_resource)
                   2653:        PHP_FE(ldap_read,                                                                       arginfo_ldap_read)
                   2654:        PHP_FE(ldap_list,                                                                       arginfo_ldap_list)
                   2655:        PHP_FE(ldap_search,                                                                     arginfo_ldap_search)
                   2656:        PHP_FE(ldap_free_result,                                                        arginfo_ldap_resource)
                   2657:        PHP_FE(ldap_count_entries,                                                      arginfo_ldap_count_entries)
                   2658:        PHP_FE(ldap_first_entry,                                                        arginfo_ldap_first_entry)
                   2659:        PHP_FE(ldap_next_entry,                                                         arginfo_ldap_next_entry)
                   2660:        PHP_FE(ldap_get_entries,                                                        arginfo_ldap_get_entries)
                   2661:        PHP_FE(ldap_first_attribute,                                            arginfo_ldap_first_attribute)
                   2662:        PHP_FE(ldap_next_attribute,                                                     arginfo_ldap_next_attribute)
                   2663:        PHP_FE(ldap_get_attributes,                                                     arginfo_ldap_get_attributes)
                   2664:        PHP_FALIAS(ldap_get_values,     ldap_get_values_len,    arginfo_ldap_get_values)
                   2665:        PHP_FE(ldap_get_values_len,                                                     arginfo_ldap_get_values_len)
                   2666:        PHP_FE(ldap_get_dn,                                                                     arginfo_ldap_get_dn)
                   2667:        PHP_FE(ldap_explode_dn,                                                         arginfo_ldap_explode_dn)
                   2668:        PHP_FE(ldap_dn2ufn,                                                                     arginfo_ldap_dn2ufn)
                   2669:        PHP_FE(ldap_add,                                                                        arginfo_ldap_add)
                   2670:        PHP_FE(ldap_delete,                                                                     arginfo_ldap_delete)
                   2671:        PHP_FALIAS(ldap_modify,         ldap_mod_replace,               arginfo_ldap_modify)
                   2672: 
                   2673: /* additional functions for attribute based modifications, Gerrit Thomson */
                   2674:        PHP_FE(ldap_mod_add,                                                            arginfo_ldap_mod_add)
                   2675:        PHP_FE(ldap_mod_replace,                                                        arginfo_ldap_mod_replace)
                   2676:        PHP_FE(ldap_mod_del,                                                            arginfo_ldap_mod_del)
                   2677: /* end gjt mod */
                   2678: 
                   2679:        PHP_FE(ldap_errno,                                                                      arginfo_ldap_resource)
                   2680:        PHP_FE(ldap_err2str,                                                            arginfo_ldap_err2str)
                   2681:        PHP_FE(ldap_error,                                                                      arginfo_ldap_resource)
                   2682:        PHP_FE(ldap_compare,                                                            arginfo_ldap_compare)
                   2683:        PHP_FE(ldap_sort,                                                                       arginfo_ldap_sort)
                   2684: 
                   2685: #if (LDAP_API_VERSION > 2000) || HAVE_NSLDAP || HAVE_ORALDAP_10
                   2686:        PHP_FE(ldap_rename,                                                                     arginfo_ldap_rename)
                   2687:        PHP_FE(ldap_get_option,                                                         arginfo_ldap_get_option)
                   2688:        PHP_FE(ldap_set_option,                                                         arginfo_ldap_set_option)
                   2689:        PHP_FE(ldap_first_reference,                                            arginfo_ldap_first_reference)
                   2690:        PHP_FE(ldap_next_reference,                                                     arginfo_ldap_next_reference)
                   2691: #ifdef HAVE_LDAP_PARSE_REFERENCE
                   2692:        PHP_FE(ldap_parse_reference,                                            arginfo_ldap_parse_reference)
                   2693: #endif
                   2694: #ifdef HAVE_LDAP_PARSE_RESULT
                   2695:        PHP_FE(ldap_parse_result,                                                       arginfo_ldap_parse_result)
                   2696: #endif
                   2697: #ifdef HAVE_LDAP_START_TLS_S
                   2698:        PHP_FE(ldap_start_tls,                                                          arginfo_ldap_resource)
                   2699: #endif
                   2700: #endif
                   2701: 
                   2702: #if defined(LDAP_API_FEATURE_X_OPENLDAP) && defined(HAVE_3ARG_SETREBINDPROC)
                   2703:        PHP_FE(ldap_set_rebind_proc,                                            arginfo_ldap_set_rebind_proc)
                   2704: #endif
                   2705: 
                   2706: #ifdef STR_TRANSLATION
                   2707:        PHP_FE(ldap_t61_to_8859,                                                        arginfo_ldap_t61_to_8859)
                   2708:        PHP_FE(ldap_8859_to_t61,                                                        arginfo_ldap_8859_to_t61)
                   2709: #endif
                   2710: 
1.1.1.2 ! misho    2711: #ifdef LDAP_CONTROL_PAGEDRESULTS
        !          2712:        PHP_FE(ldap_control_paged_result,                                                       arginfo_ldap_control_paged_result)
        !          2713:        PHP_FE(ldap_control_paged_result_response,              arginfo_ldap_control_paged_result_response)
        !          2714: #endif
1.1       misho    2715:        PHP_FE_END
                   2716: };
                   2717: /* }}} */
                   2718: 
                   2719: zend_module_entry ldap_module_entry = { /* {{{ */
                   2720:        STANDARD_MODULE_HEADER,
                   2721:        "ldap", 
                   2722:        ldap_functions, 
                   2723:        PHP_MINIT(ldap), 
                   2724:        PHP_MSHUTDOWN(ldap), 
                   2725:        NULL, 
                   2726:        NULL,
                   2727:        PHP_MINFO(ldap), 
                   2728:        NO_VERSION_YET,
                   2729:        PHP_MODULE_GLOBALS(ldap),
                   2730:        PHP_GINIT(ldap),
                   2731:        NULL,
                   2732:        NULL,
                   2733:        STANDARD_MODULE_PROPERTIES_EX
                   2734: };
                   2735: /* }}} */
                   2736: 
                   2737: /*
                   2738:  * Local variables:
                   2739:  * tab-width: 4
                   2740:  * c-basic-offset: 4
                   2741:  * End:
                   2742:  * vim600: sw=4 ts=4 fdm=marker
                   2743:  * vim<600: sw=4 ts=4
                   2744:  */

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