~azzar1/unity/add-show-desktop-key

<?php

/**

*

* @package phpBB3

* @version $Id: functions.php,v 1.647 2007/12/10 18:35:28 kellanved Exp $

* @copyright (c) 2005 phpBB Group

* @license http://opensource.org/licenses/gpl-license.php GNU Public License

*

*/

/**

* @ignore

*/

if (!defined('IN_PHPBB'))

{

	exit;

}

// Common global functions

/**

* set_var

*

* Set variable, used by {@link request_var the request_var function}

*

* @access private

*/

function set_var(&$result, $var, $type, $multibyte = false)

{

	settype($var, $type);

	$result = $var;

	if ($type == 'string')

	{

		$result = trim(htmlspecialchars(str_replace(array("\r\n", "\r"), array("\n", "\n"), $result), ENT_COMPAT, 'UTF-8'));

		if (!empty($result))

		{

			// Make sure multibyte characters are wellformed

			if ($multibyte)

			{

				if (!preg_match('/^./u', $result))

				{

					$result = '';

				}

			}

			else

			{

				// no multibyte, allow only ASCII (0-127)

				$result = preg_replace('/[\x80-\xFF]/', '?', $result);

			}

		}

		$result = (STRIP) ? stripslashes($result) : $result;

	}

}

/**

* request_var

*

* Used to get passed variable

*/

function request_var($var_name, $default, $multibyte = false, $cookie = false)

{

	if (!$cookie && isset($_COOKIE[$var_name]))

	{

		if (!isset($_GET[$var_name]) && !isset($_POST[$var_name]))

		{

			return (is_array($default)) ? array() : $default;

		}

		$_REQUEST[$var_name] = isset($_POST[$var_name]) ? $_POST[$var_name] : $_GET[$var_name];

	}

	if (!isset($_REQUEST[$var_name]) || (is_array($_REQUEST[$var_name]) && !is_array($default)) || (is_array($default) && !is_array($_REQUEST[$var_name])))

	{

		return (is_array($default)) ? array() : $default;

	}

	$var = $_REQUEST[$var_name];

	if (!is_array($default))

	{

		$type = gettype($default);

	}

	else

	{

		list($key_type, $type) = each($default);

		$type = gettype($type);

		$key_type = gettype($key_type);

		if ($type == 'array')

		{

			reset($default);

			$default = current($default);

			list($sub_key_type, $sub_type) = each($default);

			$sub_type = gettype($sub_type);

			$sub_type = ($sub_type == 'array') ? 'NULL' : $sub_type;

			$sub_key_type = gettype($sub_key_type);

		}

	}

	if (is_array($var))

	{

		$_var = $var;

		$var = array();

		foreach ($_var as $k => $v)

		{

			set_var($k, $k, $key_type);

			if ($type == 'array' && is_array($v))

			{

				foreach ($v as $_k => $_v)

				{

					if (is_array($_v))

					{

						$_v = null;

					}

					set_var($_k, $_k, $sub_key_type);

					set_var($var[$k][$_k], $_v, $sub_type, $multibyte);

				}

			}

			else

			{

				if ($type == 'array' || is_array($v))

				{

					$v = null;

				}

				set_var($var[$k], $v, $type, $multibyte);

			}

		}

	}

	else

	{

		set_var($var, $var, $type, $multibyte);

	}

	return $var;

}

/**

* Set config value. Creates missing config entry.

*/

function set_config($config_name, $config_value, $is_dynamic = false)

{

	global $db, $cache, $config;

	$sql = 'UPDATE ' . CONFIG_TABLE . "

		SET config_value = '" . $db->sql_escape($config_value) . "'

		WHERE config_name = '" . $db->sql_escape($config_name) . "'";

	$db->sql_query($sql);

	if (!$db->sql_affectedrows() && !isset($config[$config_name]))

	{

		$sql = 'INSERT INTO ' . CONFIG_TABLE . ' ' . $db->sql_build_array('INSERT', array(

			'config_name'	=> $config_name,

			'config_value'	=> $config_value,

			'is_dynamic'	=> ($is_dynamic) ? 1 : 0));

		$db->sql_query($sql);

	}

	$config[$config_name] = $config_value;

	if (!$is_dynamic)

	{

		$cache->destroy('config');

	}

}

/**

* Generates an alphanumeric random string of given length

*/

function gen_rand_string($num_chars = 8)

