[squirrelmail.git] / functions / mailbox.php

<?
   /**
    **  mailbox.php
    **
    **  This contains functions that request information about a mailbox.  Including
    **  reading and parsing headers, getting folder information, etc.
    **
    **/

   function selectMailbox($imapConnection, $mailbox, &$numberOfMessages) {
      // select mailbox
      fputs($imapConnection, "mailboxSelect SELECT \"$mailbox\"\n");
      $data = imapReadData($imapConnection, "mailboxSelect");
      for ($i = 0; $i < count($data); $i++) {
         if (substr(Chop($data[$i]), -6) == "EXISTS") {
            $array = explode(" ", $data[$i]);
            $numberOfMessages = $array[1];
         }
      }
   }

   function unseenMessages($imapConnection, &$numUnseen) {
      fputs($imapConnection, "1 SEARCH UNSEEN NOT DELETED\n");
      $read = fgets($imapConnection, 1024);
      $unseen = false;

      if (strlen($read) > 10) {
         $unseen = true;
         $ary = explode(" ", $read);
         $numUnseen = count($ary) - 2;
      }
      else {
         $unseen = false;
         $numUnseen = 0;
      }

      $read = fgets($imapConnection, 1024);
      return $unseen;
   }

   /**  This function sends a request to the IMAP server for headers, 50 at a time
    **  until $end is reached.  I originally had it do them all at one time, but found
    **  it slightly faster to do it this way.
    **
    **  Originally we had getMessageHeaders get the headers for one message at a time.
    **  Doing it in bunches gave us a speed increase from 9 seconds (for a box of 800
    **  messages) to about 3.5 seconds.
    **/
   function getMessageHeaders($imapConnection, $start, $end, &$from, &$subject, &$date) {
      $rel_start = $start;
      if (($start > $end) || ($start < 1)) {
         echo "Error in message header fetching.  Start message: $start, End message: $end<BR>";
         exit;
      }

      $pos = 0;
      while ($rel_start <= $end) {
         if ($end - $rel_start > 50) {
            $rel_end = $rel_start + 49;
         } else {
            $rel_end = $end;
         }
         fputs($imapConnection, "messageFetch FETCH $rel_start:$rel_end RFC822.HEADER.LINES (From Subject Date To Cc)\n");
         $read = fgets($imapConnection, 1024);

         while ((substr($read, 0, 15) != "messageFetch OK") && (substr($read, 0, 16) != "messageFetch BAD")) {

            if (substr($read, 0, 5) == "From:") {
               $read = ereg_replace("<", "EMAILSTART--", $read);
               $read = ereg_replace(">", "--EMAILEND", $read);
               $from[$pos] = substr($read, 5, strlen($read) - 6);
            }
            else if (substr($read, 0, 5) == "Date:") {
               $read = ereg_replace("<", "&lt;", $read);
               $read = ereg_replace(">", "&gt;", $read);
               $date[$pos] = substr($read, 5, strlen($read) - 6);
            }
            else if (substr($read, 0, 8) == "Subject:") {
               $read = ereg_replace("<", "&lt;", $read);
               $read = ereg_replace(">", "&gt;", $read);
               $subject[$pos] = substr($read, 8, strlen($read) - 9);
               if (strlen(Chop($subject[$pos])) == 0)
                  $subject[$pos] = "(no subject)";
            }
            else if (substr($read, 0, 1) == ")") {
               if ($subject[$pos] == "")
                  $subject[$pos] = "(no subject)";
               else if ($from[$pos] == "")
                  $from[$pos] = "(unknown sender)";
               else if ($date[$pos] == "")
                  $from[$pos] = gettimeofday();

               $pos++;
            }

            $read = fgets($imapConnection, 1024);
         }
         $rel_start = $rel_start + 50;
      }
   }

   function setMessageFlag($imapConnection, $i, $q, $flag) {
      fputs($imapConnection, "messageStore STORE $i:$q +FLAGS (\\$flag)\n");
   }

   /**  This function gets the flags for message $j.  It does only one message at a
    **  time, rather than doing groups of messages (like getMessageHeaders does).
    **  I found it one or two seconds quicker (on a box of 800 messages) to do it
    **  individually.  I'm not sure why it happens like that, but that's what my
    **  testing found.  Perhaps later I will be proven wrong and this will change.
    **/
   function getMessageFlags($imapConnection, $j, &$flags) {
      /**   * 2 FETCH (FLAGS (\Answered \Seen))   */
      fputs($imapConnection, "messageFetch FETCH $j:$j FLAGS\n");
      $read = fgets($imapConnection, 1024);
      $count = 0;
      while ((substr($read, 0, 15) != "messageFetch OK") && (substr($read, 0, 16) != "messageFetch BAD")) {
         if (strpos($read, "FLAGS")) {
            $read = ereg_replace("\(", "", $read);
            $read = ereg_replace("\)", "", $read);
            $read = substr($read, strpos($read, "FLAGS")+6, strlen($read));
            $read = trim($read);
            $flags = explode(" ", $read);;
            $s = 0;
            while ($s < count($flags)) {
               $flags[$s] = substr($flags[$s], 1, strlen($flags[$s]));
               $s++;
            }
         } else {
            $flags[0] = "None";
         }
         $count++;
         $read = fgets($imapConnection, 1024);
      }
   }

   function decodeEmailAddr($sender) {
      $emailAddr = getEmailAddr($sender);
      if (strpos($emailAddr, "EMAILSTART--")) {

         $emailAddr = ereg_replace("EMAILSTART--", "", $emailAddr);
         $emailAddr = ereg_replace("--EMAILEND", "", $emailAddr);
      } else {
         $emailAddr = $emailAddr;
      }
      return $emailAddr;
   }

   function getEmailAddr($sender) {
      if (strpos($sender, "EMAILSTART--") == false)
         return "$sender";

      $emailStart = strpos($sender, "EMAILSTART--") + 12;
      $emailAddr = substr($sender, $emailStart, strlen($sender));
      $emailAddr = substr($emailAddr, 0, strpos($emailAddr, "--EMAILEND"));

      return $emailAddr;
   }

   function getSender($sender) {
      if (strpos($sender, "EMAILSTART--") == false)
         return "$sender";

      $first = substr($sender, 0, strpos($sender, "EMAILSTART--"));
      $second = substr($sender, strpos($sender, "--EMAILEND") +10, strlen($sender));
      return "$first $second";
   }

   function getSenderName($sender) {
      $name = getSender($sender);
      $emailAddr = getEmailAddr($sender);
      $emailStart = strpos($emailAddr, "EMAILSTART--");
      $emailEnd = strpos($emailAddr, "--EMAILEND") - 10;

      if (($emailAddr == "") && ($name == "")) {
         $from = $sender;
      }
      else if ((strstr($name, "?") != false) || (strstr($name, "$") != false) || (strstr($name, "%") != false)){
         $emailAddr = ereg_replace("EMAILSTART--", "", $emailAddr);
         $emailAddr = ereg_replace("--EMAILEND", "", $emailAddr);
         $from = $emailAddr;
      }
      else if (strlen($name) > 0) {
         $from = $name;
      }
      else if (strlen($emailAddr > 0)) {
         $emailAddr = ereg_replace("EMAILSTART--", "", $emailAddr);
         $emailAddr = ereg_replace("--EMAILEND", "", $emailAddr);
         $from = $emailAddr;
      }

      $from = trim($from);

      // strip out any quotes if they exist
      if ((strlen($from) > 0) && ($from[0] == "\"") && ($from[strlen($from) - 1] == "\""))
         $from = substr($from, 1, strlen($from) - 2);

      return $from;
   }

   /** returns "true" if the copy was completed successfully.
    ** returns "false" with an error message if unsuccessful.
    **/
   function copyMessages($imapConnection, $from_id, $to_id, $folder) {
      fputs($imapConnection, "mailboxStore COPY $from_id:$to_id \"$folder\"\n");
      $read = fgets($imapConnection, 1024);
      while ((substr($read, 0, 15) != "mailboxStore OK") && (substr($read, 0, 15) != "mailboxStore NO")) {
         $read = fgets($imapConnection, 1024);
      }

      if (substr($read, 0, 15) == "mailboxStore NO") {
         return false;
      } else if (substr($read, 0, 15) == "mailboxStore OK") {
         return true;
      }

      echo "UNKNOWN ERROR copying messages $from_id to $to_id to folder $folder.<BR>";
      return false;
   }

   /** expunges a mailbox **/
   function expungeBox($imapConnection, $mailbox) {
      selectMailbox($imapConnection, $mailbox, $num);
      fputs($imapConnection, "1 EXPUNGE\n");
   }

   function getFolderNameMinusINBOX($mailbox, $del) {
      $inbox = "INBOX" . $del;
      if (substr($mailbox, 0, strlen($inbox)) == $inbox)
         $box = substr($mailbox, strlen($inbox), strlen($mailbox));
      else
         $box = $mailbox;

      return $box;
   }

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

         }

         /** REPLY-TO **/
         else if (substr($read, 0, 9) == "Reply-To:") {
            $header["REPLYTO"] = trim(substr($read, 9, strlen($read)));
            $read = fgets($imapConnection, 1024);
         }

         /** FROM **/
         else if (substr($read, 0, 5) == "From:") {
            $header["FROM"] = trim(substr($read, 5, strlen($read) - 6));
            if ($header["REPLYTO"] == "")
               $header["REPLYTO"] = $header["FROM"];
            $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("<", "&lt;", $line);
         $line = str_replace(">", "&gt;", $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(" ", "&nbsp;", $line);
      $line = str_replace("\t", "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;", $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("&nbsp;", "", $line)), "&gt;&gt;") == 2) {
         $line = substr($line, 2, strlen($line));
         $line = "<TT><FONT COLOR=FF0000>$line</FONT></TT><BR>\n";
      } else if (strpos(trim(str_replace("&nbsp;", "", $line)), "&gt;") == 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, "&nbsp;")) {
            $end = strpos($link, "&nbsp;")-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;
   }
