Operation "foo_once".
[squirrelmail.git] / functions / imap_search.php
CommitLineData
245a6892 1<?php
f435778e 2 /******************************************************************
3 ** IMAP SEARCH ROUTIES
4 ** $Id$
5 *****************************************************************/
6
7 if (defined ('imap_search_php'))
8 return;
9 define ('imap_search_php', true);
10
11 include("../functions/imap.php");
12 include("../functions/date.php");
13 include("../functions/array.php");
14 include("../functions/mailbox_display.php");
15 include("../functions/mime.php");
fc05541b 16
99fa2b21 17
fc05541b 18function sqimap_search($imapConnection,$search_where,$search_what,$mailbox,$color) {
df98cf5c 19 global $msgs, $message_highlight_list, $squirrelmail_language, $languages, $index_order;
1809bad8 20 $urlMailbox = urlencode($mailbox);
21
22 # Construct the Search QuERY
23
61423189 24 if (isset($languages[$squirrelmail_language]["CHARSET"]) && $languages[$squirrelmail_language]["CHARSET"]) {
a3432f47 25 $ss = "a001 SEARCH CHARSET ".$languages[$squirrelmail_language]["CHARSET"]." ALL $search_where \"$search_what\"\r\n";
26 } else {
27 $ss = "a001 SEARCH ALL $search_where \"$search_what\"\r\n";
28 }
1809bad8 29 fputs($imapConnection,$ss);
30
31 # Read Data Back From IMAP
367e4f70 32 $readin = sqimap_read_data ($imapConnection, "a001", false, $result, $message);
33 if (isset($languages[$squirrelmail_language]["CHARSET"]) && strtolower($result) == "no") {
34 $ss = "a001 SEARCH CHARSET \"US-ASCII\" ALL $search_where \"$search_what\"\r\n";
35 fputs ($imapConnection, $ss);
36 $readin = sqimap_read_data ($imapConnection, "a001", true, $result, $message);
37 }
1809bad8 38 unset($messagelist); $msgs=""; $c = 0;
39
40 #Keep going till we find the SEARCH responce
41 while ($c < count($readin)) {
42
43 #Check to see if a SEARCH Responce was recived
44 if (substr($readin[$c],0,9) == "* SEARCH ")
45 $messagelist = explode(" ",substr($readin[$c],9));
18a148f0 46 else if (isset($errors))
1809bad8 47 $errors = $errors.$readin[$c];
18a148f0 48 else
49 $errors = $readin[$c];
1809bad8 50 $c++;
51 }
52
53 #If nothing is found * SEARCH should be the first error else echo errors
61423189 54 if (isset($errors) && strstr($errors,"* SEARCH")) {
1809bad8 55 echo "<br><CENTER>No Messages Found</CENTER>";
56 return;
61423189 57 } else if (isset($errors)) {
1809bad8 58 echo "<!-- ".$errors." -->";
59 }
60
61 # HACKED CODED FROM ANOTHER FUNCTION, Could Probably dump this and mondify
62 # exsitising code with a search true/false varible.
63
6a109962 64
1809bad8 65 global $sent_folder;
66 for ($q = 0; $q < count($messagelist); $q++) {
91f68e94 67 $id[$q] = trim($messagelist[$q]);
68 }
69 $issent = ($mailbox == $sent_folder);
70 $hdr_list = sqimap_get_small_header_list($imapConnection, $id, $issent);
76f9855e 71 $flags = sqimap_get_flags_list($imapConnection, $id, $issent);
91f68e94 72 foreach ($hdr_list as $hdr) {
73 $from[] = $hdr->from;
74 $date[] = $hdr->date;
75 $subject[] = $hdr->subject;
76 $to[] = $hdr->to;
77 $priority[] = $hdr->priority;
78 $cc[] = $hdr->cc;
79 $size[] = $hdr->size;
80 $type[] = $hdr->type0;
81 }
fc05541b 82
91f68e94 83 $j = 0;
84 while ($j < count($messagelist)) {
146e0c45 85 $date[$j] = ereg_replace(' ', ' ', $date[$j]);
1809bad8 86 $tmpdate = explode(" ", trim($date[$j]));
87
88 $messages[$j]["TIME_STAMP"] = getTimeStamp($tmpdate);
89 $messages[$j]["DATE_STRING"] = getDateString($messages[$j]["TIME_STAMP"]);
99fa2b21 90 $messages[$j]["ID"] = $id[$j];
1809bad8 91 $messages[$j]["FROM"] = decodeHeader($from[$j]);
99fa2b21 92 $messages[$j]["FROM-SORT"] = strtolower(sqimap_find_displayable_name(decodeHeader($from[$j])));
1809bad8 93 $messages[$j]["SUBJECT"] = decodeHeader($subject[$j]);
99fa2b21 94 $messages[$j]["SUBJECT-SORT"] = strtolower(decodeHeader($subject[$j]));
95 $messages[$j]["TO"] = decodeHeader($to[$j]);
98c2f0af 96 $messages[$j]["PRIORITY"] = $priority[$j];
99fa2b21 97 $messages[$j]["CC"] = $cc[$j];
98c2f0af 98 $messages[$j]["SIZE"] = $size[$j];
99 $messages[$j]["TYPE0"] = $type[$j];
1809bad8 100
101 $num = 0;
102 while ($num < count($flags[$j])) {
103 if ($flags[$j][$num] == "Deleted") {
104 $messages[$j]["FLAG_DELETED"] = true;
105 }
106 else if ($flags[$j][$num] == "Answered") {
107 $messages[$j]["FLAG_ANSWERED"] = true;
108 }
109 else if ($flags[$j][$num] == "Seen") {
110 $messages[$j]["FLAG_SEEN"] = true;
fc05541b 111 }
1809bad8 112 else if ($flags[$j][$num] == "Flagged") {
113 $messages[$j]["FLAG_FLAGGED"] = true;
114 }
115 $num++;
116 }
117 $j++;
91f68e94 118 }
fc05541b 119
1809bad8 120 /** Find and remove the ones that are deleted */
121 $i = 0;
122 $j = 0;
123 while ($j < count($messagelist)) {
61423189 124 if (isset($messages[$j]["FLAG_DELETED"]) && $messages[$j]["FLAG_DELETED"] == true) {
fc05541b 125 $j++;
1809bad8 126 continue;
fc05541b 127 }
1809bad8 128 $msgs[$i] = $messages[$j];
fc05541b 129
1809bad8 130 $i++;
131 $j++;
132 }
133 $numMessages = $i;
134
135 // There's gotta be messages in the array for it to sort them.
136
1809bad8 137 if (count($messagelist) > 0) {
138 $j=0;
61423189 139 if (!isset ($msg)) { $msg = ""; }
14eb705c 140 mail_message_listing_beginning($imapConnection,
141 "move_messages.php?msg=$msg&mailbox=$urlMailbox&where=".urlencode($search_where)."&what=".urlencode($search_what),
142 '', -1, '<b>' . _("Found") . ' ' . count($messagelist) . ' ' . _("messages") . '</b>',
143 '&nbsp;');
df98cf5c 144
1809bad8 145
146 while ($j < count($msgs)) {
147 printMessageInfo($imapConnection, $msgs[$j]["ID"], 0, $j, $mailbox, "", 0, $search_where, $search_what);
1809bad8 148 $j++;
fc05541b 149 }
1809bad8 150 echo "</table>";
151 echo "</tr></td></table>";
fc05541b 152 }
1809bad8 153 }
fc05541b 154
155?>