{

	$rand_str = unique_id();

	$rand_str = str_replace('0', 'Z', strtoupper(base_convert($rand_str, 16, 35)));

	return substr($rand_str, 0, $num_chars);

}

/**

* Return unique id

* @param string $extra additional entropy

*/

function unique_id($extra = 'c')

{

	static $dss_seeded = false;

	global $config;

	$val = $config['rand_seed'] . microtime();

	$val = md5($val);

	$config['rand_seed'] = md5($config['rand_seed'] . $val . $extra);

	if ($dss_seeded !== true && ($config['rand_seed_last_update'] < time() - rand(1,10)))

	{

		set_config('rand_seed', $config['rand_seed'], true);

		set_config('rand_seed_last_update', time(), true);

		$dss_seeded = true;

	}

	return substr($val, 4, 16);

}

/**

* Determine whether we are approaching the maximum execution time. Should be called once

* at the beginning of the script in which it's used.

* @return	bool	Either true if the maximum execution time is nearly reached, or false

*					if some time is still left.

*/

function still_on_time($extra_time = 15)

{

	static $max_execution_time, $start_time;

	$time = explode(' ', microtime());

	$current_time = $time[0] + $time[1];

	if (empty($max_execution_time))

	{

		$max_execution_time = (function_exists('ini_get')) ? (int) @ini_get('max_execution_time') : (int) @get_cfg_var('max_execution_time');

		// If zero, then set to something higher to not let the user catch the ten seconds barrier.

		if ($max_execution_time === 0)

		{

			$max_execution_time = 50 + $extra_time;

		}

		$max_execution_time = min(max(10, ($max_execution_time - $extra_time)), 50);

		// For debugging purposes

		// $max_execution_time = 10;

		global $starttime;

		$start_time = (empty($starttime)) ? $current_time : $starttime;

	}

	return (ceil($current_time - $start_time) < $max_execution_time) ? true : false;

}

/**

*

* @version Version 0.1 / $Id: functions.php,v 1.647 2007/12/10 18:35:28 kellanved Exp $

*

* Portable PHP password hashing framework.

*

* Written by Solar Designer <solar at openwall.com> in 2004-2006 and placed in

* the public domain.

*

* There's absolutely no warranty.

*

* The homepage URL for this framework is:

*

*	http://www.openwall.com/phpass/

*

* Please be sure to update the Version line if you edit this file in any way.

* It is suggested that you leave the main version number intact, but indicate

* your project name (after the slash) and add your own revision information.

*

* Please do not change the "private" password hashing method implemented in

* here, thereby making your hashes incompatible.  However, if you must, please

* change the hash type identifier (the "$P$") to something different.

*

* Obviously, since this code is in the public domain, the above are not

* requirements (there can be none), but merely suggestions.

*

*

* Hash the password

*/

function phpbb_hash($password)

{

	$itoa64 = './0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz';

	$random_state = unique_id();

	$random = '';

	$count = 6;

	if (($fh = @fopen('/dev/urandom', 'rb')))

	{

		$random = fread($fh, $count);

		fclose($fh);

	}

	if (strlen($random) < $count)

	{

		$random = '';

		for ($i = 0; $i < $count; $i += 16)

		{

			$random_state = md5(unique_id() . $random_state);

			$random .= pack('H*', md5($random_state));

		}

		$random = substr($random, 0, $count);

	}

	$hash = _hash_crypt_private($password, _hash_gensalt_private($random, $itoa64), $itoa64);

	if (strlen($hash) == 34)

	{

		return $hash;

	}

	return md5($password);

}

/**

* Check for correct password

*/

function phpbb_check_hash($password, $hash)

{

	$itoa64 = './0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz';

	if (strlen($hash) == 34)

	{

		return (_hash_crypt_private($password, $hash, $itoa64) === $hash) ? true : false;

	}

	return (md5($password) === $hash) ? true : false;

}

/**

* Generate salt for hash generation

*/

function _hash_gensalt_private($input, &$itoa64, $iteration_count_log2 = 6)

{

	if ($iteration_count_log2 < 4 || $iteration_count_log2 > 31)

	{

		$iteration_count_log2 = 8;

	}

	$output = '$H$';

	$output .= $itoa64[min($iteration_count_log2 + ((PHP_VERSION >= 5) ? 5 : 3), 30)];

	$output .= _hash_encode64($input, 6, $itoa64);

	return $output;

}

/**

* Encode hash

*/

function _hash_encode64($input, $count, &$itoa64)