?>
Commit	Line	Data
3302d0d4	1	<?
3302d0d4	2	/**
a09387f4	3	** mailbox.php
3302d0d4	4	**
	5	** This contains functions that request information about a mailbox. Including
	6	** reading and parsing headers, getting folder information, etc.
	7	**
	8	**/
	9
	10	function selectMailbox($imapConnection, $mailbox, &$numberOfMessages) {
	11	// select mailbox
	12	fputs($imapConnection, "mailboxSelect SELECT \"$mailbox\"\n");
d92b6f31	13	$data = imapReadData($imapConnection, "mailboxSelect");
	14	for ($i = 0; $i < count($data); $i++) {
	15	if (substr(Chop($data[$i]), -6) == "EXISTS") {
	16	$array = explode(" ", $data[$i]);
3302d0d4	17	$numberOfMessages = $array[1];
3302d0d4	18	}
3302d0d4	19	}
	20	}
	21
ff89ac8a	22	function unseenMessages($imapConnection, &$numUnseen) {
	23	fputs($imapConnection, "1 SEARCH UNSEEN NOT DELETED\n");
	24	$read = fgets($imapConnection, 1024);
	25	$unseen = false;
	26
	27	if (strlen($read) > 10) {
	28	$unseen = true;
	29	$ary = explode(" ", $read);
	30	$numUnseen = count($ary) - 2;
	31	}
	32	else {
	33	$unseen = false;
	34	$numUnseen = 0;
	35	}
	36
	37	$read = fgets($imapConnection, 1024);
	38	return $unseen;
	39	}
	40
