+ /** This function gets all the information about a message. Including Header and body **/
+ function fetchMessage($imapConnection, $id) {
+ $message["HEADER"] = fetchHeader($imapConnection, $id);
+ $message["ENTITIES"] = fetchBody($imapConnection, $message["HEADER"]["BOUNDARY"], $id, $message["HEADER"]["TYPE0"], $message["HEADER"]["TYPE1"]);
+
+ return $message;
+ }
+
+ function fetchHeader($imapConnection, $id) {
+ fputs($imapConnection, "messageFetch FETCH $id:$id RFC822.HEADER.LINES (From Subject Date To Cc Content-Type MIME-Version)\n");
+ $read = fgets($imapConnection, 1024);
+
+ /** defaults... if the don't get overwritten, it will display text **/
+ $header["TYPE0"] = "text";
+ $header["TYPE1"] = "plain";
+ $header["ENCODING"] = "us-ascii";
+ while ((substr($read, 0, 15) != "messageFetch OK") && (substr($read, 0, 16) != "messageFetch BAD")) {
+ /** MIME-VERSION **/
+ if (substr($read, 0, 17) == "MIME-Version: 1.0") {
+ $header["MIME"] = true;
+ $read = fgets($imapConnection, 1024);
+ }
+
+ /** ENCODING TYPE **/
+ else if (substr($read[$i], 0, 26) == "Content-Transfer-Encoding:") {
+ $header["ENCODING"] = strtolower(trim(substr($read[$i], 26)));
+ }
+
+ /** CONTENT-TYPE **/
+ else if (substr($read, 0, 13) == "Content-Type:") {
+ $cont = strtolower(trim(substr($read, 13)));
+ if (strpos($cont, ";"))
+ $cont = substr($cont, 0, strpos($cont, ";"));
+ $header["TYPE0"] = substr($cont, 0, strpos($cont, "/"));
+ $header["TYPE1"] = substr($cont, strpos($cont, "/")+1);
+
+ $line = $read;
+ $read = fgets($imapConnection, 1024);
+ while ( (substr(substr($read, 0, strpos($read, " ")), -1) != ":") && (trim($read) != "") && (trim($read) != ")")) {
+ str_replace("\n", "", $line);
+ str_replace("\n", "", $read);
+ $line = "$line $read";
+ $read = fgets($imapConnection, 1024);
+ }
+
+ /** Detect the boundary of a multipart message **/
+ if (strpos(strtolower(trim($line)), "boundary=")) {
+ $pos = strpos($line, "boundary=") + 9;
+ $bound = trim($line);
+ if (strpos($line, " ", $pos) > 0) {
+ $bound = substr($bound, $pos, strpos($line, " ", $pos));
+ } else {
+ $bound = substr($bound, $pos);
+ }
+ $bound = str_replace("\"", "", $bound);
+ $header["BOUNDARY"] = $bound;
+ }
+
+ /** Detect the charset **/
+ if (strpos(strtolower(trim($line)), "charset=")) {
+ $pos = strpos($line, "charset=") + 8;
+ $charset = trim($line);
+ if (strpos($line, " ", $pos) > 0) {
+ $charset = substr($charset, $pos, strpos($line, " ", $pos));
+ } else {
+ $charset = substr($charset, $pos);
+ }
+ $charset = str_replace("\"", "", $charset);
+ $header["CHARSET"] = $charset;
+ } else {
+ $header["CHARSET"] = "us-ascii";
+ }
+
+ }
+ /** FROM **/
+ else if (substr($read, 0, 5) == "From:") {
+ $header["FROM"] = trim(substr($read, 5, strlen($read) - 6));
+ $read = fgets($imapConnection, 1024);
+ }
+ /** DATE **/
+ else if (substr($read, 0, 5) == "Date:") {
+ $d = substr($read, 5, strlen($read) - 6);
+ $d = trim($d);
+ $d = ereg_replace(" ", " ", $d);
+ $d = explode(" ", $d);
+ $header["DATE"] = getTimeStamp($d);
+ $read = fgets($imapConnection, 1024);
+ }
+ /** SUBJECT **/
+ else if (substr($read, 0, 8) == "Subject:") {
+ $header["SUBJECT"] = trim(substr($read, 8, strlen($read) - 9));
+ if (strlen(Chop($header["SUBJECT"])) == 0)
+ $header["SUBJECT"] = "(no subject)";
+ $read = fgets($imapConnection, 1024);
+ }
+ /** CC **/
+ else if (substr($read, 0, 3) == "CC:") {
+ $pos = 0;
+ $header["CC"][$pos] = trim(substr($read, 4));
+ $read = fgets($imapConnection, 1024);
+ while ((substr($read, 0, 1) == " ") && (trim($read) != "")) {
+ $pos++;
+ $header["CC"][$pos] = trim($read);
+ $read = fgets($imapConnection, 1024);
+ }
+ }
+ /** TO **/
+ else if (substr($read, 0, 3) == "To:") {
+ $pos = 0;
+ $header["TO"][$pos] = trim(substr($read, 4));
+ $read = fgets($imapConnection, 1024);
+ while ((substr($read, 0, 1) == " ") && (trim($read) != "")){
+ $pos++;
+ $header["TO"][$pos] = trim($read);
+ $read = fgets($imapConnection, 1024);
+ }
+ }
+
+ /** ERROR CORRECTION **/
+ else if (substr($read, 0, 1) == ")") {
+ if ($header["SUBJECT"] == "")
+ $header["SUBJECT"] = "(no subject)";
+
+ if ($header["FROM"] == "")
+ $header["FROM"] = "(unknown sender)";
+
+ if ($header["DATE"] == "")
+ $header["DATE"] = time();
+ $read = fgets($imapConnection, 1024);
+ }
+ else {
+ $read = fgets($imapConnection, 1024);
+ }
+ }
+ return $header;
+ }
+
+ function fetchBody($imapConnection, $bound, $id, $type0, $type1) {
+ /** This first part reads in the full body of the message **/
+ fputs($imapConnection, "messageFetch FETCH $id:$id BODY[TEXT]\n");
+ $read = fgets($imapConnection, 1024);
+
+ $count = 0;
+ while ((substr($read, 0, 15) != "messageFetch OK") && (substr($read, 0, 16) != "messageFetch BAD")) {
+ $body[$count] = $read;
+ $count++;
+
+ $read = fgets($imapConnection, 1024);
+ }
+
+ /** this deletes the first line, and the last two (imap stuff we ignore) **/
+ $i = 0;
+ $j = 0;
+ while ($i < count($body)) {
+ if ( ($i != 0) && ($i != count($body) - 1) && ($i != count($body)) ) {
+ $bodytmp[$j] = $body[$i];
+ $j++;
+ }
+ $i++;
+ }
+ $body = $bodytmp;
+
+ /** Now, lets work out the MIME stuff **/
+ /** (needs mime.php included) **/
+ return decodeMime($body, $bound, $type0, $type1);
+ }
+
+ function fetchEntityHeader($imapConnection, &$read, &$type0, &$type1, &$bound, &$encoding, &$charset) {
+ /** defaults... if the don't get overwritten, it will display text **/
+ $type0 = "text";
+ $type1 = "plain";
+ $encoding = "us-ascii";
+ $i = 0;
+ while (trim($read[$i]) != "") {
+ if (substr($read[$i], 0, 26) == "Content-Transfer-Encoding:") {
+ $encoding = strtolower(trim(substr($read[$i], 26)));
+
+ } else if (substr($read[$i], 0, 13) == "Content-Type:") {
+ $cont = strtolower(trim(substr($read[$i], 13)));
+ if (strpos($cont, ";"))
+ $cont = substr($cont, 0, strpos($cont, ";"));
+ $type0 = substr($cont, 0, strpos($cont, "/"));
+ $type1 = substr($cont, strpos($cont, "/")+1);
+
+ $line = $read[$i];
+ while ( (substr(substr($read[$i], 0, strpos($read[$i], " ")), -1) != ":") && (trim($read[$i]) != "") && (trim($read[$i]) != ")")) {
+ str_replace("\n", "", $line);
+ str_replace("\n", "", $read[$i]);
+ $line = "$line $read[$i]";
+ $i++;
+ }
+
+ /** Detect the boundary of a multipart message **/
+ if (strpos(strtolower(trim($line)), "boundary=")) {
+ $pos = strpos($line, "boundary=") + 9;
+ $bound = trim($line);
+ if (strpos($line, " ", $pos) > 0) {
+ $bound = substr($bound, $pos, strpos($line, " ", $pos));
+ } else {
+ $bound = substr($bound, $pos);
+ }
+ $bound = str_replace("\"", "", $bound);
+ }
+
+ /** Detect the charset **/
+ if (strpos(strtolower(trim($line)), "charset=")) {
+ $pos = strpos($line, "charset=") + 8;
+ $charset = trim($line);
+ if (strpos($line, " ", $pos) > 0) {
+ $charset = substr($charset, $pos, strpos($line, " ", $pos));
+ } else {
+ $charset = substr($charset, $pos);
+ }
+ $charset = str_replace("\"", "", $charset);
+ }
+ }
+ $i++;
+ }
+
+ /** remove the header from the entity **/
+ $i = 0;
+ while (trim($read[$i]) != "") {
+ $i++;
+ }
+ $i++;
+
+ for ($p = 0; $i < count($read); $p++) {
+ $entity[$p] = $read[$i];
+ $i++;
+ }
+
+ $read = $entity;
+ }
+
+ function parsePlainTextMessage($line) {
+ $line = "^^$line";
+
+ if ((strpos(strtolower($line), "<!") == false) &&
+ (strpos(strtolower($line), "<html>") == false) &&
+ (strpos(strtolower($line), "</html>") == false)) {
+ $line = str_replace("<", "<", $line);
+ $line = str_replace(">", ">", $line);
+ }
+
+ $wrap_at = 86; // Make this configurable int the config file some time
+ if (strlen($line) - 2 >= $wrap_at) // -2 because of the ^^ at the beginning
+ $line = wordWrap($line, $wrap_at);
+
+ $line = str_replace(" ", " ", $line);
+ $line = str_replace("\t", " ", $line);
+
+ /** if >> or > are found at the beginning of a line, I'll assume that was
+ replied text, so make it different colors **/
+ if (strpos(trim(str_replace(" ", "", $line)), ">>") == 2) {
+ $line = substr($line, 2, strlen($line));
+ $line = "<TT><FONT COLOR=FF0000>$line</FONT></TT><BR>\n";
+ } else if (strpos(trim(str_replace(" ", "", $line)), ">") == 2) {
+ $line = substr($line, 2, strlen($line));
+ $line = "<TT><FONT COLOR=800000>$line</FONT></TT><BR>\n";
+ } else {
+ $line = substr($line, 2, strlen($line));
+ $line = "<TT><FONT COLOR=000000>$line</FONT></TT><BR>\n";
+ }
+
+ /** This translates "http://" into a link. It could be made better to accept
+ "www" and "mailto" also. That should probably be added later. **/
+ if (strpos(strtolower($line), "http://") != false) {
+ $line = ereg_replace("<BR>", "", $line);
+ $start = strpos(strtolower($line), "http://");
+ $link = substr($line, $start, strlen($line));
+
+ if (strpos($link, " ")) {
+ $end = strpos($link, " ")-1;
+ }
+ else if (strpos($link, " ")) {
+ $end = strpos($link, " ")-1;
+ }
+ else if (strpos($link, "<")) {
+ $end = strpos($link, "<");
+ }
+ else if (strpos($link, ">")) {
+ $end = strpos($link, ">");
+ }
+ else if (strpos($link, "(")) {
+ $end = strpos($link, "(")-1;
+ }
+ else if (strpos($link, ")")) {
+ $end = strpos($link, ")")-1;
+ }
+ else if (strpos($link, "{")) {
+ $end = strpos($link, "{")-1;
+ }
+ else if (strpos($link, "}")) {
+ $end = strpos($link, "}")-1;
+ }
+ else
+ $end = strlen($link);
+
+ $link = substr($line, $start, $end);
+ $end = $end + $start;
+ $before = substr($line, 0, $start);
+ $after = substr($line, $end, strlen($line));
+
+ $line = "$before<A HREF=\"$link\" TARGET=_top>$link</A>$after<BR>";
+ }
+
+ return $line;
+ }