X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=program%2Finclude%2Frcube_shared.inc;h=6e58ad86982c5293ae05d48ac77e1dd351a16403;hb=76507f7c63a660742e76889ad6e3919f3dde3bb0;hp=ee95965e3ba6a209c05869b60f842e1cb950ea72;hpb=0af63e79917234f76cfa7ec74e9d97b24fbf9b55;p=roundcube.git diff --git a/program/include/rcube_shared.inc b/program/include/rcube_shared.inc index ee95965..6e58ad8 100644 --- a/program/include/rcube_shared.inc +++ b/program/include/rcube_shared.inc @@ -4,8 +4,8 @@ +-----------------------------------------------------------------------+ | rcube_shared.inc | | | - | This file is part of the RoundCube PHP suite | - | Copyright (C) 2005, RoundCube Dev. - Switzerland | + | This file is part of the Roundcube PHP suite | + | Copyright (C) 2005-2007, The Roundcube Dev Team | | Licensed under the GNU GPL | | | | CONTENTS: | @@ -15,1413 +15,696 @@ | Author: Thomas Bruederli | +-----------------------------------------------------------------------+ - $Id: rcube_shared.inc 288 2006-07-31 22:51:23Z thomasb $ + $Id: rcube_shared.inc 5274 2011-09-23 10:11:27Z alec $ */ -// ********* round cube schared classes ********* - -class rcube_html_page - { - var $css; - - var $scripts_path = ''; - var $script_files = array(); - var $scripts = array(); - var $charset = 'ISO-8859-1'; - - var $script_tag_file = "\n"; - var $script_tag = "\n"; - var $default_template = "\n\n"; - - var $title = ''; - var $header = ''; - var $footer = ''; - var $body = ''; - var $body_attrib = array(); - var $meta_tags = array(); - - - // PHP 5 constructor - function __construct() - { - $this->css = new rcube_css(); - } - - // PHP 4 compatibility - function rcube_html_page() - { - $this->__construct(); - } - - - function include_script($file, $position='head') - { - static $sa_files = array(); - - if (in_array($file, $sa_files)) - return; - - if (!is_array($this->script_files[$position])) - $this->script_files[$position] = array(); - - $this->script_files[$position][] = $file; - } - - - function add_script($script, $position='head') - { - if (!isset($this->scripts[$position])) - $this->scripts[$position] = ''; - - $this->scripts[$position] .= "\n$script"; - } +/** + * Roundcube shared functions + * + * @package Core + */ - function set_title($t) - { - $this->title = $t; - } - - - function set_charset($charset) - { - global $MBSTRING; - - $this->charset = $charset; - - if ($MBSTRING && function_exists("mb_internal_encoding")) - { - if(!@mb_internal_encoding($charset)) - $MBSTRING = FALSE; - } - } - - function get_charset() - { - return $this->charset; - } - - - function reset() - { - $this->css = new rcube_css(); - $this->script_files = array(); - $this->scripts = array(); - $this->title = ''; - } +/** + * Send HTTP headers to prevent caching this page + */ +function send_nocacheing_headers() +{ + global $OUTPUT; + if (headers_sent()) + return; - function write($templ='', $base_path='') - { - $output = empty($templ) ? $this->default_template : trim($templ); - - // set default page title - if (!strlen($this->title)) - $this->title = 'RoundCube Mail'; - - // replace specialchars in content - $__page_title = rep_specialchars_output($this->title, 'html', 'show', FALSE); - $__page_header = $__page_body = $__page_footer = ''; - - - // include meta tag with charset - if (!empty($this->charset)) - { - header('Content-Type: text/html; charset='.$this->charset); - $__page_header = ''."\n"; - } - - - // definition of the code to be placed in the document header and footer - if (is_array($this->script_files['head'])) - foreach ($this->script_files['head'] as $file) - $__page_header .= sprintf($this->script_tag_file, $this->scripts_path, $file); - - if (strlen($this->scripts['head'])) - $__page_header .= sprintf($this->script_tag, $this->scripts['head']); - - if (is_array($this->script_files['foot'])) - foreach ($this->script_files['foot'] as $file) - $__page_footer .= sprintf($this->script_tag_file, $this->scripts_path, $file); - - if (strlen($this->scripts['foot'])) - $__page_footer .= sprintf($this->script_tag, $this->scripts['foot']); - - - $__page_header .= $this->css->show(); - - - // find page header - if($hpos = strpos(strtolower($output), '')) - $__page_header .= "\n"; - else - { - if (!is_numeric($hpos)) - $hpos = strpos(strtolower($output), '')+7; - - // add page body - if($bpos && $__page_body) - $output = substr($output,0,$bpos) . "\n$__page_body\n" . substr($output,$bpos,strlen($output)); - - - // find and add page footer - if(($fpos = strpos(strtolower($output), '')) || ($fpos = strpos(strtolower($output), ''))) - $output = substr($output,0,$fpos) . "$__page_footer\n" . substr($output,$fpos,strlen($output)); - else - $output .= "\n$__page_footer"; - - - // reset those global vars - $__page_header = $__page_footer = ''; - - - // correct absolute pathes in images and other tags - $output = preg_replace('/(src|href|background)=(["\']?)(\/[a-z0-9_\-]+)/Ui', "\\1=\\2$base_path\\3", $output); - $output = str_replace('$__skin_path', $base_path, $output); - - print rcube_charset_convert($output, 'UTF-8', $this->charset); - } - - - function _parse($templ) - { - - } + header("Expires: ".gmdate("D, d M Y H:i:s")." GMT"); + header("Last-Modified: ".gmdate("D, d M Y H:i:s")." GMT"); + // Request browser to disable DNS prefetching (CVE-2010-0464) + header("X-DNS-Prefetch-Control: off"); + + // We need to set the following headers to make downloads work using IE in HTTPS mode. + if ($OUTPUT->browser->ie && rcube_https_check()) { + header('Pragma: private'); + header("Cache-Control: private, must-revalidate"); + } else { + header("Cache-Control: private, no-cache, must-revalidate, post-check=0, pre-check=0"); + header("Pragma: no-cache"); } +} +/** + * Send header with expire date 30 days in future + * + * @param int Expiration time in seconds + */ +function send_future_expire_header($offset=2600000) +{ + if (headers_sent()) + return; + header("Expires: ".gmdate("D, d M Y H:i:s", mktime()+$offset)." GMT"); + header("Cache-Control: max-age=$offset"); + header("Pragma: "); +} -class rcube_css - { - var $css_data = array(); - - var $css_groups = array(); - - var $include_files = array(); - - var $grouped_output = TRUE; - - var $content_type = 'text/css'; - - var $base_path = ''; - - var $indent_chars = "\t"; - - - // add or overwrite a css definition - // either pass porperty and value as separate arguments - // or provide an associative array as second argument - function set_style($selector, $property, $value='') - { - $a_elements = $this->_parse_selectors($selector); - foreach ($a_elements as $element) - { - if (!is_array($property)) - $property = array($property => $value); - - foreach ($property as $name => $value) - $this->css_data[$element][strtolower($name)] = $value; - } - - // clear goups array - $this->css_groups = array(); - } - - - // unset a style property - function remove_style($selector, $property) - { - if (!is_array($property)) - $property = array($property); - - foreach ($property as $key) - unset($this->css_data[$selector][strtolower($key)]); - - // clear goups array - $this->css_groups = array(); - } - - - // define base path for external css files - function set_basepath($path) - { - $this->base_path = preg_replace('/\/$/', '', $path); - } - - - // enable/disable grouped output - function set_grouped_output($grouped) - { - $this->grouped_output = $grouped; - } - - - // add a css file as external source - function include_file($filename, $media='') - { - // include multiple files - if (is_array($filename)) - { - foreach ($filename as $file) - $this->include_file($file, $media); - } - // add single file - else if (!in_array($filename, $this->include_files)) - $this->include_files[] = array('file' => $filename, - 'media' => $media); - } - - - // parse css code - function import_string($str) - { - $ret = FALSE; - if (strlen($str)) - $ret = $this->_parse($str); - - return $ret; - } - - - // open and parse a css file - function import_file($file) - { - $ret = FALSE; - - if (!is_file($file)) - return $ret; - - // for php version >= 4.3.0 - if (function_exists('file_get_contents')) - $ret = $this->_parse(file_get_contents($file)); - - // for order php versions - else if ($fp = fopen($file, 'r')) - { - $ret = $this->_parse(fread($fp, filesize($file))); - fclose($fp); - } - - return $ret; - } - - - // copy all properties inherited from superior styles to a specific selector - function copy_inherited_styles($selector) - { - // get inherited props from body and tag/class selectors - $css_props = $this->_get_inherited_styles($selector); - - // write modified props back and clear goups array - if (sizeof($css_props)) - { - $this->css_data[$selector] = $css_props; - $this->css_groups = array(); - } - } - - - // return css definition for embedding in HTML - function show() - { - $out = ''; - - // include external css files - if (sizeof($this->include_files)) - foreach ($this->include_files as $file_arr) - $out .= sprintf(''."\n", - $this->content_type, - $this->_get_file_path($file_arr['file']), - $file_arr['media'] ? ' media="'.$file_arr['media'].'"' : ''); - - - // compose css string - if (sizeof($this->css_data)) - $out .= sprintf("", - $this->content_type, - $this->to_string()); - - - return $out; - } - - - // return valid css code of the current styles grid - function to_string($selector=NULL) - { - // return code for a single selector - if ($selector) - { - $indent_str = $this->indent_chars; - $this->indent_chars = ''; - - $prop_arr = $this->to_array($selector); - $out = $this->_style2string($prop_arr, TRUE); - - $this->indent_chars = $indent_str; - } - - // compose css code for complete data grid - else - { - $out = ''; - $css_data = $this->to_array(); - - foreach ($css_data as $key => $prop_arr) - $out .= sprintf("%s {\n%s}\n\n", - $key, - $this->_style2string($prop_arr, TRUE)); - } - - return $out; - } - - - // return a single-line string of a css definition - function to_inline($selector) - { - if ($this->css_data[$selector]) - return str_replace('"', '\\"', $this->_style2string($this->css_data[$selector], FALSE)); - } - - - // return an associative array with selector(s) as key and styles array as value - function to_array($selector=NULL) - { - if (!$selector && $this->grouped_output) - { - // build groups if desired - if (!sizeof($this->css_groups)) - $this->_build_groups(); - - // modify group array to get an array(selector => properties) - $out_arr = array(); - foreach ($this->css_groups as $group_arr) - { - $key = join(', ', $group_arr['selectors']); - $out_arr[$key] = $group_arr['properties']; - } - } - else - $out_arr = $this->css_data; - return $selector ? $out_arr[$selector] : $out_arr; - } +/** + * Similar function as in_array() but case-insensitive + * + * @param mixed Needle value + * @param array Array to search in + * @return boolean True if found, False if not + */ +function in_array_nocase($needle, $haystack) +{ + $needle = mb_strtolower($needle); + foreach ($haystack as $value) + if ($needle===mb_strtolower($value)) + return true; + return false; +} - // create a css file - function to_file($filepath) - { - if ($fp = fopen($filepath, 'w')) - { - fwrite($fp, $this->to_string()); - fclose($fp); - return TRUE; - } +/** + * Find out if the string content means TRUE or FALSE + * + * @param string Input value + * @return boolean Imagine what! + */ +function get_boolean($str) +{ + $str = strtolower($str); + if (in_array($str, array('false', '0', 'no', 'off', 'nein', ''), TRUE)) return FALSE; - } - - - // alias method for import_string() [DEPRECATED] - function add($str) - { - $this->import_string($str); - } - - // alias method for to_string() [DEPRECATED] - function get() - { - return $this->to_string(); - } - - - - // ******** private methods ******** - - - // parse a string and add styles to internal data grid - function _parse($str) - { - // remove comments - $str = preg_replace("/\/\*(.*)?\*\//Usi", '', $str); - - // parse style definitions - if (!preg_match_all ('/([a-z0-9\.#*:_][a-z0-9\.\-_#:*,\[\]\s\"\'\+\|>~=]+)\s*\{([^\}]*)\}/ims', $str, $matches, PREG_SET_ORDER)) - return FALSE; - + else + return TRUE; +} - foreach ($matches as $match_arr) - { - // split selectors into array - $a_keys = $this->_parse_selectors(trim($match_arr[1])); - - // parse each property of an element - $codes = explode(";", trim($match_arr[2])); - foreach ($codes as $code) - { - if (strlen(trim($code))>0) - { - // find the property and the value - if (!($sep = strpos($code, ':'))) - continue; - - $property = strtolower(trim(substr($code, 0, $sep))); - $value = trim(substr($code, $sep+1)); - - // add the property to the object array - foreach ($a_keys as $key) - $this->css_data[$key][$property] = $value; - } - } - } - // clear goups array - if (sizeof($matches)) - { - $this->css_groups = array(); - return TRUE; - } +/** + * Parse a human readable string for a number of bytes + * + * @param string Input string + * @return float Number of bytes + */ +function parse_bytes($str) +{ + if (is_numeric($str)) + return floatval($str); - return FALSE; + if (preg_match('/([0-9\.]+)\s*([a-z]*)/i', $str, $regs)) + { + $bytes = floatval($regs[1]); + switch (strtolower($regs[2])) + { + case 'g': + case 'gb': + $bytes *= 1073741824; + break; + case 'm': + case 'mb': + $bytes *= 1048576; + break; + case 'k': + case 'kb': + $bytes *= 1024; + break; } + } + return floatval($bytes); +} + +/** + * Create a human readable string for a number of bytes + * + * @param int Number of bytes + * @return string Byte string + */ +function show_bytes($bytes) +{ + if ($bytes >= 1073741824) + { + $gb = $bytes/1073741824; + $str = sprintf($gb>=10 ? "%d " : "%.1f ", $gb) . rcube_label('GB'); + } + else if ($bytes >= 1048576) + { + $mb = $bytes/1048576; + $str = sprintf($mb>=10 ? "%d " : "%.1f ", $mb) . rcube_label('MB'); + } + else if ($bytes >= 1024) + $str = sprintf("%d ", round($bytes/1024)) . rcube_label('KB'); + else + $str = sprintf('%d ', $bytes) . rcube_label('B'); - // split selector group - function _parse_selectors($selector) - { - // trim selector and remove multiple spaces - $selector = preg_replace('/\s+/', ' ', trim($selector)); + return $str; +} + +/** + * Convert paths like ../xxx to an absolute path using a base url + * + * @param string Relative path + * @param string Base URL + * @return string Absolute URL + */ +function make_absolute_url($path, $base_url) +{ + $host_url = $base_url; + $abs_path = $path; - if (strpos($selector, ',')) - return preg_split('/[\t\s\n\r]*,[\t\s\n\r]*/mi', $selector); - else - return array($selector); - } + // check if path is an absolute URL + if (preg_match('/^[fhtps]+:\/\//', $path)) + return $path; + // cut base_url to the last directory + if (strrpos($base_url, '/')>7) + { + $host_url = substr($base_url, 0, strpos($base_url, '/', 7)); + $base_url = substr($base_url, 0, strrpos($base_url, '/')); + } - // compare identical styles and make groups - function _build_groups() - { - // clear group array - $this->css_groups = array(); - $string_group_map = array(); + // $path is absolute + if ($path[0] == '/') + $abs_path = $host_url.$path; + else + { + // strip './' because its the same as '' + $path = preg_replace('/^\.\//', '', $path); - // bulild css string for each selector and check if the same is already defines - foreach ($this->css_data as $selector => $prop_arr) + if (preg_match_all('/\.\.\//', $path, $matches, PREG_SET_ORDER)) + foreach ($matches as $a_match) { - // make shure to compare props in the same order - ksort($prop_arr); - $compare_str = preg_replace('/[\s\t]+/', '', $this->_style2string($prop_arr, FALSE)); - - // add selector to extisting group - if (isset($string_group_map[$compare_str])) - { - $group_index = $string_group_map[$compare_str]; - $this->css_groups[$group_index]['selectors'][] = $selector; - } + if (strrpos($base_url, '/')) + $base_url = substr($base_url, 0, strrpos($base_url, '/')); - // create new group - else - { - $i = sizeof($this->css_groups); - $string_group_map[$compare_str] = $i; - $this->css_groups[$i] = array('selectors' => array($selector), - 'properties' => $this->css_data[$selector]); - } + $path = substr($path, 3); } - } - - - // convert the prop array into a valid css definition - function _style2string($prop_arr, $multiline=TRUE) - { - $out = ''; - $delm = $multiline ? "\n" : ''; - $spacer = $multiline ? ' ' : ''; - $indent = $multiline ? $this->indent_chars : ''; - - if (is_array($prop_arr)) - foreach ($prop_arr as $prop => $value) - if (strlen($value)) - $out .= sprintf('%s%s:%s%s;%s', - $indent, - $prop, - $spacer, - $value, - $delm); - - return $out; - } - - - // copy all properties inherited from superior styles to a specific selector - function _get_inherited_styles($selector, $loop=FALSE) - { - $css_props = $this->css_data[$selector] ? $this->css_data[$selector] : array(); - - // get styles from tag selector - if (preg_match('/(([a-z0-9]*)(\.[^\s]+)?)$/i', $selector, $regs)) - { - $sel = $regs[1]; - $tagname = $regs[2]; - $class = $regs[3]; - if ($sel && is_array($this->css_data[$sel])) - $css_props = $this->_merge_styles($this->css_data[$sel], $css_props); - - if ($class && is_array($this->css_data[$class])) - $css_props = $this->_merge_styles($this->css_data[$class], $css_props); - - if ($tagname && is_array($this->css_data[$tagname])) - $css_props = $this->_merge_styles($this->css_data[$tagname], $css_props); - } + $abs_path = $base_url.'/'.$path; + } - // analyse inheritance - if (strpos($selector, ' ')) - { - $a_hier = split(' ', $selector); - if (sizeof($a_hier)>1) - { - array_pop($a_hier); - $base_selector = join(' ', $a_hier); - - // call this method recursively - $new_props = $this->_get_inherited_styles($base_selector, TRUE); - $css_props = $this->_merge_styles($new_props, $css_props); + return $abs_path; +} + +/** + * Wrapper function for wordwrap + */ +function rc_wordwrap($string, $width=75, $break="\n", $cut=false) +{ + $para = explode($break, $string); + $string = ''; + while (count($para)) { + $line = array_shift($para); + if ($line[0] == '>') { + $string .= $line.$break; + continue; + } + $list = explode(' ', $line); + $len = 0; + while (count($list)) { + $line = array_shift($list); + $l = mb_strlen($line); + $newlen = $len + $l + ($len ? 1 : 0); + + if ($newlen <= $width) { + $string .= ($len ? ' ' : '').$line; + $len += (1 + $l); + } else { + if ($l > $width) { + if ($cut) { + $start = 0; + while ($l) { + $str = mb_substr($line, $start, $width); + $strlen = mb_strlen($str); + $string .= ($len ? $break : '').$str; + $start += $strlen; + $l -= $strlen; + $len = $strlen; + } + } else { + $string .= ($len ? $break : '').$line; + if (count($list)) $string .= $break; + $len = 0; + } + } else { + $string .= $break.$line; + $len = $l; } } - - // get body style - if (!$loop && is_array($this->css_data['body'])) - $css_props = $this->_merge_styles($this->css_data['body'], $css_props); - - return $css_props; - } - - - // merge two arrays with style properties together like a browser would do - function _merge_styles($one, $two) - { - // these properties are additive - foreach (array('text-decoration') as $prop) - if ($one[$prop] && $two[$prop]) - { - // if value contains 'none' it's ignored - if (strstr($one[$prop], 'none')) - continue; - else if (strstr($two[$prop], 'none')) - unset($two[$prop]); - - $a_values_one = split(' ', $one[$prop]); - $a_values_two = split(' ', $two[$prop]); - $two[$prop] = join(' ', array_unique(array_merge($a_values_one, $a_values_two))); - } - - return array_merge($one, $two); - } - - - // resolve file path - function _get_file_path($file) - { - if (!$this->base_path && $GLOBALS['CSS_PATH']) - $this->set_basepath($GLOBALS['CSS_PATH']); - - $base = ($file{0}=='/' || $file{0}=='.' || substr($file, 0, 7)=='http://') ? '' : - ($this->base_path ? $this->base_path.'/' : ''); - return $base.$file; } - + if (count($para)) $string .= $break; } - - - -class base_form_element + return $string; +} + +/** + * Read a specific HTTP request header + * + * @access static + * @param string $name Header name + * @return mixed Header value or null if not available + */ +function rc_request_header($name) +{ + if (function_exists('getallheaders')) { - var $uppertags = FALSE; - var $upperattribs = FALSE; - var $upperprops = FALSE; - var $newline = FALSE; - - var $attrib = array(); - - - // create string with attributes - function create_attrib_string($tagname='') - { - if (!sizeof($this->attrib)) - return ''; - - if ($this->name!='') - $this->attrib['name'] = $this->name; + $hdrs = array_change_key_case(getallheaders(), CASE_UPPER); + $key = strtoupper($name); + } + else + { + $key = 'HTTP_' . strtoupper(strtr($name, '-', '_')); + $hdrs = array_change_key_case($_SERVER, CASE_UPPER); + } - $attrib_arr = array(); - foreach ($this->attrib as $key => $value) - { - // don't output some internally used attributes - if (in_array($key, array('form', 'quicksearch'))) - continue; - - // skip if size if not numeric - if (($key=='size' && !is_numeric($value))) - continue; - - // skip empty eventhandlers - if ((strpos($key,'on')===0 && $value=='')) - continue; - - // encode textarea content - if ($key=='value') - $value = rep_specialchars_output($value, 'html', 'replace', FALSE); - - // attributes with no value - if (in_array($key, array('checked', 'multiple', 'disabled', 'selected'))) - { - if ($value) - $attrib_arr[] = $key; - } - // don't convert size of value attribute - else if ($key=='value') - $attrib_arr[] = sprintf('%s="%s"', $this->_conv_case($key, 'attrib'), $value, 'value'); - - // regular tag attributes - else - $attrib_arr[] = sprintf('%s="%s"', $this->_conv_case($key, 'attrib'), $this->_conv_case($value, 'value')); - } + return $hdrs[$key]; +} - return sizeof($attrib_arr) ? ' '.implode(' ', $attrib_arr) : ''; - } - - - // convert tags and attributes to upper-/lowercase - // $type can either be "tag" or "attrib" - function _conv_case($str, $type='attrib') - { - if ($type == 'tag') - return $this->uppertags ? strtoupper($str) : strtolower($str); - else if ($type == 'attrib') - return $this->upperattribs ? strtoupper($str) : strtolower($str); - else if ($type == 'value') - return $this->upperprops ? strtoupper($str) : strtolower($str); - } - } +/** + * Make sure the string ends with a slash + */ +function slashify($str) +{ + return unslashify($str).'/'; +} -class input_field extends base_form_element - { - var $type = 'text'; - - // PHP 5 constructor - function __construct($attrib=NULL) - { - if (is_array($attrib)) - $this->attrib = $attrib; - if ($attrib['type']) - $this->type = $attrib['type']; +/** + * Remove slash at the end of the string + */ +function unslashify($str) +{ + return preg_replace('/\/$/', '', $str); +} - if ($attrib['newline']) - $this->newline = TRUE; - } - // PHP 4 compatibility - function input_field($attrib=array()) - { - $this->__construct($attrib); - } +/** + * Delete all files within a folder + * + * @param string Path to directory + * @return boolean True on success, False if directory was not found + */ +function clear_directory($dir_path) +{ + $dir = @opendir($dir_path); + if(!$dir) return FALSE; - // compose input tag - function show($value=NULL, $attrib=NULL) - { - // overwrite object attributes - if (is_array($attrib)) - $this->attrib = array_merge($this->attrib, $attrib); - - // set value attribute - if ($value!==NULL) - $this->attrib['value'] = $value; - - $this->attrib['type'] = $this->type; - - // return final tag - return sprintf('<%s%s />%s', - $this->_conv_case('input', 'tag'), - $this->create_attrib_string(), - ($this->newline ? "\n" : "")); - } - } + while ($file = readdir($dir)) + if (strlen($file)>2) + unlink("$dir_path/$file"); + closedir($dir); + return TRUE; +} -class textfield extends input_field - { - var $type = 'text'; - } -class passwordfield extends input_field +/** + * Create a unix timestamp with a specified offset from now + * + * @param string String representation of the offset (e.g. 20min, 5h, 2days) + * @param int Factor to multiply with the offset + * @return int Unix timestamp + */ +function get_offset_time($offset_str, $factor=1) +{ + if (preg_match('/^([0-9]+)\s*([smhdw])/i', $offset_str, $regs)) { - var $type = 'password'; + $amount = (int)$regs[1]; + $unit = strtolower($regs[2]); } - -class radiobutton extends input_field + else { - var $type = 'radio'; + $amount = (int)$offset_str; + $unit = 's'; } -class checkbox extends input_field + $ts = mktime(); + switch ($unit) { - var $type = 'checkbox'; - - - function show($value='', $attrib=NULL) - { - // overwrite object attributes - if (is_array($attrib)) - $this->attrib = array_merge($this->attrib, $attrib); - - $this->attrib['type'] = $this->type; - - if ($value && (string)$value==(string)$this->attrib['value']) - $this->attrib['checked'] = TRUE; - else - $this->attrib['checked'] = FALSE; - - // return final tag - return sprintf('<%s%s />%s', - $this->_conv_case('input', 'tag'), - $this->create_attrib_string(), - ($this->newline ? "\n" : "")); - } + case 'w': + $amount *= 7; + case 'd': + $amount *= 24; + case 'h': + $amount *= 60; + case 'm': + $amount *= 60; + case 's': + $ts += $amount * $factor; } + return $ts; +} + + +/** + * Truncate string if it is longer than the allowed length + * Replace the middle or the ending part of a string with a placeholder + * + * @param string Input string + * @param int Max. length + * @param string Replace removed chars with this + * @param bool Set to True if string should be truncated from the end + * @return string Abbreviated string + */ +function abbreviate_string($str, $maxlength, $place_holder='...', $ending=false) +{ + $length = mb_strlen($str); -class textarea extends base_form_element + if ($length > $maxlength) { - // PHP 5 constructor - function __construct($attrib=array()) - { - $this->attrib = $attrib; + if ($ending) + return mb_substr($str, 0, $maxlength) . $place_holder; - if ($attrib['newline']) - $this->newline = TRUE; - } - - // PHP 4 compatibility - function textarea($attrib=array()) - { - $this->__construct($attrib); - } - - function show($value='', $attrib=NULL) - { - // overwrite object attributes - if (is_array($attrib)) - $this->attrib = array_merge($this->attrib, $attrib); - - // take value attribute as content - if ($value=='') - $value = $this->attrib['value']; - - // make shure we don't print the value attribute - if (isset($this->attrib['value'])) - unset($this->attrib['value']); - - if (strlen($value)) - $value = rep_specialchars_output($value, 'html', 'replace', FALSE); - - // return final tag - return sprintf('<%s%s>%s%s', - $this->_conv_case('textarea', 'tag'), - $this->create_attrib_string(), - $value, - $this->_conv_case('textarea', 'tag'), - ($this->newline ? "\n" : "")); - } + $place_holder_length = mb_strlen($place_holder); + $first_part_length = floor(($maxlength - $place_holder_length)/2); + $second_starting_location = $length - $maxlength + $first_part_length + $place_holder_length; + $str = mb_substr($str, 0, $first_part_length) . $place_holder . mb_substr($str, $second_starting_location); } - -class hiddenfield extends base_form_element - { - var $fields_arr = array(); - var $newline = TRUE; - - // PHP 5 constructor - function __construct($attrib=NULL) - { - if (is_array($attrib)) - $this->add($attrib); - } - - // PHP 4 compatibility - function hiddenfield($attrib=NULL) - { - $this->__construct($attrib); - } - - // add a hidden field to this instance - function add($attrib) - { - $this->fields_arr[] = $attrib; - } - - - function show() - { - $out = ''; - foreach ($this->fields_arr as $attrib) - { - $this->attrib = $attrib; - $this->attrib['type'] = 'hidden'; - - $out .= sprintf('<%s%s />%s', - $this->_conv_case('input', 'tag'), - $this->create_attrib_string(), - ($this->newline ? "\n" : "")); - } - - return $out; + return $str; +} + + +/** + * A method to guess the mime_type of an attachment. + * + * @param string $path Path to the file. + * @param string $name File name (with suffix) + * @param string $failover Mime type supplied for failover. + * @param string $is_stream Set to True if $path contains file body + * + * @return string + * @author Till Klampaeckel + * @see http://de2.php.net/manual/en/ref.fileinfo.php + * @see http://de2.php.net/mime_content_type + */ +function rc_mime_content_type($path, $name, $failover = 'application/octet-stream', $is_stream=false) +{ + $mime_type = null; + $mime_magic = rcmail::get_instance()->config->get('mime_magic'); + $mime_ext = @include(RCMAIL_CONFIG_DIR . '/mimetypes.php'); + $suffix = $name ? substr($name, strrpos($name, '.')+1) : '*'; + + // use file name suffix with hard-coded mime-type map + if (is_array($mime_ext)) { + $mime_type = $mime_ext[$suffix]; + } + // try fileinfo extension if available + if (!$mime_type && function_exists('finfo_open')) { + if ($finfo = finfo_open(FILEINFO_MIME, $mime_magic)) { + if ($is_stream) + $mime_type = finfo_buffer($finfo, $path); + else + $mime_type = finfo_file($finfo, $path); + finfo_close($finfo); + } } + // try PHP's mime_content_type + if (!$mime_type && !$is_stream && function_exists('mime_content_type')) { + $mime_type = @mime_content_type($path); + } + // fall back to user-submitted string + if (!$mime_type) { + $mime_type = $failover; + } + else { + // Sometimes (PHP-5.3?) content-type contains charset definition, + // Remove it (#1487122) also "charset=binary" is useless + $mime_type = array_shift(preg_split('/[; ]/', $mime_type)); + } + + return $mime_type; +} + + +/** + * Detect image type of the given binary data by checking magic numbers + * + * @param string Binary file content + * @return string Detected mime-type or jpeg as fallback + */ +function rc_image_content_type($data) +{ + $type = 'jpeg'; + if (preg_match('/^\x89\x50\x4E\x47/', $data)) $type = 'png'; + else if (preg_match('/^\x47\x49\x46\x38/', $data)) $type = 'gif'; + else if (preg_match('/^\x00\x00\x01\x00/', $data)) $type = 'ico'; +// else if (preg_match('/^\xFF\xD8\xFF\xE0/', $data)) $type = 'jpeg'; + + return 'image/' . $type; +} + + +/** + * A method to guess encoding of a string. + * + * @param string $string String. + * @param string $failover Default result for failover. + * + * @return string + */ +function rc_detect_encoding($string, $failover='') +{ + if (!function_exists('mb_detect_encoding')) { + return $failover; + } + + // FIXME: the order is important, because sometimes + // iso string is detected as euc-jp and etc. + $enc = array( + 'UTF-8', 'SJIS', 'BIG5', 'GB2312', + 'ISO-8859-1', 'ISO-8859-2', 'ISO-8859-3', 'ISO-8859-4', + 'ISO-8859-5', 'ISO-8859-6', 'ISO-8859-7', 'ISO-8859-8', 'ISO-8859-9', + 'ISO-8859-10', 'ISO-8859-13', 'ISO-8859-14', 'ISO-8859-15', 'ISO-8859-16', + 'WINDOWS-1252', 'WINDOWS-1251', 'EUC-JP', 'EUC-TW', 'KOI8-R', + 'ISO-2022-KR', 'ISO-2022-JP' + ); + + $result = mb_detect_encoding($string, join(',', $enc)); + + return $result ? $result : $failover; +} + +/** + * Removes non-unicode characters from input + * + * @param mixed $input String or array. + * @return string + */ +function rc_utf8_clean($input) +{ + // handle input of type array + if (is_array($input)) { + foreach ($input as $idx => $val) + $input[$idx] = rc_utf8_clean($val); + return $input; } - -class select extends base_form_element - { - var $options = array(); - - /* - syntax: - ------- - // create instance. arguments are used to set attributes of select-tag - $select = new select(array('name' => 'fieldname')); - - // add one option - $select->add('Switzerland', 'CH'); - - // add multiple options - $select->add(array('Switzerland', 'Germany'), - array('CH', 'DE')); - - // add 10 blank options with 50 chars - // used to fill with javascript (necessary for 4.x browsers) - $select->add_blank(10, 50); - - // generate pulldown with selection 'Switzerland' and return html-code - // as second argument the same attributes available to instanciate can be used - print $select->show('CH'); - */ - - // PHP 5 constructor - function __construct($attrib=NULL) - { - if (is_array($attrib)) - $this->attrib = $attrib; - - if ($attrib['newline']) - $this->newline = TRUE; - } - - // PHP 4 compatibility - function select($attrib=NULL) - { - $this->__construct($attrib); - } - - - function add($names, $values=NULL) - { - if (is_array($names)) - { - foreach ($names as $i => $text) - $this->options[] = array('text' => $text, 'value' => (string)$values[$i]); - } - else - { - $this->options[] = array('text' => $names, 'value' => (string)$values); + if (!is_string($input) || $input == '') + return $input; + + // iconv/mbstring are much faster (especially with long strings) + if (function_exists('mb_convert_encoding') && ($res = mb_convert_encoding($input, 'UTF-8', 'UTF-8')) !== false) + return $res; + + if (function_exists('iconv') && ($res = @iconv('UTF-8', 'UTF-8//IGNORE', $input)) !== false) + return $res; + + $regexp = '/^('. +// '[\x00-\x7F]'. // UTF8-1 + '|[\xC2-\xDF][\x80-\xBF]'. // UTF8-2 + '|\xE0[\xA0-\xBF][\x80-\xBF]'. // UTF8-3 + '|[\xE1-\xEC][\x80-\xBF][\x80-\xBF]'. // UTF8-3 + '|\xED[\x80-\x9F][\x80-\xBF]'. // UTF8-3 + '|[\xEE-\xEF][\x80-\xBF][\x80-\xBF]'. // UTF8-3 + '|\xF0[\x90-\xBF][\x80-\xBF][\x80-\xBF]'. // UTF8-4 + '|[\xF1-\xF3][\x80-\xBF][\x80-\xBF][\x80-\xBF]'.// UTF8-4 + '|\xF4[\x80-\x8F][\x80-\xBF][\x80-\xBF]'. // UTF8-4 + ')$/'; + + $seq = ''; + $out = ''; + + for ($i = 0, $len = strlen($input); $i < $len; $i++) { + $chr = $input[$i]; + $ord = ord($chr); + // 1-byte character + if ($ord <= 0x7F) { + if ($seq) + $out .= preg_match($regexp, $seq) ? $seq : ''; + $seq = ''; + $out .= $chr; + // first (or second) byte of multibyte sequence + } else if ($ord >= 0xC0) { + if (strlen($seq)>1) { + $out .= preg_match($regexp, $seq) ? $seq : ''; + $seq = ''; + } else if ($seq && ord($seq) < 0xC0) { + $seq = ''; } + $seq .= $chr; + // next byte of multibyte sequence + } else if ($seq) { + $seq .= $chr; } + } - - function add_blank($nr, $width=0) - { - $text = $width ? str_repeat(' ', $width) : ''; - - for ($i=0; $i < $nr; $i++) - $this->options[] = array('text' => $text); - } - - - function show($select=array(), $attrib=NULL) - { - $options_str = "\n"; - $value_str = $this->_conv_case(' value="%s"', 'attrib'); - - if (!is_array($select)) - $select = array((string)$select); - - foreach ($this->options as $option) - { - $selected = ((strlen($option['value']) && in_array($option['value'], $select, TRUE)) || - (in_array($option['text'], $select, TRUE))) ? $this->_conv_case(' selected', 'attrib') : ''; - - $options_str .= sprintf("<%s%s%s>%s\n", - $this->_conv_case('option', 'tag'), - strlen($option['value']) ? sprintf($value_str, $option['value']) : '', - $selected, - rep_specialchars_output($option['text'], 'html', 'replace', FALSE), - $this->_conv_case('option', 'tag')); - } - - // return final tag - return sprintf('<%s%s>%s%s', - $this->_conv_case('select', 'tag'), - $this->create_attrib_string(), - $options_str, - $this->_conv_case('select', 'tag'), - ($this->newline ? "\n" : "")); + if ($seq) + $out .= preg_match($regexp, $seq) ? $seq : ''; + + return $out; +} + + +/** + * Convert a variable into a javascript object notation + * + * @param mixed Input value + * @return string Serialized JSON string + */ +function json_serialize($input) +{ + $input = rc_utf8_clean($input); + + // sometimes even using rc_utf8_clean() the input contains invalid UTF-8 sequences + // that's why we have @ here + return @json_encode($input); +} + + +/** + * Explode quoted string + * + * @param string Delimiter expression string for preg_match() + * @param string Input string + */ +function rcube_explode_quoted_string($delimiter, $string) +{ + $result = array(); + $strlen = strlen($string); + + for ($q=$p=$i=0; $i < $strlen; $i++) { + if ($string[$i] == "\"" && $string[$i-1] != "\\") { + $q = $q ? false : true; + } + else if (!$q && preg_match("/$delimiter/", $string[$i])) { + $result[] = substr($string, $p, $i - $p); + $p = $i + 1; } } + $result[] = substr($string, $p); + return $result; +} +/** + * Get all keys from array (recursive) + * + * @param array Input array + * @return array + */ +function array_keys_recursive($array) +{ + $keys = array(); -// ********* rcube schared functions ********* - - -// provide details about the client's browser -function rcube_browser() - { - $HTTP_USER_AGENT = $_SERVER['HTTP_USER_AGENT']; - - $bw['ver'] = 0; - $bw['win'] = stristr($HTTP_USER_AGENT, 'win'); - $bw['mac'] = stristr($HTTP_USER_AGENT, 'mac'); - $bw['linux'] = stristr($HTTP_USER_AGENT, 'linux'); - $bw['unix'] = stristr($HTTP_USER_AGENT, 'unix'); - - $bw['ns4'] = stristr($HTTP_USER_AGENT, 'mozilla/4') && !stristr($HTTP_USER_AGENT, 'msie'); - $bw['ns'] = ($bw['ns4'] || stristr($HTTP_USER_AGENT, 'netscape')); - $bw['ie'] = stristr($HTTP_USER_AGENT, 'msie'); - $bw['mz'] = stristr($HTTP_USER_AGENT, 'mozilla/5'); - $bw['opera'] = stristr($HTTP_USER_AGENT, 'opera'); - $bw['safari'] = stristr($HTTP_USER_AGENT, 'safari'); - - if($bw['ns']) - { - $test = eregi("mozilla\/([0-9\.]+)", $HTTP_USER_AGENT, $regs); - $bw['ver'] = $test ? (float)$regs[1] : 0; - } - if($bw['mz']) - { - $test = ereg("rv:([0-9\.]+)", $HTTP_USER_AGENT, $regs); - $bw['ver'] = $test ? (float)$regs[1] : 0; - } - if($bw['ie']) - { - $test = eregi("msie ([0-9\.]+)", $HTTP_USER_AGENT, $regs); - $bw['ver'] = $test ? (float)$regs[1] : 0; + if (!empty($array)) + foreach ($array as $key => $child) { + $keys[] = $key; + foreach (array_keys_recursive($child) as $val) + $keys[] = $val; } - if($bw['opera']) - { - $test = eregi("opera ([0-9\.]+)", $HTTP_USER_AGENT, $regs); - $bw['ver'] = $test ? (float)$regs[1] : 0; - } - - if(eregi(" ([a-z]{2})-([a-z]{2})", $HTTP_USER_AGENT, $regs)) - $bw['lang'] = $regs[1]; - else - $bw['lang'] = 'en'; - - $bw['dom'] = ($bw['mz'] || $bw['safari'] || ($bw['ie'] && $bw['ver']>=5) || ($bw['opera'] && $bw['ver']>=7)); - $bw['pngalpha'] = $bw['mz'] || $bw['safari'] || ($bw['ie'] && $bw['ver']>=5.5) || - ($bw['ie'] && $bw['ver']>=5 && $bw['mac']) || ($bw['opera'] && $bw['ver']>=7) ? TRUE : FALSE; - - return $bw; - } - + return $keys; +} -// get text in the desired language from the language file -function rcube_label($attrib) - { - global $sess_user_lang, $INSTALL_PATH, $OUTPUT; - static $sa_text_data, $s_language, $utf8_decode; - - // extract attributes - if (is_string($attrib)) - $attrib = array('name' => $attrib); - - $nr = is_numeric($attrib['nr']) ? $attrib['nr'] : 1; - $vars = isset($attrib['vars']) ? $attrib['vars'] : ''; - $command_name = strlen($attrib['command']) ? $attrib['command'] : NULL; - $alias = $attrib['name'] ? $attrib['name'] : ($command_name && $command_label_map[$command_name] ? $command_label_map[$command_name] : ''); +/** + * mbstring replacement functions + */ - - // load localized texts - if (!$sa_text_data || $s_language != $sess_user_lang) +if (!extension_loaded('mbstring')) +{ + function mb_strlen($str) { - $sa_text_data = array(); - - // get english labels (these should be complete) - @include($INSTALL_PATH.'program/localization/en_US/labels.inc'); - @include($INSTALL_PATH.'program/localization/en_US/messages.inc'); - - if (is_array($labels)) - $sa_text_data = $labels; - if (is_array($messages)) - $sa_text_data = array_merge($sa_text_data, $messages); - - // include user language files - if ($sess_user_lang!='en' && is_dir($INSTALL_PATH.'program/localization/'.$sess_user_lang)) - { - include_once($INSTALL_PATH.'program/localization/'.$sess_user_lang.'/labels.inc'); - include_once($INSTALL_PATH.'program/localization/'.$sess_user_lang.'/messages.inc'); - - if (is_array($labels)) - $sa_text_data = array_merge($sa_text_data, $labels); - if (is_array($messages)) - $sa_text_data = array_merge($sa_text_data, $messages); - } - - $s_language = $sess_user_lang; + return strlen($str); } - // text does not exist - if (!($text_item = $sa_text_data[$alias])) + function mb_strtolower($str) { - /* - raise_error(array('code' => 500, - 'type' => 'php', - 'line' => __LINE__, - 'file' => __FILE__, - 'message' => "Missing localized text for '$alias' in '$sess_user_lang'"), TRUE, FALSE); - */ - return "[$alias]"; + return strtolower($str); } - // make text item array - $a_text_item = is_array($text_item) ? $text_item : array('single' => $text_item); - - // decide which text to use - if ($nr==1) - $text = $a_text_item['single']; - else if ($nr>0) - $text = $a_text_item['multiple']; - else if ($nr==0) + function mb_strtoupper($str) { - if ($a_text_item['none']) - $text = $a_text_item['none']; - else if ($a_text_item['single']) - $text = $a_text_item['single']; - else if ($a_text_item['multiple']) - $text = $a_text_item['multiple']; + return strtoupper($str); } - // default text is single - if ($text=='') - $text = $a_text_item['single']; - - // replace vars in text - if (is_array($attrib['vars'])) + function mb_substr($str, $start, $len=null) { - foreach ($attrib['vars'] as $var_key=>$var_value) - $a_replace_vars[substr($var_key, 0, 1)=='$' ? substr($var_key, 1) : $var_key] = $var_value; + return substr($str, $start, $len); } - if ($a_replace_vars) - $text = preg_replace('/\${?([_a-z]{1}[_a-z0-9]*)}?/ei', '$a_replace_vars["\1"]', $text); - - // remove variables in text which were not available in arg $vars and $nr - eval("\$text = <<15 as ...e+... - $is_string = FALSE; - else - $is_string = TRUE; - } - - if ($is_string) - $value = "'".preg_replace("/(? 1024) - return sprintf('%d KB', round($numbytes/1024)); - else - return sprintf('%d B', $numbytes); - } +} +/** + * intl replacement functions + */ -// convert paths like ../xxx to an absolute path using a base url -function make_absolute_url($path, $base_url) +if (!function_exists('idn_to_utf8')) +{ + function idn_to_utf8($domain, $flags=null) { - $host_url = $base_url; - $abs_path = $path; + static $idn, $loaded; - // cut base_url to the last directory - if (strpos($base_url, '/')>7) - { - $host_url = substr($base_url, 0, strpos($base_url, '/')); - $base_url = substr($base_url, 0, strrpos($base_url, '/')); - } - - // $path is absolute - if ($path{0}=='/') - $abs_path = $host_url.$path; - else - { - // strip './' because its the same as '' - $path = preg_replace('/^\.\//', '', $path); - - if(preg_match_all('/\.\.\//', $path, $matches, PREG_SET_ORDER)) - foreach($matches as $a_match) - { - if (strrpos($base_url, '/')) - $base_url = substr($base_url, 0, strrpos($base_url, '/')); - - $path = substr($path, 3); - } + if (!$loaded) { + $idn = new Net_IDNA2(); + $loaded = true; + } - $abs_path = $base_url.'/'.$path; - } - - return $abs_path; + if ($idn && $domain && preg_match('/(^|\.)xn--/i', $domain)) { + try { + $domain = $idn->decode($domain); + } + catch (Exception $e) { + } + } + return $domain; } +} - -// replace the middle part of a string with ... -// if it is longer than the allowed length -function abbrevate_string($str, $maxlength, $place_holder='...') - { - $length = strlen($str); - $first_part_length = floor($maxlength/2) - strlen($place_holder); - - if ($length > $maxlength) +if (!function_exists('idn_to_ascii')) +{ + function idn_to_ascii($domain, $flags=null) { - $second_starting_location = $length - $maxlength + $first_part_length + 1; - $str = substr($str, 0, $first_part_length) . $place_holder . substr($str, $second_starting_location, $length); - } - - return $str; - } - - -// make sure the string ends with a slash -function slashify($str) - { - return unslashify($str).'/'; - } - - -// remove slash at the end of the string -function unslashify($str) - { - return preg_replace('/\/$/', '', $str); - } - - -// delete all files within a folder -function clear_directory($dir_path) - { - $dir = @opendir($dir_path); - if(!$dir) return FALSE; - - while ($file = readdir($dir)) - if (strlen($file)>2) - unlink("$dir_path/$file"); - - closedir($dir); - return TRUE; - } + static $idn, $loaded; + if (!$loaded) { + $idn = new Net_IDNA2(); + $loaded = true; + } -// create a unix timestamp with a specified offset from now -function get_offset_time($offset_str, $factor=1) - { - if (preg_match('/^([0-9]+)\s*([smhdw])/i', $offset_str, $regs)) - { - $amount = (int)$regs[1]; - $unit = strtolower($regs[2]); - } - else - { - $amount = (int)$offset_str; - $unit = 's'; - } - - $ts = mktime(); - switch ($unit) - { - case 'w': - $amount *= 7; - case 'd': - $amount *= 24; - case 'h': - $amount *= 60; - case 'h': - $amount *= 60; - case 's': - $ts += $amount * $factor; + if ($idn && $domain && preg_match('/[^\x20-\x7E]/', $domain)) { + try { + $domain = $idn->encode($domain); + } + catch (Exception $e) { + } + } + return $domain; } +} - return $ts; - } - - -?>