0e919368	41	/** This function sends a request to the IMAP server for headers, 50 at a time
	42	** until $end is reached. I originally had it do them all at one time, but found
	43	** it slightly faster to do it this way.
	44	**
	45	** Originally we had getMessageHeaders get the headers for one message at a time.
	46	** Doing it in bunches gave us a speed increase from 9 seconds (for a box of 800
	47	** messages) to about 3.5 seconds.
	48	**/
3e054c43	49	function getMessageHeaders($imapConnection, $start, $end, &$from, &$subject, &$date) {
3e054c43	50	$rel_start = $start;
3e054c43	51	if (($start > $end) \|\| ($start < 1)) {
	52	echo "Error in message header fetching. Start message: $start, End message: $end<BR>";
	53	exit;
	54	}
3302d0d4	55
e550d551	56	$pos = 0;
3e054c43	57	while ($rel_start <= $end) {
3e054c43	58	if ($end - $rel_start > 50) {
e550d551	59	$rel_end = $rel_start + 49;
3e054c43	60	} else {
	61	$rel_end = $end;
	62	}
aceb0d5c	63	fputs($imapConnection, "messageFetch FETCH $rel_start:$rel_end RFC822.HEADER.LINES (From Subject Date To Cc)\n");
3302d0d4	64	$read = fgets($imapConnection, 1024);
3e054c43	65
3e054c43	66	while ((substr($read, 0, 15) != "messageFetch OK") && (substr($read, 0, 16) != "messageFetch BAD")) {
e550d551	67
3e054c43	68	if (substr($read, 0, 5) == "From:") {
	69	$read = ereg_replace("<", "EMAILSTART--", $read);
	70	$read = ereg_replace(">", "--EMAILEND", $read);
e550d551	71	$from[$pos] = substr($read, 5, strlen($read) - 6);
3e054c43	72	}
3e054c43	73	else if (substr($read, 0, 5) == "Date:") {
df978e80	74	$read = ereg_replace("<", "<", $read);
df978e80	75	$read = ereg_replace(">", ">", $read);
e550d551	76	$date[$pos] = substr($read, 5, strlen($read) - 6);
3e054c43	77	}
3e054c43	78	else if (substr($read, 0, 8) == "Subject:") {
df978e80	79	$read = ereg_replace("<", "<", $read);
df978e80	80	$read = ereg_replace(">", ">", $read);
e550d551	81	$subject[$pos] = substr($read, 8, strlen($read) - 9);
	82	if (strlen(Chop($subject[$pos])) == 0)
	83	$subject[$pos] = "(no subject)";
	84	}
	85	else if (substr($read, 0, 1) == ")") {
	86	if ($subject[$pos] == "")
	87	$subject[$pos] = "(no subject)";
	88	else if ($from[$pos] == "")
	89	$from[$pos] = "(unknown sender)";
	90	else if ($date[$pos] == "")
	91	$from[$pos] = gettimeofday();
	92
	93	$pos++;
3e054c43	94	}
e550d551	95
3e054c43	96	$read = fgets($imapConnection, 1024);
	97	}
	98	$rel_start = $rel_start + 50;
3302d0d4	99	}
	100	}
	101