{

	$output = '';

	$i = 0;

	do

	{

		$value = ord($input[$i++]);

		$output .= $itoa64[$value & 0x3f];

		if ($i < $count)

		{

			$value |= ord($input[$i]) << 8;

		}

		$output .= $itoa64[($value >> 6) & 0x3f];

		if ($i++ >= $count)

		{

			break;

		}

		if ($i < $count)

		{

			$value |= ord($input[$i]) << 16;

		}

		$output .= $itoa64[($value >> 12) & 0x3f];

		if ($i++ >= $count)

		{

			break;

		}

		$output .= $itoa64[($value >> 18) & 0x3f];

	}

	while ($i < $count);

	return $output;

}

/**

* The crypt function/replacement

*/

function _hash_crypt_private($password, $setting, &$itoa64)

{

	$output = '*';

	// Check for correct hash

	if (substr($setting, 0, 3) != '$H$')

	{

		return $output;

	}

	$count_log2 = strpos($itoa64, $setting[3]);

	if ($count_log2 < 7 || $count_log2 > 30)

	{

		return $output;

	}

	$count = 1 << $count_log2;

	$salt = substr($setting, 4, 8);

	if (strlen($salt) != 8)

	{

		return $output;

	}

	/**

	* We're kind of forced to use MD5 here since it's the only

	* cryptographic primitive available in all versions of PHP

	* currently in use.  To implement our own low-level crypto

	* in PHP would result in much worse performance and

	* consequently in lower iteration counts and hashes that are

	* quicker to crack (by non-PHP code).

	*/

	if (PHP_VERSION >= 5)

	{

		$hash = md5($salt . $password, true);

		do

		{

			$hash = md5($hash . $password, true);

		}

		while (--$count);

	}

	else

	{

		$hash = pack('H*', md5($salt . $password));

		do

		{

			$hash = pack('H*', md5($hash . $password));

		}

		while (--$count);

	}

	$output = substr($setting, 0, 12);

	$output .= _hash_encode64($hash, 16, $itoa64);

	return $output;

}

// Compatibility functions

if (!function_exists('array_combine'))

{

	/**

	* A wrapper for the PHP5 function array_combine()

	* @param array $keys contains keys for the resulting array

	* @param array $values contains values for the resulting array

	*

	* @return Returns an array by using the values from the keys array as keys and the

	* 	values from the values array as the corresponding values. Returns false if the

	* 	number of elements for each array isn't equal or if the arrays are empty.

	*/

	function array_combine($keys, $values)

	{

		$keys = array_values($keys);

		$values = array_values($values);

		$n = sizeof($keys);

		$m = sizeof($values);

		if (!$n || !$m || ($n != $m))

		{

			return false;

		}

		$combined = array();

		for ($i = 0; $i < $n; $i++)

		{

			$combined[$keys[$i]] = $values[$i];

		}

		return $combined;

	}

}

if (!function_exists('str_split'))

{

	/**

	* A wrapper for the PHP5 function str_split()

	* @param array $string contains the string to be converted

	* @param array $split_length contains the length of each chunk

	*

	* @return  Converts a string to an array. If the optional split_length parameter is specified,

	*  	the returned array will be broken down into chunks with each being split_length in length,

	*  	otherwise each chunk will be one character in length. FALSE is returned if split_length is

	*  	less than 1. If the split_length length exceeds the length of string, the entire string is

	*  	returned as the first (and only) array element.

	*/

	function str_split($string, $split_length = 1)

	{

		if ($split_length < 1)

		{

			return false;

		}

		else if ($split_length >= strlen($string))

		{

			return array($string);

		}

		else

		{

			preg_match_all('#.{1,' . $split_length . '}#s', $string, $matches);

			return $matches[0];

		}

	}

}

if (!function_exists('stripos'))

{

	/**

	* A wrapper for the PHP5 function stripos

	* Find position of first occurrence of a case-insensitive string

	*

	* @param string $haystack is the string to search in

	* @param string $needle is the string to search for

	*

	* @return mixed Returns the numeric position of the first occurrence of needle in the haystack string. Unlike strpos(), stripos() is case-insensitive.

	* Note that the needle may be a string of one or more characters.

	* If needle is not found, stripos() will return boolean FALSE.

	*/

	function stripos($haystack, $needle)

	{

		if (preg_match('#' . preg_quote($needle, '#') . '#i', $haystack, $m))

		{

			return strpos($haystack, $m[0]);

		}

		return false;

	}

}

if (!function_exists('realpath'))

