9d5490c98a
the comp_in_new works the same everywhere. In this new function, make sure that comp_in_new still works when JavaScript off. When JavaScript off, do not output all kinds of JavaScript functions which are never going to be called.
443 lines
12 KiB
PHP
443 lines
12 KiB
PHP
<?php
|
|
|
|
/**
|
|
* strings.php
|
|
*
|
|
* Copyright (c) 1999-2003 The SquirrelMail Project Team
|
|
* Licensed under the GNU GPL. For full terms see the file COPYING.
|
|
*
|
|
* This code provides various string manipulation functions that are
|
|
* used by the rest of the Squirrelmail code.
|
|
*
|
|
* $Id$
|
|
*/
|
|
|
|
|
|
/**
|
|
* SquirrelMail version number -- DO NOT CHANGE
|
|
*/
|
|
global $version;
|
|
$version = '1.5.0 [CVS]';
|
|
|
|
/**
|
|
* SquirrelMail internal version number -- DO NOT CHANGE
|
|
* $sm_internal_version = array (release, major, minor)
|
|
*/
|
|
global $SQM_INTERNAL_VERSION;
|
|
$SQM_INTERNAL_VERSION = array(1,5,0);
|
|
|
|
|
|
/**
|
|
* There can be a circular issue with includes, where the $version string is
|
|
* referenced by the include of global.php, etc. before it's defined.
|
|
* For that reason, bring in global.php AFTER we define the version strings.
|
|
*/
|
|
require_once(SM_PATH . 'functions/global.php');
|
|
|
|
/**
|
|
* Wraps text at $wrap characters
|
|
*
|
|
* Has a problem with special HTML characters, so call this before
|
|
* you do character translation.
|
|
*
|
|
* Specifically, ' comes up as 5 characters instead of 1.
|
|
* This should not add newlines to the end of lines.
|
|
*/
|
|
function sqWordWrap(&$line, $wrap) {
|
|
global $languages, $squirrelmail_language;
|
|
|
|
if (isset($languages[$squirrelmail_language]['XTRA_CODE']) &&
|
|
function_exists($languages[$squirrelmail_language]['XTRA_CODE'])) {
|
|
if (mb_detect_encoding($line) != 'ASCII') {
|
|
$line = $languages[$squirrelmail_language]['XTRA_CODE']('wordwrap', $line, $wrap);
|
|
return;
|
|
}
|
|
}
|
|
|
|
ereg("^([\t >]*)([^\t >].*)?$", $line, $regs);
|
|
$beginning_spaces = $regs[1];
|
|
if (isset($regs[2])) {
|
|
$words = explode(' ', $regs[2]);
|
|
} else {
|
|
$words = '';
|
|
}
|
|
|
|
$i = 0;
|
|
$line = $beginning_spaces;
|
|
|
|
while ($i < count($words)) {
|
|
/* Force one word to be on a line (minimum) */
|
|
$line .= $words[$i];
|
|
$line_len = strlen($beginning_spaces) + strlen($words[$i]) + 2;
|
|
if (isset($words[$i + 1]))
|
|
$line_len += strlen($words[$i + 1]);
|
|
$i ++;
|
|
|
|
/* Add more words (as long as they fit) */
|
|
while ($line_len < $wrap && $i < count($words)) {
|
|
$line .= ' ' . $words[$i];
|
|
$i++;
|
|
if (isset($words[$i]))
|
|
$line_len += strlen($words[$i]) + 1;
|
|
else
|
|
$line_len += 1;
|
|
}
|
|
|
|
/* Skip spaces if they are the first thing on a continued line */
|
|
while (!isset($words[$i]) && $i < count($words)) {
|
|
$i ++;
|
|
}
|
|
|
|
/* Go to the next line if we have more to process */
|
|
if ($i < count($words)) {
|
|
$line .= "\n";
|
|
}
|
|
}
|
|
}
|
|
|
|
/**
|
|
* Does the opposite of sqWordWrap()
|
|
*/
|
|
function sqUnWordWrap(&$body) {
|
|
global $squirrelmail_language;
|
|
|
|
if ($squirrelmail_language == 'ja_JP') {
|
|
return;
|
|
}
|
|
|
|
$lines = explode("\n", $body);
|
|
$body = '';
|
|
$PreviousSpaces = '';
|
|
$cnt = count($lines);
|
|
for ($i = 0; $i < $cnt; $i ++) {
|
|
preg_match("/^([\t >]*)([^\t >].*)?$/", $lines[$i], $regs);
|
|
$CurrentSpaces = $regs[1];
|
|
if (isset($regs[2])) {
|
|
$CurrentRest = $regs[2];
|
|
} else {
|
|
$CurrentRest = '';
|
|
}
|
|
|
|
if ($i == 0) {
|
|
$PreviousSpaces = $CurrentSpaces;
|
|
$body = $lines[$i];
|
|
} else if (($PreviousSpaces == $CurrentSpaces) /* Do the beginnings match */
|
|
&& (strlen($lines[$i - 1]) > 65) /* Over 65 characters long */
|
|
&& strlen($CurrentRest)) { /* and there's a line to continue with */
|
|
$body .= ' ' . $CurrentRest;
|
|
} else {
|
|
$body .= "\n" . $lines[$i];
|
|
$PreviousSpaces = $CurrentSpaces;
|
|
}
|
|
}
|
|
$body .= "\n";
|
|
}
|
|
|
|
/**
|
|
* If $haystack is a full mailbox name and $needle is the mailbox
|
|
* separator character, returns the last part of the mailbox name.
|
|
*/
|
|
function readShortMailboxName($haystack, $needle) {
|
|
|
|
if ($needle == '') {
|
|
$elem = $haystack;
|
|
} else {
|
|
$parts = explode($needle, $haystack);
|
|
$elem = array_pop($parts);
|
|
while ($elem == '' && count($parts)) {
|
|
$elem = array_pop($parts);
|
|
}
|
|
}
|
|
return( $elem );
|
|
}
|
|
|
|
function php_self () {
|
|
if ( sqgetGlobalVar('REQUEST_URI', $req_uri, SQ_SERVER) && !empty($req_uri) ) {
|
|
return $req_uri;
|
|
}
|
|
|
|
if ( sqgetGlobalVar('PHP_SELF', $php_self, SQ_SERVER) && !empty($php_self) ) {
|
|
return $php_self;
|
|
}
|
|
|
|
return '';
|
|
}
|
|
|
|
|
|
/**
|
|
* This determines the location to forward to relative to your server.
|
|
* If this doesnt work correctly for you (although it should), you can
|
|
* remove all this code except the last two lines, and change the header()
|
|
* function to look something like this, customized to the location of
|
|
* SquirrelMail on your server:
|
|
*
|
|
* http://www.myhost.com/squirrelmail/src/login.php
|
|
*/
|
|
function get_location () {
|
|
|
|
global $imap_server_type;
|
|
|
|
/* Get the path, handle virtual directories */
|
|
$path = substr(php_self(), 0, strrpos(php_self(), '/'));
|
|
|
|
if ( sqgetGlobalVar('sq_base_url', $full_url, SQ_SESSION) ) {
|
|
return $full_url . $path;
|
|
}
|
|
|
|
/* Check if this is a HTTPS or regular HTTP request. */
|
|
$proto = 'http://';
|
|
|
|
/*
|
|
* If you have 'SSLOptions +StdEnvVars' in your apache config
|
|
* OR if you have HTTPS=on in your HTTP_SERVER_VARS
|
|
* OR if you are on port 443
|
|
*/
|
|
$getEnvVar = getenv('HTTPS');
|
|
if ((isset($getEnvVar) && !strcasecmp($getEnvVar, 'on')) ||
|
|
(sqgetGlobalVar('HTTPS', $https_on, SQ_SERVER) && !strcasecmp($https_on, 'on')) ||
|
|
(sqgetGlobalVar('SERVER_PORT', $server_port, SQ_SERVER) && $server_port == 443)) {
|
|
$proto = 'https://';
|
|
}
|
|
|
|
/* Get the hostname from the Host header or server config. */
|
|
if ( !sqgetGlobalVar('HTTP_HOST', $host, SQ_SERVER) || empty($host) ) {
|
|
if ( !sqgetGlobalVar('SERVER_NAME', $host, SQ_SERVER) || empty($host) ) {
|
|
$host = '';
|
|
}
|
|
}
|
|
|
|
$port = '';
|
|
if (! strstr($host, ':')) {
|
|
if (sqgetGlobalVar('SERVER_PORT', $server_port, SQ_SERVER)) {
|
|
if (($server_port != 80 && $proto == 'http://') ||
|
|
($server_port != 443 && $proto == 'https://')) {
|
|
$port = sprintf(':%d', $server_port);
|
|
}
|
|
}
|
|
}
|
|
|
|
/* this is a workaround for the weird macosx caching that
|
|
causes Apache to return 16080 as the port number, which causes
|
|
SM to bail */
|
|
|
|
if ($imap_server_type == 'macosx' && $port == ':16080') {
|
|
$port = '';
|
|
}
|
|
|
|
/* Fallback is to omit the server name and use a relative */
|
|
/* URI, although this is not RFC 2616 compliant. */
|
|
$full_url = ($host ? $proto . $host . $port : '');
|
|
sqsession_register($full_url, 'sq_base_url');
|
|
return $full_url . $path;
|
|
}
|
|
|
|
|
|
/**
|
|
* These functions are used to encrypt the passowrd before it is
|
|
* stored in a cookie.
|
|
*/
|
|
function OneTimePadEncrypt ($string, $epad) {
|
|
$pad = base64_decode($epad);
|
|
$encrypted = '';
|
|
for ($i = 0; $i < strlen ($string); $i++) {
|
|
$encrypted .= chr (ord($string[$i]) ^ ord($pad[$i]));
|
|
}
|
|
|
|
return base64_encode($encrypted);
|
|
}
|
|
|
|
function OneTimePadDecrypt ($string, $epad) {
|
|
$pad = base64_decode($epad);
|
|
$encrypted = base64_decode ($string);
|
|
$decrypted = '';
|
|
for ($i = 0; $i < strlen ($encrypted); $i++) {
|
|
$decrypted .= chr (ord($encrypted[$i]) ^ ord($pad[$i]));
|
|
}
|
|
|
|
return $decrypted;
|
|
}
|
|
|
|
|
|
/**
|
|
* Randomize the mt_rand() function. Toss this in strings or integers
|
|
* and it will seed the generator appropriately. With strings, it is
|
|
* better to get them long. Use md5() to lengthen smaller strings.
|
|
*/
|
|
function sq_mt_seed($Val) {
|
|
/* if mt_getrandmax() does not return a 2^n - 1 number,
|
|
this might not work well. This uses $Max as a bitmask. */
|
|
$Max = mt_getrandmax();
|
|
|
|
if (! is_int($Val)) {
|
|
$Val = crc32($Val);
|
|
}
|
|
|
|
if ($Val < 0) {
|
|
$Val *= -1;
|
|
}
|
|
|
|
if ($Val = 0) {
|
|
return;
|
|
}
|
|
|
|
mt_srand(($Val ^ mt_rand(0, $Max)) & $Max);
|
|
}
|
|
|
|
|
|
/**
|
|
* This function initializes the random number generator fairly well.
|
|
* It also only initializes it once, so you don't accidentally get
|
|
* the same 'random' numbers twice in one session.
|
|
*/
|
|
function sq_mt_randomize() {
|
|
static $randomized;
|
|
|
|
if ($randomized) {
|
|
return;
|
|
}
|
|
|
|
/* Global. */
|
|
sqgetGlobalVar('REMOTE_PORT', $remote_port, SQ_SERVER);
|
|
sqgetGlobalVar('REMOTE_ADDR', $remote_addr, SQ_SERVER);
|
|
sq_mt_seed((int)((double) microtime() * 1000000));
|
|
sq_mt_seed(md5($remote_port . $remote_addr . getmypid()));
|
|
|
|
/* getrusage */
|
|
if (function_exists('getrusage')) {
|
|
/* Avoid warnings with Win32 */
|
|
$dat = @getrusage();
|
|
if (isset($dat) && is_array($dat)) {
|
|
$Str = '';
|
|
foreach ($dat as $k => $v)
|
|
{
|
|
$Str .= $k . $v;
|
|
}
|
|
sq_mt_seed(md5($Str));
|
|
}
|
|
}
|
|
|
|
if(sqgetGlobalVar('UNIQUE_ID', $unique_id, SQ_SERVER)) {
|
|
sq_mt_seed(md5($unique_id));
|
|
}
|
|
|
|
$randomized = 1;
|
|
}
|
|
|
|
function OneTimePadCreate ($length=100) {
|
|
sq_mt_randomize();
|
|
|
|
$pad = '';
|
|
for ($i = 0; $i < $length; $i++) {
|
|
$pad .= chr(mt_rand(0,255));
|
|
}
|
|
|
|
return base64_encode($pad);
|
|
}
|
|
|
|
/**
|
|
* Returns a string showing the size of the message/attachment.
|
|
*/
|
|
function show_readable_size($bytes) {
|
|
$bytes /= 1024;
|
|
$type = 'k';
|
|
|
|
if ($bytes / 1024 > 1) {
|
|
$bytes /= 1024;
|
|
$type = 'M';
|
|
}
|
|
|
|
if ($bytes < 10) {
|
|
$bytes *= 10;
|
|
settype($bytes, 'integer');
|
|
$bytes /= 10;
|
|
} else {
|
|
settype($bytes, 'integer');
|
|
}
|
|
|
|
return $bytes . '<small> ' . $type . '</small>';
|
|
}
|
|
|
|
/**
|
|
* Generates a random string from the caracter set you pass in
|
|
*
|
|
* Flags:
|
|
* 1 = add lowercase a-z to $chars
|
|
* 2 = add uppercase A-Z to $chars
|
|
* 4 = add numbers 0-9 to $chars
|
|
*/
|
|
|
|
function GenerateRandomString($size, $chars, $flags = 0) {
|
|
if ($flags & 0x1) {
|
|
$chars .= 'abcdefghijklmnopqrstuvwxyz';
|
|
}
|
|
if ($flags & 0x2) {
|
|
$chars .= 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
|
|
}
|
|
if ($flags & 0x4) {
|
|
$chars .= '0123456789';
|
|
}
|
|
|
|
if (($size < 1) || (strlen($chars) < 1)) {
|
|
return '';
|
|
}
|
|
|
|
sq_mt_randomize(); /* Initialize the random number generator */
|
|
|
|
$String = '';
|
|
$j = strlen( $chars ) - 1;
|
|
while (strlen($String) < $size) {
|
|
$String .= $chars{mt_rand(0, $j)};
|
|
}
|
|
|
|
return $String;
|
|
}
|
|
|
|
function quoteimap($str) {
|
|
return ereg_replace('(["\\])', '\\\\1', $str);
|
|
}
|
|
|
|
/**
|
|
* Trims every element in the array
|
|
*/
|
|
function TrimArray(&$array) {
|
|
foreach ($array as $k => $v) {
|
|
global $$k;
|
|
if (is_array($$k)) {
|
|
foreach ($$k as $k2 => $v2) {
|
|
$$k[$k2] = substr($v2, 1);
|
|
}
|
|
} else {
|
|
$$k = substr($v, 1);
|
|
}
|
|
|
|
/* Re-assign back to array. */
|
|
$array[$k] = $$k;
|
|
}
|
|
}
|
|
|
|
/* returns a link to the compose-page, taking in consideration
|
|
* the compose_in_new and javascript settings. */
|
|
function makeComposeLink($url, $text = null)
|
|
{
|
|
global $compose_new_win,$javascript_on;
|
|
|
|
if(!$text) {
|
|
$text = _("Compose");
|
|
}
|
|
|
|
if($compose_new_win != '1') {
|
|
return makeInternalLink($url, $text, 'right');
|
|
}
|
|
|
|
/* if we can use JS, use the fancy window, else just open a new one HTML-style */
|
|
if($javascript_on) {
|
|
sqgetGlobalVar('base_uri', $base_uri, SQ_SESSION);
|
|
return '<a href="javascript:void(0)" onclick="comp_in_new(\''.$base_uri.$url.'\')">'. $text.'</a>';
|
|
}
|
|
|
|
return makeInternalLink($url, $text, '_blank');
|
|
}
|
|
|
|
$PHP_SELF = php_self();
|
|
|
|
?>
|