<?php
/**
* copyright            : (C) 2001-2011 Advanced Internet Designs Inc.
* email                : forum@prohost.org
* $Id: ldap.plugin 5373 2011-09-02 18:44:54Z naudefj $
*
* This program is free software; you can redistribute it and/or modify it
* under the terms of the GNU General Public License as published by the
* Free Software Foundation; version 2 of the License.
**/

/** 
*
* Modifications by Tim Fardell, 29th March 2012:
*   Changed to use LDAP URLs instead of servername/port, mainly to allow use of LDAPS. 
*   Allow forum user details (email address, real name, alias) to be set from attributes retrieved from LDAP server at each login. 
*   Checks for existing users with same email address, and reassigns login (if enabled). 
*
**/

//function dbg($dbgstr){
//	$fh = fopen($GLOBALS['PLUGIN_PATH'] .'ldap/ldapdbg', 'a');
//	fwrite($fh, "\r\n\r\nldap:dbg ".date("H:i:s").":");
//	fwrite($fh, $dbgstr);
//	fclose($fh);
//}


// Initialize me as an authentication plugin if LDAP extension is loaded.
plugin_add_hook('AUTHENTICATE', 'plugin_ldap_auth');

// Authenticate users from LDAP directory.
function plugin_ldap_auth() {

dbg('REFRESH_ALIAS_DUMMY');

	$login    = $_POST['login'];
	$password = $_POST['password'];

	if ($login == 'admin') {	// Always allow admin through.
		return 1;
	}

	if ((@include_once $GLOBALS['PLUGIN_PATH'] .'ldap/ldap.ini') === false) {
		echo 'ERROR: Please configure the LDAP plugin from the Plugin Manager Control panel.';
		return 0;
	}

	if (defined('fud_debug')) {
		ldap_set_option(NULL, LDAP_OPT_DEBUG_LEVEL, 7);
	}
	$connection = ldap_connect($ini['LDAP_URL']);

	if (!$connection) {
		echo 'Unable to connect to an LDAP server. Contact the forum administrator! (Debug 1)';
		return 0;
	}

	@ldap_set_option($connection, LDAP_OPT_PROTOCOL_VERSION, 3);
	@ldap_set_option($connection, LDAP_OPT_REFERRALS, 0);
	if ($ini['LDAP_START_TLS']) {
 		if (!ldap_start_tls($connection)) {
 			echo 'Unable to connect to LDAP server via TLS! (Debug 2)';
 			return 0;
 		}
	}

	// Connection made -- bind anonymously and get dn for username.
	if (!empty($ini['LDAP_PROXY_DN'])) {
		$bind = @ldap_bind($connection, $ini['LDAP_PROXY_DN'], $ini['LDAP_PROXY_DN_PASS']);
	} else {
		$bind = @ldap_bind($connection);
	}

	if (!$bind) {
 		echo 'Anonymous bind to LDAP failed:', ldap_error($connection), ' Contact the forum administrator! (Debug 3)';
		return 0;
	}

	$search = ldap_search($connection, $ini['LDAP_DN'], $ini['LDAP_UID'] .'='. $login);

	// Ensure only 1 result was returned - if not, there may be a * in the username.
	if (ldap_count_entries($connection, $search) != 1) {
		// echo 'Unknown username. Please try to login again. (Debug 4)';
		return 0;
	}

	$info = ldap_get_entries($connection, $search);

	// Now, try to rebind with their full dn and password.
	$bind = @ldap_bind($connection, $info[0][dn], $password);
	if (!$bind || !isset($bind)) {
		// echo 'Wrong password! Please try again. (Debug 5)';
		return 0;
	}

	// Now verify the previous search using their credentials.
	$search = ldap_search($connection, $ini['LDAP_DN'], $ini['LDAP_UID'] .'='. $login);

	$info = ldap_get_entries($connection, $search);

	// Some LDAP servers store case but are case insensitive, i.e. Active Directory.
	// If insensitive is on, force everything to lower case.
	if ($ini['LDAP_CASE_INSENSITIVE']) {
		$login = strtolower($login);
		$ldap_login = strtolower($info[0][ $ini['LDAP_UID'] ][0]);
	} else {
		$ldap_login = $info[0][ $ini['LDAP_UID'] ][0];
	}

dbg('REFRESH_ALIAS_DUMMY2');

	if ($login == $ldap_login) {
		// User authenticated successfully. 

		if (!($usr_d = db_sab('SELECT id, passwd, salt FROM '. $GLOBALS['DBHOST_TBL_PREFIX'] .'users WHERE login='. _esc($login)))) {
			// There is no existing user with this login name, so check if there is one with this email address (if enabled)
			if ($ini['LDAP_CHECKMAIL'] && ($usr_e = db_sab('SELECT id, login FROM '. $GLOBALS['DBHOST_TBL_PREFIX'] .'users WHERE email='. _esc($info[0][ $ini['LDAP_EMAIL'] ][0])))) {
				// Found a user with the same email address. Change login of that user to match.
				q('UPDATE '. $GLOBALS['DBHOST_TBL_PREFIX'] .'users SET login='. _esc($login) .' WHERE id='. $usr_e->id);
			} else {
				// email check failed or is disabled - register new FUDforum user.
				$uent = new fud_user_reg;
				$uent->users_opt = -1;
				$uent->login = _esc($login);
				$uent->plaintext_passwd = $password;
			$uent->name = ucwords(strtolower($info[0]['cn'][0]));
			$uent->alias = _esc($login)." (".ucwords(strtolower($info[0]['cn'][0])).")";
			$uent->email = $info[0]['mail'][0]; //$login .'@'. $ini['LDAP_HOST'];
				$uent->add_user();
			}
		}
		
		dbg('REFRESH_ALIAS_DUMMY3');
		
		$usr_d = db_sab('SELECT id, passwd, salt FROM '. $GLOBALS['DBHOST_TBL_PREFIX'] .'users WHERE login='. _esc($login));
		if ( !((empty($usr_d->salt) && $usr_d->passwd == md5($password)) || $usr_d->passwd == sha1($usr_d->salt . sha1($password)))) {
			// Sync password
			$salt = substr(md5(uniqid(mt_rand(), true)), 0, 9);
			$sec_pass = sha1($salt . sha1($password));
			q('UPDATE '. $GLOBALS['DBHOST_TBL_PREFIX'] .'users SET passwd='. _esc($sec_pass) .', salt='. _esc($salt) .' WHERE id='. $usr_d->id);
		}

    // Sync user details, if enabled

    if (!empty($ini['LDAP_EMAIL'])) {
      q('UPDATE '. $GLOBALS['DBHOST_TBL_PREFIX'] .'users SET email='. _esc($info[0][ $ini['LDAP_EMAIL'] ][0]) .' WHERE login='. _esc($login));
    }
    
     //wl: 20130706 David Kikl - Names + Alias style: "netxxx (Surename Gname)"
    if (!empty($ini['LDAP_NAME'])) {
      q('UPDATE '. $GLOBALS['DBHOST_TBL_PREFIX'] .'users SET name='. _esc(ucwords(strtolower($info[0][$ini['LDAP_NAME']][0]))) .' WHERE login='. _esc($login));
    }
    if (!empty($ini['LDAP_ALIAS'])) {
      q('UPDATE '. $GLOBALS['DBHOST_TBL_PREFIX'] .'users SET alias='. _esc($login." (".ucwords(strtolower($info[0][$ini['LDAP_NAME']][0])).")").' WHERE login='. _esc($login));
      
      #dbg('REFRESH_ALIAS: UPDATE '. $GLOBALS['DBHOST_TBL_PREFIX'] .'users SET alias='. _esc($login." (".ucwords(strtolower($info[0]['cn'][0])).")").' WHERE login='. _esc($login));
    }//else dbg("REFRESH_ALIAS: empty ALIAS?");

		return 1;	// Allow access.
		dbg("REFRESH_ALIAS: ACCESS GRANTED");
	} else {
		dbg("REFRESH_ALIAS: DENIEDDDDDDD..! $login != $ldap_login");
		return 0;	// Deny access.
	}

	ldap_close($connection);
}