{

	/**

	* Checks if a path ($path) is absolute or relative

	*

	* @param string $path Path to check absoluteness of

	* @return boolean

	*/

	function is_absolute($path)

	{

		return ($path[0] == '/' || (DIRECTORY_SEPARATOR == '\\' && preg_match('#^[a-z]:/#i', $path))) ? true : false;

	}

	/**

	* @author Chris Smith <chris@project-minerva.org>

	* @copyright 2006 Project Minerva Team

	* @param string $path The path which we should attempt to resolve.

	* @return mixed

	*/

	function phpbb_realpath($path)

	{

		// Now to perform funky shizzle

		// Switch to use UNIX slashes

		$path = str_replace(DIRECTORY_SEPARATOR, '/', $path);

		$path_prefix = '';

		// Determine what sort of path we have

		if (is_absolute($path))

		{

			$absolute = true;

			if ($path[0] == '/')

			{

				// Absolute path, *NIX style

				$path_prefix = '';

			}

			else

			{

				// Absolute path, Windows style

				// Remove the drive letter and colon

				$path_prefix = $path[0] . ':';

				$path = substr($path, 2);

			}

		}

		else

		{

			// Relative Path

			// Prepend the current working directory

			if (function_exists('getcwd'))

			{

				// This is the best method, hopefully it is enabled!

				$path = str_replace(DIRECTORY_SEPARATOR, '/', getcwd()) . '/' . $path;

				$absolute = true;

				if (preg_match('#^[a-z]:#i', $path))

				{

					$path_prefix = $path[0] . ':';

					$path = substr($path, 2);

				}

				else

				{

					$path_prefix = '';

				}

			}

			else if (isset($_SERVER['SCRIPT_FILENAME']) && !empty($_SERVER['SCRIPT_FILENAME']))

			{

				// Warning: If chdir() has been used this will lie!

				// Warning: This has some problems sometime (CLI can create them easily)

				$path = str_replace(DIRECTORY_SEPARATOR, '/', dirname($_SERVER['SCRIPT_FILENAME'])) . '/' . $path;

				$absolute = true;

				$path_prefix = '';

			}

			else

			{

				// We have no way of getting the absolute path, just run on using relative ones.

				$absolute = false;

				$path_prefix = '.';

			}

		}

		// Remove any repeated slashes

		$path = preg_replace('#/{2,}#', '/', $path);

		// Remove the slashes from the start and end of the path

		$path = trim($path, '/');

		// Break the string into little bits for us to nibble on

		$bits = explode('/', $path);

		// Remove any . in the path, renumber array for the loop below

		$bits = array_values(array_diff($bits, array('.')));

		// Lets get looping, run over and resolve any .. (up directory)

		for ($i = 0, $max = sizeof($bits); $i < $max; $i++)

		{

			// @todo Optimise

			if ($bits[$i] == '..' )

			{

				if (isset($bits[$i - 1]))

				{

					if ($bits[$i - 1] != '..')

					{

						// We found a .. and we are able to traverse upwards, lets do it!

						unset($bits[$i]);

						unset($bits[$i - 1]);

						$i -= 2;

						$max -= 2;

						$bits = array_values($bits);

					}

				}

				else if ($absolute) // ie. !isset($bits[$i - 1]) && $absolute

				{

					// We have an absolute path trying to descend above the root of the filesystem

					// ... Error!

					return false;

				}

			}

		}

		// Prepend the path prefix

		array_unshift($bits, $path_prefix);

		$resolved = '';

		$max = sizeof($bits) - 1;

		// Check if we are able to resolve symlinks, Windows cannot.

		$symlink_resolve = (function_exists('readlink')) ? true : false;

		foreach ($bits as $i => $bit)

		{

			if (@is_dir("$resolved/$bit") || ($i == $max && @is_file("$resolved/$bit")))

			{

				// Path Exists

				if ($symlink_resolve && is_link("$resolved/$bit") && ($link = readlink("$resolved/$bit")))

				{

					// Resolved a symlink.

					$resolved = $link . (($i == $max) ? '' : '/');

					continue;

				}

			}

			else

			{

				// Something doesn't exist here!

				// This is correct realpath() behaviour but sadly open_basedir and safe_mode make this problematic

				// return false;

			}

			$resolved .= $bit . (($i == $max) ? '' : '/');

		}

		// @todo If the file exists fine and open_basedir only has one path we should be able to prepend it

		// because we must be inside that basedir, the question is where...

		// @internal The slash in is_dir() gets around an open_basedir restriction

		if (!@file_exists($resolved) || (!is_dir($resolved . '/') && !is_file($resolved)))

		{

			return false;

		}

		// Put the slashes back to the native operating systems slashes

		$resolved = str_replace('/', DIRECTORY_SEPARATOR, $resolved);

		// Check for DIRECTORY_SEPARATOR at the end (and remove it!)

		if (substr($resolved, -1) == DIRECTORY_SEPARATOR)

		{

			return substr($resolved, 0, -1);

		}

		return $resolved; // We got here, in the end!

	}

}

