[squirrelmail.git] / functions / strings.php

<?php

   $strings_php = true;

   //*************************************************************************
   // 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;
   }

   //*************************************************************************
   // Read from the back of $haystack until $needle is found, or the begining
   //    of the $haystack is reached.
   //*************************************************************************
   function readShortMailboxName($haystack, $needle) {
      if (substr($haystack, -1) == $needle)
         $haystack = substr($haystack, 0, strlen($haystack) - 1);

      if (strrpos($haystack, $needle)) {
         $pos = strrpos($haystack, $needle) + 1;
         $data = substr($haystack, $pos, strlen($haystack));
      } else {
         $data = $haystack;
      }
      return $data;
   }

   // Searches for the next position in a string minus white space
   function next_pos_minus_white ($haystack, $pos) {
      while (substr($haystack, $pos, 1) == " " ||
             substr($haystack, $pos, 1) == "\t" ||
             substr($haystack, $pos, 1) == "\n" ||
             substr($haystack, $pos, 1) == "\r") {
         if ($pos >= strlen($haystack))
            return -1;
         $pos++;
      }        
      return $pos;        
   }

   // Wraps text at $wrap characters
   function sqWordWrap($passed, $wrap) {
      $passed = str_replace("&lt;", "<", $passed);
      $passed = str_replace("&gt;", ">", $passed);

      preg_match("/^(\s|>)+/", $passed, $regs);
      $beginning_spaces = $regs[0];

      $words = explode(" ", $passed);
      $i = -1;
      $line_len = strlen($words[0])+1;
      $line = "";
      if (count($words) > 1) {   
         while ($i++ < count($words)) {
            while ($line_len < $wrap) {
               $line = "$line$words[$i] ";
               $i++;
               $line_len = $line_len + strlen($words[$i]) + 1;
            }
            $line_len = strlen($words[$i])+1;
            if ($line_len <= $wrap) {
               if (strlen($beginning_spaces) +2 >= $wrap)
                  $beginning_spaces = "";
               if ($i < count($words)) { // don't <BR> the last line
                  $line = "$line\n$beginning_spaces";
               }   
               $line = "$line$words[$i] ";
               $line_len = strlen($beginning_spaces) + strlen($words[$i]) + 1;
            } 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>";
               }
               */
               if (strlen($line) > $wrap)
                  $line = "$line\n$words[$i]";
               else
                  $line = "$line$words[$i]";
               $line_len = strlen($words[$i]);
            }
         }
      } else {
         $line = $words[0];
      }

      $line = str_replace(">", "&gt;", $line);
      $line = str_replace("<", "&lt;", $line);
      return $line;
   }

   /** Returns an array of email addresses **/
   function parseAddrs($text) {
      if (trim($text) == "") {
         return;
      }
      $text = str_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]);
		  }
      return $array;
   }

   /** Returns a line of comma separated email addresses from an array **/
   function getLineOfAddrs($array) {
      if (is_array($array)) {
        $to_line = implode(", ", $array);
        $to_line = trim(ereg_replace(",,+", ",", $to_line));
      } else {
        $to_line = "";
      }
      return $to_line;
   }

   function translateText($body, $wrap_at, $charset) {
      global $where, $what; // from searching

      if (!isset($url_parser_php)) {
         include "../functions/url_parser.php";
      }
      
      $body_ary = explode("\n", $body);
      for ($i=0; $i < count($body_ary); $i++) {
         $line = $body_ary[$i];
         $line = charset_decode($charset, $line);
         $line = str_replace("\t", '        ', $line);
         
         if (strlen($line) - 2 >= $wrap_at) {
            $line = sqWordWrap($line, $wrap_at);  
         }
         
         $line = str_replace(' ', '&nbsp;', $line);
         $line = nl2br($line);

         // Removed parseEmail and integrated it into parseUrl
         // This line is no longer needed.
         // $line = parseEmail ($line);
         $line = parseUrl ($line);
         
         $test_line = str_replace('&nbsp;', '', $line);
         if (strpos($test_line, '&gt;&gt;') === 0) {
            $line = "<FONT COLOR=FF0000>$line</FONT>\n";
         } else if (strpos($test_line, '&gt;') === 0) {
            $line = "<FONT COLOR=800000>$line</FONT>\n";
         }

         if ($line)
         {
             $line = '<tt>' . $line . '</tt>';
         }

         $body_ary[$i] = $line . '<br>';
      }
      $body = implode("\n", $body_ary);
            
      return $body;
   }

   /* SquirrelMail version number -- DO NOT CHANGE */
   $version = "0.5";


   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;
   }

   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
      # 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
   
      global $PHP_SELF, $SERVER_NAME, $HTTPS, $HTTP_HOST;

      // Get the path
      $path = substr($PHP_SELF, 0, strrpos($PHP_SELF, '/'));
   
      // Check if this is a HTTPS or regular HTTP request
      $proto = "http://";
      if(isset($HTTPS) && $HTTPS == 'on' ) {
        $proto = "https://";
      }
   
      // Get the hostname from the Host header or server config.
      // Fallback is to omit the server name and use a relative URI,
      // although this is not RFC 2616 compliant.
      if(isset($HTTP_HOST) && !empty($HTTP_HOST)) {
        $location = $proto . $HTTP_HOST . $path;
      } else if(isset($SERVER_NAME) && !empty($SERVER_NAME)) {
        $location = $proto . $SERVER_NAME . $path;
      } else {
        $location = $path;
      }
      return $location;
   }   

   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.
   function OneTimePadEncrypt ($string, $pad) {
      for ($i = 0; $i < strlen ($string); $i++) {
	 $encrypted .= chr (ord($string[$i]) ^ ord($pad[$i]));
      }

      return base64_encode($encrypted);
   }

   function OneTimePadDecrypt ($string, $pad) {
      $encrypted = base64_decode ($string);
      
      for ($i = 0; $i < strlen ($encrypted); $i++) {
	 $decrypted .= chr (ord($encrypted[$i]) ^ ord($pad[$i]));
      }

      return $decrypted;
   }

   function OneTimePadCreate ($length=100) {
      global $REMOTE_PORT, $REMOTE_ADDR, $UNIQUE_ID;

      // Entropy gathering
      if (function_exists("crc32")) {
	 $seed1 = (double) microtime() * 1000000;
	 $seed2 = md5($REMOTE_PORT . $REMOTE_ADDR . $UNIQUE_ID);
	 if (function_exists("getrusage")) {
	    $dat = getrusage();
	    $seed3 = md5($dat["ru_nswap"].$dat["ru_majflt"].$dat["ru_utime.tv_sec"].$dat["ru_utime.tv_usec"].getmypid());
	 } else {
	    $seed3 = getmypid();
	 }

	 $seed = crc32($seed1)*1000000 + crc32($seed2)*10000 + crc32($seed3);
      } else {
	 $seed = (double) microtime() * 1000000;
      }

      srand ($seed);
      
      for ($i = 0; $i < $length; $i++) {
	 $pad .= chr(rand(0,255));
      }

      return $pad;
   }

   // Check if we have a required PHP-version. Return TRUE if we do,
   // or FALSE if we don't.
   // To check for 4.0.1, use sqCheckPHPVersion(4,0,1)
   // To check for 4.0b3, use sqCheckPHPVersion(4,0,-3)
   // Does not handle betas like 4.0.1b1 or development versions
   function sqCheckPHPVersion($major, $minor, $release) {

      $ver = phpversion();
      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));
      if($vrel[0] == "b" || $vrel[0] == "B") 
	 $vrel = - strval(substr($vrel, 1));
      if($vrel[0] == "r" || $vrel[0] == "R") 
	 $vrel = - strval(substr($vrel, 2))/10;
      
      // Compare major version
      if($vmajor < $major) return false;
      if($vmajor > $major) return true;

      // Major is the same. Compare minor
      if($vminor < $minor) return false;
      if($vminor > $minor) return true;
      
      // 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;
      } else if($vrel >= 0 && $release < 0){  // This is not beta, required is beta
	 return true;
      } else if($vrel < 0 && $release >= 0){  // This is beta, require not beta
	 return false;
      } else {                                // Both are beta
	 if($vrel > $release) return false;
      }
      
      return true;
   }

