Remove cruft from upload response

thomascube

2008-05-27 7ffc08ce87bdbc761eb9811f8be25a8c9c4e9976

 program/lib/imap.inc

@@ -51,22 +51,28 @@
      - Abort do-loop on socket errors (fgets returns false)
      - $ICL_SSL is not boolean anymore but contains the connection schema (ssl or tls)
      - Removed some debuggers (echo ...)
      File altered by Aleksander Machniak <alec@alec.pl>
      - RFC3501 [7.1] don't call CAPABILITY if was returned in server 
        optional resposne in iil_Connect()
      - trim(chop()) replaced by trim()
		

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

/**
 * @todo Possibly clean up more CS.
 * @todo Try to replace most double-quotes with single-quotes.
 * @todo Split this file into smaller files.
 * @todo Refactor code.
 * @todo Replace echo-debugging (make it adhere to config setting and log)
 */

// changed path to work within roundcube webmail
include_once("lib/icl_commons.inc");
include_once 'lib/icl_commons.inc';


if (!$IMAP_USE_HEADER_DATE) {
   $IMAP_USE_INTERNAL_DATE = true;
if (!isset($IMAP_USE_HEADER_DATE) || !$IMAP_USE_HEADER_DATE) {
    $IMAP_USE_INTERNAL_DATE = true;
}

/**
@@ -160,18 +166,19 @@
}

function iil_ReadLine($fp, $size) {
   $line = '';
   if ($fp) {
      do {
          // FIXME: hardcode size?
         $buffer = fgets($fp, 2048);
         if ($buffer === false) {
            break;
            }
         $line .= $buffer;
      } while ($buffer[strlen($buffer)-1]!="\n");
   }
   return $line;
    $line = '';
    if (!$fp) {
        return $line;
    }
    do {
   // FIXME: hardcode size?
        $buffer = fgets($fp, 2048);
        if ($buffer === false) {
            break;
        }
        $line .= $buffer;
    } while ($buffer[strlen($buffer)-1] != "\n");
    return $line;
}

function iil_MultLine($fp, $line) {
@@ -191,18 +198,21 @@
}

function iil_ReadBytes($fp, $bytes) {
   $data = '';
   $len  = 0;
   do {
      $data.=fread($fp, $bytes-$len);
      $len = strlen($data);
   } while ($len<$bytes);
   return $data;
    $data = '';
    $len  = 0;
    do {
        $data .= fread($fp, $bytes-$len);
        if ($len == strlen($data)) {
            break; //nothing was read -> exit to avoid apache lockups
        }
        $len = strlen($data);
    } while ($len < $bytes);
    return $data;
}

function iil_ReadReply($fp) {
   do {
      $line = chop(trim(iil_ReadLine($fp, 1024)));
      $line = trim(iil_ReadLine($fp, 1024));
   } while ($line[0] == '*');
   
   return $line;
@@ -253,8 +263,8 @@
    
    // initialize ipad, opad
    for ($i=0;$i<64;$i++) {
        $ipad .=chr(0x36);
        $opad .=chr(0x5C);
        $ipad .= chr(0x36);
        $opad .= chr(0x5C);
    }
    // pad $pass so it's 64 bytes
    $padLen = 64 - strlen($pass);
@@ -264,7 +274,7 @@
    
    // generate hash
    $hash  = iil_xor($pass,$opad);
    $hash .= pack("H*",md5(iil_xor($pass, $ipad) . base64_decode($encChallenge)));
    $hash .= pack("H*", md5(iil_xor($pass, $ipad) . base64_decode($encChallenge)));
    $hash  = md5($hash);
    
    // generate reply
@@ -456,7 +466,7 @@
    
   //check for SSL
   if ($ICL_SSL) {
      $host = $ICL_SSL."://".$host;
      $host = $ICL_SSL . '://' . $host;
   }
   
   //open socket connection
@@ -468,44 +478,55 @@
   }

   $iil_error .= "Socket connection established\r\n";
   $line       = iil_ReadLine($conn->fp, 300);
   $line       = iil_ReadLine($conn->fp, 1024);

   // RFC3501 [7.1] optional CAPABILITY response
   // commented out, because it's not working always as should
//   if (preg_match('/\[CAPABILITY ([^]]+)\]/i', $line, $matches)) {
//      $conn->capability = explode(' ', $matches[1]);
//   } else {
      fputs($conn->fp, "cp01 CAPABILITY\r\n");
      do {
         $line = trim(iil_ReadLine($conn->fp, 100));

         $conn->message .= "$line\n";

         $a = explode(' ', $line);
         if ($line[0] == '*') {
            while (list($k, $w) = each($a)) {
               if ($w != '*' && $w != 'CAPABILITY')
                   $conn->capability[] = $w;
            }
         }
      } while ($a[0] != 'cp01');
//   }

   if (strcasecmp($auth_method, "check") == 0) {
      //check for supported auth methods
      
      //default to plain text auth
      $auth_method = "plain";
      $auth_method = 'plain';
         
      //check for CRAM-MD5
      fputs($conn->fp, "cp01 CAPABILITY\r\n");
      do {
          $line = trim(chop(iil_ReadLine($conn->fp, 100)));
          $conn->message.="$line\n";
         $a = explode(' ', $line);
         if ($line[0]=="*") {
            while ( list($k, $w) = each($a) ) {
                if ($w!='*' && $w!='CAPABILITY') {
                   $conn->capability[] = $w;
                    }
               if ((strcasecmp($w, "AUTH=CRAM_MD5") == 0)||
                  (strcasecmp($w, "AUTH=CRAM-MD5") == 0)) {
                   $auth_method = "auth";
               }
            }
      foreach ($conn->capability as $c)
         if (strcasecmp($c, 'AUTH=CRAM_MD5') == 0 ||
            strcasecmp($c, 'AUTH=CRAM-MD5') == 0) {
            $auth_method = 'auth';
            break;
         }
      } while ($a[0]!="cp01");
   }

   if (strcasecmp($auth_method, "auth") == 0) {
   if (strcasecmp($auth_method, 'auth') == 0) {
      $conn->message .= "Trying CRAM-MD5\n";

      //do CRAM-MD5 authentication
      fputs($conn->fp, "a000 AUTHENTICATE CRAM-MD5\r\n");
      $line = trim(chop(iil_ReadLine($conn->fp, 1024)));
      $line = trim(iil_ReadLine($conn->fp, 1024));
        
      $conn->message.="$line\n";
      $conn->message .= "$line\n";
        
      if ($line[0] == "+") {
         $conn->message .= 'Got challenge: ' . htmlspecialchars($line)."\n";
      if ($line[0] == '+') {
         $conn->message .= 'Got challenge: ' . htmlspecialchars($line) . "\n";

         //got a challenge string, try CRAM-5
         $result = iil_C_Authenticate($conn, $user, $password, substr($line,2));
@@ -760,7 +781,7 @@
       $str = substr($str, $pos+1);
    }
   //explode, take good parts
   $a=explode(' ',$str);
   $a = explode(' ', $str);

   $month_str = $a[1];
   $month     = $IMAP_MONTHS[$month_str];
@@ -790,8 +811,8 @@
   if ($field == 'INTERNALDATE') {
       $field = 'ARRIVAL';
    }
   $fields = array('ARRIVAL'=>1,'CC'=>1,'DATE'=>1,'FROM'=>1,'SIZE'=>1,
 'SUBJECT'=>1,'TO'=>1);
   $fields = array('ARRIVAL' => 1,'CC' => 1,'DATE' => 1,
        'FROM' => 1, 'SIZE' => 1, 'SUBJECT' => 1, 'TO' => 1);
   
   if (!$fields[$field]) {
       return false;
@@ -803,9 +824,10 @@
       $add = " $add";
    }

   $fp      = $conn->fp;
   $command = 's '. $is_uid .'SORT ('.$field.') '.$encoding.' ALL'."$add\r\n";
   $line    = $data = '';
   $fp       = $conn->fp;
   $command  = 's ' . $is_uid . 'SORT (' . $field . ') ';
    $command .= $encoding . ' ALL' . "$add\r\n";
   $line     = $data = '';
   
   if (!fputs($fp, $command)) {
       return false;
@@ -942,7 +964,7 @@
   }else if ($mode == 6) {

      $key     = 'fhi' . ($c++);
      $request = $key." FETCH $message_set (INTERNALDATE)\r\n";
      $request = $key . " FETCH $message_set (INTERNALDATE)\r\n";
      if (!fputs($fp, $request)) {
          return false;
        }
@@ -1014,23 +1036,21 @@
   }

   //check number of elements...
   list($start_mid,$end_mid) = explode(':', $message_set);
   list($start_mid, $end_mid) = explode(':', $message_set);
   if (is_numeric($start_mid) && is_numeric($end_mid)) {
      //count how many we should have
      $should_have = $end_mid - $start_mid +1;
      
      //if we have less, try and fill in the "gaps"
      if (count($result)<$should_have) {
         for ($i=$start_mid;$i<=$end_mid;$i++) {
      if (count($result) < $should_have) {
         for ($i=$start_mid; $i<=$end_mid; $i++) {
             if (!isset($result[$i])) {
                 $result[$i] = '';
                }
            }
      }
   }
	
   return $result;   

}

function iil_CompressMessageSet($message_set) {
@@ -1048,18 +1068,19 @@
   }
    
   //separate, then sort
   $ids = explode(',',$message_set);
   $ids = explode(',', $message_set);
   sort($ids);
   
   $result = array();
   $start = $prev = $ids[0];
   $start  = $prev = $ids[0];

   foreach ($ids as $id) {
      $incr = $id - $prev;
      if ($incr>1) {         //found a gap
         if ($start==$prev) {
      if ($incr > 1) {         //found a gap
         if ($start == $prev) {
             $result[] = $prev;   //push single id
         } else {
             $result[] = $start.':'.$prev;      //push sequence as start_id:end_id
             $result[] = $start . ':' . $prev;   //push sequence as start_id:end_id
         }
            $start = $id;                     //start of new sequence
      }
@@ -1080,12 +1101,12 @@
   if (!is_array($uids) || count($uids) == 0) {
       return array();
    }
   return iil_C_Search($conn, $mailbox, "UID ".implode(",", $uids));
   return iil_C_Search($conn, $mailbox, 'UID ' . implode(',', $uids));
}

function iil_C_UIDToMID(&$conn, $mailbox, $uid) {
   $result = iil_C_UIDsToMIDs($conn, $mailbox, array($uid));
   if (count($result)==1) {
   if (count($result) == 1) {
       return $result[0];
   }
    return false;
@@ -1119,12 +1140,12 @@
   }
    
   //make sure number of messages were the same
   if ($cache_good>0 && $data['n']!=$num) {
   if ($cache_good > 0 && $data['n'] != $num) {
       $cache_good = -2;
   }
    
   //if everything's okay so far...
   if ($cache_good>0) {
   if ($cache_good > 0) {
      //check UIDs of highest mid with current and cached
      $temp = iil_C_Search($conn, $mailbox, 'UID ' . $data['d'][$num]);
      if (!$temp || !is_array($temp) || $temp[0] != $num) {
@@ -1133,7 +1154,7 @@
   }

   //if cached data's good, return it
   if ($cache_good>0) {
   if ($cache_good > 0) {
      return $data['d'];
   }

@@ -1218,16 +1239,19 @@
            $new_thhd = new iilThreadHeader;
            $new_thhd->id = $a[1];
            do {
               $line=chop(iil_ReadLine($fp, 1024),"\r\n");
               $line = chop(iil_ReadLine($fp, 1024), "\r\n");
               if (iil_StartsWithI($line, 'Message-ID:')
                        || (iil_StartsWithI($line,'In-Reply-To:'))
                        || (iil_StartsWithI($line,'SUBJECT:'))) {
                  $pos = strpos($line, ":");

                  $pos        = strpos($line, ':');
                  $field_name = substr($line, 0, $pos);
                  $field_val = substr($line, $pos+1);
                  $field_val  = substr($line, $pos+1);

                  $new[strtoupper($field_name)] = trim($field_val);

               } else if (ereg('^[[:space:]]', $line)) {
                  $new[strtoupper($field_name)].= trim($line);
                  $new[strtoupper($field_name)] .= trim($line);
               }
            } while ($line[0] != ')');
                
@@ -1301,8 +1325,8 @@
      //$new = array('id'=>$id, 'MESSAGE-ID'=>$header['m'], 
      //         'IN-REPLY-TO'=>$header['r'], 'SUBJECT'=>$header['s']);
      $id  = $header->id;
      $new = array('id'=>$id, 'MESSAGE-ID'=>$header->mid, 
            'IN-REPLY-TO'=>$header->irt, 'SUBJECT'=>$header->sbj);
      $new = array('id' => $id, 'MESSAGE-ID' => $header->mid, 
            'IN-REPLY-TO' => $header->irt, 'SUBJECT' => $header->sbj);

      /* add to message-id -> mid lookup table */
      $mid_to_id[$new['MESSAGE-ID']] = $id;
@@ -1343,7 +1367,7 @@
         }
            $sub_mids[$new['MESSAGE-ID']] = $root_id;
         $result[$root_id][]           = $id;
      }else if (!isset($roots[$sbj])||(!$has_re&&$root_in_root[$root_id])) {
      }else if (!isset($roots[$sbj]) || (!$has_re && $root_in_root[$root_id])) {
         /* try to use In-Reply-To header to find root 
            unless subject contains 'Re:' */
         if ($has_re&&$new['IN-REPLY-TO']) {
@@ -1386,7 +1410,7 @@
   
   //now that we've gone through all the messages,
   //go back and try and link up the stray threads
   if (count($strays)>0) {
   if (count($strays) > 0) {
      foreach ($strays as $id=>$irt) {
         $root_id = $sub_mids[$irt];
         if (!$root_id || $root_id==$id) {
@@ -1452,8 +1476,8 @@
   
   //sort by key, this basically sorts all threads
   ksort($itree);
   $i=0;
   $out=array();
   $i   = 0;
   $out = array();
   foreach ($itree as $k=>$node) {
      $out[$i] = $itree[$k];
      $i++;
@@ -1554,10 +1578,10 @@
         do {
            $line = chop(iil_ReadLine($fp, 300), "\r\n");
            if (ord($line[0])<=32) {
                $lines[$i] .= (empty($lines[$i])?'':"\n").trim(chop($line));
                $lines[$i] .= (empty($lines[$i])?'':"\n").trim($line);
            } else {
               $i++;
               $lines[$i] = trim(chop($line));
               $lines[$i] = trim($line);
            }
            /* 
               The preg_match below works around communigate imap, which outputs " UID <number>)".
@@ -1589,7 +1613,8 @@
            while ( list($lines_key, $str) = each($lines) ) {
               list($field, $string) = iil_SplitHeaderLine($str);
               
               $field = strtolower($field);
               $field  = strtolower($field);
                                        $string = ereg_replace("\n[[:space:]]*"," ",$string); 
               
               switch ($field) {
               case 'date';
@@ -1600,22 +1625,22 @@
                  $result[$id]->from = $string;
                  break;
               case 'to':
                  $result[$id]->to = str_replace("\n", " ", $string);
                  $result[$id]->to = $string;
                  break;
               case 'subject':
                  $result[$id]->subject = str_replace("\n", '', $string);
                  $result[$id]->subject = $string;
                  break;
               case 'reply-to':
                  $result[$id]->replyto = str_replace("\n", " ", $string);
                  $result[$id]->replyto = $string;
                  break;
               case 'cc':
                  $result[$id]->cc = str_replace("\n", " ", $string);
                  $result[$id]->cc = $string;
                  break;
               case 'bcc':
                  $result[$id]->bcc = str_replace("\n", " ", $string);
                  $result[$id]->bcc = $string;
                  break;
               case 'content-transfer-encoding':
                  $result[$id]->encoding = str_replace("\n", " ", $string);
                  $result[$id]->encoding = $string;
                  break;
               case 'content-type':
                  $ctype_parts = explode(";", $string);
@@ -1636,7 +1661,7 @@
               case 'return-receipt-to':
               case 'disposition-notification-to':
               case 'x-confirm-reading-to':
                  $result[$id]->mdn_to = str_replace("\n", " ", $string);
                  $result[$id]->mdn_to = $string;
                  break;
               case 'message-id':
                  $result[$id]->messageID = $string;
@@ -1658,8 +1683,8 @@
      Sample reply line: "* 3 FETCH (UID 2417 RFC822.SIZE 2730 FLAGS (\Seen \Deleted))"
   */
   $command_key = 'fh' . ($c++);
   $request  = $command_key . $prefix;
   $request .= " FETCH $message_set (UID RFC822.SIZE FLAGS INTERNALDATE)\r\n";
   $request     = $command_key . $prefix;
   $request    .= " FETCH $message_set (UID RFC822.SIZE FLAGS INTERNALDATE)\r\n";
   
   if (!fputs($fp, $request)) {
       return false;
@@ -1699,8 +1724,12 @@

               // process flags
               $flags_str = eregi_replace('[\\\"]', '', $flags_str);
               $flags_a = explode(' ', $flags_str);
               //echo "<!-- ID: $id FLAGS: ".implode(",", $flags_a)." //-->\n";
               $flags_a   = explode(' ', $flags_str);

                    /*
                    trigger_error("<!-- ID: $id FLAGS: ".implode(",", $flags_a)." //-->\n",
                        E_USER_WARNING);
                    */
               
               if (is_array($flags_a)) {
                  reset($flags_a);
@@ -1788,7 +1817,7 @@
   $stripArr = ($field=='subject') ? array('Re: ','Fwd: ','Fw: ','"') : array('"');

   $c=count($a);
   if ($c>0) {
   if ($c > 0) {
      /*
         Strategy:
         First, we'll create an "index" array.
@@ -1838,7 +1867,7 @@
function iil_C_Expunge(&$conn, $mailbox) {
   $fp = $conn->fp;
   if (iil_C_Select($conn, $mailbox)) {
      $c=0;
      $c = 0;
      fputs($fp, "exp1 EXPUNGE\r\n");
      do {
         $line=chop(iil_ReadLine($fp, 100));
@@ -1877,7 +1906,7 @@
   $flag = $flags[$flag];
    
   if (iil_C_Select($conn, $mailbox)) {
      $c=0;
      $c = 0;
      fputs($fp, "flg STORE $messages " . $mod . "FLAGS (" . $flag . ")\r\n");
      do {
         $line=chop(iil_ReadLine($fp, 100));
@@ -1992,20 +2021,20 @@
function iil_C_Search(&$conn, $folder, $criteria) {
   $fp = $conn->fp;
   if (iil_C_Select($conn, $folder)) {
      $c=0;
      $c = 0;
      
      $query = 'srch1 SEARCH ' . chop($criteria) . "\r\n";
      fputs($fp, $query);
      do {
         $line=trim(chop(iil_ReadLine($fp, 10000)));
         $line=trim(iil_ReadLine($fp, 10000));
         if (eregi("^\* SEARCH", $line)) {
            $str = trim(substr($line, 8));
            $messages = explode(' ', $str);
         }
      } while (!iil_StartsWith($line, "srch1"));
      } while (!iil_StartsWith($line, 'srch1'));
      
      $result_code=iil_ParseResult($line);
      if ($result_code==0) {
      $result_code = iil_ParseResult($line);
      if ($result_code == 0) {
          return $messages;
      }
      $conn->error = 'iil_C_Search: ' . $line . "\n";
@@ -2017,16 +2046,15 @@
}

function iil_C_Move(&$conn, $messages, $from, $to) {
   $fp = $conn->fp;
	
   if (!$from || !$to) {
       return -1;
   }
    
   $r=iil_C_Copy($conn, $messages, $from,$to);
   if ($r==0) {
      return iil_C_Delete($conn, $from, $messages);
   }
    $fp = $conn->fp;

    if (!$from || !$to) {
        return -1;
    }
    $r = iil_C_Copy($conn, $messages, $from,$to);
    if ($r==0) {
        return iil_C_Delete($conn, $from, $messages);
    }
    return $r;
}

@@ -2237,7 +2265,8 @@

   $query = 'sub1 SUBSCRIBE "' . $folder. '"' . "\r\n";
   fputs($fp, $query);
   $line = trim(chop(iil_ReadLine($fp, 10000)));

   $line = trim(iil_ReadLine($fp, 10000));
   return iil_ParseResult($line);
}

@@ -2248,7 +2277,7 @@
   $query = 'usub1 UNSUBSCRIBE "' . $folder . '"' . "\r\n";
   fputs($fp, $query);
    
   $line = trim(chop(iil_ReadLine($fp, 10000)));
   $line = trim(iil_ReadLine($fp, 10000));
   return iil_ParseResult($line);
}

@@ -2267,17 +2296,17 @@
      $request = $key . " FETCH $id (BODY.PEEK[$part])\r\n";
      if (!fputs($fp, $request)) return false;
      do {
         $line=chop(iil_ReadLine($fp, 200));
         $a=explode(' ', $line);
         $line = chop(iil_ReadLine($fp, 200));
         $a    = explode(' ', $line);
         if (($line[0] == '*') && ($a[2] == 'FETCH')
                && ($line[strlen($line)-1] != ')')) {
            $line=iil_ReadLine($fp, 300);
            while (chop($line)!=")") {
               $result.=$line;
            while (trim($line) != ')') {
               $result .= $line;
               $line=iil_ReadLine($fp, 300);
            }
         }
      } while (strcmp($a[0], $key)!=0);
      } while (strcmp($a[0], $key) != 0);
   }
   
   return $result;
@@ -2292,12 +2321,12 @@
    */
   $fp     = $conn->fp;
   $result = false;
   if (($part==0) || (empty($part))) {
   if (($part == 0) || empty($part)) {
       $part = 'TEXT';
   }
    
   if (iil_C_Select($conn, $mailbox)) {
        $reply_key='* ' . $id;
        $reply_key = '* ' . $id;
        
        // format request
      $key     = 'ftch' . ($c++) . ' ';
@@ -2315,17 +2344,22 @@
        $len = strlen($line);
        if ($line[$len-1] == ')') {
            //one line response, get everything between first and last quotes
            $from = strpos($line, '"') + 1;
            $to   = strrpos($line, '"');
            $len  = $to - $from;
            if ($mode == 1) {
                $result = substr($line, $from, $len);
            } else if ($mode == 2) {
                echo substr($line, $from, $len);
       if (substr($line, -4, 3) == 'NIL') {
      // NIL response
      $result = '';
       } else {
           $from = strpos($line, '"') + 1;
           $to   = strrpos($line, '"');
           $len  = $to - $from;
      $result = substr($line, $from, $len);
       }
	    
            if ($mode == 2) {
                echo $result;
            } else if ($mode == 3) {
                echo base64_decode(substr($line, $from, $len));
                echo base64_decode($result);
            }
        }else if ($line[$len-1] == '}') {
        } else if ($line[$len-1] == '}') {
            //multi-line request, find sizes of content and receive that many bytes
            $from     = strpos($line, '{') + 1;
            $to       = strrpos($line, '}');
@@ -2342,11 +2376,11 @@
                    $line = substr($line, 0, $remaining);
                }
                $received += strlen($line);
                if ($mode==1) {
                    $result .= chop($line)."\n";
                } else if ($mode==2) {
                    echo chop($line)."\n"; flush();
                } else if ($mode==3) {
                if ($mode == 1) {
                    $result .= rtrim($line, "\t\r\n\0\x0B") . "\n";
                } else if ($mode == 2) {
                    echo rtrim($line, "\t\r\n\0\x0B") . "\n"; flush();
                } else if ($mode == 3) {
                    echo base64_decode($line); flush();
                }
            }
@@ -2357,7 +2391,7 @@
      } while (!iil_StartsWith($line, $key));
        
        if ($result) {
         $result = chop($result);
       $result = rtrim($result, "\t\r\n\0\x0B");
            return $result; // substr($result, 0, strlen($result)-1);
        }
        return false;
@@ -2399,11 +2433,11 @@
   $fp = $conn->fp;
   if (fputs($fp, 'r RENAME "' . $from . '" "' . $to . '"' . "\r\n")) {
      do {
         $line=iil_ReadLine($fp, 300);
      } while ($line[0]!="r");
         $line = iil_ReadLine($fp, 300);
      } while ($line[0] != 'r');
      return (iil_ParseResult($line) == 0);
   }
    return false;	
    return false;
}

function iil_C_DeleteFolder(&$conn, $folder) {
@@ -2411,7 +2445,7 @@
   if (fputs($fp, 'd DELETE "' . $folder. '"' . "\r\n")) {
      do {
         $line=iil_ReadLine($fp, 300);
      } while ($line[0]!="d");
      } while ($line[0] != 'd');
      return (iil_ParseResult($line) == 0);
   }
    $conn->error = "Couldn't send command\n";
@@ -2419,21 +2453,23 @@
}

function iil_C_Append(&$conn, $folder, &$message) {
   if (!$folder) return false;
   if (!$folder) {
        return false;
    }
   $fp = $conn->fp;

   $message = str_replace("\r", '', $message);
   $message = str_replace("\n", "\r\n", $message);      

   $len = strlen($message);
   if (!$len) return false;
	
   if (!$len) {
        return false;
   }
   $request = 'A APPEND "' . $folder .'" (\\Seen) {' . $len . "}\r\n";
    
   if (fputs($fp, $request)) {
      $line=iil_ReadLine($fp, 100);      
      $sent = fwrite($fp, $message."\r\n");
      flush();
      do {
         $line=iil_ReadLine($fp, 1000);
      } while ($line[0] != 'A');
@@ -2475,11 +2511,11 @@
   $request    = 'A APPEND "' . $folder . '" (\\Seen) {' . $len . "}\r\n";
   $bytes_sent = 0;
   if (fputs($fp, $request)) {
      $line=iil_ReadLine($fp, 100);
      $line = iil_ReadLine($fp, 100);
            
      //send file
      while (!feof($in_fp)) {
         $buffer = fgets($in_fp, 4096);
         $buffer      = fgets($in_fp, 4096);
         $bytes_sent += strlen($buffer);
         fputs($fp, $buffer);
      }
@@ -2489,7 +2525,7 @@

      //read response
      do {
         $line=iil_ReadLine($fp, 1000);
         $line = iil_ReadLine($fp, 1000);
      } while ($line[0] != 'A');
         
      $result = (iil_ParseResult($line) == 0);
@@ -2533,7 +2569,7 @@
               //truncate last ')' and return
               $result = substr($post, 0, strlen($post)-1);
            }
         } while (!preg_match("/^$key/",$line));
         } while (!preg_match("/^$key/", $line));
      }
   }
   return $result;
@@ -2569,10 +2605,10 @@
   
   //return false if not found, parse if found
   if (!empty($quota_line)) {
      $quota_line = eregi_replace('[()]', '', $quota_line);
      $parts = explode(' ', $quota_line);
      $quota_line   = eregi_replace('[()]', '', $quota_line);
      $parts        = explode(' ', $quota_line);
      $storage_part = array_search('STORAGE', $parts);
      if ($storage_part>0) {
      if ($storage_part > 0) {
         $result = array();
         $used   = $parts[$storage_part+1];
         $total  = $parts[$storage_part+2];
@@ -2583,7 +2619,6 @@
         $result['free']    = 100 - $result['percent'];
      }
   }
	
   return $result;
}

@@ -2595,5 +2630,4 @@
    }
   return (iil_C_Expunge($conn, $folder) >= 0);
}

?>