File:  [ELWIX - Embedded LightWeight unIX -] / embedaddon / php / ext / ldap / ldap.c
Revision 1.1.1.3 (vendor branch): download - view: text, annotated - select for diffs - revision graph
Mon Jul 22 01:31:52 2013 UTC (10 years, 11 months ago) by misho
Branches: php, MAIN
CVS tags: v5_4_29p0, v5_4_20p0, v5_4_20, v5_4_17, HEAD
5.4.17

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