Strings with ) are not counted in mime_match_parenthesis()
[squirrelmail.git] / functions / strings.php
CommitLineData
59177427 1<?php
7ce342dc 2
d068c0ec 3 $strings_php = true;
4
3302d0d4 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) {
91f999f6 22 if (substr($haystack, -1) == $needle)
23 $haystack = substr($haystack, 0, strlen($haystack) - 1);
24
d29aac0e 25 if (strrpos($haystack, $needle)) {
d92b6f31 26 $pos = strrpos($haystack, $needle) + 1;
27 $data = substr($haystack, $pos, strlen($haystack));
28 } else {
29 $data = $haystack;
3302d0d4 30 }
d92b6f31 31 return $data;
3302d0d4 32 }
33
8beafbbc 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
8467bf00 47 // Wraps text at $wrap characters
d76f6440 48 function sqWordWrap($passed, $wrap) {
a8648d75 49 $passed = str_replace("&lt;", "<", $passed);
7aaa81fc 50 $passed = str_replace("&gt;", ">", $passed);
a8648d75 51
7aaa81fc 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;
8467bf00 58 $line = "";
d68a3926 59 if (count($words) > 1) {
7aaa81fc 60 while ($i++ < count($words)) {
d68a3926 61 while ($line_len < $wrap) {
62 $line = "$line$words[$i] ";
63 $i++;
7aaa81fc 64 $line_len = $line_len + strlen($words[$i]) + 1;
d68a3926 65 }
66 $line_len = strlen($words[$i])+1;
7aaa81fc 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;
d68a3926 75 } else {
7aaa81fc 76 /*
d68a3926 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 }
7aaa81fc 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]);
b8ea4ed6 90 }
b8ea4ed6 91 }
d68a3926 92 } else {
93 $line = $words[0];
e550d551 94 }
a8648d75 95
96 $line = str_replace(">", "&gt;", $line);
97 $line = str_replace("<", "&lt;", $line);
8467bf00 98 return $line;
e550d551 99 }
40ee9452 100
101 /** Returns an array of email addresses **/
102 function parseAddrs($text) {
7831268e 103 if (trim($text) == "") {
104 return;
105 }
40ee9452 106 $text = str_replace(" ", "", $text);
cf8758c7 107 $text = ereg_replace( '"[^"]*"', "", $text);
40ee9452 108 $text = str_replace(",", ";", $text);
109 $array = explode(";", $text);
901a2b44 110 for ($i = 0; $i < count ($array); $i++) {
111 $array[$i] = eregi_replace ("^.*[<]", "", $array[$i]);
112 $array[$i] = eregi_replace ("[>].*$", "", $array[$i]);
113 }
40ee9452 114 return $array;
115 }
116
117 /** Returns a line of comma separated email addresses from an array **/
118 function getLineOfAddrs($array) {
b676ba7e 119 if (is_array($array)) {
120 $to_line = implode(", ", $array);
121 $to_line = trim(ereg_replace(",,+", ",", $to_line));
122 } else {
123 $to_line = "";
40ee9452 124 }
125 return $to_line;
126 }
7ce342dc 127
17ce8467 128 function translateText($body, $wrap_at, $charset) {
9297917e 129 global $where, $what; // from searching
130
8442ac08 131 if (!isset($url_parser_php)) {
132 include "../functions/url_parser.php";
133 }
134
a8648d75 135 $body_ary = explode("\n", $body);
8442ac08 136 for ($i=0; $i < count($body_ary); $i++) {
a8648d75 137 $line = $body_ary[$i];
17ce8467 138 $line = charset_decode($charset, $line);
e2ef6f4b 139 $line = str_replace("\t", ' ', $line);
8442ac08 140
a37f3771 141 if (strlen($line) - 2 >= $wrap_at) {
d76f6440 142 $line = sqWordWrap($line, $wrap_at);
a37f3771 143 }
144
e2ef6f4b 145 $line = str_replace(' ', '&nbsp;', $line);
a8648d75 146 $line = nl2br($line);
147
e2ef6f4b 148 // Removed parseEmail and integrated it into parseUrl
149 // This line is no longer needed.
150 // $line = parseEmail ($line);
8442ac08 151 $line = parseUrl ($line);
e2ef6f4b 152
153 $test_line = str_replace('&nbsp;', '', $line);
154 if (strpos($test_line, '&gt;&gt;') === 0) {
8442ac08 155 $line = "<FONT COLOR=FF0000>$line</FONT>\n";
e2ef6f4b 156 } else if (strpos($test_line, '&gt;') === 0) {
8442ac08 157 $line = "<FONT COLOR=800000>$line</FONT>\n";
e2ef6f4b 158 }
159
160 if ($line)
161 {
162 $line = '<tt>' . $line . '</tt>';
163 }
164
165 $body_ary[$i] = $line . '<br>';
a8648d75 166 }
8442ac08 167 $body = implode("\n", $body_ary);
e2ef6f4b 168
8442ac08 169 return $body;
78509c54 170 }
171
7ce342dc 172 /* SquirrelMail version number -- DO NOT CHANGE */
e2ef6f4b 173 $version = "0.5";
d29aac0e 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(" ", "&nbsp;", $string);
190 }
191
192 function replace_escaped_spaces ($string) {
193 return str_replace("&nbsp;", " ", $string);
194 }
1195c340 195
196 function get_location () {
197 # This determines the location to forward to relative
7e343a7d 198 # to your server. If this doesnt work correctly for
1195c340 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 }
7aaa81fc 229
230 function sqStripSlashes($string) {
231 if (get_magic_quotes_gpc()) {
232 $string = stripslashes($string);
233 }
234 return $string;
235 }
52eefafc 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) {
298d4005 259 global $REMOTE_PORT, $REMOTE_ADDR, $UNIQUE_ID;
580e1793 260
261 // Entropy gathering
262 if (function_exists("crc32")) {
263 $seed1 = (double) microtime() * 1000000;
298d4005 264 $seed2 = md5($REMOTE_PORT . $REMOTE_ADDR . $UNIQUE_ID);
580e1793 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);
52eefafc 278
279 for ($i = 0; $i < $length; $i++) {
280 $pad .= chr(rand(0,255));
281 }
282
283 return $pad;
284 }
285
f79af863 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
b5afdff0 307 // Compare major version
f79af863 308 if($vmajor < $major) return false;
b5afdff0 309 if($vmajor > $major) return true;
310
311 // Major is the same. Compare minor
f79af863 312 if($vminor < $minor) return false;
b5afdff0 313 if($vminor > $minor) return true;
f79af863 314
b5afdff0 315 // Major and minor is the same as the required one.
f79af863 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
3302d0d4 330?>