Converted main trunk to 1.1
[squirrelmail.git] / functions / strings.php
index 82e8d0146329b845393f04f467f24e409709f07c..67409c078d4dc1dc465347027f8fdfa33a8fcd8d 100644 (file)
@@ -3,13 +3,88 @@
    /* $Id$ */
 
    $strings_php = true;
+   $fix_form_endlines = false;
+   
+   // Remove all slashes for form values
+   if (get_magic_quotes_gpc())
+   {
+       global $REQUEST_METHOD;
+       if ($REQUEST_METHOD == "POST")
+       {
+           global $HTTP_POST_VARS;
+            RemoveSlashes($HTTP_POST_VARS);
+       }
+       elseif ($REQUEST_METHOD == "GET")
+       {
+           global $HTTP_GET_VARS;
+            RemoveSlashes($HTTP_GET_VARS);
+       }
+   }
+
+   // Auto-detection
+   //
+   // if $send (the form button's name) contains "\n" as the first char
+   // and the script is compose.php, then trim everything.  Otherwise,
+   // we don't have to worry.
+   global $send, $PHP_SELF;
+   if (isset($send) && substr($send, 0, 1) == "\n" &&
+       substr($PHP_SELF, -12) == "/compose.php")
+   {
+      if ($REQUEST_METHOD == "POST") {
+         TrimArray($HTTP_POST_VARS);
+      } else {
+         TrimArray($HTTP_GET_VARS);
+      }
+   }
+
+   //**************************************************************************
+   // 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);
+         }
+      }
+   }
+   
+   
+   //**************************************************************************
+   // Removes slashes from every element in the array
+   //**************************************************************************
+   function RemoveSlashes($array)
+   {
+       foreach ($array as $k => $v)
+       {
+           global $$k;
+            if (is_array($$k))
+            {
+                foreach ($$k as $k2 => $v2)
+                {
+                    $newArray[stripslashes($k2)] = stripslashes($v2);
+                }
+                $$k = $newArray;
+            }
+            else
+            {
+                $$k = stripslashes($v);
+            }
+       }
+   }
+
 
    //*************************************************************************
    // Count the number of occurances of $needle are in $haystack.
+   // $needle can be a character or string, and need not occur in $haystack
    //*************************************************************************
    function countCharInString($haystack, $needle) {
-      $haystack = ereg_replace("[^$needle]",'',$haystack);
-      return strlen($haystack);
+      if ($needle == '') return 0;
+      return count(explode($needle, $haystack));
    }
 
    //*************************************************************************
    //*************************************************************************
    function readShortMailboxName($haystack, $needle) {
       if ($needle == '') return $haystack;
-      if ($needle == '.') $needle = '\.';
-      ereg("([^$needle]+)$needle?$", $haystack, $regs);
-      return $regs[1];
+      $parts = explode($needle, $haystack);
+      $elem = array_pop($parts);
+      while ($elem == '' && count($parts))
+      {
+          $elem = array_pop($parts);
+      }
+      return $elem;
    }
 
    //*************************************************************************
    //    of the $haystack is reached.  $needle is a single character
    //*************************************************************************
    function readMailboxParent($haystack, $needle) {
-      if ($needle == '.') $needle = '\.';
-      ereg("^(.+)$needle([^$needle]+)$needle?$", $haystack, $regs);
-      return $regs[1];
+      if ($needle == '') return '';
+      $parts = explode($needle, $haystack);
+      $elem = array_pop($parts);
+      while ($elem == '' && count($parts))
+      {
+          $elem = array_pop($parts);
+      }
+      return join($needle, $parts);
    }
 
    // Searches for the next position in a string minus white space
    // Specifically, &#039 comes up as 5 characters instead of 1.
    // This should not add newlines to the end of lines.
    function sqWordWrap(&$line, $wrap) {
-      preg_match("/^([\s>]*)([^\s>].*)?$/", $line, $regs);
+      ereg("^([\t >]*)([^\t >].*)?$", $line, $regs);
       $beginning_spaces = $regs[1];
-      $words = explode(' ', $regs[2]);
+           if (isset($regs[2])) {
+         $words = explode(' ', $regs[2]);
+      } else {
+         $words = "";
+           }
 
       $i = 0;
       $line = $beginning_spaces;
          // 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]);
+          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]))
+             if (isset($words[$i]))
                 $line_len += strlen($words[$i]) + 1;
