thomascube
2006-05-18 cead5c727147faac362e742aa7bcecf07f68cd99
program/lib/imap.inc
@@ -39,7 +39,11 @@
      - 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()
      - 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
      - Removed some debuggers (echo ...)
********************************************************/
@@ -610,15 +614,15 @@
   //$month_a=array("Jan"=>1,"Feb"=>2,"Mar"=>3,"Apr"=>4,"May"=>5,"Jun"=>6,"Jul"=>7,"Aug"=>8,"Sep"=>9,"Oct"=>10,"Nov"=>11,"Dec"=>12);
   $month_str=$a[1];
   $month=$IMAP_MONTHS[$month_str];
   $day=$a[0];
   $year=$a[2];
   $day=(int)$a[0];
   $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);
@@ -626,7 +630,7 @@
   return $time2;
}
function iil_C_Sort(&$conn, $mailbox, $field, $add=''){
function iil_C_Sort(&$conn, $mailbox, $field, $add='', $is_uid=FALSE, $encoding='US-ASCII'){
   /*  Do "SELECT" command */
   if (!iil_C_Select($conn, $mailbox)) return false;
   
@@ -634,10 +638,16 @@
   if ($field=='INTERNALDATE') $field='ARRIVAL';
   $fields = array('ARRIVAL'=>1,'CC'=>1,'DATE'=>1,'FROM'=>1,'SIZE'=>1,'SUBJECT'=>1,'TO'=>1);
   
   if (!$fields[$field]) return false;
   if (!$fields[$field])
     return false;
   
   $is_uid = $is_uid ? 'UID ' : '';
   if (!empty($add))
     $add = " $add";
   $fp = $conn->fp;
   $command = 's SORT ('.$field.') US-ASCII ALL '."$add\r\n";
   $command = 's '. $is_uid .'SORT ('.$field.') '.$encoding.' ALL'."$add\r\n";
   $line = $data = '';
   
   if (!fputs($fp, $command)) return false;
@@ -655,7 +665,7 @@
   return $out;
}
function iil_C_FetchHeaderIndex(&$conn, $mailbox, $message_set, $index_field,$normalize=true){
function iil_C_FetchHeaderIndex(&$conn, $mailbox, $message_set, $index_field, $normalize=true){
   global $IMAP_USE_INTERNAL_DATE;
   
   $c=0;
@@ -1396,7 +1406,7 @@
   if (empty($flag)) $flag="ASC";
   $flag=strtoupper($flag);
   $stripArr = ($field=='subject') ? array('Re: ','Fwd: ','Fw: ',"\"") : array("\"");
   $c=count($a);
   if ($c>0){
      /*
@@ -1406,12 +1416,22 @@
         and use that to sort the main array.
      */
                
                // create "index" array
      // create "index" array
      $index=array();
      reset($a);
      while (list($key, $val)=each($a)){
         $data=$a[$key]->$field;
         if (is_string($data)) $data=strtoupper(str_replace($stripArr, "", $data));
         if ($field=="timestamp"){
            $data = @strtotime($val->date);
            if ($data == false)
               $data = $val->timestamp;
            }
         else {
            $data = $val->$field;
            if (is_string($data))
               $data=strtoupper(str_replace($stripArr, "", $data));
            }
         $index[$key]=$data;
      }
      
@@ -1559,6 +1579,25 @@
   return false;
}
function iil_C_ID2UID(&$conn, $folder, $id){
   $fp = $conn->fp;
   $result=-1;
   if ($id > 0) {
      if (iil_C_Select($conn, $folder)){
         $key = "FUID";
         if (fputs($fp, "$key FETCH $id (UID)\r\n")){
            do{
               $line=chop(iil_ReadLine($fp, 1024));
               if (eregi("^\* $id FETCH \(UID (.*)\)", $line, $r)){
                  $result = $r[1];
               }
            } while (!preg_match("/^$key/", $line));
         }
      }
   }
   return $result;
}
function iil_C_Search(&$conn, $folder, $criteria){
   $fp = $conn->fp;
   if (iil_C_Select($conn, $folder)){