- function sqimap_get_small_header ($imap_stream, $id, &$from, &$subject, &$date) {
- fputs ($imap_stream, "a001 FETCH $id:$id BODY[HEADER.FIELDS (From Subject Date)]\n");
- $read = sqimap_read_data ($imap_stream, "a001", true, $response, $message);
-
- for ($i = 0; $i < count($read); $i++) {
- if (strtolower(substr($read[$i], 0, 5)) == "from:") {
- $from = sqimap_find_displayable_name(substr($read[$i], 5));
- } else if (strtolower(substr($read[$i], 0, 5)) == "date:") {
- $date = substr($read[$i], 5);
- } else if (strtolower(substr($read[$i], 0, 8)) == "subject:") {
- $subject = htmlspecialchars(substr($read[$i], 8));
- if (strlen(trim($subject)) == 0)
- $subject = _("(no subject)");
+ class small_header {
+ var $from = '', $subject = '', $date = '', $to = '',
+ $priority = 0, $message_id = 0, $cc = '';
+ }
+
+ function sqimap_get_small_header ($imap_stream, $id, $sent) {
+ $res = sqimap_get_small_header_list($imap_stream, array($id), $sent);
+ return $res[0];
+ }
+
+ // Sort the message list and crunch to be as small as possible
+ // (overflow could happen, so make it small if possible)
+ function sqimap_message_list_squisher($messages_array) {
+ if( !is_array( $messages_array ) ) return;
+ sort($messages_array, SORT_NUMERIC);
+ $msgs_str = '';
+ while ($messages_array) {
+ $start = array_shift($messages_array);
+ $end = $start;
+ while (isset($messages_array[0]) && $messages_array[0] == $end + 1)
+ $end = array_shift($messages_array);
+ if ($msgs_str != '')
+ $msgs_str .= ',';
+ $msgs_str .= $start;
+ if ($start != $end)
+ $msgs_str .= ':' . $end;
+ }
+
+ return $msgs_str;
+ }
+
+ function sqimap_get_small_header_list ($imap_stream, $msg_list, $issent) {
+ global $squirrelmail_language, $color;
+
+ /* Get the small headers for each message in $msg_list */
+ $sid = sqimap_session_id();
+ $maxmsg = sizeof($msg_list);
+ $msgs_str = sqimap_message_list_squisher($msg_list);
+ $results = array();
+ $read_list = array();
+ $sizes_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++) {
+ $id2index[$msg_list[$i]] = $i;
+ }
+
+ $query = "$sid FETCH $msgs_str BODY.PEEK[HEADER.FIELDS (Date To From Cc Subject Message-Id X-Priority Content-Type)]\r\n";
+ fputs ($imap_stream, $query);
+ $readin_list = sqimap_read_data_list($imap_stream, $sid, true, $response, $message);
+
+ foreach ($readin_list as $r) {
+ if (!eregi("^\\* ([0-9]+) FETCH", $r[0], $regs)) {
+ 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.' .
+ $r[0] . "</font><br>\n";
+ // exit;
+ } else if (! isset($id2index[$regs[1]]) || !count($id2index[$regs[1]])) {
+ set_up_language($squirrelmail_language);
+ echo '<br><b><font color=$color[2]>' .
+ _("ERROR : Could not complete request.") .
+ '</b><br>' .
+ _("Unknown message number in reply from server: ") .
+ $regs[1] . "</font><br>\n";
+ // exit;
+ } else {
+ $read_list[$id2index[$regs[1]]] = $r;
+ }
+ }
+ arsort($read_list);
+
+ $query = "$sid FETCH $msgs_str RFC822.SIZE\r\n";
+ fputs ($imap_stream, $query);
+ $sizesin_list = sqimap_read_data_list($imap_stream, $sid, true, $response, $message);
+
+ foreach ($sizesin_list as $r) {
+ if (!eregi("^\\* ([0-9]+) FETCH", $r[0], $regs)) {
+ set_up_language($squirrelmail_language);
+ echo "<br><b><font color=$color[2]>\n";
+ echo _("ERROR : Could not complete request.");
+ echo "</b><br>\n";
+ echo _("Unknown response from IMAP server: ") . ' 2.';
+ echo $r[0] . "</font><br>\n";
+ exit;
+ }
+ if (!count($id2index[$regs[1]])) {
+ set_up_language($squirrelmail_language);
+ echo "<br><b><font color=$color[2]>\n";
+ echo _("ERROR : Could not complete request.");
+ echo "</b><br>\n";
+ echo _("Unknown messagenumber in reply from server: ");
+ echo $regs[1] . "</font><br>\n";
+ exit;