Roundcubemail devel
blame | history | patch | commit | commitdiff | ignore whitespace
yllar
2006-12-16 77c28206a14b5bee3f3091f10cffd531bce5649c 
 program/lib/imap.inc


@@ -39,10 +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 ...)




********************************************************/


@@ -221,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 "));


@@ -614,14 +620,14 @@


   $month_str=$a[1];


   $month=$IMAP_MONTHS[$month_str];


   $day=(int)$a[0];


   $year=$a[2];


   $year=(int)$a[2];


   $time=$a[3];


   $tz_str = $a[4];


   $tz = substr($tz_str, 0, 3);


   $ta=explode(":",$time);


   $ta = explode(":",$time);


   $hour=(int)$ta[0]-(int)$tz;


   $minute=$ta[1];


   $second=$ta[2];


   $minute=(int)$ta[1];


   $second=(int)$ta[2];


   


   //make UNIX timestamp


   $time2 = mktime($hour, $minute, $second, $month, $day, $year);


@@ -674,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;


@@ -930,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);


@@ -1011,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();


@@ -1186,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";


@@ -1220,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{


@@ -1298,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));


@@ -1390,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;


}




@@ -1754,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);


@@ -1874,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(); }


@@ -2106,4 +2121,4 @@


   return (iil_C_Expunge($conn, $folder) >= 0);


}




?>


?>