61a4ac35	102	function setMessageFlag($imapConnection, $i, $q, $flag) {
61a4ac35	103	fputs($imapConnection, "messageStore STORE $i:$q +FLAGS (\\$flag)\n");
aa4c3749	104	}
aa4c3749	105
0e919368	106	/** This function gets the flags for message $j. It does only one message at a
	107	** time, rather than doing groups of messages (like getMessageHeaders does).
	108	** I found it one or two seconds quicker (on a box of 800 messages) to do it
	109	** individually. I'm not sure why it happens like that, but that's what my
	110	** testing found. Perhaps later I will be proven wrong and this will change.
	111	**/
3e054c43	112	function getMessageFlags($imapConnection, $j, &$flags) {
3302d0d4	113	/** * 2 FETCH (FLAGS (\Answered \Seen)) */
3e054c43	114	fputs($imapConnection, "messageFetch FETCH $j:$j FLAGS\n");
aa4c3749	115	$read = fgets($imapConnection, 1024);
3e054c43	116	$count = 0;
3302d0d4	117	while ((substr($read, 0, 15) != "messageFetch OK") && (substr($read, 0, 16) != "messageFetch BAD")) {
	118	if (strpos($read, "FLAGS")) {
	119	$read = ereg_replace("\(", "", $read);
	120	$read = ereg_replace("\)", "", $read);
	121	$read = substr($read, strpos($read, "FLAGS")+6, strlen($read));
	122	$read = trim($read);
	123	$flags = explode(" ", $read);;
54a8ae32	124	$s = 0;
	125	while ($s < count($flags)) {
	126	$flags[$s] = substr($flags[$s], 1, strlen($flags[$s]));
	127	$s++;
3302d0d4	128	}
	129	} else {
	130	$flags[0] = "None";
	131	}
3e054c43	132	$count++;
3302d0d4	133	$read = fgets($imapConnection, 1024);
	134	}
	135	}
	136
31f3d7c0	137	function decodeEmailAddr($sender) {
31f3d7c0	138	$emailAddr = getEmailAddr($sender);
40884065	139	if (strpos($emailAddr, "EMAILSTART--")) {
31f3d7c0	140
40884065	141	$emailAddr = ereg_replace("EMAILSTART--", "", $emailAddr);
	142	$emailAddr = ereg_replace("--EMAILEND", "", $emailAddr);
	143	} else {
	144	$emailAddr = $emailAddr;
	145	}
31f3d7c0	146	return $emailAddr;
	147	}
	148