?>
Commit	Line	Data
	1	<?php
	2
	3	$strings_php = true;
	4
	5	//*************************************************************************
	6	// Count the number of occurances of $needle are in $haystack.
	7	//*************************************************************************
	8	function countCharInString($haystack, $needle) {
	9	$len = strlen($haystack);
	10	for ($i = 0; $i < $len; $i++) {
	11	if ($haystack[$i] == $needle)
	12	$count++;
	13	}
	14	return $count;
	15	}
	16
	17	//*************************************************************************
	18	// Read from the back of $haystack until $needle is found, or the begining
	19	// of the $haystack is reached.
	20	//*************************************************************************
	21	function readShortMailboxName($haystack, $needle) {
	22	if (substr($haystack, -1) == $needle)
	23	$haystack = substr($haystack, 0, strlen($haystack) - 1);
	24
	25	if (strrpos($haystack, $needle)) {
	26	$pos = strrpos($haystack, $needle) + 1;
	27	$data = substr($haystack, $pos, strlen($haystack));
	28	} else {
	29	$data = $haystack;
	30	}
	31	return $data;
	32	}
	33
	34	// Searches for the next position in a string minus white space
	35	function next_pos_minus_white ($haystack, $pos) {
	36	while (substr($haystack, $pos, 1) == " " \|\|
	37	substr($haystack, $pos, 1) == "\t" \|\|
	38	substr($haystack, $pos, 1) == "\n" \|\|
	39	substr($haystack, $pos, 1) == "\r") {
	40	if ($pos >= strlen($haystack))
	41	return -1;
	42	$pos++;
	43	}
	44	return $pos;
	45	}
	46
	47	// Wraps text at $wrap characters
	48	function sqWordWrap($passed, $wrap) {
	49	$passed = str_replace("<", "<", $passed);
	50	$passed = str_replace(">", ">", $passed);
	51
	52	preg_match("/^(\s\|>)+/", $passed, $regs);
	53	$beginning_spaces = $regs[0];
	54
	55	$words = explode(" ", $passed);
	56	$i = -1;
	57	$line_len = strlen($words[0])+1;
	58	$line = "";
	59	if (count($words) > 1) {
	60	while ($i++ < count($words)) {
	61	while ($line_len < $wrap) {
	62	$line = "$line$words[$i] ";
	63	$i++;
	64	$line_len = $line_len + strlen($words[$i]) + 1;
	65	}
	66	$line_len = strlen($words[$i])+1;
	67	if ($line_len <= $wrap) {
	68	if (strlen($beginning_spaces) +2 >= $wrap)
	69	$beginning_spaces = "";
	70	if ($i < count($words)) { // don't <BR> the last line
	71	$line = "$line\n$beginning_spaces";
	72	}
	73	$line = "$line$words[$i] ";
	74	$line_len = strlen($beginning_spaces) + strlen($words[$i]) + 1;
	75	} else {
	76	/*
	77	$endline = $words[$i];
	78	while ($line_len >= $wrap) {
	79	$bigline = substr($endline, 0, $wrap);
	80	$endline = substr($endline, $wrap, strlen($endline));
	81	$line_len = strlen($endline);
	82	$line = "$line$bigline<BR>";
	83	}
	84	*/
	85	if (strlen($line) > $wrap)
	86	$line = "$line\n$words[$i]";
	87	else
	88	$line = "$line$words[$i]";
	89	$line_len = strlen($words[$i]);
	90	}
	91	}
	92	} else {
	93	$line = $words[0];
	94	}
	95
	96	$line = str_replace(">", ">", $line);
	97	$line = str_replace("<", "<", $line);
	98	return $line;
	99	}
	100
	101	/ Returns an array of email addresses /
	102	function parseAddrs($text) {
	103	if (trim($text) == "") {
	104	return;
	105	}
	106	$text = str_replace(" ", "", $text);
	107	$text = ereg_replace( '"[^"]*"', "", $text);
	108	$text = str_replace(",", ";", $text);
	109	$array = explode(";", $text);
	110	for ($i = 0; $i < count ($array); $i++) {
	111	$array[$i] = eregi_replace ("^.*[<]", "", $array[$i]);
	112	$array[$i] = eregi_replace ("[>].*$", "", $array[$i]);
	113	}
	114	return $array;
	115	}
	116
	117	/ Returns a line of comma separated email addresses from an array /
	118	function getLineOfAddrs($array) {
	119	if (is_array($array)) {
	120	$to_line = implode(", ", $array);
	121	$to_line = trim(ereg_replace(",,+", ",", $to_line));
	122	} else {
	123	$to_line = "";
	124	}
	125	return $to_line;
	126	}
	127
	128	function translateText($body, $wrap_at, $charset) {
	129	global $where, $what; // from searching
	130
	131	if (!isset($url_parser_php)) {
	132	include "../functions/url_parser.php";
	133	}
	134
	135	$body_ary = explode("\n", $body);
	136	for ($i=0; $i < count($body_ary); $i++) {
	137	$line = $body_ary[$i];
	138	$line = charset_decode($charset, $line);
	139	$line = str_replace("\t", ' ', $line);
	140
	141	if (strlen($line) - 2 >= $wrap_at) {
	142	$line = sqWordWrap($line, $wrap_at);
	143	}
	144
	145	$line = str_replace(' ', ' ', $line);
	146	$line = nl2br($line);
	147
	148	// Removed parseEmail and integrated it into parseUrl
	149	// This line is no longer needed.
	150	// $line = parseEmail ($line);
	151	$line = parseUrl ($line);
	152
	153	$test_line = str_replace(' ', '', $line);
	154	if (strpos($test_line, '>>') === 0) {
	155	$line = "<FONT COLOR=FF0000>$line</FONT>\n";
	156	} else if (strpos($test_line, '>') === 0) {
	157	$line = "<FONT COLOR=800000>$line</FONT>\n";
	158	}
	159
	160	if ($line)
	161	{
	162	$line = '<tt>' . $line . '</tt>';
	163	}
	164
	165	$body_ary[$i] = $line . '<br>';
	166	}
	167	$body = implode("\n", $body_ary);
	168
	169	return $body;
	170	}
	171
	172	/* SquirrelMail version number -- DO NOT CHANGE */
	173	$version = "0.5";
	174
	175
	176	function find_mailbox_name ($mailbox) {
	177	$mailbox = trim($mailbox);
	178	if (substr($mailbox, strlen($mailbox)-1, strlen($mailbox)) == "\"") {
	179	$mailbox = substr($mailbox, 0, strlen($mailbox) - 1);
	180	$pos = strrpos ($mailbox, "\"")+1;
	181	$box = substr($mailbox, $pos);
	182	} else {
	183	$box = substr($mailbox, strrpos($mailbox, " ")+1, strlen($mailbox));
	184	}
	185	return $box;
	186	}
	187
	188	function replace_spaces ($string) {
	189	return str_replace(" ", " ", $string);
	190	}
	191
	192	function replace_escaped_spaces ($string) {
	193	return str_replace(" ", " ", $string);
	194	}
	195
	196	function get_location () {
	197	# This determines the location to forward to relative
	198	# to your server. If this doesnt work correctly for
	199	# you (although it should), you can remove all this
	200	# code except the last two lines, and change the header()
	201	# function to look something like this, customized to
	202	# the location of SquirrelMail on your server:
	203	#
	204	# http://www.myhost.com/squirrelmail/src/login.php
	205
	206	global $PHP_SELF, $SERVER_NAME, $HTTPS, $HTTP_HOST;
	207
	208	// Get the path
	209	$path = substr($PHP_SELF, 0, strrpos($PHP_SELF, '/'));
	210
	211	// Check if this is a HTTPS or regular HTTP request
	212	$proto = "http://";
	213	if(isset($HTTPS) && $HTTPS == 'on' ) {
	214	$proto = "https://";
	215	}
	216
	217	// Get the hostname from the Host header or server config.
	218	// Fallback is to omit the server name and use a relative URI,
	219	// although this is not RFC 2616 compliant.
	220	if(isset($HTTP_HOST) && !empty($HTTP_HOST)) {
	221	$location = $proto . $HTTP_HOST . $path;
	222	} else if(isset($SERVER_NAME) && !empty($SERVER_NAME)) {
	223	$location = $proto . $SERVER_NAME . $path;
	224	} else {
	225	$location = $path;
	226	}
	227	return $location;
	228	}
	229
	230	function sqStripSlashes($string) {
	231	if (get_magic_quotes_gpc()) {
	232	$string = stripslashes($string);
	233	}
	234	return $string;
	235	}
	236
	237
	238	// These functions are used to encrypt the passowrd before it is
	239	// stored in a cookie.
	240	function OneTimePadEncrypt ($string, $pad) {
	241	for ($i = 0; $i < strlen ($string); $i++) {
	242	$encrypted .= chr (ord($string[$i]) ^ ord($pad[$i]));
	243	}
	244
	245	return base64_encode($encrypted);
	246	}
	247
	248	function OneTimePadDecrypt ($string, $pad) {
	249	$encrypted = base64_decode ($string);
	250
	251	for ($i = 0; $i < strlen ($encrypted); $i++) {
	252	$decrypted .= chr (ord($encrypted[$i]) ^ ord($pad[$i]));
	253	}
	254
	255	return $decrypted;
	256	}
	257
	258	function OneTimePadCreate ($length=100) {
	259	global $REMOTE_PORT, $REMOTE_ADDR, $UNIQUE_ID;
	260
	261	// Entropy gathering
	262	if (function_exists("crc32")) {
	263	$seed1 = (double) microtime() * 1000000;
	264	$seed2 = md5($REMOTE_PORT . $REMOTE_ADDR . $UNIQUE_ID);
	265	if (function_exists("getrusage")) {
	266	$dat = getrusage();
	267	$seed3 = md5($dat["ru_nswap"].$dat["ru_majflt"].$dat["ru_utime.tv_sec"].$dat["ru_utime.tv_usec"].getmypid());
	268	} else {
	269	$seed3 = getmypid();
	270	}
	271
	272	$seed = crc32($seed1)1000000 + crc32($seed2)10000 + crc32($seed3);
	273	} else {
	274	$seed = (double) microtime() * 1000000;
	275	}
	276
	277	srand ($seed);
	278
	279	for ($i = 0; $i < $length; $i++) {
	280	$pad .= chr(rand(0,255));
	281	}
	282
	283	return $pad;
	284	}
	285
	286	// Check if we have a required PHP-version. Return TRUE if we do,
	287	// or FALSE if we don't.
	288	// To check for 4.0.1, use sqCheckPHPVersion(4,0,1)
	289	// To check for 4.0b3, use sqCheckPHPVersion(4,0,-3)
	290	// Does not handle betas like 4.0.1b1 or development versions
	291	function sqCheckPHPVersion($major, $minor, $release) {
	292
	293	$ver = phpversion();
	294	eregi("^([0-9]+)\.([0-9]+)(.*)", $ver, $regs);
	295
	296	// Parse the version string
	297	$vmajor = strval($regs[1]);
	298	$vminor = strval($regs[2]);
	299	$vrel = $regs[3];
	300	if($vrel[0] == ".")
	301	$vrel = strval(substr($vrel, 1));
	302	if($vrel[0] == "b" \|\| $vrel[0] == "B")
	303	$vrel = - strval(substr($vrel, 1));
	304	if($vrel[0] == "r" \|\| $vrel[0] == "R")
	305	$vrel = - strval(substr($vrel, 2))/10;
	306
	307	// Compare major version
	308	if($vmajor < $major) return false;
	309	if($vmajor > $major) return true;
	310
	311	// Major is the same. Compare minor
	312	if($vminor < $minor) return false;
	313	if($vminor > $minor) return true;
	314
	315	// Major and minor is the same as the required one.
	316	// Compare release
	317	if($vrel >= 0 && $release >= 0) { // Neither are beta
	318	if($vrel < $release) return false;
	319	} else if($vrel >= 0 && $release < 0){ // This is not beta, required is beta
	320	return true;
	321	} else if($vrel < 0 && $release >= 0){ // This is beta, require not beta
	322	return false;
	323	} else { // Both are beta
	324	if($vrel > $release) return false;
	325	}
	326
	327	return true;
	328	}
	329
	330	?>