else

{

	/**

	* A wrapper for realpath

	* @ignore

	*/

	function phpbb_realpath($path)

	{

		$path = realpath($path);

		// Check for DIRECTORY_SEPARATOR at the end (and remove it!)

		if (substr($path, -1) == DIRECTORY_SEPARATOR)

		{

			return substr($path, 0, -1);

		}

		return $path;

	}

}

if (!function_exists('htmlspecialchars_decode'))

{

	/**

	* A wrapper for htmlspecialchars_decode

	* @ignore

	*/

	function htmlspecialchars_decode($string, $quote_style = ENT_COMPAT)

	{

		return strtr($string, array_flip(get_html_translation_table(HTML_SPECIALCHARS, $quote_style)));

	}

}

// functions used for building option fields

/**

* Pick a language, any language ...

*/

function language_select($default = '')

{

	global $db;

	$sql = 'SELECT lang_iso, lang_local_name

		FROM ' . LANG_TABLE . '

		ORDER BY lang_english_name';

	$result = $db->sql_query($sql);

	$lang_options = '';

	while ($row = $db->sql_fetchrow($result))

	{

		$selected = ($row['lang_iso'] == $default) ? ' selected="selected"' : '';

		$lang_options .= '<option value="' . $row['lang_iso'] . '"' . $selected . '>' . $row['lang_local_name'] . '</option>';

	}

	$db->sql_freeresult($result);

	return $lang_options;

}

/**

* Pick a template/theme combo,

*/

function style_select($default = '', $all = false)

{

	global $db;

	$sql_where = (!$all) ? 'WHERE style_active = 1 ' : '';

	$sql = 'SELECT style_id, style_name

		FROM ' . STYLES_TABLE . "

		$sql_where

		ORDER BY style_name";

	$result = $db->sql_query($sql);

	$style_options = '';

	while ($row = $db->sql_fetchrow($result))

	{

		$selected = ($row['style_id'] == $default) ? ' selected="selected"' : '';

		$style_options .= '<option value="' . $row['style_id'] . '"' . $selected . '>' . $row['style_name'] . '</option>';

	}

	$db->sql_freeresult($result);

	return $style_options;

}

/**

* Pick a timezone

*/

function tz_select($default = '', $truncate = false)

{

	global $user;

	$tz_select = '';

	foreach ($user->lang['tz_zones'] as $offset => $zone)

	{

		if ($truncate)

		{

			$zone_trunc = truncate_string($zone, 50, false, '...');

		}

		else

		{

			$zone_trunc = $zone;

		}

		if (is_numeric($offset))

		{

			$selected = ($offset == $default) ? ' selected="selected"' : '';

			$tz_select .= '<option title="'.$zone.'" value="' . $offset . '"' . $selected . '>' . $zone_trunc . '</option>';

		}

	}

	return $tz_select;

}

// Functions handling topic/post tracking/marking

/**

* Marks a topic/forum as read

* Marks a topic as posted to

*

* @param int $user_id can only be used with $mode == 'post'

*/

function markread($mode, $forum_id = false, $topic_id = false, $post_time = 0, $user_id = 0)

{

	global $db, $user, $config;

	if ($mode == 'all')

	{

		if ($forum_id === false || !sizeof($forum_id))

		{

			if ($config['load_db_lastread'] && $user->data['is_registered'])

			{

				// Mark all forums read (index page)

				$db->sql_query('DELETE FROM ' . TOPICS_TRACK_TABLE . " WHERE user_id = {$user->data['user_id']}");

				$db->sql_query('DELETE FROM ' . FORUMS_TRACK_TABLE . " WHERE user_id = {$user->data['user_id']}");

				$db->sql_query('UPDATE ' . USERS_TABLE . ' SET user_lastmark = ' . time() . " WHERE user_id = {$user->data['user_id']}");

			}

			else if ($config['load_anon_lastread'] || $user->data['is_registered'])