till
2008-02-12 3d695da299cf236864ee75c02969669831950676
* cs fixes



1 files modified
189 ■■■■ changed files
program/lib/imap.inc 189 ●●●● patch | view | raw | blame | history
program/lib/imap.inc
@@ -56,13 +56,14 @@
/**
 * @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) {
@@ -253,8 +254,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 +265,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 +457,7 @@
    
    //check for SSL
    if ($ICL_SSL) {
        $host = $ICL_SSL."://".$host;
        $host = $ICL_SSL . '://' . $host;
    }
    
    //open socket connection
@@ -474,17 +475,19 @@
        //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";
            $conn->message .= "$line\n";
            $a = explode(' ', $line);
            if ($line[0]=="*") {
                while ( list($k, $w) = each($a) ) {
                    if ($w!='*' && $w!='CAPABILITY') {
            if ($line[0] == '*') {
                while (list($k, $w) = each($a)) {
                    if ($w != '*' && $w != 'CAPABILITY') {
                        $conn->capability[] = $w;
                    }
                    if ((strcasecmp($w, "AUTH=CRAM_MD5") == 0)||
@@ -493,19 +496,20 @@
                    }
                }
            }
        } while ($a[0]!="cp01");
        } 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)));
        
        $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 +764,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 +794,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 +807,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 +947,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 +1019,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 +1051,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 +1084,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 +1123,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 +1137,7 @@
    }
    //if cached data's good, return it
    if ($cache_good>0) {
    if ($cache_good > 0) {
        return $data['d'];
    }
@@ -1218,16 +1222,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 +1308,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 +1350,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 +1393,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 +1459,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++;
@@ -1658,8 +1665,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 +1706,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 +1799,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 +1849,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 +1888,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,7 +2003,7 @@
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);
@@ -2002,10 +2013,10 @@
                $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";
@@ -2023,7 +2034,7 @@
        return -1;
    }
    
    $r=iil_C_Copy($conn, $messages, $from,$to);
    $r = iil_C_Copy($conn, $messages, $from,$to);
    if ($r==0) {
        return iil_C_Delete($conn, $from, $messages);
    }
@@ -2237,6 +2248,7 @@
    $query = 'sub1 SUBSCRIBE "' . $folder. '"' . "\r\n";
    fputs($fp, $query);
    $line = trim(chop(iil_ReadLine($fp, 10000)));
    return iil_ParseResult($line);
}
@@ -2267,17 +2279,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 (chop($line) != ')') {
                    $result .= $line;
                    $line=iil_ReadLine($fp, 300);
                }
            }
        } while (strcmp($a[0], $key)!=0);
        } while (strcmp($a[0], $key) != 0);
    }
    
    return $result;
@@ -2292,12 +2304,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++) . ' ';
@@ -2342,11 +2354,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 .= chop($line) . "\n";
                } else if ($mode == 2) {
                    echo chop($line) . "\n"; flush();
                } else if ($mode == 3) {
                    echo base64_decode($line); flush();
                }
            }
@@ -2399,11 +2411,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 +2423,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,15 +2431,18 @@
}
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)) {
@@ -2475,11 +2490,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 +2504,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 +2548,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 +2584,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 +2598,6 @@
            $result['free']    = 100 - $result['percent'];
        }
    }
    return $result;
}
@@ -2595,5 +2609,4 @@
    }
    return (iil_C_Expunge($conn, $folder) >= 0);
}
?>
?>