3302d0d4	149	function getEmailAddr($sender) {
3302d0d4	150	if (strpos($sender, "EMAILSTART--") == false)
40884065	151	return "$sender";
3302d0d4	152
40884065	153	$emailStart = strpos($sender, "EMAILSTART--") + 12;
	154	$emailAddr = substr($sender, $emailStart, strlen($sender));
	155	$emailAddr = substr($emailAddr, 0, strpos($emailAddr, "--EMAILEND"));
3302d0d4	156
	157	return $emailAddr;
	158	}
	159
	160	function getSender($sender) {
	161	if (strpos($sender, "EMAILSTART--") == false)
40884065	162	return "$sender";
3302d0d4	163
	164	$first = substr($sender, 0, strpos($sender, "EMAILSTART--"));
	165	$second = substr($sender, strpos($sender, "--EMAILEND") +10, strlen($sender));
40884065	166	return "$first $second";
3302d0d4	167	}
	168
	169	function getSenderName($sender) {
	170	$name = getSender($sender);
	171	$emailAddr = getEmailAddr($sender);
	172	$emailStart = strpos($emailAddr, "EMAILSTART--");
	173	$emailEnd = strpos($emailAddr, "--EMAILEND") - 10;
	174
	175	if (($emailAddr == "") && ($name == "")) {
	176	$from = $sender;
	177	}
	178	else if ((strstr($name, "?") != false) \|\| (strstr($name, "$") != false) \|\| (strstr($name, "%") != false)){
	179	$emailAddr = ereg_replace("EMAILSTART--", "", $emailAddr);
	180	$emailAddr = ereg_replace("--EMAILEND", "", $emailAddr);
	181	$from = $emailAddr;
	182	}
	183	else if (strlen($name) > 0) {
	184	$from = $name;
	185	}
	186	else if (strlen($emailAddr > 0)) {
	187	$emailAddr = ereg_replace("EMAILSTART--", "", $emailAddr);
	188	$emailAddr = ereg_replace("--EMAILEND", "", $emailAddr);
	189	$from = $emailAddr;
	190	}
	191
	192	$from = trim($from);
	193
	194	// strip out any quotes if they exist
	195	if ((strlen($from) > 0) && ($from[0] == "\"") && ($from[strlen($from) - 1] == "\""))
	196	$from = substr($from, 1, strlen($from) - 2);
	197
	198	return $from;
	199	}
aa4c3749	200
	201	/** returns "true" if the copy was completed successfully.
	202	** returns "false" with an error message if unsuccessful.
	203	**/
	204	function copyMessages($imapConnection, $from_id, $to_id, $folder) {
	205	fputs($imapConnection, "mailboxStore COPY $from_id:$to_id \"$folder\"\n");
	206	$read = fgets($imapConnection, 1024);
	207	while ((substr($read, 0, 15) != "mailboxStore OK") && (substr($read, 0, 15) != "mailboxStore NO")) {
	208	$read = fgets($imapConnection, 1024);
	209	}
	210
	211	if (substr($read, 0, 15) == "mailboxStore NO") {
aa4c3749	212	return false;
	213	} else if (substr($read, 0, 15) == "mailboxStore OK") {
	214	return true;
	215	}
	216
	217	echo "UNKNOWN ERROR copying messages $from_id to $to_id to folder $folder.<BR>";
	218	return false;
	219	}
61a4ac35	220
	221	/ expunges a mailbox /
	222	function expungeBox($imapConnection, $mailbox) {
	223	selectMailbox($imapConnection, $mailbox, $num);
	224	fputs($imapConnection, "1 EXPUNGE\n");
	225	}
8c7dfc99	226
d92b6f31	227	function getFolderNameMinusINBOX($mailbox, $del) {
	228	$inbox = "INBOX" . $del;
	229	if (substr($mailbox, 0, strlen($inbox)) == $inbox)
	230	$box = substr($mailbox, strlen($inbox), strlen($mailbox));
8c7dfc99	231	else
	232	$box = $mailbox;
	233
	234	return $box;
	235	}
