5 ** This contains functions that request information about a mailbox. Including
6 ** reading and parsing headers, getting folder information, etc.
10 function selectMailbox($imapConnection, $mailbox, &$numberOfMessages) {
12 fputs($imapConnection, "mailboxSelect SELECT \"$mailbox\"\n");
13 $read = fgets($imapConnection, 1024);
15 while ((substr($read, 0, 16) != "mailboxSelect OK") && (substr($read, 0, 17) != "mailboxSelect BAD")) {
16 if (substr(Chop($read), -6) == "EXISTS") {
17 $array = explode(" ", $read);
18 $numberOfMessages = $array[1];
20 $read = fgets($imapConnection, 1024);
24 function unseenMessages($imapConnection, &$numUnseen) {
25 fputs($imapConnection, "1 SEARCH UNSEEN NOT DELETED\n");
26 $read = fgets($imapConnection, 1024);
29 if (strlen($read) > 10) {
31 $ary = explode(" ", $read);
32 $numUnseen = count($ary) - 2;
39 $read = fgets($imapConnection, 1024);
43 /** This function sends a request to the IMAP server for headers, 50 at a time
44 ** until $end is reached. I originally had it do them all at one time, but found
45 ** it slightly faster to do it this way.
47 ** Originally we had getMessageHeaders get the headers for one message at a time.
48 ** Doing it in bunches gave us a speed increase from 9 seconds (for a box of 800
49 ** messages) to about 3.5 seconds.
51 function getMessageHeaders($imapConnection, $start, $end, &$from, &$subject, &$date) {
53 if (($start > $end) ||
($start < 1)) {
54 echo "Error in message header fetching. Start message: $start, End message: $end<BR>";
59 while ($rel_start <= $end) {
60 if ($end - $rel_start > 50) {
61 $rel_end = $rel_start +
49;
65 fputs($imapConnection, "messageFetch FETCH $rel_start:$rel_end RFC822.HEADER.LINES (From Subject Date To Cc)\n");
66 $read = fgets($imapConnection, 1024);
68 while ((substr($read, 0, 15) != "messageFetch OK") && (substr($read, 0, 16) != "messageFetch BAD")) {
70 if (substr($read, 0, 5) == "From:") {
71 $read = ereg_replace("<", "EMAILSTART--", $read);
72 $read = ereg_replace(">", "--EMAILEND", $read);
73 $from[$pos] = substr($read, 5, strlen($read) - 6);
75 else if (substr($read, 0, 5) == "Date:") {
76 $read = ereg_replace("<", "<", $read);
77 $read = ereg_replace(">", ">", $read);
78 $date[$pos] = substr($read, 5, strlen($read) - 6);
80 else if (substr($read, 0, 8) == "Subject:") {
81 $read = ereg_replace("<", "<", $read);
82 $read = ereg_replace(">", ">", $read);
83 $subject[$pos] = substr($read, 8, strlen($read) - 9);
84 if (strlen(Chop($subject[$pos])) == 0)
85 $subject[$pos] = "(no subject)";
87 else if (substr($read, 0, 1) == ")") {
88 if ($subject[$pos] == "")
89 $subject[$pos] = "(no subject)";
90 else if ($from[$pos] == "")
91 $from[$pos] = "(unknown sender)";
92 else if ($date[$pos] == "")
93 $from[$pos] = gettimeofday();
98 $read = fgets($imapConnection, 1024);
100 $rel_start = $rel_start +
50;
104 function setMessageFlag($imapConnection, $i, $q, $flag) {
105 fputs($imapConnection, "messageStore STORE $i:$q +FLAGS (\\$flag)\n");
108 /** This function gets the flags for message $j. It does only one message at a
109 ** time, rather than doing groups of messages (like getMessageHeaders does).
110 ** I found it one or two seconds quicker (on a box of 800 messages) to do it
111 ** individually. I'm not sure why it happens like that, but that's what my
112 ** testing found. Perhaps later I will be proven wrong and this will change.
114 function getMessageFlags($imapConnection, $j, &$flags) {
115 /** * 2 FETCH (FLAGS (\Answered \Seen)) */
116 fputs($imapConnection, "messageFetch FETCH $j:$j FLAGS\n");
117 $read = fgets($imapConnection, 1024);
119 while ((substr($read, 0, 15) != "messageFetch OK") && (substr($read, 0, 16) != "messageFetch BAD")) {
120 if (strpos($read, "FLAGS")) {
121 $read = ereg_replace("\(", "", $read);
122 $read = ereg_replace("\)", "", $read);
123 $read = substr($read, strpos($read, "FLAGS")+
6, strlen($read));
125 $flags = explode(" ", $read);;
127 while ($s < count($flags)) {
128 $flags[$s] = substr($flags[$s], 1, strlen($flags[$s]));
135 $read = fgets($imapConnection, 1024);
139 function decodeEmailAddr($sender) {
140 $emailAddr = getEmailAddr($sender);
141 if (strpos($emailAddr, "EMAILSTART--")) {
143 $emailAddr = ereg_replace("EMAILSTART--", "", $emailAddr);
144 $emailAddr = ereg_replace("--EMAILEND", "", $emailAddr);
146 $emailAddr = $emailAddr;
151 function getEmailAddr($sender) {
152 if (strpos($sender, "EMAILSTART--") == false)
155 $emailStart = strpos($sender, "EMAILSTART--") +
12;
156 $emailAddr = substr($sender, $emailStart, strlen($sender));
157 $emailAddr = substr($emailAddr, 0, strpos($emailAddr, "--EMAILEND"));
162 function getSender($sender) {
163 if (strpos($sender, "EMAILSTART--") == false)
166 $first = substr($sender, 0, strpos($sender, "EMAILSTART--"));
167 $second = substr($sender, strpos($sender, "--EMAILEND") +
10, strlen($sender));
168 return "$first $second";
171 function getSenderName($sender) {
172 $name = getSender($sender);
173 $emailAddr = getEmailAddr($sender);
174 $emailStart = strpos($emailAddr, "EMAILSTART--");
175 $emailEnd = strpos($emailAddr, "--EMAILEND") - 10;
177 if (($emailAddr == "") && ($name == "")) {
180 else if ((strstr($name, "?") != false) ||
(strstr($name, "$") != false) ||
(strstr($name, "%") != false)){
181 $emailAddr = ereg_replace("EMAILSTART--", "", $emailAddr);
182 $emailAddr = ereg_replace("--EMAILEND", "", $emailAddr);
185 else if (strlen($name) > 0) {
188 else if (strlen($emailAddr > 0)) {
189 $emailAddr = ereg_replace("EMAILSTART--", "", $emailAddr);
190 $emailAddr = ereg_replace("--EMAILEND", "", $emailAddr);
196 // strip out any quotes if they exist
197 if ((strlen($from) > 0) && ($from[0] == "\"") && ($from[strlen($from) - 1] == "\""))
198 $from = substr($from, 1, strlen($from) - 2);
203 /** returns "true" if the copy was completed successfully.
204 ** returns "false" with an error message if unsuccessful.
206 function copyMessages($imapConnection, $from_id, $to_id, $folder) {
207 fputs($imapConnection, "mailboxStore COPY $from_id:$to_id \"$folder\"\n");
208 $read = fgets($imapConnection, 1024);
209 while ((substr($read, 0, 15) != "mailboxStore OK") && (substr($read, 0, 15) != "mailboxStore NO")) {
210 $read = fgets($imapConnection, 1024);
213 if (substr($read, 0, 15) == "mailboxStore NO") {
215 } else if (substr($read, 0, 15) == "mailboxStore OK") {
219 echo "UNKNOWN ERROR copying messages $from_id to $to_id to folder $folder.<BR>";
223 /** expunges a mailbox **/
224 function expungeBox($imapConnection, $mailbox) {
225 selectMailbox($imapConnection, $mailbox, $num);
226 fputs($imapConnection, "1 EXPUNGE\n");
229 function getFolderNameMinusINBOX($mailbox) {
230 if (substr($mailbox, 0, 6) == "INBOX.")
231 $box = substr($mailbox, 6, strlen($mailbox));
238 /** This function gets all the information about a message. Including Header and body **/
239 function fetchMessage($imapConnection, $id) {
240 $message["HEADER"] = fetchHeader($imapConnection, $id);
241 $message["ENTITIES"] = fetchBody($imapConnection, $message["HEADER"]["BOUNDARY"], $id, $message["HEADER"]["TYPE"][0], $message["HEADER"]["TYPE"][1]);
246 function fetchHeader($imapConnection, $id) {
247 fputs($imapConnection, "messageFetch FETCH $id:$id RFC822.HEADER.LINES (From Subject Date To Cc Content-Type MIME-Version)\n");
248 $read = fgets($imapConnection, 1024);
250 /** defaults... if the don't get overwritten, it will display text **/
251 $header["TYPE"][0] = "text";
252 $header["TYPE"][1] = "plain";
253 while ((substr($read, 0, 15) != "messageFetch OK") && (substr($read, 0, 16) != "messageFetch BAD")) {
255 if (substr($read, 0, 17) == "MIME-Version: 1.0") {
256 $header["MIME"] = true;
257 $read = fgets($imapConnection, 1024);
260 else if (substr($read, 0, 13) == "Content-Type:") {
261 $cont = trim(substr($read, 13));
262 $cont = substr($cont, 0, strpos($cont, ";"));
263 $header["TYPE"][0] = substr($cont, 0, strpos($cont, "/"));
264 $header["TYPE"][1] = substr($cont, strpos($cont, "/")+
1);
266 $read = fgets($imapConnection, 1024);
267 if (substr(strtolower(trim($read)), 0, 9) == "boundary=") {
268 $bound = trim($read);
269 $bound = substr($bound, 9);
270 $bound = str_replace("\"", "", $bound);
271 $header["BOUNDARY"] = $bound;
272 $read = fgets($imapConnection, 1024);
276 else if (substr($read, 0, 5) == "From:") {
277 $header["FROM"] = trim(substr($read, 5, strlen($read) - 6));
278 $read = fgets($imapConnection, 1024);
281 else if (substr($read, 0, 5) == "Date:") {
282 $d = substr($read, 5, strlen($read) - 6);
284 $d = ereg_replace(" ", " ", $d);
285 $d = explode(" ", $d);
286 $header["DATE"] = getTimeStamp($d);
287 $read = fgets($imapConnection, 1024);
290 else if (substr($read, 0, 8) == "Subject:") {
291 $header["SUBJECT"] = trim(substr($read, 8, strlen($read) - 9));
292 if (strlen(Chop($header["SUBJECT"])) == 0)
293 $header["SUBJECT"] = "(no subject)";
294 $read = fgets($imapConnection, 1024);
297 else if (substr($read, 0, 3) == "CC:") {
299 $header["CC"][$pos] = trim(substr($read, 4));
300 $read = fgets($imapConnection, 1024);
301 while ((substr($read, 0, 1) == " ") && (trim($read) != "")) {
303 $header["CC"][$pos] = trim($read);
304 $read = fgets($imapConnection, 1024);
308 else if (substr($read, 0, 3) == "To:") {
310 $header["TO"][$pos] = trim(substr($read, 4));
311 $read = fgets($imapConnection, 1024);
312 while ((substr($read, 0, 1) == " ") && (trim($read) != "")){
314 $header["TO"][$pos] = trim($read);
315 $read = fgets($imapConnection, 1024);
319 /** ERROR CORRECTION **/
320 else if (substr($read, 0, 1) == ")") {
321 if ($header["SUBJECT"] == "")
322 $header["SUBJECT"] = "(no subject)";
324 if ($header["FROM"] == "")
325 $header["FROM"] = "(unknown sender)";
327 if ($header["DATE"] == "")
328 $header["DATE"] = time();
329 $read = fgets($imapConnection, 1024);
332 $read = fgets($imapConnection, 1024);
338 function fetchBody($imapConnection, $bound, $id, $type0, $type1) {
339 /** This first part reads in the full body of the message **/
340 fputs($imapConnection, "messageFetch FETCH $id:$id BODY[TEXT]\n");
341 $read = fgets($imapConnection, 1024);
344 while ((substr($read, 0, 15) != "messageFetch OK") && (substr($read, 0, 16) != "messageFetch BAD")) {
345 $body[$count] = $read;
348 $read = fgets($imapConnection, 1024);
351 /** this deletes the first line, and the last two (imap stuff we ignore) **/
354 while ($i < count($body)) {
355 if ( ($i != 0) && ($i != count($body) - 1) && ($i != count($body)) ) {
356 $bodytmp[$j] = $body[$i];
363 /** Now, lets work out the MIME stuff **/
364 /** (needs mime.php included) **/
365 return decodeMime($body, $bound, $type0, $type1);
368 function fetchEntityHeader($imapConnection, &$read, &$type0, &$type1, &$bound) {
369 /** defaults... if the don't get overwritten, it will display text **/
373 while (trim($read[$i]) != "") {
374 if (substr($read[$i], 0, 13) == "Content-Type:") {
375 $cont = trim(substr($read[$i], 13));
376 $cont = substr($cont, 0, strpos($cont, ";"));
377 $type0 = substr($cont, 0, strpos($cont, "/"));
378 $type1 = substr($cont, strpos($cont, "/")+
1);
380 if (substr(strtolower(trim($read[$i])), 0, 9) == "boundary=") {
381 $bound = trim($read[$i]);
382 $bound = substr($bound, 9);
383 $bound = str_replace("\"", "", $bound);
389 /** remove the header from the entity **/
391 while (trim($read[$i]) != "") {
396 for ($p = 0; $i < count($read); $p++
) {
397 $entity[$p] = $read[$i];
404 function parsePlainTextMessage($line) {
407 if ((strpos(strtolower($line), "<!") == false) &&
408 (strpos(strtolower($line), "<html>") == false) &&
409 (strpos(strtolower($line), "</html>") == false)) {
410 $line = str_replace("<", "<", $line);
411 $line = str_replace(">", ">", $line);
414 $wrap_at = 86; // Make this configurable int the config file some time
415 if (strlen($line) - 2 >= $wrap_at) // -2 because of the ^^ at the beginning
416 $line = wordWrap($line, $wrap_at);
418 $line = str_replace(" ", " ", $line);
419 $line = str_replace("\t", " ", $line);
421 /** if >> or > are found at the beginning of a line, I'll assume that was
422 replied text, so make it different colors **/
423 if (strpos(trim(str_replace(" ", "", $line)), ">>") == 2) {
424 $line = substr($line, 2, strlen($line));
425 $line = "<TT><FONT COLOR=FF0000>$line</FONT></TT><BR>\n";
426 } else if (strpos(trim(str_replace(" ", "", $line)), ">") == 2) {
427 $line = substr($line, 2, strlen($line));
428 $line = "<TT><FONT COLOR=800000>$line</FONT></TT><BR>\n";
430 $line = substr($line, 2, strlen($line));
431 $line = "<TT><FONT COLOR=000000>$line</FONT></TT><BR>\n";
434 /** This translates "http://" into a link. It could be made better to accept
435 "www" and "mailto" also. That should probably be added later. **/
436 if (strpos(strtolower($line), "http://") != false) {
437 $line = ereg_replace("<BR>", "", $line);
438 $start = strpos(strtolower($line), "http://");
439 $link = substr($line, $start, strlen($line));
441 if (strpos($link, " ")) {
442 $end = strpos($link, " ")-1;
444 else if (strpos($link, " ")) {
445 $end = strpos($link, " ")-1;
447 else if (strpos($link, "<")) {
448 $end = strpos($link, "<");
450 else if (strpos($link, ">")) {
451 $end = strpos($link, ">");
453 else if (strpos($link, "(")) {
454 $end = strpos($link, "(")-1;
456 else if (strpos($link, ")")) {
457 $end = strpos($link, ")")-1;
459 else if (strpos($link, "{")) {
460 $end = strpos($link, "{")-1;
462 else if (strpos($link, "}")) {
463 $end = strpos($link, "}")-1;
466 $end = strlen($link);
468 $link = substr($line, $start, $end);
469 $end = $end +
$start;
470 $before = substr($line, 0, $start);
471 $after = substr($line, $end, strlen($line));
473 $line = "$before<A HREF=\"$link\" TARGET=_top>$link</A>$after<BR>";