function ldap_info() {
	return array('name' => 'LDAP Authentication',
	             'desc' => 'Authenticate forum users from an LDAP server. You probably want to disable "<i>Allow Registration</i>" and "<i>Allow Password Resets</i>" from the <i>Global Settings Manager</i> after enabling this plugin.<br />',
		     'cat'  => 'Authentication',
		     'version' => '1.3-modified');
}

function ldap_enable() {
	if (!extension_loaded('ldap')) {
		return array(null, 'You PHP installation doesn\'t support LDAP.');	// OK, Err.
	}
	return;	// Good to go.
}

function ldap_config() {
	if((@include $GLOBALS['PLUGIN_PATH'] .'ldap/ldap.ini') === false) {
		$ini = NULL;
	}

	if (isset($_POST['Set'])) {
		foreach (array_keys($_POST) as $key) {
			if (substr($key,0,5) == 'LDAP_') {
				$ini[$key] = $_POST[$key];
			}
		}

		// Array key from ldap_get_entries() must be lowercase.
		$ini['LDAP_UID'] = strtolower($ini['LDAP_UID']);

		$fp = fopen($GLOBALS['PLUGIN_PATH'] .'ldap/ldap.ini', 'w');
		fwrite($fp, '<?php $ini = '. var_export($ini, 1) .'; ?>');
		fclose($fp);
		pf(successify('Settings successfully saved.'));
	}
	?>
<p>LDAP server URL:<br />
<input name="LDAP_URL" value="<?php echo $ini['LDAP_URL'] ?>" /><br />
(use <i>ldap://&lt;servername&gt;:&lt;port&gt;/</i> &nbsp;for normal LDAP, or <i>ldaps://&lt;servername&gt;:&lt;port&gt;/</i> &nbsp;for LDAP over SSL)</p>

<p>Enable TLS (Transport Layer Security) mode:<br />
<label><input type="radio" name="LDAP_START_TLS" value="1" <?php echo $ini['LDAP_START_TLS'] ? 'checked="checked"' : '' ?> /> True<br /></label>
<label><input type="radio" name="LDAP_START_TLS" value=""  <?php echo $ini['LDAP_START_TLS'] ? '' : 'checked="checked"' ?> /> False</label><br />
(do not enable this if using LDAP over SSL)</p>

<p>Is the LDAP server case insensitive (like Active Directory):<br />
<label><input type="radio" name="LDAP_CASE_INSENSITIVE" value="1" <?php echo $ini['LDAP_CASE_INSENSITIVE'] ? 'checked="checked"' : '' ?> /> True<br /></label>
<label><input type="radio" name="LDAP_CASE_INSENSITIVE" value=""  <?php echo $ini['LDAP_CASE_INSENSITIVE'] ? '' : 'checked="checked"' ?> /> False</label></p>

<p>Proxy user (if required to bind via proxy):<br />
<input name="LDAP_PROXY_DN" value="<?php echo $ini['LDAP_PROXY_DN'] ?>" /></p>

<p>Proxy password (if required to bind via proxy):<br />
<input name="LDAP_PROXY_DN_PASS" value="<?php echo $ini['LDAP_PROXY_DN_PASS'] ?>" /></p>

<p>Look for usernames in namespace:<br />
<input name="LDAP_DN" value="<?php echo $ini['LDAP_DN'] ?>" /></p>

<p>Property to query:<br />
<input name="LDAP_UID" value="<?php echo $ini['LDAP_UID'] ?>" /></p>

<i>Comment: As administrators sets the Name Paramter this way: <b>surename given-name</b></i>

<p>HARDCODED LDAP Attributes for forum user alias:<br />
<b>username (Surename Gname)</b> (<- SURENAME GnAmE / surename GNAME / ect.)<br />
(wl/dk alias)</p>

<p>HARDCODED LDAP Attributes for forum user real name:<br />
<b>Surename Gname</b> (<- SURENAME GnAmE / surename GNAME / ect.)<br />
(wl/dk alias)</p>

<p>LDAP Attribute for forum user email address:<br />
<input name="LDAP_EMAIL" value="<?php echo $ini['LDAP_EMAIL'] ?>" /><br />
(leave blank to use <i>&lt;login&gt;@&lt;ldap-server-name&gt;</i> &nbsp;as forum user email address)</p>

<p>Check for existing user with this email address:<br />
<label><input type="radio" name="LDAP_CHECKMAIL" value="1" <?php echo $ini['LDAP_CHECKMAIL'] ? 'checked="checked"' : '' ?> /> True<br /></label>
<label><input type="radio" name="LDAP_CHECKMAIL" value=""  <?php echo $ini['LDAP_CHECKMAIL'] ? '' : 'checked="checked"' ?> /> False</label></p>

	<?php
}

?>