egroupware/phpgwapi/inc/horde/Horde/Util.php

837 lines
26 KiB
PHP

<?php
/**
* Error code for a missing driver configuration.
*/
define('HORDE_ERROR_DRIVER_CONFIG_MISSING', 1);
/**
* Error code for an incomplete driver configuration.
*/
define('HORDE_ERROR_DRIVER_CONFIG', 2);
/**
* The Util:: class provides generally useful methods of different kinds.
*
* $Horde: framework/Util/Util.php,v 1.388 2005/01/12 15:51:12 chuck Exp $
*
* Copyright 1999-2005 Chuck Hagenbuch <chuck@horde.org>
* Copyright 1999-2005 Jon Parise <jon@horde.org>
*
* See the enclosed file COPYING for license information (LGPL). If you
* did not receive this file, see http://www.fsf.org/copyleft/lgpl.html.
*
* @author Chuck Hagenbuch <chuck@horde.org>
* @author Jon Parise <jon@horde.org>
* @since Horde 3.0
* @package Horde_Util
*/
class Util {
/**
* Returns an object's clone.
*
* @param object &$obj The object to clone.
*
* @return object The cloned object.
*/
function &cloneObject(&$obj)
{
if (version_compare(zend_version(), '2', '>')) {
return clone($obj);
} else {
$newObj = $obj;
return $newObj;
}
}
/**
* Buffers the output from a function call, like readfile() or
* highlight_string(), that prints the output directly, so that instead it
* can be returned as a string and used.
*
* @access public
*
* @param string $function The function to run.
* @param mixed $arg1 First argument to $function().
* @param mixed $arg2 Second argument to $function().
* @param mixed $arg... ...
* @param mixed $argN Nth argument to $function().
*
* @return string The output of the function.
*/
function bufferOutput()
{
if (func_num_args() == 0) {
return false;
}
$eval = false;
$args = func_get_args();
$function = array_shift($args);
if (is_array($function)) {
if (!is_callable($function)) {
return false;
}
} elseif (($function == 'include') ||
($function == 'include_once') ||
($function == 'require') ||
($function == 'require_once')) {
$eval = true;
} elseif (!function_exists($function) &&
($function != 'eval')) {
return false;
}
ob_start();
if ($eval) {
eval($function . " '" . implode(',', $args) . "';");
} elseif ($function == 'eval') {
eval($args[0]);
} else {
call_user_func_array($function, $args);
}
$output = ob_get_contents();
ob_end_clean();
return $output;
}
/**
* Checks to see if a value has been set by the script and not by GET,
* POST, or cookie input. The value being checked MUST be in the global
* scope.
*
* @access public
*
* @param string $varname The variable name to check.
*
* @return mixed Null if the var is in user input, the variable value
* otherwise.
*/
function nonInputVar($varname)
{
if (isset($_GET[$varname]) ||
isset($_POST[$varname]) ||
isset($_COOKIE[$varname])) {
return null;
} else {
return isset($GLOBALS[$varname]) ? $GLOBALS[$varname] : null;
}
}
/**
* Adds a name=value pair to the end of an URL, taking care of whether
* there are existing parameters and whether to use ?, & or &amp; as the
* glue. All data will be urlencoded.
*
* @access public
*
* @param string $url The URL to modify
* @param mixed $parameter Either the name=value pair to add
* (DEPRECATED) -or-
* the name value -or-
* an array of name/value pairs.
* @param string $value If specified, the value part ($parameter is
* then assumed to just be the parameter name).
* @param boolean $encode If true, and we don't have argument separators
* yet, the argument separator gets encoded.
*
* @return string The modified URL.
*
* @since Horde 2.1
*/
function addParameter($url, $parameter, $value = null, $encode = true)
{
if (empty($parameter)) {
return $url;
}
if (!is_array($parameter)) {
/* This is deprecated should be removed in the future. */
if (is_null($value)) {
@list($parameter, $value) = explode('=', $parameter, 2);
}
$add = array($parameter => $value);
} else {
$add = $parameter;
}
$arg = $encode ? '&amp;' : '&';
if (($pos = strpos($url, '?')) === false) {
$glue = '?';
} else {
/* Check if the argument separator has been already
* htmlentities-ized in the URL. */
$query = substr($url, $pos + 1);
if (preg_match('/=.*?&amp;.*?=/', $query)) {
$arg = '&amp;';
$query = strtr($query, array_flip(get_html_translation_table(HTML_ENTITIES)));
} elseif (preg_match('/=.*?&.*?=/', $query)) {
$arg = '&';
}
$pairs = explode($arg, $query);
$params = array();
foreach ($pairs as $pair) {
$pair = explode('=', $pair, 2);
$params[$pair[0]] = count($pair) == 2 ? $pair[1] : '';
}
$glue = $arg;
}
$url_params = array();
foreach ($add as $parameter => $value) {
if (!isset($params[$parameter])) {
if (is_array($value)) {
foreach ($value as $val) {
$url_params[] = urlencode($parameter) . '[]=' . urlencode($val);
}
} else {
$url_params[] = urlencode($parameter) . '=' . urlencode($value);
}
}
}
if (count($url_params)) {
return $url . $glue . implode($arg, $url_params);
} else {
return $url;
}
}
/**
* Removes name=value pairs from a URL.
*
* @access public
*
* @param string $url The URL to modify.
* @param mixed $remove Either a single parameter to remove or an array
* of parameters to remove.
*
* @return string The modified URL.
*
* @since Horde 2.2
*/
function removeParameter($url, $remove)
{
if (!is_array($remove)) {
$remove = array($remove);
}
/* Return immediately if there are no parameters to remove. */
if (($pos = strpos($url, '?')) === false) {
return $url;
}
$entities = false;
list($url, $query) = explode('?', $url, 2);
/* Check if the argument separator has been already
* htmlentities-ized in the URL. */
if (preg_match('/=.*?&amp;.*?=/', $query)) {
$entities = true;
$query = strtr($query, array_flip(get_html_translation_table(HTML_ENTITIES)));
}
/* Get the list of parameters. */
$pairs = explode('&', $query);
$params = array();
foreach ($pairs as $pair) {
$pair = explode('=', $pair, 2);
$params[$pair[0]] = count($pair) == 2 ? $pair[1] : '';
}
/* Remove the parameters. */
foreach ($remove as $param) {
unset($params[$param]);
}
if (!count($params)) {
return $url;
}
/* Flatten arrays.
* FIXME: should handle more than one array level somehow. */
$add = array();
foreach ($params as $key => $val) {
if (is_array($val)) {
foreach ($val as $v) {
$add[] = $key . '[]=' . $v;
}
} else {
$add[] = $key . '=' . $val;
}
}
$query = implode('&', $add);
if ($entities) {
$query = htmlentities($query);
}
return $url . '?' . $query;
}
/**
* Returns a url with the 'nocache' parameter added, if the browser is
* buggy and caches old URLs.
*
* @access public
*
* @param string $url The URL to modify.
*
* @return string The requested URI.
*/
function nocacheUrl($url)
{
static $rand_num;
require_once 'Horde/Browser.php';
$browser = &Browser::singleton();
/* We may need to set a dummy parameter 'nocache' since some
* browsers do not always honor the 'no-cache' header. */
if ($browser->hasQuirk('cache_same_url')) {
if (!isset($rand_num)) {
$rand_num = base_convert(microtime(), 10, 36);
}
return Util::addParameter($url, 'nocache', $rand_num);
} else {
return $url;
}
}
/**
* Returns a hidden form input containing the session name and id.
*
* @access public
*
* @param boolean $append_session 0 = only if needed, 1 = always.
*
* @return string The hidden form input, if needed/requested.
*/
function formInput($append_session = 0)
{
if ($append_session == 1 ||
!isset($_COOKIE[session_name()])) {
return '<input type="hidden" name="' . htmlspecialchars(session_name()) . '" value="' . htmlspecialchars(session_id()) . "\" />\n";
} else {
return '';
}
}
/**
* Prints a hidden form input containing the session name and id.
*
* @access public
*
* @param boolean $append_session 0 = only if needed, 1 = always.
*/
function pformInput($append_session = 0)
{
echo Util::formInput($append_session);
}
/**
* If magic_quotes_gpc is in use, run stripslashes() on $var.
*
* @access public
*
* @param string &$var The string to un-quote, if necessary.
*
* @return string $var, minus any magic quotes.
*/
function dispelMagicQuotes(&$var)
{
static $magic_quotes;
if (!isset($magic_quotes)) {
$magic_quotes = get_magic_quotes_gpc();
}
if ($magic_quotes) {
if (!is_array($var)) {
$var = stripslashes($var);
} else {
array_walk($var, array('Util', 'dispelMagicQuotes'));
}
}
return $var;
}
/**
* Gets a form variable from GET or POST data, stripped of magic quotes if
* necessary. If the variable is somehow set in both the GET data and the
* POST data, the value from the POST data will be returned and the GET
* value will be ignored.
*
* @access public
*
* @param string $var The name of the form variable to look for.
* @param string $default The value to return if the variable is not
* there.
*
* @return string The cleaned form variable, or $default.
*/
function getFormData($var, $default = null)
{
return (($val = Util::getPost($var)) !== null)
? $val : Util::getGet($var, $default);
}
/**
* Gets a form variable from GET data, stripped of magic quotes if
* necessary. This function will NOT return a POST variable.
*
* @access public
*
* @param string $var The name of the form variable to look for.
* @param string $default The value to return if the variable is not
* there.
*
* @return string The cleaned form variable, or $default.
*
* @since Horde 2.2
*/
function getGet($var, $default = null)
{
return (isset($_GET[$var]))
? Util::dispelMagicQuotes($_GET[$var])
: $default;
}
/**
* Gets a form variable from POST data, stripped of magic quotes if
* necessary. This function will NOT return a GET variable.
*
* @access public
*
* @param string $var The name of the form variable to look for.
* @param string $default The value to return if the variable is not
* there.
*
* @return string The cleaned form variable, or $default.
*
* @since Horde 2.2
*/
function getPost($var, $default = null)
{
return (isset($_POST[$var]))
? Util::dispelMagicQuotes($_POST[$var])
: $default;
}
/**
* Determines the location of the system temporary directory.
*
* @access public
*
* @return string A directory name which can be used for temp files.
* Returns false if one could not be found.
*/
function getTempDir()
{
/* First, try PHP's upload_tmp_dir directive. */
$tmp = ini_get('upload_tmp_dir');
/* Otherwise, try to determine the TMPDIR environment
* variable. */
if (empty($tmp)) {
$tmp = getenv('TMPDIR');
}
/* If we still cannot determine a value, then cycle through a
* list of preset possibilities. */
$tmp_locations = array('/tmp', '/var/tmp', 'c:\WUTemp', 'c:\temp',
'c:\windows\temp', 'c:\winnt\temp');
while (empty($tmp) && count($tmp_locations)) {
$tmp_check = array_shift($tmp_locations);
if (@is_dir($tmp_check)) {
$tmp = $tmp_check;
}
}
/* If it is still empty, we have failed, so return false;
* otherwise return the directory determined. */
return empty($tmp) ? false : $tmp;
}
/**
* Creates a temporary filename for the lifetime of the script, and
* (optionally) register it to be deleted at request shutdown.
*
* @param string $prefix Prefix to make the temporary name more
* recognizable.
* @param boolean $delete Delete the file at the end of the request?
* @param string $dir Directory to create the temporary file in.
* @param boolean $secure If deleting file, should we securely delete the
* file?
*
* @return string Returns the full path-name to the temporary file.
* Returns false if a temp file could not be created.
*/
function getTempFile($prefix = '', $delete = true, $dir = '', $secure = false)
{
if (empty($dir) || !is_dir($dir)) {
$tmp_dir = Util::getTempDir();
} else {
$tmp_dir = $dir;
}
if (empty($tmp_dir)) {
return false;
}
$tmp_file = tempnam($tmp_dir, $prefix);
/* If the file was created, then register it for deletion and return */
if (empty($tmp_file)) {
return false;
} else {
if ($delete) {
Util::deleteAtShutdown($tmp_file, true, $secure);
}
return $tmp_file;
}
}
/**
* Creates a temporary directory in the system's temporary directory.
*
* @access public
*
* @param boolean $delete Delete the temporary directory at the end of
* the request?
* @param string $temp_dir Use this temporary directory as the directory
* where the temporary directory will be created.
*
* @return string The pathname to the new temporary directory.
* Returns false if directory not created.
*/
function createTempDir($delete = true, $temp_dir = null)
{
if (is_null($temp_dir)) {
$temp_dir = Util::getTempDir();
}
if (empty($temp_dir)) {
return false;
}
/* Get the first 8 characters of a random string to use as a temporary
directory name. */
do {
$temp_dir .= '/' . substr(base_convert(mt_rand() . microtime(), 10, 36), 0, 8);
} while (file_exists($temp_dir));
$old_umask = umask(0000);
if (!mkdir($temp_dir, 0700)) {
$temp_dir = false;
} elseif ($delete) {
Util::deleteAtShutdown($temp_dir);
}
umask($old_umask);
return $temp_dir;
}
/**
* Removes given elements at request shutdown.
*
* If called with a filename will delete that file at request shutdown; if
* called with a directory will remove that directory and all files in that
* directory at request shutdown.
*
* If called with no arguments, return all elements to be deleted (this
* should only be done by Util::_deleteAtShutdown).
*
* The first time it is called, it initializes the array and registers
* Util::_deleteAtShutdown() as a shutdown function - no need to do so
* manually.
*
* The second parameter allows the unregistering of previously registered
* elements.
*
* @access public
*
* @param string $filename The filename to be deleted at the end of the
* request.
* @param boolean $register If true, then register the element for
* deletion, otherwise, unregister it.
* @param boolean $secure If deleting file, should we securely delete
* the file?
*/
function deleteAtShutdown($filename = false, $register = true,
$secure = false)
{
static $dirs, $files, $securedel;
/* Initialization of variables and shutdown functions. */
if (is_null($dirs)){
$dirs = array();
$files = array();
$securedel = array();
register_shutdown_function(array('Util', '_deleteAtShutdown'));
}
if ($filename) {
if ($register) {
if (@is_dir($filename)) {
$dirs[$filename] = true;
} else {
$files[$filename] = true;
}
if ($secure) {
$securedel[$filename] = true;
}
} else {
unset($dirs[$filename]);
unset($files[$filename]);
unset($securedel[$filename]);
}
} else {
return array($dirs, $files, $securedel);
}
}
/**
* Deletes registered files at request shutdown.
*
* This function should never be called manually; it is registered as a
* shutdown function by Util::deleteAtShutdown() and called automatically
* at the end of the request. It will retrieve the list of folders and
* files to delete from Util::deleteAtShutdown()'s static array, and then
* iterate through, deleting folders recursively.
*
* Contains code from gpg_functions.php.
* Copyright (c) 2002-2003 Braverock Ventures
*
* @access private
*/
function _deleteAtShutdown()
{
$registered = Util::deleteAtShutdown();
$dirs = $registered[0];
$files = $registered[1];
$secure = $registered[2];
foreach ($files as $file => $val) {
/* Delete files */
if ($val && @file_exists($file)) {
/* Should we securely delete the file by overwriting the
data with a random string? */
if (isset($secure[$file])) {
$random_str = '';
for ($i = 0; $i < filesize($file); $i++) {
$random_str .= chr(mt_rand(0, 255));
}
$fp = fopen($file, 'r+');
fwrite($fp, $random_str);
fclose($fp);
}
@unlink($file);
}
}
foreach ($dirs as $dir => $val) {
/* Delete directories */
if ($val && @file_exists($dir)) {
/* Make sure directory is empty. */
$dir_class = dir($dir);
while (false !== ($entry = $dir_class->read())) {
if ($entry != '.' && $entry != '..') {
@unlink($dir . '/' . $entry);
}
}
$dir_class->close();
@rmdir($dir);
}
}
}
/**
* Outputs javascript code to close the current window.
*
* @access public
*
* @param string $code Any addtional javascript code to run before
* closing the window.
*/
function closeWindowJS($code = '')
{
echo '<script language="JavaScript" type="text/javascript">' . $code .
'window.close();</script>';
}
/**
* Caches the result of extension_loaded() calls.
*
* @access private
*
* @param string $ext The extension name.
*
* @return boolean Is the extension loaded?
*/
function extensionExists($ext)
{
static $cache = array();
if (!isset($cache[$ext])) {
$cache[$ext] = extension_loaded($ext);
}
return $cache[$ext];
}
/**
* Tries to load a PHP extension, behaving correctly for all operating
* systems.
*
* @param string $ext The extension to load.
*
* @return boolean True if the extension is now loaded, false if not.
* True can mean that the extension was already loaded,
* OR was loaded dynamically.
*/
function loadExtension($ext)
{
/* If $ext is already loaded, our work is done. */
if (Util::extensionExists($ext)) {
return true;
}
/* See if we can call dl() at all, by the current ini settings. */
if ((ini_get('enable_dl') != 1) || (ini_get('safe_mode') == 1)) {
return false;
}
if (substr(PHP_OS, 0, 3) == 'WIN') {
$suffix = 'dll';
} else {
switch (PHP_OS) {
case 'HP-UX':
$suffix = 'sl';
break;
case 'AIX':
$suffix = 'a';
break;
case 'OSX':
$suffix = 'bundle';
break;
default:
$suffix = 'so';
}
}
return @dl($ext . '.' . $suffix) || @dl('php_' . $ext . '.' . $suffix);
}
/**
* Checks if all necessary parameters for a driver's configuration are set
* and returns a PEAR_Error if something is missing.
*
* @param array $params The configuration array with all parameters.
* @param array $fields An array with mandatory parameter names for this
* driver.
* @param string $name The clear text name of the driver. If not
* specified, the application name will be used.
* @param array $info A hash containing detailed information about the
* driver. Will be passed as the userInfo to the
* PEAR_Error.
*/
function assertDriverConfig($params, $fields, $name, $info = array())
{
$info = array_merge($info,
array('params' => $params,
'fields' => $fields,
'name' => $name));
if (!is_array($params) || !count($params)) {
require_once 'PEAR.php';
return PEAR::throwError(sprintf(_("No configuration information specified for %s."), $name),
HORDE_ERROR_DRIVER_CONFIG_MISSING,
$info);
}
foreach ($fields as $field) {
if (!isset($params[$field])) {
require_once 'PEAR.php';
return PEAR::throwError(sprintf(_("Required '%s' not specified in configuration."), $field, $name),
HORDE_ERROR_DRIVER_CONFIG,
$info);
}
}
}
/**
* Returns a format string to be used by strftime().
*
* @param string $format A format string as used by date().
*
* @return string A format string as similar as possible to $format.
*/
function date2strftime($format)
{
$dateSymbols = array('a', 'A', 'd', 'D', 'F', 'g', 'G', 'h', 'H', 'i', 'j', 'l', 'm', 'M', 'n', 'r', 's', 'T', 'w', 'W', 'y', 'Y', 'z', 'm/d/Y', 'M', "\n", 'g:i a', 'G:i', "\t", 'H:i:s', '%');
$strftimeSymbols = array('%p', '%p', '%d', '%a', '%B', '%I', '%H', '%I', '%H', '%M', '%e', '%A', '%m', '%b', '%m', '%a, %e %b %Y %T %Z', '%S', '%Z', '%w', '%V', '%y', '%Y', '%j', '%D', '%h', '%n', '%r', '%R', '%t', '%T', '%%');
$result = '';
for ($pos = 0; $pos < strlen($format);) {
for ($symbol = 0; $symbol < count($dateSymbols); $symbol++) {
if (strpos($format, $dateSymbols[$symbol], $pos) === $pos) {
$result .= $strftimeSymbols[$symbol];
$pos += strlen($dateSymbols[$symbol]);
continue 2;
}
}
$result .= substr($format, $pos, 1);
$pos++;
}
return $result;
}
/**
* Returns a format string to be used by date().
*
* @param string $format A format string as used by strftime().
*
* @return string A format string as similar as possible to $format.
*/
function strftime2date($format)
{
$dateSymbols = array('a', 'A', 'd', 'D', 'F', 'g', 'G', 'h', 'H', 'i', 'j', 'l', 'm', 'M', 'n', 'r', 's', 'T', 'w', 'W', 'y', 'Y', 'z', 'm/d/Y', 'M', "\n", 'g:i a', 'G:i', "\t", 'H:i:s', '%');
$strftimeSymbols = array('%p', '%p', '%d', '%a', '%B', '%I', '%H', '%I', '%H', '%M', '%e', '%A', '%m', '%b', '%m', '%a, %e %b %Y %T %Z', '%S', '%Z', '%w', '%V', '%y', '%Y', '%j', '%D', '%h', '%n', '%r', '%R', '%t', '%T', '%%');
return str_replace($strftimeSymbols, $dateSymbols, $format);
}
}
if (!function_exists('_')) {
function _($string)
{
return $string;
}
function bindtextdomain()
{
}
function textdomain()
{
}
function dgettext($domain, $message)
{
return $message;
}
function ngettext($singular, $plural, $number)
{
return $number > 1 ? $plural : $singular;
}
}