05207a68	236
aceb0d5c	237	/ This function gets all the information about a message. Including Header and body /
	238	function fetchMessage($imapConnection, $id) {
	239	$message["HEADER"] = fetchHeader($imapConnection, $id);
d4467150	240	$message["ENTITIES"] = fetchBody($imapConnection, $message["HEADER"]["BOUNDARY"], $id, $message["HEADER"]["TYPE0"], $message["HEADER"]["TYPE1"]);
aceb0d5c	241
	242	return $message;
	243	}
	244
	245	function fetchHeader($imapConnection, $id) {
5c55c295	246	fputs($imapConnection, "messageFetch FETCH $id:$id RFC822.HEADER\n");
aceb0d5c	247	$read = fgets($imapConnection, 1024);
	248
	249	/ defaults... if the don't get overwritten, it will display text /
d4467150	250	$header["TYPE0"] = "text";
	251	$header["TYPE1"] = "plain";
	252	$header["ENCODING"] = "us-ascii";
aceb0d5c	253	while ((substr($read, 0, 15) != "messageFetch OK") && (substr($read, 0, 16) != "messageFetch BAD")) {
	254	/ MIME-VERSION /
	255	if (substr($read, 0, 17) == "MIME-Version: 1.0") {
	256	$header["MIME"] = true;
	257	$read = fgets($imapConnection, 1024);
	258	}
d4467150	259
	260	/ ENCODING TYPE /
	261	else if (substr($read[$i], 0, 26) == "Content-Transfer-Encoding:") {
	262	$header["ENCODING"] = strtolower(trim(substr($read[$i], 26)));
	263	}
	264
aceb0d5c	265	/ CONTENT-TYPE /
aceb0d5c	266	else if (substr($read, 0, 13) == "Content-Type:") {
d4467150	267	$cont = strtolower(trim(substr($read, 13)));
	268	if (strpos($cont, ";"))
	269	$cont = substr($cont, 0, strpos($cont, ";"));
	270	$header["TYPE0"] = substr($cont, 0, strpos($cont, "/"));
	271	$header["TYPE1"] = substr($cont, strpos($cont, "/")+1);
aceb0d5c	272
d4467150	273	$line = $read;
aceb0d5c	274	$read = fgets($imapConnection, 1024);
d4467150	275	while ( (substr(substr($read, 0, strpos($read, " ")), -1) != ":") && (trim($read) != "") && (trim($read) != ")")) {
	276	str_replace("\n", "", $line);
	277	str_replace("\n", "", $read);
	278	$line = "$line $read";
	279	$read = fgets($imapConnection, 1024);
	280	}
	281
	282	/ Detect the boundary of a multipart message /
	283	if (strpos(strtolower(trim($line)), "boundary=")) {
	284	$pos = strpos($line, "boundary=") + 9;
	285	$bound = trim($line);
	286	if (strpos($line, " ", $pos) > 0) {
	287	$bound = substr($bound, $pos, strpos($line, " ", $pos));
	288	} else {
	289	$bound = substr($bound, $pos);
	290	}
aceb0d5c	291	$bound = str_replace("\"", "", $bound);
aceb0d5c	292	$header["BOUNDARY"] = $bound;
aceb0d5c	293	}
d4467150	294
	295	/ Detect the charset /
	296	if (strpos(strtolower(trim($line)), "charset=")) {
	297	$pos = strpos($line, "charset=") + 8;
	298	$charset = trim($line);
	299	if (strpos($line, " ", $pos) > 0) {
	300	$charset = substr($charset, $pos, strpos($line, " ", $pos));
	301	} else {
	302	$charset = substr($charset, $pos);
	303	}
	304	$charset = str_replace("\"", "", $charset);
	305	$header["CHARSET"] = $charset;
	306	} else {
	307	$header["CHARSET"] = "us-ascii";
	308	}
	309
aceb0d5c	310	}
5c55c295	311
	312	/ REPLY-TO /
	313	else if (substr($read, 0, 9) == "Reply-To:") {
	314	$header["REPLYTO"] = trim(substr($read, 9, strlen($read)));
	315	$read = fgets($imapConnection, 1024);
	316	}
	317
aceb0d5c	318	/ FROM /
	319	else if (substr($read, 0, 5) == "From:") {
	320	$header["FROM"] = trim(substr($read, 5, strlen($read) - 6));
5c55c295	321	if ($header["REPLYTO"] == "")
5c55c295	322	$header["REPLYTO"] = $header["FROM"];
aceb0d5c	323	$read = fgets($imapConnection, 1024);
	324	}
	325	/ DATE /
	326	else if (substr($read, 0, 5) == "Date:") {
	327	$d = substr($read, 5, strlen($read) - 6);
	328	$d = trim($d);
	329	$d = ereg_replace(" ", " ", $d);
	330	$d = explode(" ", $d);
	331	$header["DATE"] = getTimeStamp($d);
	332	$read = fgets($imapConnection, 1024);
	333	}
	334	/ SUBJECT /
	335	else if (substr($read, 0, 8) == "Subject:") {
	336	$header["SUBJECT"] = trim(substr($read, 8, strlen($read) - 9));
	337	if (strlen(Chop($header["SUBJECT"])) == 0)
	338	$header["SUBJECT"] = "(no subject)";
	339	$read = fgets($imapConnection, 1024);
	340	}
	341	/ CC /
	342	else if (substr($read, 0, 3) == "CC:") {
	343	$pos = 0;
	344	$header["CC"][$pos] = trim(substr($read, 4));
	345	$read = fgets($imapConnection, 1024);
	346	while ((substr($read, 0, 1) == " ") && (trim($read) != "")) {
	347	$pos++;
	348	$header["CC"][$pos] = trim($read);
	349	$read = fgets($imapConnection, 1024);
	350	}
	351	}
	352	/ TO /
	353	else if (substr($read, 0, 3) == "To:") {
	354	$pos = 0;
	355	$header["TO"][$pos] = trim(substr($read, 4));
	356	$read = fgets($imapConnection, 1024);
	357	while ((substr($read, 0, 1) == " ") && (trim($read) != "")){
	358	$pos++;
	359	$header["TO"][$pos] = trim($read);
	360	$read = fgets($imapConnection, 1024);
	361	}
	362	}
	363
	364	/ ERROR CORRECTION /
	365	else if (substr($read, 0, 1) == ")") {
	366	if ($header["SUBJECT"] == "")
	367	$header["SUBJECT"] = "(no subject)";
	368
	369	if ($header["FROM"] == "")
	370	$header["FROM"] = "(unknown sender)";
	371
	372	if ($header["DATE"] == "")
	373	$header["DATE"] = time();
	374	$read = fgets($imapConnection, 1024);
	375	}
	376	else {
	377	$read = fgets($imapConnection, 1024);
	378	}
	379	}
	380	return $header;
	381	}
	382
	383	function fetchBody($imapConnection, $bound, $id, $type0, $type1) {
	384	/ This first part reads in the full body of the message /
05207a68	385	fputs($imapConnection, "messageFetch FETCH $id:$id BODY[TEXT]\n");
aceb0d5c	386	$read = fgets($imapConnection, 1024);
aceb0d5c	387
05207a68	388	$count = 0;
aceb0d5c	389	while ((substr($read, 0, 15) != "messageFetch OK") && (substr($read, 0, 16) != "messageFetch BAD")) {
aceb0d5c	390	$body[$count] = $read;
05207a68	391	$count++;
aceb0d5c	392
aceb0d5c	393	$read = fgets($imapConnection, 1024);
05207a68	394	}
05207a68	395
aceb0d5c	396	/ this deletes the first line, and the last two (imap stuff we ignore) /
e550d551	397	$i = 0;
e550d551	398	$j = 0;
aceb0d5c	399	while ($i < count($body)) {
	400	if ( ($i != 0) && ($i != count($body) - 1) && ($i != count($body)) ) {
	401	$bodytmp[$j] = $body[$i];
e550d551	402	$j++;
	403	}
	404	$i++;
	405	}
aceb0d5c	406	$body = $bodytmp;
e550d551	407
aceb0d5c	408	/ Now, lets work out the MIME stuff /
	409	/ (needs mime.php included) /
	410	return decodeMime($body, $bound, $type0, $type1);
	411	}
