Added Tobias to list of translators
[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
48 function wordWrap($passed, $wrap) {
a8648d75 49 $passed = str_replace("&gt;", ">", $passed);
50 $passed = str_replace("&lt;", "<", $passed);
51
8467bf00 52 $words = explode(" ", trim($passed));
53 $i = 0;
54 $line_len = strlen($words[$i])+1;
55 $line = "";
56 while ($i < count($words)) {
57 while ($line_len < $wrap) {
a8648d75 58 $line = "$line$words[$i] ";
8467bf00 59 $i++;
60 $line_len = $line_len + strlen($words[$i])+1;
e550d551 61 }
8467bf00 62 $line_len = strlen($words[$i])+1;
b8ea4ed6 63 if ($line_len < $wrap) {
64 if ($i < count($words)) // don't <BR> the last line
a8648d75 65 $line = "$line\n";
b8ea4ed6 66 } else {
67 $endline = $words[$i];
68 while ($line_len >= $wrap) {
69 $bigline = substr($endline, 0, $wrap);
70 $endline = substr($endline, $wrap, strlen($endline));
71 $line_len = strlen($endline);
72 $line = "$line$bigline<BR>";
73 }
74 $line = "$line$endline<BR>";
75 $i++;
76 }
e550d551 77 }
a8648d75 78
79 $line = str_replace(">", "&gt;", $line);
80 $line = str_replace("<", "&lt;", $line);
8467bf00 81 return $line;
e550d551 82 }
40ee9452 83
84 /** Returns an array of email addresses **/
85 function parseAddrs($text) {
7831268e 86 if (trim($text) == "") {
87 return;
88 }
40ee9452 89 $text = str_replace(" ", "", $text);
cf8758c7 90 $text = ereg_replace( '"[^"]*"', "", $text);
40ee9452 91 $text = str_replace(",", ";", $text);
92 $array = explode(";", $text);
af9404d7 93 for ($i = 0; $i < count ($array); $i++) {
94 $array[$i] = eregi_replace ("^.*\<", "", $array[$i]);
95 $array[$i] = eregi_replace ("\>.*$", "", $array[$i]);
96 }
40ee9452 97 return $array;
98 }
99
100 /** Returns a line of comma separated email addresses from an array **/
101 function getLineOfAddrs($array) {
102 $to_line = "";
103 for ($i = 0; $i < count($array); $i++) {
104 if ($to_line)
105 $to_line = "$to_line, $array[$i]";
106 else
107 $to_line = "$array[$i]";
108 }
109 return $to_line;
110 }
7ce342dc 111
17ce8467 112 function translateText($body, $wrap_at, $charset) {
43fcef5c 113 include ("../functions/url_parser.php");
a8648d75 114 /** Add any parsing you want to in here */
a8648d75 115 $body_ary = explode("\n", $body);
116
117 for ($i = 0; $i < count($body_ary); $i++) {
118 $line = $body_ary[$i];
119 $line = "^^$line";
120
17ce8467 121 //$line = str_replace(">", "&gt;", $line);
122 //$line = str_replace("<", "&lt;", $line);
123 //$line = htmlspecialchars($line);
a8648d75 124
125 if (strlen($line) >= $wrap_at) // -2 because of the ^^ at the beginning
126 $line = wordWrap($line, $wrap_at);
127
17ce8467 128 $line = charset_decode($charset, $line);
129
a8648d75 130 $line = str_replace(" ", "&nbsp;", $line);
131 $line = str_replace("\t", "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;", $line);
132 $line = nl2br($line);
133
134 if (strpos(trim(str_replace("&nbsp;", "", $line)), "&gt;&gt;") == 2) {
135 $line = substr($line, 2, strlen($line));
136 $line = "<TT><FONT COLOR=FF0000>$line</FONT></TT><BR>\n";
137 } else if (strpos(trim(str_replace("&nbsp;", "", $line)), "&gt;") == 2) {
138 $line = substr($line, 2, strlen($line));
139 $line = "<TT><FONT COLOR=800000>$line</FONT></TT><BR>\n";
140 } else {
141 $line = substr($line, 2, strlen($line));
142 $line = "<TT><FONT COLOR=000000>$line</FONT></TT><BR>\n";
143 }
144
175e7218 145 $line = parseEmail ($line);
43fcef5c 146 $line = parseUrl ($line);
a8648d75 147 $new_body[$i] = "$line";
148 }
149 $bdy = implode("\n", $new_body);
150 return $bdy;
78509c54 151 }
152
7ce342dc 153 /* SquirrelMail version number -- DO NOT CHANGE */
cf59dc94 154 $version = "0.5pre1";
d29aac0e 155
156
157 function find_mailbox_name ($mailbox) {
158 $mailbox = trim($mailbox);
159 if (substr($mailbox, strlen($mailbox)-1, strlen($mailbox)) == "\"") {
160 $mailbox = substr($mailbox, 0, strlen($mailbox) - 1);
161 $pos = strrpos ($mailbox, "\"")+1;
162 $box = substr($mailbox, $pos);
163 } else {
164 $box = substr($mailbox, strrpos($mailbox, " ")+1, strlen($mailbox));
165 }
166 return $box;
167 }
168
169 function replace_spaces ($string) {
170 return str_replace(" ", "&nbsp;", $string);
171 }
172
173 function replace_escaped_spaces ($string) {
174 return str_replace("&nbsp;", " ", $string);
175 }
1195c340 176
177 function get_location () {
178 # This determines the location to forward to relative
179 # to your server. If this doesn't work correctly for
180 # you (although it should), you can remove all this
181 # code except the last two lines, and change the header()
182 # function to look something like this, customized to
183 # the location of SquirrelMail on your server:
184 #
185 # http://www.myhost.com/squirrelmail/src/login.php
186
187 global $PHP_SELF, $SERVER_NAME, $HTTPS, $HTTP_HOST;
188
189 // Get the path
190 $path = substr($PHP_SELF, 0, strrpos($PHP_SELF, '/'));
191
192 // Check if this is a HTTPS or regular HTTP request
193 $proto = "http://";
194 if(isset($HTTPS) && $HTTPS == 'on' ) {
195 $proto = "https://";
196 }
197
198 // Get the hostname from the Host header or server config.
199 // Fallback is to omit the server name and use a relative URI,
200 // although this is not RFC 2616 compliant.
201 if(isset($HTTP_HOST) && !empty($HTTP_HOST)) {
202 $location = $proto . $HTTP_HOST . $path;
203 } else if(isset($SERVER_NAME) && !empty($SERVER_NAME)) {
204 $location = $proto . $SERVER_NAME . $path;
205 } else {
206 $location = $path;
207 }
208 return $location;
209 }
3302d0d4 210?>