X-Git-Url: https://vcs.fsf.org/?p=squirrelmail.git;a=blobdiff_plain;f=functions%2Fstrings.php;h=e3791452b162a76a37989529b6ef32d4210ed502;hp=348b62d75516995bd926ddd91e125d847046b725;hb=7fe09a30292a999b7710c89b4901e4f0ca1872ae;hpb=40ee94523e96a5023b4989bcba8fc244980c2129

diff --git a/functions/strings.php b/functions/strings.php
index 348b62d7..af51b987 100644
--- a/functions/strings.php
+++ b/functions/strings.php
@@ -1,80 +1,463 @@
-<?
-   //*************************************************************************
-   // Count the number of occurances of $needle are in $haystack.
-   //*************************************************************************
-   function countCharInString($haystack, $needle) {
-      $len = strlen($haystack);
-      for ($i = 0; $i < $len; $i++) {
-         if ($haystack[$i] == $needle)
-            $count++;
-      }
-      return $count;
-   }
+<?php
 
-   //*************************************************************************
-   // Read from the back of $haystack until $needle is found, or the begining
-   //    of the $haystack is reached.
-   //*************************************************************************
-   function readShortMailboxName($haystack, $needle) {
-      $len = strlen($haystack);
-      for ($i = $len - 1; ($i >= 0) && (!$found);$i--) {
-         $char = $haystack[$i];
-         if ($char == $needle)
-            $found = 1;
-         else
-            $data .= $char;
-      }
-      return strrev($data);
-   }
+/** 
+ * 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$
+ */
 
-   // Wraps text at $wrap characters
-   function wordWrap($passed, $wrap) {
-      $words = explode(" ", trim($passed));
-      $i = 0;
-      $line_len = strlen($words[$i])+1;
-      $line = "";
-      while ($i < count($words)) {
-         while ($line_len < $wrap) {
-            $line = "$line$words[$i]&nbsp;";
-            $i++;
-            $line_len = $line_len + strlen($words[$i])+1;
-         }
-         $line_len = strlen($words[$i])+1;
-         if ($line_len < $wrap) {
-            if ($i < count($words)) // don't <BR> the last line
-               $line = "$line<BR>";
-         } else {
-            $endline = $words[$i];
-            while ($line_len >= $wrap) {
-               $bigline = substr($endline, 0, $wrap);
-               $endline = substr($endline, $wrap, strlen($endline));
-               $line_len = strlen($endline);
-               $line = "$line$bigline<BR>";
-            }
-            $line = "$line$endline<BR>";
+
+/**
+ * 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, &#039 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++;
-         }
-      }
-      return $line;
-   }
+            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";
+        }
+    }
+}
 
-   /** Returns an array of email addresses **/
-   function parseAddrs($text) {
-      $text = str_replace(" ", "", $text);
-      $text = str_replace(",", ";", $text);
-      $array = explode(";", $text);
-      return $array;
-   }
+/**
+ * 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 );
+}
 
-   /** Returns a line of comma separated email addresses from an array **/
-   function getLineOfAddrs($array) {
-      $to_line = "";
-      for ($i = 0; $i < count($array); $i++) {
-         if ($to_line)
-            $to_line = "$to_line, $array[$i]";
-         else
-            $to_line = "$array[$i]";
+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 = '';
       }
-      return $to_line;
+    }
+    
+    $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>&nbsp;' . $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');
+}
+
+/** 
+* sm_print_r($some_variable, [$some_other_variable [, ...]]);
+* Debugging function - does the same as print_r, but makes sure special
+* characters are converted to htmlentities first.  This will allow
+* values like <some@email.address> to be displayed.
+* The output is wrapped in <pre> and </pre> tags.
+*/
+function sm_print_r() {
+    ob_start();  // Buffer output
+    foreach(func_get_args() as $var) {
+        print_r($var);
+        echo "\n";
+    }
+    $buffer = ob_get_contents(); // Grab the print_r output
+    ob_end_clean();  // Silently discard the output & stop buffering
+    print "<pre>";
+    print htmlentities($buffer);
+    print "</pre>";
+}
+
+$PHP_SELF = php_self();
+
 ?>