| | |
| | | |
| | | |
| | | /** |
| | | * Provide details about the client's browser |
| | | * |
| | | * @return array Key-value pairs of browser properties |
| | | */ |
| | | 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($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; |
| | | } |
| | | |
| | | |
| | | /** |
| | | * Send HTTP headers to prevent caching this page |
| | | */ |
| | | function send_nocacheing_headers() |
| | |
| | | |
| | | header("Expires: ".gmdate("D, d M Y H:i:s")." GMT"); |
| | | header("Last-Modified: ".gmdate("D, d M Y H:i:s")." GMT"); |
| | | header("Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0"); |
| | | header("Cache-Control: private, must-revalidate, post-check=0, pre-check=0"); |
| | | header("Pragma: no-cache"); |
| | | |
| | | // We need to set the following headers to make downloads work using IE in HTTPS mode. |
| | | if (isset($_SERVER['HTTPS'])) { |
| | | header('Pragma: '); |
| | | header('Cache-Control: '); |
| | | } |
| | | } |
| | | |
| | | |
| | |
| | | |
| | | |
| | | /** |
| | | * Returns whether an $str is a reserved word for any of the version of Javascript or ECMAScript |
| | | * @param str String to check |
| | | * @return boolean True if $str is a reserver word, False if not |
| | | */ |
| | | function is_js_reserved_word($str) |
| | | { |
| | | return in_array($str, array( |
| | | // ECMASript ver 4 reserved words |
| | | 'as','break','case','catch','class','const','continue', |
| | | 'default','delete','do','else','export','extends','false','finally','for','function', |
| | | 'if','import','in','instanceof','is','namespace','new','null','package','private', |
| | | 'public','return','super','switch','this','throw','true','try','typeof','use','var', |
| | | 'void','while','with', |
| | | // ECMAScript ver 4 future reserved words |
| | | 'abstract','debugger','enum','goto','implements','interface','native','protected', |
| | | 'synchronized','throws','transient','volatile', |
| | | // special meaning in some contexts |
| | | 'get','set', |
| | | // were reserved in ECMAScript ver 3 |
| | | 'boolean','byte','char','double','final','float','int','long','short','static' |
| | | )); |
| | | } |
| | | |
| | | |
| | | /** |
| | | * Convert a variable into a javascript object notation |
| | | * |
| | | * @param mixed Input value |
| | |
| | | foreach ($var as $key => $value) |
| | | { |
| | | // enclose key with quotes if it is not variable-name conform |
| | | if (!ereg("^[_a-zA-Z]{1}[_a-zA-Z0-9]*$", $key) /* || is_js_reserved_word($key) */) |
| | | if (!preg_match('/^[_a-zA-Z]{1}[_a-zA-Z0-9]*$/', $key) || is_js_reserved_word($key)) |
| | | $key = "'$key'"; |
| | | |
| | | $pairs[] = sprintf("%s%s", $is_assoc ? "$key:" : '', json_serialize($value)); |
| | |
| | | return $brackets{0} . implode(',', $pairs) . $brackets{1}; |
| | | } |
| | | } |
| | | else if (is_numeric($var) && strval(intval($var)) === strval($var)) |
| | | else if (!is_string($var) && strval(intval($var)) === strval($var)) |
| | | return $var; |
| | | else if (is_bool($var)) |
| | | return $var ? '1' : '0'; |
| | |
| | | return "'".JQ($var)."'"; |
| | | |
| | | } |
| | | |
| | | |
| | | /** |
| | | * Function to convert an array to a javascript array |
| | |
| | | */ |
| | | function in_array_nocase($needle, $haystack) |
| | | { |
| | | $needle = rc_strtolower($needle); |
| | | foreach ($haystack as $value) |
| | | if (strtolower($needle)===strtolower($value)) |
| | | if ($needle===rc_strtolower($value)) |
| | | return true; |
| | | |
| | | return false; |
| | |
| | | * Parse a human readable string for a number of bytes |
| | | * |
| | | * @param string Input string |
| | | * @return int Number of bytes |
| | | * @return float Number of bytes |
| | | */ |
| | | function parse_bytes($str) |
| | | { |
| | | if (is_numeric($str)) |
| | | return intval($str); |
| | | return floatval($str); |
| | | |
| | | if (preg_match('/([0-9]+)([a-z])/i', $str, $regs)) |
| | | { |
| | |
| | | } |
| | | } |
| | | |
| | | return intval($bytes); |
| | | return floatval($bytes); |
| | | } |
| | | |
| | | /** |
| | |
| | | if ($bytes > 1073741824) |
| | | { |
| | | $gb = $bytes/1073741824; |
| | | $str = sprintf($gb>=10 ? "%d GB" : "%.1f GB", $gb); |
| | | $str = sprintf($gb>=10 ? "%d " : "%.1f ", $gb) . rcube_label('GB'); |
| | | } |
| | | else if ($bytes > 1048576) |
| | | { |
| | | $mb = $bytes/1048576; |
| | | $str = sprintf($mb>=10 ? "%d MB" : "%.1f MB", $mb); |
| | | $str = sprintf($mb>=10 ? "%d " : "%.1f ", $mb) . rcube_label('MB'); |
| | | } |
| | | else if ($bytes > 1024) |
| | | $str = sprintf("%d KB", round($bytes/1024)); |
| | | $str = sprintf("%d ", round($bytes/1024)) . rcube_label('KB'); |
| | | else |
| | | $str = sprintf('%d B', $bytes); |
| | | $str = sprintf('%d ', $bytes) . rcube_label('B'); |
| | | |
| | | return $str; |
| | | } |
| | |
| | | return $path; |
| | | |
| | | // cut base_url to the last directory |
| | | if (strpos($base_url, '/')>7) |
| | | if (strrpos($base_url, '/')>7) |
| | | { |
| | | $host_url = substr($base_url, 0, strpos($base_url, '/')); |
| | | $base_url = substr($base_url, 0, strrpos($base_url, '/')); |
| | |
| | | } |
| | | |
| | | /** |
| | | * Wrapper function for strtoupper |
| | | */ |
| | | function rc_strtoupper($str) |
| | | { |
| | | if (function_exists('mb_strtoupper')) |
| | | return mb_strtoupper($str); |
| | | else |
| | | return strtoupper($str); |
| | | } |
| | | |
| | | /** |
| | | * Wrapper function for substr |
| | | */ |
| | | function rc_substr($str, $start, $len=null) |
| | |
| | | return strrpos($haystack, $needle, $offset); |
| | | } |
| | | |
| | | /** |
| | | * Wrapper function for wordwrap |
| | | */ |
| | | function rc_wordwrap($string, $width=75, $break="\n", $cut=false) |
| | | { |
| | | if (!function_exists('mb_substr') || !function_exists('mb_strlen')) |
| | | return wordwrap($string, $width, $break, $cut); |
| | | |
| | | $para = explode($break, $string); |
| | | $string = ''; |
| | | while (count($para)) { |
| | | $list = explode(' ', array_shift($para)); |
| | | $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; |
| | | } |
| | | } |
| | | } |
| | | if (count($para)) $string .= $break; |
| | | } |
| | | return $string; |
| | | } |
| | | |
| | | /** |
| | | * Read a specific HTTP request header |
| | |
| | | * 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. |
| | | * |
| | | * @return string |
| | |
| | | * @see http://de2.php.net/manual/en/ref.fileinfo.php |
| | | * @see http://de2.php.net/mime_content_type |
| | | */ |
| | | function rc_mime_content_type($path, $failover = 'unknown/unknown') |
| | | function rc_mime_content_type($path, $name, $failover = 'application/octet-stream') |
| | | { |
| | | $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) : '*'; |
| | | |
| | | if (!extension_loaded('fileinfo')) { |
| | | @dl('fileinfo.' . PHP_SHLIB_SUFFIX); |
| | | // use file name suffix with hard-coded mime-type map |
| | | if (is_array($mime_ext)) { |
| | | $mime_type = $mime_ext[$suffix]; |
| | | } |
| | | |
| | | if (function_exists('finfo_open')) { |
| | | if ($finfo = finfo_open(FILEINFO_MIME, $mime_magic)) { |
| | | $mime_type = finfo_file($finfo, $path); |
| | | finfo_close($finfo); |
| | | // try fileinfo extension if available |
| | | if (!$mime_type) { |
| | | if (!extension_loaded('fileinfo')) { |
| | | @dl('fileinfo.' . PHP_SHLIB_SUFFIX); |
| | | } |
| | | if (function_exists('finfo_open')) { |
| | | if ($finfo = finfo_open(FILEINFO_MIME, $mime_magic)) { |
| | | $mime_type = finfo_file($finfo, $path); |
| | | finfo_close($finfo); |
| | | } |
| | | } |
| | | } |
| | | else if (function_exists('mime_content_type')) { |
| | | // try PHP's mime_content_type |
| | | if (!$mime_type && function_exists('mime_content_type')) { |
| | | $mime_type = mime_content_type($path); |
| | | } |
| | | |
| | | // fall back to user-submitted string |
| | | if (!$mime_type) { |
| | | $mime_type = $failover; |
| | | } |
| | |
| | | // FIXME: the order is important, because sometimes |
| | | // iso string is detected as euc-jp and etc. |
| | | $enc = array( |
| | | 'UTF-8', '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' |
| | | '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; |
| | | } |
| | | |
| | | |
| | | /** |
| | | * 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; |
| | | } |
| | | |
| | | ?> |