+function elapsedTime($start) {
+ $stop = gettimeofday();
+ $timepassed = 1000000 * ($stop['sec'] - $start['sec']) + $stop['usec'] - $start['usec'];
+ return $timepassed;
+}
+
+// only used in sqimap_get_small_header_list
+function parseString($read,&$i) {
+ $char = $read{$i};
+ $s = '';
+ if ($char == '"') {
+ $iPos = ++$i;
+ while (true) {
+ $iPos = strpos($read,'"',$iPos);
+ if (!$iPos) break;
+ if ($iPos && $read{$iPos -1} != '\\') {
+ $s = substr($read,$i,($iPos-$i));
+ $i = $iPos;
+ break;
+ }
+ $iPos++;
+ if ($iPos > strlen($read)) {
+ break;
+ }
+ }
+ } else if ($char == '{') {
+ $lit_cnt = '';
+ ++$i;
+ $iPos = strpos($read,'}',$i);
+ if ($iPos) {
+ $lit_cnt = substr($read, $i, $iPos - $i);
+ $i += strlen($lit_cnt) + 3; /* skip } + \r + \n */
+ /* Now read the literal */
+ $s = ($lit_cnt ? substr($read,$i,$lit_cnt): '');
+ $i += $lit_cnt;
+ /* temp bugfix (SM 1.5 will have a working clean version)
+ too much work to implement that version right now */
+ --$i;
+ } else { /* should never happen */
+ $i += 3; /* } + \r + \n */
+ $s = '';
+ }
+ } else {
+ return false;
+ }
+ ++$i;
+ return $s;
+}
+
+// only used in sqimap_get_small_header_list
+function parseArray($read,&$i) {
+ $i = strpos($read,'(',$i);
+ $i_pos = strpos($read,')',$i);
+ $s = substr($read,$i+1,$i_pos - $i -1);
+ $a = explode(' ',$s);
+ if ($i_pos) {
+ $i = $i_pos+1;
+ return $a;
+ } else {
+ return false;
+ }
+}
+
+function sqimap_get_small_header_list ($imap_stream, $msg_list, $show_num=false) {
+ global $squirrelmail_language, $color, $data_dir, $username, $imap_server_type;
+ global $allow_server_sort;
+ /* Get the small headers for each message in $msg_list */
+ $maxmsg = sizeof($msg_list);
+ if ($show_num != '999999') {
+ $msgs_str = sqimap_message_list_squisher($msg_list);
+ } else {
+ $msgs_str = '1:*';
+ }
+ $messages = array();
+ $read_list = array();
+
+ /*
+ * We need to return the data in the same order as the caller supplied
+ * in $msg_list, but IMAP servers are free to return responses in
+ * whatever order they wish... So we need to re-sort manually
+ */
+ for ($i = 0; $i < sizeof($msg_list); $i++) {
+ $messages["$msg_list[$i]"] = array();
+ }
+
+ $internaldate = getPref($data_dir, $username, 'internal_date_sort');
+ if ($internaldate) {
+ $query = "FETCH $msgs_str (FLAGS UID RFC822.SIZE INTERNALDATE BODY.PEEK[HEADER.FIELDS (Date To Cc From Subject X-Priority Content-Type)])";
+ } else {
+ $query = "FETCH $msgs_str (FLAGS UID RFC822.SIZE BODY.PEEK[HEADER.FIELDS (Date To Cc From Subject X-Priority Content-Type)])";
+ }
+ $read_list = sqimap_run_command_list ($imap_stream, $query, true, $response, $message, TRUE);
+ $i = 0;
+
+ foreach ($read_list as $r) {
+ /* initialize/reset vars */
+ $subject = _("(no subject)");
+ $from = _("Unknown sender");
+ $priority = 0;
+ $messageid = '<>';
+ $type = array('','');
+ $cc = $to = $inrepto = '';
+ // use unset because we do isset below
+ unset($date);
+ $flag_seen = $flag_answered = $flag_deleted = $flag_flagged = false;
+
+ $read = implode('',$r);
+
+ /*
+ * #id<space>FETCH<space>(
+ */
+
+ /* extract the message id */
+ $i_space = strpos($read,' ',2);
+ $id = substr($read,2,$i_space-2);
+ $fetch = substr($read,$i_space+1,5);
+ if (!is_numeric($id) && $fetch !== 'FETCH') {
+ set_up_language($squirrelmail_language);
+ echo '<br><b><font color=$color[2]>' .
+ _("ERROR : Could not complete request.") .
+ '</b><br>' .
+ _("Unknown response from IMAP server: ") . ' 1.' .
+ htmlspecialchars($read) . "</font><br>\n";
+ break;
+ }
+ $i = strpos($read,'(',$i_space+5);
+ $read = substr($read,$i+1);
+ $i_len = strlen($read);
+ $i = 0;
+ while ($i < $i_len && $i !== false) {
+ /* get argument */
+ $read = trim(substr($read,$i));
+ $i_len = strlen($read);
+ $i = strpos($read,' ');
+ $arg = substr($read,0,$i);
+ ++$i;
+ switch ($arg)
+ {
+ case 'UID':
+ $i_pos = strpos($read,' ',$i);
+ if (!$i_pos) {
+ $i_pos = strpos($read,')',$i);
+ }
+ if ($i_pos) {
+ $unique_id = substr($read,$i,$i_pos-$i);
+ $i = $i_pos+1;
+ } else {
+ break 3;
+ }
+ break;
+ case 'FLAGS':
+ $flags = parseArray($read,$i);
+ if (!$flags) break 3;
+ foreach ($flags as $flag) {
+ $flag = strtolower($flag);
+ switch ($flag)
+ {
+ case '\\seen': $flag_seen = true; break;
+ case '\\answered': $flag_answered = true; break;
+ case '\\deleted': $flag_deleted = true; break;
+ case '\\flagged': $flag_flagged = true; break;
+ default: break;
+ }
+ }
+ break;
+ case 'RFC822.SIZE':
+ $i_pos = strpos($read,' ',$i);
+ if (!$i_pos) {
+ $i_pos = strpos($read,')',$i);
+ }
+ if ($i_pos) {
+ $size = substr($read,$i,$i_pos-$i);
+ $i = $i_pos+1;
+ } else {
+ break 3;
+ }
+
+ break;
+ case 'INTERNALDATE':
+ $date = parseString($read,$i);
+ //if ($tmpdate === false) break 3;
+ //$tmpdate = str_replace(' ',' ',$tmpdate);
+ //$tmpdate = explode(' ',$tmpdate);
+ //$date = str_replace('-',' ',$tmpdate[0]) . " " .
+ // $tmpdate[1] . ' ' . $tmpdate[2];
+ break;
+ case 'BODY.PEEK[HEADER.FIELDS':
+ case 'BODY[HEADER.FIELDS':
+ $i = strpos($read,'{',$i);
+ $header = parseString($read,$i);
+ if ($header === false) break 2;
+ /* First we replace all \r\n by \n, and unfold the header */
+ $hdr = trim(str_replace(array("\r\n", "\n\t", "\n "),array("\n", ' ', ' '), $header));
+ /* Now we can make a new header array with */
+ /* each element representing a headerline */
+ $hdr = explode("\n" , $hdr);
+ foreach ($hdr as $line) {
+ $pos = strpos($line, ':');
+ if ($pos > 0) {
+ $field = strtolower(substr($line, 0, $pos));
+ if (!strstr($field,' ')) { /* valid field */
+ $value = trim(substr($line, $pos+1));
+ switch($field)
+ {
+ case 'to': $to = $value; break;
+ case 'cc': $cc = $value; break;
+ case 'from': $from = $value; break;
+ case 'date': $date = $value; break;
+ case 'x-priority': $priority = $value; break;
+ case 'subject':
+ $subject = $value;
+ if ($subject == "") {
+ $subject = _("(no subject)");
+ }
+ break;
+ case 'content-type':
+ $type = $value;
+ if ($pos = strpos($type, ";")) {
+ $type = substr($type, 0, $pos);
+ }
+ $type = explode("/", $type);
+ if(!is_array($type)) {
+ $type[0] = 'text';
+ }
+ break;
+ default: break;
+ }
+ }
+ }
+ }
+ break;
+ default:
+ ++$i;
+ break;