05207a68	412
d4467150	413	function fetchEntityHeader($imapConnection, &$read, &$type0, &$type1, &$bound, &$encoding, &$charset) {
aceb0d5c	414	/ defaults... if the don't get overwritten, it will display text /
	415	$type0 = "text";
	416	$type1 = "plain";
d4467150	417	$encoding = "us-ascii";
aceb0d5c	418	$i = 0;
aceb0d5c	419	while (trim($read[$i]) != "") {
d4467150	420	if (substr($read[$i], 0, 26) == "Content-Transfer-Encoding:") {
	421	$encoding = strtolower(trim(substr($read[$i], 26)));
	422
	423	} else if (substr($read[$i], 0, 13) == "Content-Type:") {
	424	$cont = strtolower(trim(substr($read[$i], 13)));
	425	if (strpos($cont, ";"))
	426	$cont = substr($cont, 0, strpos($cont, ";"));
aceb0d5c	427	$type0 = substr($cont, 0, strpos($cont, "/"));
	428	$type1 = substr($cont, strpos($cont, "/")+1);
	429
d4467150	430	$line = $read[$i];
	431	while ( (substr(substr($read[$i], 0, strpos($read[$i], " ")), -1) != ":") && (trim($read[$i]) != "") && (trim($read[$i]) != ")")) {
	432	str_replace("\n", "", $line);
	433	str_replace("\n", "", $read[$i]);
	434	$line = "$line $read[$i]";
	435	$i++;
	436	}
	437
	438	/ Detect the boundary of a multipart message /
	439	if (strpos(strtolower(trim($line)), "boundary=")) {
	440	$pos = strpos($line, "boundary=") + 9;
	441	$bound = trim($line);
	442	if (strpos($line, " ", $pos) > 0) {
	443	$bound = substr($bound, $pos, strpos($line, " ", $pos));
	444	} else {
	445	$bound = substr($bound, $pos);
	446	}
aceb0d5c	447	$bound = str_replace("\"", "", $bound);
aceb0d5c	448	}
d4467150	449
	450	/ Detect the charset /
	451	if (strpos(strtolower(trim($line)), "charset=")) {
	452	$pos = strpos($line, "charset=") + 8;
	453	$charset = trim($line);
	454	if (strpos($line, " ", $pos) > 0) {
	455	$charset = substr($charset, $pos, strpos($line, " ", $pos));
	456	} else {
	457	$charset = substr($charset, $pos);
	458	}
	459	$charset = str_replace("\"", "", $charset);
	460	}
e550d551	461	}
aceb0d5c	462	$i++;
aceb0d5c	463	}
05207a68	464
aceb0d5c	465	/ remove the header from the entity /
	466	$i = 0;
	467	while (trim($read[$i]) != "") {
	468	$i++;
e550d551	469	}
aceb0d5c	470	$i++;
05207a68	471
aceb0d5c	472	for ($p = 0; $i < count($read); $p++) {
	473	$entity[$p] = $read[$i];
	474	$i++;
	475	}
	476
	477	$read = $entity;
e550d551	478	}
05207a68	479
aceb0d5c	480	function parsePlainTextMessage($line) {
e550d551	481	$line = "^^$line";
05207a68	482
e550d551	483	if ((strpos(strtolower($line), "<!") == false) &&
	484	(strpos(strtolower($line), "<html>") == false) &&
	485	(strpos(strtolower($line), "</html>") == false)) {
	486	$line = str_replace("<", "<", $line);
	487	$line = str_replace(">", ">", $line);
05207a68	488	}
05207a68	489
ff89ac8a	490	$wrap_at = 86; // Make this configurable int the config file some time
8467bf00	491	if (strlen($line) - 2 >= $wrap_at) // -2 because of the ^^ at the beginning
8467bf00	492	$line = wordWrap($line, $wrap_at);
b8ea4ed6	493
e550d551	494	$line = str_replace(" ", " ", $line);
	495	$line = str_replace("\t", "        ", $line);
	496
	497	/** if >> or > are found at the beginning of a line, I'll assume that was
	498	replied text, so make it different colors **/
	499	if (strpos(trim(str_replace(" ", "", $line)), ">>") == 2) {
	500	$line = substr($line, 2, strlen($line));
	501	$line = "<TT><FONT COLOR=FF0000>$line</FONT></TT><BR>\n";
	502	} else if (strpos(trim(str_replace(" ", "", $line)), ">") == 2) {
	503	$line = substr($line, 2, strlen($line));
	504	$line = "<TT><FONT COLOR=800000>$line</FONT></TT><BR>\n";
	505	} else {
	506	$line = substr($line, 2, strlen($line));
	507	$line = "<TT><FONT COLOR=000000>$line</FONT></TT><BR>\n";
	508	}
	509
	510	/** This translates "http://" into a link. It could be made better to accept
	511	"www" and "mailto" also. That should probably be added later. **/
	512	if (strpos(strtolower($line), "http://") != false) {
9774bdef	513	$line = ereg_replace("<BR>", "", $line);
e550d551	514	$start = strpos(strtolower($line), "http://");
9774bdef	515	$link = substr($line, $start, strlen($line));
e550d551	516
9774bdef	517	if (strpos($link, " ")) {
	518	$end = strpos($link, " ")-1;
	519	}
	520	else if (strpos($link, " ")) {
	521	$end = strpos($link, " ")-1;
	522	}
	523	else if (strpos($link, "<")) {
e550d551	524	$end = strpos($link, "<");
9774bdef	525	}
	526	else if (strpos($link, ">")) {
	527	$end = strpos($link, ">");
	528	}
	529	else if (strpos($link, "(")) {
	530	$end = strpos($link, "(")-1;
	531	}
	532	else if (strpos($link, ")")) {
	533	$end = strpos($link, ")")-1;
	534	}
	535	else if (strpos($link, "{")) {
	536	$end = strpos($link, "{")-1;
	537	}
	538	else if (strpos($link, "}")) {
	539	$end = strpos($link, "}")-1;
	540	}
e550d551	541	else
	542	$end = strlen($link);
	543
9774bdef	544	$link = substr($line, $start, $end);
	545	$end = $end + $start;
	546	$before = substr($line, 0, $start);
	547	$after = substr($line, $end, strlen($line));
	548
	549	$line = "$before<A HREF=\"$link\" TARGET=_top>$link</A>$after<BR>";
e550d551	550	}
	551
	552	return $line;
05207a68	553	}
a09387f4	554	?>