yllar
2006-12-11 df8e8ec9eee72743d0f14a8409aacf66c4a80d89
program/lib/imap.inc
@@ -39,11 +39,15 @@
      - Added BCC and REFERENCE to the list of headers to fetch in iil_C_FetchHeaders()
      - Leave messageID unchanged in iil_C_FetchHeaders()
      - Avoid stripslahes in iil_Connect()
      - Escape quotes and backslashes in iil_C_Login()
      - Added patch to iil_SortHeaders() by Richard Green
      - Removed <br> from error messages (better for logging)
      - Added patch to iil_C_Sort() enabling UID SORT commands
      - Added function iil_C_ID2UID()
      - Casting date parts in iil_StrToTime() to avoid mktime() warnings
      - Also acceppt LIST responses in iil_C_ListSubscribed()
      - Sanity check of $message_set in iil_C_FetchHeaders(), iil_C_FetchHeaderIndex(), iil_C_FetchThreadHeaders()
      - Implemented UID FETCH in iil_C_FetchHeaders()
      - Removed some debuggers (echo ...)
********************************************************/
@@ -222,8 +226,9 @@
function iil_C_Login(&$conn, $user, $password){
    $password = strtr($password, array('"'=>'\\"', '\\' => '\\\\'));
    fputs($conn->fp, "a001 LOGIN $user \"$password\"\r\n");
   do{
       $line = iil_ReadReply($conn->fp);
   }while(!iil_StartsWith($line, "a001 "));
@@ -675,7 +680,9 @@
   if (empty($index_field)) $index_field="DATE";
   $index_field = strtoupper($index_field);
   
   if (empty($message_set)) return array();
   list($from_idx, $to_idx) = explode(':', $message_set);
   if (empty($message_set) || (isset($to_idx) && (int)$from_idx > (int)$to_idx))
      return false;
   
   //$fields_a["DATE"] = ($IMAP_USE_INTERNAL_DATE?6:1);
   $fields_a['DATE'] = 1;
@@ -931,7 +938,9 @@
   global $clock;
   global $index_a;
   
   if (empty($message_set)) return false;
   list($from_idx, $to_idx) = explode(':', $message_set);
   if (empty($message_set) || (isset($to_idx) && (int)$from_idx > (int)$to_idx))
      return false;
   $result = array();
   $uids = iil_C_FetchUIDs($conn, $mailbox);
@@ -1012,7 +1021,9 @@
function iil_C_BuildThreads2(&$conn, $mailbox, $message_set, &$clock){
   global $index_a;
   if (empty($message_set)) return false;
   list($from_idx, $to_idx) = explode(':', $message_set);
   if (empty($message_set) || (isset($to_idx) && (int)$from_idx > (int)$to_idx))
      return false;
   
   $result=array();
   $roots=array();
@@ -1187,15 +1198,17 @@
   return $t_index;
}
function iil_C_FetchHeaders(&$conn, $mailbox, $message_set){
function iil_C_FetchHeaders(&$conn, $mailbox, $message_set, $uidfetch=false){
   global $IMAP_USE_INTERNAL_DATE;
   
   $c=0;
   $result=array();
   $fp = $conn->fp;
   
   if (empty($message_set)) return array();
   list($from_idx, $to_idx) = explode(':', $message_set);
   if (empty($message_set) || (isset($to_idx) && (int)$from_idx > (int)$to_idx))
      return false;
   /*  Do "SELECT" command */
   if (!iil_C_Select($conn, $mailbox)){
      $conn->error = "Couldn't select $mailbox";
@@ -1221,7 +1234,8 @@
   /* FETCH date,from,subject headers */
   $key="fh".($c++);
   $request=$key." FETCH $message_set (BODY.PEEK[HEADER.FIELDS (DATE FROM TO SUBJECT REPLY-TO IN-REPLY-TO CC BCC CONTENT-TRANSFER-ENCODING CONTENT-TYPE MESSAGE-ID REFERENCE)])\r\n";
   $prefix=$uidfetch?" UID":"";
   $request=$key.$prefix." FETCH $message_set (BODY.PEEK[HEADER.FIELDS (DATE FROM TO SUBJECT REPLY-TO IN-REPLY-TO CC BCC CONTENT-TRANSFER-ENCODING CONTENT-TYPE MESSAGE-ID REFERENCE)])\r\n";
   if (!fputs($fp, $request)) return false;
   do{
@@ -1299,7 +1313,7 @@
      Sample reply line: "* 3 FETCH (UID 2417 RFC822.SIZE 2730 FLAGS (\Seen \Deleted))"
   */
   $command_key="fh".($c++);
   $request= $command_key." FETCH $message_set (UID RFC822.SIZE FLAGS INTERNALDATE)\r\n";
   $request= $command_key.$prefix." FETCH $message_set (UID RFC822.SIZE FLAGS INTERNALDATE)\r\n";
   if (!fputs($fp, $request)) return false;
   do{
      $line=chop(iil_ReadLine($fp, 200));
@@ -1391,10 +1405,10 @@
}
function iil_C_FetchHeader(&$conn, $mailbox, $id){
function iil_C_FetchHeader(&$conn, $mailbox, $id, $uidfetch=false){
   $fp = $conn->fp;
   $a=iil_C_FetchHeaders($conn, $mailbox, $id);
   if (is_array($a)) return $a[$id];
   $a=iil_C_FetchHeaders($conn, $mailbox, $id, $uidfetch);
   if (is_array($a)) return array_shift($a);
   else return false;
}
@@ -1755,7 +1769,7 @@
      $line=iil_ReadLine($fp, 500);
      $line=iil_MultLine($fp, $line);
      $a = explode(" ", $line);
      if (($line[0]=="*") && ($a[1]=="LSUB")){
      if (($line[0]=="*") && ($a[1]=="LSUB" || $a[1]=="LIST")){
         $line = rtrim($line);
            // split one line
         $a=iil_ExplodeQuotedString(" ", $line);
@@ -1875,7 +1889,7 @@
                $remaining = $bytes - $received;
                $line = iil_ReadLine($fp, 1024);
                $len = strlen($line);
                if ($len > $remaining) substr($line, 0, $remaining);
                if ($len > $remaining) $line = substr($line, 0, $remaining);
                $received += strlen($line);
                if ($mode==1) $result .= chop($line)."\n";
                else if ($mode==2){ echo chop($line)."\n"; flush(); }
@@ -2107,4 +2121,4 @@
   return (iil_C_Expunge($conn, $folder) >= 0);
}
?>
?>