-           else
-               $line_len += 1;
+             else
+                 $line_len += 1;
          }
             
          // Skip spaces if they are the first thing on a continued line
 
          // Go to the next line if we have more to process            
          if ($i < count($words)) {
-            $line .= "\n$beginning_spaces";
+            $line .= "\n" . $beginning_spaces;
          }
       }
    }
        $PreviousSpaces = "";
        for ($i = 0; $i < count($lines); $i ++)
        {
-           preg_match("/^([\s>]*)([^\s>].*)?$/", $lines[$i], $regs);
+           ereg("^([\t >]*)([^\t >].*)?$", $lines[$i], $regs);
            $CurrentSpaces = $regs[1];
-          if (isset($regs[2]))
+            if (isset($regs[2]))
                $CurrentRest = $regs[2];
            if ($i == 0)
            {
          return array();
       $text = str_replace(' ', '', $text);
       $text = ereg_replace('"[^"]*"', '', $text);
-      $text = ereg_replace("\([^\)]*\)", '', $text);
+      $text = ereg_replace('\\([^\\)]*\\)', '', $text);
       $text = str_replace(',', ';', $text);
       $array = explode(';', $text);
       for ($i = 0; $i < count ($array); $i++) {
-                           $array[$i] = eregi_replace ("^.*[<]", '', $array[$i]);
-                           $array[$i] = eregi_replace ("[>].*$", '', $array[$i]);
-                 }
+                               $array[$i] = eregi_replace ("^.*[<]", '', $array[$i]);
+                               $array[$i] = eregi_replace ("[>].*$", '', $array[$i]);
+                    }
       return $array;
    }
 
    function getLineOfAddrs($array) {
       if (is_array($array)) {
         $to_line = implode(', ', $array);
-        $to_line = trim(ereg_replace(',,+', ',', $to_line));
+        $to_line = trim(ereg_replace(', (, )+', ', ', $to_line));
       } else {
         $to_line = '';
       }
 
    function translateText(&$body, $wrap_at, $charset) {
       global $where, $what; // from searching
-               global $url_parser_php;
+                  global $url_parser_php;
 
       if (!isset($url_parser_php)) {
          include '../functions/url_parser.php';
          }
          
          if ($Quotes > 1)
-            $line = '<FONT COLOR="FF0000">$line</FONT>';
+            $line = '<FONT COLOR="FF0000">'.$line.'</FONT>';
          elseif ($Quotes)
-            $line = '<FONT COLOR="800000">$line</FONT>';
+            $line = '<FONT COLOR="800000">'.$line.'</FONT>';
 
          $body_ary[$i] = $line;
       }
    }
 
    /* SquirrelMail version number -- DO NOT CHANGE */
-   $version = '1.0.1 [cvs]';
+   $version = '1.1.0 [cvs]';
 
 
    function find_mailbox_name ($mailbox) {
-/*
-      $mailbox = trim($mailbox);
-      if (substr($mailbox, strlen($mailbox)-1, strlen($mailbox)) == '"') {
-         $mailbox = substr($mailbox, 0, strlen($mailbox) - 1);
-         $pos = strrpos ($mailbox, '"')+1;
-         $box = substr($mailbox, $pos);
-      } else {
-         $box = substr($mailbox, strrpos($mailbox, ' ')+1, strlen($mailbox));
-      }
-      return $box;
-*/      
-
       if (ereg(" *\"([^\r\n\"]*)\"[ \r\n]*$", $mailbox, $regs))
           return $regs[1];
       ereg(" *([^ \r\n\"]*)[ \r\n]*$",$mailbox,$regs);
 
    }
 
+   // Depreciated.  :-)  I always wanted to say that.
    function replace_spaces ($string) {
       return str_replace(' ', '&nbsp;', $string);
    }
 
-   function replace_escaped_spaces ($string) {
-      return str_replace('&nbsp;', ' ', $string);
-   }
-
    function get_location () {
       # This determines the location to forward to relative
       # to your server.  If this doesnt work correctly for
       return $path;    
    }   
 
-   function sqStripSlashes($string) {
-      if (get_magic_quotes_gpc()) {
-         $string = stripslashes($string);
-      }
-      return $string;
-   }
-
 
    // These functions are used to encrypt the passowrd before it is
    // stored in a cookie.
       $pad = base64_decode($epad);
       $encrypted = '';
       for ($i = 0; $i < strlen ($string); $i++) {
-        $encrypted .= chr (ord($string[$i]) ^ ord($pad[$i]));
+          $encrypted .= chr (ord($string[$i]) ^ ord($pad[$i]));
       }
 
       return base64_encode($encrypted);
       $encrypted = base64_decode ($string);
       $decrypted = '';
       for ($i = 0; $i < strlen ($encrypted); $i++) {
-        $decrypted .= chr (ord($encrypted[$i]) ^ ord($pad[$i]));
+          $decrypted .= chr (ord($encrypted[$i]) ^ ord($pad[$i]));
       }
 
       return $decrypted;
       // getrusage
       if (function_exists('getrusage')) {
          $dat = getrusage();
-        $Str = '';
-        foreach ($dat as $k => $v)
-        {
-            $Str .= "$k = $v\n";
-        }
-        sq_mt_seed(md5($Str));
+          $Str = '';
+          foreach ($dat as $k => $v)
+          {
+              $Str .= $k . $v;
+          }
+          sq_mt_seed(md5($Str));
       }
       
       // Apache-specific
 
       $pad = '';
       for ($i = 0; $i < $length; $i++) {
-        $pad .= chr(mt_rand(0,255));
+          $pad .= chr(mt_rand(0,255));
       }
 
       return base64_encode($pad);
    function sqCheckPHPVersion($major, $minor, $release) {
 
       $ver = phpversion();
-      eregi("^([0-9]+)\.([0-9]+)(.*)", $ver, $regs);
+      eregi('^([0-9]+)\\.([0-9]+)(.*)', $ver, $regs);
 
       // Parse the version string
       $vmajor  = strval($regs[1]);
       $vminor  = strval($regs[2]);
       $vrel    = $regs[3];
       if($vrel[0] == ".") 
-        $vrel = strval(substr($vrel, 1));
+          $vrel = strval(substr($vrel, 1));
       if($vrel[0] == 'b' || $vrel[0] == 'B') 
-        $vrel = - strval(substr($vrel, 1));
+          $vrel = - strval(substr($vrel, 1));
       if($vrel[0] == 'r' || $vrel[0] == 'R') 
-        $vrel = - strval(substr($vrel, 2))/10;
+          $vrel = - strval(substr($vrel, 2))/10;
       
       // Compare major version
       if($vmajor < $major) return false;
       // Major and minor is the same as the required one.
       // Compare release
       if($vrel >= 0 && $release >= 0) {       // Neither are beta
-        if($vrel < $release) return false;
+          if($vrel < $release) return false;
       } else if($vrel >= 0 && $release < 0){  // This is not beta, required is beta
-        return true;
+          return true;
       } else if($vrel < 0 && $release >= 0){  // This is beta, require not beta
-        return false;
+          return false;
       } else {                                // Both are beta
-        if($vrel > $release) return false;
+          if($vrel > $release) return false;
       }
       
       return true;
           
       sq_mt_randomize(); // Initialize the random number generator
     
+      $String = "";
       while (strlen($String) < $size) {
          $String .= $chars[mt_rand(0, strlen($chars))];
       }
       return $String;
    }
 
-?>
\ No newline at end of file
+?>