Received is a better word in this instance.
[squirrelmail.git] / src / search.php
CommitLineData
c61bb006 1<?php
245a6892 2
35586184 3/**
8cc8ec79 4* search.php
5*
6* Copyright (c) 1999-2004 The SquirrelMail Project Team
7* Licensed under the GNU GPL. For full terms see the file COPYING.
8*
9* IMAP search page
10*
11* Subfolder search idea from Patch #806075 by Thomas Pohl xraven at users.sourceforge.net. Thanks Thomas!
12*
13* @version $Id$
14* @package squirrelmail
15* @link http://www.ietf.org/rfc/rfc3501.txt
16* @author Alex Lemaresquier - Brainstorm - alex at brainstorm.fr
17*/
2d367c68 18
30967a1e 19/**
8cc8ec79 20* Path for SquirrelMail required files.
21* @ignore
22*/
86725763 23define('SM_PATH','../');
24
7d60bda5 25/** SquirrelMail required files.
8cc8ec79 26*/
08185f2a 27require_once(SM_PATH . 'include/validate.php');
b2e7eb53 28require_once(SM_PATH . 'functions/strings.php');
6b37252b 29require_once(SM_PATH . 'functions/imap_asearch.php');
86725763 30require_once(SM_PATH . 'functions/imap_mailbox.php');
b65c5db0 31require_once(SM_PATH . 'functions/imap_messages.php');
0ca9a6ec 32require_once(SM_PATH . 'functions/mime.php');
b2e7eb53 33require_once(SM_PATH . 'functions/mailbox_display.php'); //getButton()...
c61bb006 34
7d60bda5 35/** Prefs array ordinals. Must match $recent_prefkeys and $saved_prefkeys
8cc8ec79 36*/
7d60bda5 37define('ASEARCH_WHERE', 0);
38define('ASEARCH_MAILBOX', 1);
39define('ASEARCH_WHAT', 2);
40define('ASEARCH_UNOP', 3);
41define('ASEARCH_BIOP', 4);
42define('ASEARCH_EXCLUDE', 5);
43define('ASEARCH_SUB', 6);
5b6abe97 44define('ASEARCH_MAX', 7);
45
46/** Name of session var
8cc8ec79 47*/
5b6abe97 48define('ASEARCH_CRITERIA', 'criteria');
7d60bda5 49
50/** Builds a href with params
8cc8ec79 51* @param string $params optional parameters to GET
52*/
7d60bda5 53function asearch_get_href($params = '')
54{
8cc8ec79 55 $href = 'search.php';
56 if ($params != '')
57 $href .= '?' . $params;
58 return $href;
7d60bda5 59}
60
61/** Builds a [link]
8cc8ec79 62* @param string $href (reference)
63* @param string $text
64* @param string $title
65*/
94375458 66function asearch_get_link(&$href, $text, $title = '')
7d60bda5 67{
8cc8ec79 68 if ($title != '')
69 $title = ' title="' . $title . '"';
70 return '<a href="' . $href . '"' . $title . '>' . $text . '</a>';
7d60bda5 71}
72
73/** Builds a toggle [link]
8cc8ec79 74* @param integer $value
75* @param string $action
76* @param array $text_array
77* @param array $title_array
78*/
94375458 79function asearch_get_toggle_link($value, $action, $text_array, $title_array = array())
7d60bda5 80{
8cc8ec79 81 return asearch_get_link(asearch_get_href($action . '=' . (int)$value), $text_array[$value], asearch_nz($title_array[$value]));
7d60bda5 82}
83
40fbe929 84/**
8cc8ec79 85* @param string $a
86* @param string $b
87* @return bool strcoll()-like result
88*/
6b37252b 89function asearch_unhtml_strcoll($a, $b)
90{
8cc8ec79 91 return strcoll(asearch_unhtmlentities($a), asearch_unhtmlentities($b));
6b37252b 92}
40fbe929 93
94/**
8cc8ec79 95* @param string $mailbox mailbox name utf7 encoded inc. special case INBOX
96* @return string mailbox name ready to display (utf7 decoded or localized INBOX)
97*/
6b37252b 98function imap_get_mailbox_display($mailbox)
99{
8cc8ec79 100 if (strtoupper($mailbox) == 'INBOX')
101 return _("INBOX");
102 return imap_utf7_decode_local($mailbox);
6b37252b 103}
56e0b3b7 104
40fbe929 105/**
8cc8ec79 106* @param string $mailbox mailbox name or special case 'All Folders'
107* @return string mailbox name ready to display (utf7 decoded or localized 'All Folders')
108*/
6b37252b 109function asearch_get_mailbox_display($mailbox)
110{
8cc8ec79 111 if ($mailbox == 'All Folders')
112 return _("All Folders");
113 return imap_get_mailbox_display($mailbox);
6b37252b 114}
0b97a708 115
40fbe929 116/**
8cc8ec79 117* @param array $color color array
118* @param string $txt text to display
119* @return string title ready to display
120*/
7d60bda5 121function asearch_get_title_display(&$color, $txt)
6b37252b 122{
8cc8ec79 123 return '<b><big>' . $txt . '</big></b>';
6b37252b 124}
0b97a708 125
40fbe929 126/**
8cc8ec79 127* @param array $color color array
128* @param string $txt text to display
129* @return string error text ready to display
130*/
7d60bda5 131function asearch_get_error_display(&$color, $txt)
6b37252b 132{
8cc8ec79 133 return '<font color="' . $color[2] . '">' . '<b><big>' . $txt . '</big></b></font>';
0b97a708 134}
6b37252b 135
40fbe929 136/**
8cc8ec79 137* @param array $input_array array to serialize
138* @return string a string containing a byte-stream representation of value that can be stored anywhere
139*/
7d60bda5 140function asearch_serialize(&$input_array)
6b37252b 141{
8cc8ec79 142 global $search_advanced;
143 if ($search_advanced)
144 return serialize($input_array);
145 return $input_array[0];
0b97a708 146}
6b37252b 147
40fbe929 148/**
8cc8ec79 149* @param string $input_string string to unserialize
150* @return array
151*/
6b37252b 152function asearch_unserialize($input_string)
153{
8cc8ec79 154 global $search_advanced;
155 if ($search_advanced)
156 return unserialize($input_string);
157 return array($input_string);
0b97a708 158}
6b37252b 159
40fbe929 160/**
8cc8ec79 161* @param string $key the pref key
162* @param integer $index the pref key index
163* @param string $default default value
164* @return string pref value
165*/
7d60bda5 166function asearch_getPref(&$key, $index, $default = '')
6b37252b 167{
8cc8ec79 168 global $data_dir, $username, $search_advanced;
169 return getPref($data_dir, $username, $key . ($index + !$search_advanced), $default);
0b97a708 170}
6b37252b 171
40fbe929 172/**
8cc8ec79 173* @param string $key the pref key
174* @param integer $index the pref key index
175* @param string $value pref value to set
176* @return bool status
177*/
7d60bda5 178function asearch_setPref(&$key, $index, $value)
6b37252b 179{
8cc8ec79 180 global $data_dir, $username, $search_advanced;
181 return setPref($data_dir, $username, $key . ($index + !$search_advanced), $value);
0b97a708 182}
6b37252b 183
40fbe929 184/**
8cc8ec79 185* @param string $key the pref key
186* @param integer $index the pref key index
187* @return bool status
188*/
7d60bda5 189function asearch_removePref(&$key, $index)
6b37252b 190{
8cc8ec79 191 global $data_dir, $username, $search_advanced;
192 return removePref($data_dir, $username, $key . ($index + !$search_advanced));
0b97a708 193}
0b97a708 194
7d60bda5 195/** Sanity checks, done before running the imap command and before calling push_recent
8cc8ec79 196*/
7d60bda5 197function asearch_check_query(&$where_array, &$what_array, &$exclude_array)
6b37252b 198{
8cc8ec79 199 global $imap_asearch_opcodes;
05f5b952 200
8cc8ec79 201 if (empty($where_array))
202 return _("Please enter something to search for");
203 if (count($exclude_array) == count($where_array))
204 return _("There must be at least one criteria to search for");
205 for ($crit_num = 0; $crit_num < count($where_array); $crit_num++) {
206 $where = $where_array[$crit_num];
207 $what = $what_array[$crit_num];
208 if (!(($what == '') ^ ($imap_asearch_opcodes[$where] != '')))
209 return _("Error in criteria argument");
210 }
211 return '';
56e0b3b7 212}
213
7d60bda5 214/** Read the recent searches from the prefs
8cc8ec79 215*/
7d60bda5 216function asearch_read_recent()
6b37252b 217{
8cc8ec79 218 global $recent_prefkeys, $search_memory;
6b37252b 219
8cc8ec79 220 $recent_array = array();
221 $recent_num = 0;
222 for ($pref_num = 0; $pref_num < $search_memory; $pref_num++) {
223 foreach ($recent_prefkeys as $prefkey) {
224 $pref = asearch_getPref($prefkey, $pref_num);
6b37252b 225/* if (!empty($pref))*/
8cc8ec79 226 $recent_array[$prefkey][$recent_num] = $pref;
227 }
228 if (empty($recent_array[$recent_prefkeys[0]][$recent_num])) {
229 foreach ($recent_prefkeys as $key) {
230 array_pop($recent_array[$key]);
231 }
7d60bda5 232// break; //Disabled to support old search code broken prefs
8cc8ec79 233 }
234 else
235 $recent_num++;
236 }
237 return $recent_array;
56e0b3b7 238}
23a9084b 239
7d60bda5 240/** Read the saved searches from the prefs
8cc8ec79 241*/
7d60bda5 242function asearch_read_saved()
6b37252b 243{
8cc8ec79 244 global $saved_prefkeys;
245
246 $saved_array = array();
247 $saved_key = $saved_prefkeys[0];
248 for ($saved_count = 0; ; $saved_count++) {
249 $pref = asearch_getPref($saved_key, $saved_count);
250 if (empty($pref))
251 break;
252 }
253 for ($saved_num = 0; $saved_num < $saved_count; $saved_num++) {
254 foreach ($saved_prefkeys as $key) {
255 $saved_array[$key][$saved_num] = asearch_getPref($key, $saved_num);
256 }
257 }
258 return $saved_array;
6b37252b 259}
260
7d60bda5 261/** Save a recent search to the prefs
8cc8ec79 262*/
7d60bda5 263function asearch_save_recent($recent_index)
6b37252b 264{
8cc8ec79 265 global $recent_prefkeys, $saved_prefkeys;
266
267 $saved_array = asearch_read_saved();
268 $saved_index = count($saved_array[$saved_prefkeys[0]]);
269 $recent_array = asearch_read_recent();
270 $n = 0;
271 foreach ($recent_prefkeys as $key) {
272 $recent_slice = array_slice($recent_array[$key], $recent_index, 1);
273 if (!empty($recent_slice[0]))
274 asearch_setPref($saved_prefkeys[$n], $saved_index, $recent_slice[0]);
275 else
276 asearch_removePref($saved_prefkeys[$n], $saved_index);
277 $n++;
278 }
6b37252b 279}
280
7d60bda5 281/** Write a recent search to prefs
8cc8ec79 282*/
7d60bda5 283function asearch_write_recent(&$recent_array)
6b37252b 284{
8cc8ec79 285 global $recent_prefkeys, $search_memory;
6b37252b 286
8cc8ec79 287 $recent_count = min($search_memory, count($recent_array[$recent_prefkeys[0]]));
288 for ($recent_num = 0; $recent_num < $recent_count; $recent_num++) {
289 foreach ($recent_prefkeys as $key) {
290 asearch_setPref($key, $recent_num, $recent_array[$key][$recent_num]);
291 }
292 }
293 for (; $recent_num < $search_memory; $recent_num++) {
294 foreach ($recent_prefkeys as $key) {
295 asearch_removePref($key, $recent_num);
296 }
297 }
6b37252b 298}
299
7d60bda5 300/** Remove a recent search from prefs
8cc8ec79 301*/
7d60bda5 302function asearch_forget_recent($forget_index)
6b37252b 303{
8cc8ec79 304 global $recent_prefkeys;
6b37252b 305
8cc8ec79 306 $recent_array = asearch_read_recent();
307 foreach ($recent_prefkeys as $key) {
308 array_splice($recent_array[$key], $forget_index, 1);
309 }
310 asearch_write_recent($recent_array);
6b37252b 311}
312
7d60bda5 313/** Find a recent search in the prefs (used to avoid saving duplicates)
8cc8ec79 314*/
7d60bda5 315function asearch_find_recent(&$recent_array, &$mailbox_array, &$biop_array, &$unop_array, &$where_array, &$what_array, &$exclude_array, &$sub_array)
6b37252b 316{
8cc8ec79 317 global $recent_prefkeys, $search_advanced;
318
319 $where_string = asearch_serialize($where_array);
320 $mailbox_string = asearch_serialize($mailbox_array);
321 $what_string = asearch_serialize($what_array);
322 $unop_string = asearch_serialize($unop_array);
323 if ($search_advanced) {
324 $biop_string = asearch_serialize($biop_array);
325 $exclude_string = asearch_serialize($exclude_array);
326 $sub_string = asearch_serialize($sub_array);
327 }
328 $recent_count = count($recent_array[$recent_prefkeys[ASEARCH_WHERE]]);
329 for ($recent_num = 0; $recent_num < $recent_count; $recent_num++) {
330 if (isset($recent_array[$recent_prefkeys[ASEARCH_WHERE]][$recent_num])) {
331 if (
332 $where_string == $recent_array[$recent_prefkeys[ASEARCH_WHERE]][$recent_num] &&
333 $mailbox_string == $recent_array[$recent_prefkeys[ASEARCH_MAILBOX]][$recent_num] &&
334 $what_string == $recent_array[$recent_prefkeys[ASEARCH_WHAT]][$recent_num] &&
335 $unop_string == $recent_array[$recent_prefkeys[ASEARCH_UNOP]][$recent_num] &&
336 ((!$search_advanced) ||
337 ($biop_string == $recent_array[$recent_prefkeys[ASEARCH_BIOP]][$recent_num] &&
338 $exclude_string == $recent_array[$recent_prefkeys[ASEARCH_EXCLUDE]][$recent_num] &&
339 $sub_string == $recent_array[$recent_prefkeys[ASEARCH_SUB]][$recent_num]))
340 )
341 return $recent_num;
342 }
343 }
344 return -1;
6b37252b 345}
346
7d60bda5 347/** Push a recent search into the prefs
8cc8ec79 348*/
7d60bda5 349function asearch_push_recent(&$mailbox_array, &$biop_array, &$unop_array, &$where_array, &$what_array, &$exclude_array, &$sub_array)
6b37252b 350{
8cc8ec79 351 global $recent_prefkeys, $search_memory;
324ac3c5 352 //global $what; // Hack to access issued search from read_body.php
353 $what = 1;
354 /**
355 * Update search history and store it in the session so we can retrieve the
356 * issued search when returning from an external page like read_body.php
357 */
358 $criteria[$what] = array($mailbox_array, $biop_array, $unop_array, $where_array, $what_array, $exclude_array, $sub_array);
8cc8ec79 359 sqsession_register($criteria, ASEARCH_CRITERIA);
360 if ($search_memory > 0) {
361 $recent_array = asearch_read_recent();
362 $recent_found = asearch_find_recent($recent_array, $mailbox_array, $biop_array, $unop_array, $where_array, $what_array, $exclude_array, $sub_array);
363 if ($recent_found >= 0) { // Remove identical recent
364 foreach ($recent_prefkeys as $key) {
365 array_splice($recent_array[$key], $recent_found, 1);
366 }
367 }
368 $input = array($where_array, $mailbox_array, $what_array, $unop_array, $biop_array, $exclude_array, $sub_array);
369 $i = 0;
370 foreach ($recent_prefkeys as $key) {
371 array_unshift($recent_array[$key], asearch_serialize($input[$i]));
372 $i++;
373 }
374 asearch_write_recent($recent_array);
375 }
6b37252b 376}
377
7d60bda5 378/** Edit a recent search
8cc8ec79 379* @global array mailbox_array searched mailboxes
380*/
7d60bda5 381function asearch_edit_recent($index)
6b37252b 382{
8cc8ec79 383 global $recent_prefkeys, $search_advanced;
384 global $where_array, $mailbox_array, $what_array, $unop_array;
385 global $biop_array, $exclude_array, $sub_array;
7d60bda5 386
8cc8ec79 387 $where_array = asearch_unserialize(asearch_getPref($recent_prefkeys[ASEARCH_WHERE], $index));
388 $mailbox_array = asearch_unserialize(asearch_getPref($recent_prefkeys[ASEARCH_MAILBOX], $index));
389 $what_array = asearch_unserialize(asearch_getPref($recent_prefkeys[ASEARCH_WHAT], $index));
390 $unop_array = asearch_unserialize(asearch_getPref($recent_prefkeys[ASEARCH_UNOP], $index));
391 if ($search_advanced) {
392 $biop_array = asearch_unserialize(asearch_getPref($recent_prefkeys[ASEARCH_BIOP], $index));
393 $exclude_array = asearch_unserialize(asearch_getPref($recent_prefkeys[ASEARCH_EXCLUDE], $index));
394 $sub_array = asearch_unserialize(asearch_getPref($recent_prefkeys[ASEARCH_SUB], $index));
395 }
6b37252b 396}
397
958becc9 398/** Get last search criteria from session or prefs
324ac3c5 399* FIX ME, try to avoid globals
8cc8ec79 400*/
324ac3c5 401function asearch_edit_last($index) {
8cc8ec79 402 if (sqGetGlobalVar(ASEARCH_CRITERIA, $criteria, SQ_SESSION)) {
403 global $where_array, $mailbox_array, $what_array, $unop_array;
404 global $biop_array, $exclude_array, $sub_array;
324ac3c5 405 $mailbox_array = $criteria[$index][0];
406 $biop_array = $criteria[$index][1];
407 $unop_array = $criteria[$index][2];
408 $where_array = $criteria[$index][3];
409 $what_array = $criteria[$index][4];
410 $exclude_array = $criteria[$index][5];
411 $sub_array = $criteria[$index][6];
412 unset($criteria[$index]);
413 //sqsession_unregister(ASEARCH_CRITERIA);
414 } else {
8cc8ec79 415 global $search_memory;
324ac3c5 416 if ($search_memory > 0) {
8cc8ec79 417 asearch_edit_recent(0);
324ac3c5 418 }
8cc8ec79 419 }
6b37252b 420}
421
7d60bda5 422/** Edit a saved search
8cc8ec79 423*/
7d60bda5 424function asearch_edit_saved($index)
6b37252b 425{
8cc8ec79 426 global $saved_prefkeys, $search_advanced;
427 global $where_array, $mailbox_array, $what_array, $unop_array;
428 global $biop_array, $exclude_array, $sub_array;
7d60bda5 429
8cc8ec79 430 $where_array = asearch_unserialize(asearch_getPref($saved_prefkeys[ASEARCH_WHERE], $index));
431 $mailbox_array = asearch_unserialize(asearch_getPref($saved_prefkeys[ASEARCH_MAILBOX], $index));
432 $what_array = asearch_unserialize(asearch_getPref($saved_prefkeys[ASEARCH_WHAT], $index));
433 $unop_array = asearch_unserialize(asearch_getPref($saved_prefkeys[ASEARCH_UNOP], $index));
434 if ($search_advanced) {
435 $biop_array = asearch_unserialize(asearch_getPref($saved_prefkeys[ASEARCH_BIOP], $index));
436 $exclude_array = asearch_unserialize(asearch_getPref($saved_prefkeys[ASEARCH_EXCLUDE], $index));
437 $sub_array = asearch_unserialize(asearch_getPref($saved_prefkeys[ASEARCH_SUB], $index));
438 }
6b37252b 439}
440
7d60bda5 441/** Write a saved search to the prefs
8cc8ec79 442*/
7d60bda5 443function asearch_write_saved(&$saved_array)
6b37252b 444{
8cc8ec79 445 global $saved_prefkeys;
6b37252b 446
8cc8ec79 447 $saved_count = count($saved_array[$saved_prefkeys[0]]);
448 for ($saved_num=0; $saved_num < $saved_count; $saved_num++) {
449 foreach ($saved_prefkeys as $key) {
450 asearch_setPref($key, $saved_num, $saved_array[$key][$saved_num]);
451 }
452 }
453 foreach ($saved_prefkeys as $key) {
454 asearch_removePref($key, $saved_count);
455 }
6b37252b 456}
457
7d60bda5 458/** Delete a saved search from the prefs
8cc8ec79 459*/
7d60bda5 460function asearch_delete_saved($saved_index)
6b37252b 461{
8cc8ec79 462 global $saved_prefkeys;
6b37252b 463
8cc8ec79 464 $saved_array = asearch_read_saved();
465 $asearch_keys = $saved_prefkeys;
466 foreach ($asearch_keys as $key) {
467 array_splice($saved_array[$key], $saved_index, 1);
468 }
469 asearch_write_saved($saved_array);
6b37252b 470}
471
7d60bda5 472/** Translate the input date to imap date to local date display,
8cc8ec79 473* so the user can know if the date is wrong or illegal
474* @return string locally formatted date or error text
475*/
7d60bda5 476function asearch_get_date_display(&$what)
6b37252b 477{
8cc8ec79 478 $what_parts = sqimap_asearch_parse_date($what);
479 if (count($what_parts) == 4) {
480 if (checkdate($what_parts[2], $what_parts[1], $what_parts[3]))
481 return date_intl(_("M j, Y"), mktime(0,0,0,$what_parts[2],$what_parts[1],$what_parts[3]));
482 //return $what_parts[1] . ' ' . getMonthName($what_parts[2]) . ' ' . $what_parts[3];
483 return _("(Illegal date)");
484 }
485 return _("(Wrong date)");
6b37252b 486}
487
7d60bda5 488/** Translate the query to rough natural display
8cc8ec79 489* @return string rough natural query ready to display
490*/
7d60bda5 491function asearch_get_query_display(&$color, &$mailbox_array, &$biop_array, &$unop_array, &$where_array, &$what_array, &$exclude_array, &$sub_array)
6b37252b 492{
8cc8ec79 493 global $imap_asearch_biops_in, $imap_asearch_biops, $imap_asearch_unops, $imap_asearch_options;
494 global $imap_asearch_opcodes;
495
496 $last_mailbox = $mailbox_array[0];
497 if (empty($last_mailbox))
498 $last_mailbox = 'INBOX';
499 $query_display = '';
500 for ($crit_num=0; $crit_num < count($where_array); $crit_num++) {
501 if ((!isset($exclude_array[$crit_num])) || (!$exclude_array[$crit_num])) {
502 $cur_mailbox = $mailbox_array[$crit_num];
503 if (empty($cur_mailbox))
504 $cur_mailbox = 'INBOX';
505 $biop = asearch_nz($biop_array[$crit_num]);
506 if (($query_display == '') || ($cur_mailbox != $last_mailbox)) {
507 $mailbox_display = ' <b>' . asearch_get_mailbox_display($cur_mailbox) . '</b>';
508 if ($query_display == '')
509 $biop_display = _("In");
510 else
511 $biop_display = $imap_asearch_biops_in[$biop];
512 $last_mailbox = $cur_mailbox;
513 }
514 else {
515 $mailbox_display = '';
516 $biop_display = $imap_asearch_biops[$biop];
517 }
518 $unop = $unop_array[$crit_num];
519 $unop_display = $imap_asearch_unops[$unop];
520 if ($unop_display != '')
521 $unop_display .= ' ';
522 $where = $where_array[$crit_num];
523 $where_display = $unop_display . asearch_nz($imap_asearch_options[$where], $where);
524 $what_type = $imap_asearch_opcodes[$where];
525 $what = $what_array[$crit_num];
526 if ($what_type) { /* Check opcode parameter */
527 if ($what == '')
528 $what_display = ' ' . asearch_get_error_display($color, _("(Missing argument)"));
529 else {
530 if ($what_type == 'adate')
531 $what_display = asearch_get_date_display($what);
532 else
533 $what_display = htmlspecialchars($what);
534 $what_display = ' <b>' . $what_display . '</b>';
535 }
536 }
537 else {
538 if ($what)
539 $what_display = ' ' . asearch_get_error_display($color, _("(Spurious argument)"));
540 else
541 $what_display = '';
542 }
543 if ($mailbox_display != '')
544 $query_display .= ' <u><i>' . $biop_display . '</i></u>' . $mailbox_display . ' <u><i>' . $where_display . '</i></u>' . $what_display;
545 else
546 $query_display .= ' <u><i>' . $biop_display . ' ' . $where_display . '</i></u>' . $what_display;
547 }
548 }
549 return $query_display;
6b37252b 550}
551
7d60bda5 552/** Handle the alternate row colors
8cc8ec79 553* @return string color value
554*/
7d60bda5 555function asearch_get_row_color(&$color, $row_num)
6b37252b 556{
557/*$color_string = ($row_num%2 ? $color[0] : $color[4]);*/
8cc8ec79 558 $color_string = $color[4];
559 if ($GLOBALS['alt_index_colors']) {
560 if (($row_num % 2) == 0) {
561 if (!isset($color[12]))
562 $color[12] = '#EAEAEA';
563 $color_string = $color[12];
564 }
565 }
566 return $color_string;
6b37252b 567}
568
7d60bda5 569/** Print a whole query array, recent or saved
8cc8ec79 570*/
7d60bda5 571function asearch_print_query_array(&$boxes, &$query_array, &$query_keys, &$action_array, $title, $show_pref)
6b37252b 572{
8cc8ec79 573 global $color;
574 global $data_dir, $username;
575 global $use_icons, $icon_theme;
576
577 $show_flag = getPref($data_dir, $username, $show_pref, 0) & 1;
578 $use_icons_flag = ($use_icons) && ($icon_theme != 'none');
579 if ($use_icons_flag)
580 $text_array = array('<img src="' . SM_PATH . 'images/minus.png" border="0" height="7" width="7" />',
581 '<img src="' . SM_PATH . 'images/plus.png" border="0" height="7" width="7" />');
582 else
583 $text_array = array('-', '+');
584 $toggle_link = asearch_get_toggle_link(!$show_flag, $show_pref, $text_array, array(_("Fold"), _("Unfold")));
585 if (!$use_icons_flag)
586 $toggle_link = '<small>[' . $toggle_link . ']</small>';
587
588 echo "<br />\n";
589 echo html_tag('table', '', 'center', $color[9], 'width="95%" cellpadding="1" cellspacing="1" border="0"');
590 echo html_tag('tr',
591 html_tag('td', $toggle_link, 'center', $color[5], 'width="5%"')
592 . html_tag('td', asearch_get_title_display($color, $title), 'center', $color[5], 'colspan=4'));
593 if ($show_flag) {
594 $main_key = $query_keys[ASEARCH_WHERE];
595 $query_count = count($query_array[$main_key]);
596 for ($query_num = 0, $row_num = 0; $query_num < $query_count; $query_num++) {
597 if (!empty($query_array[$main_key][$query_num])) {
598 echo html_tag('tr', '', '', asearch_get_row_color($color, $row_num));
599
600 unset($search_array);
601 foreach ($query_keys as $query_key) {
602 $search_array[] = asearch_unserialize($query_array[$query_key][$query_num]);
603 }
604 $where_array = $search_array[ASEARCH_WHERE];
605 $mailbox_array = $search_array[ASEARCH_MAILBOX];
606 $what_array = $search_array[ASEARCH_WHAT];
607 $unop_array = $search_array[ASEARCH_UNOP];
608 $biop_array = asearch_nz($search_array[ASEARCH_BIOP], array());
609 $exclude_array = asearch_nz($search_array[ASEARCH_EXCLUDE], array());
610 $sub_array = asearch_nz($search_array[ASEARCH_SUB], array());
611 $query_display = asearch_get_query_display($color, $mailbox_array, $biop_array, $unop_array, $where_array, $what_array, $exclude_array, $sub_array);
612
613 echo html_tag('td', $query_num + 1, 'right');
614 echo html_tag('td', $query_display, 'center', '', 'width="80%"');
615 foreach ($action_array as $action => $action_display) {
616 echo html_tag('td', '<a href="' . asearch_get_href('submit=' . $action . '&amp;rownum=' . $query_num) . '">' . $action_display . '</a>', 'center');
617 }
618
619 echo '</tr>' . "\n";
620 $row_num++;
621 }
622 }
623 }
624 echo '</table>' . "\n";
6b37252b 625}
626
7d60bda5 627/** Print the saved array
8cc8ec79 628*/
7d60bda5 629function asearch_print_saved(&$boxes)
6b37252b 630{
8cc8ec79 631 global $saved_prefkeys;
6b37252b 632
8cc8ec79 633 $saved_array = asearch_read_saved();
634 if (isset($saved_array[$saved_prefkeys[0]])) {
635 $saved_count = count($saved_array[$saved_prefkeys[0]]);
636 if ($saved_count > 0) {
637 $saved_actions = array('edit_saved' => _("edit"), 'search_saved' => _("search"), 'delete_saved' => _("delete"));
638 asearch_print_query_array($boxes, $saved_array, $saved_prefkeys, $saved_actions, _("Saved Searches"), 'search_show_saved');
639 }
640 }
70c4fd84 641}
6c8388a9 642
7d60bda5 643/**
8cc8ec79 644* Print the recent array
645*/
7d60bda5 646function asearch_print_recent(&$boxes)
6b37252b 647{
8cc8ec79 648 global $recent_prefkeys, $search_memory;
6b37252b 649
8cc8ec79 650 $recent_array = asearch_read_recent();
651 if (isset($recent_array[$recent_prefkeys[0]])) {
652 $recent_count = count($recent_array[$recent_prefkeys[0]]);
653 if (min($recent_count, $search_memory) > 0) {
654 $recent_actions = array('save_recent' => _("save"), 'search_recent' => _("search"), 'forget_recent' => _("forget"));
655 asearch_print_query_array($boxes, $recent_array, $recent_prefkeys, $recent_actions, _("Recent Searches"), 'search_show_recent');
656 }
657 }
56e0b3b7 658}
659
7d60bda5 660/** Build an <option> statement
8cc8ec79 661*/
920ec5ec 662function asearch_opt($val, $sel, $tit)
6b37252b 663{
e1728a7a 664 return '<option value="' . $val . '"' . ($sel == $val ? ' selected="selected"' : '') . '>' . $tit . '</option>' . "\n";
6b37252b 665}
666
7d60bda5 667/** Build a <select> statement from an array
8cc8ec79 668*/
6b37252b 669function asearch_opt_array($var_name, $opt_array, $cur_val)
670{
8cc8ec79 671 $output = '<select name="' . $var_name . '">' . "\n";
672 foreach($opt_array as $val => $display)
673 $output .= asearch_opt($val, $cur_val, asearch_nz($display, $val));
674 $output .= '</select>' . "\n";
675 return $output;
6b37252b 676}
677
7d60bda5 678/** Verify that a mailbox exists
8cc8ec79 679* @return bool mailbox exists
680*/
7d60bda5 681function asearch_mailbox_exists($mailbox, &$boxes)
920ec5ec 682{
8cc8ec79 683 foreach ($boxes as $box) {
684 if ($box['unformatted'] == $mailbox)
685 return TRUE;
686 }
687 return FALSE;
920ec5ec 688}
689
5b6abe97 690/** Build the mailbox select
8cc8ec79 691*/
7d60bda5 692function asearch_get_form_mailbox($imapConnection, &$boxes, $mailbox, $row_num = 0)
6b37252b 693{
324ac3c5 694 if (($mailbox != 'All Folders') && (!asearch_mailbox_exists($mailbox, $boxes))) {
8cc8ec79 695 $missing = asearch_opt($mailbox, $mailbox, '[' . _("Missing") . '] ' . asearch_get_mailbox_display($mailbox));
324ac3c5 696 } else {
8cc8ec79 697 $missing = '';
324ac3c5 698 }
8cc8ec79 699 return '<select name="mailbox[' . $row_num . ']">'
700 . $missing
701 . asearch_opt('All Folders', $mailbox, '[' . asearch_get_mailbox_display('All Folders') . ']')
702 . sqimap_mailbox_option_list($imapConnection, array(strtolower($mailbox)), 0, $boxes, NULL)
703 . '</select>';
7d60bda5 704}
705
5b6abe97 706/** Build the Include subfolders checkbox
8cc8ec79 707*/
7d60bda5 708function asearch_get_form_sub($sub, $row_num = 0)
709{
8cc8ec79 710 return function_exists('addCheckBox') ? addCheckBox('sub[' . $row_num .']', $sub)
711 : '<input type="checkbox" name="sub[' . $row_num .']"' . ($sub ? ' checked="checked"' : '') . ' />';
7d60bda5 712}
713
5b6abe97 714/** Build the 2 unop and where selects
8cc8ec79 715*/
7d60bda5 716function asearch_get_form_location($unop, $where, $row_num = 0)
717{
8cc8ec79 718 global $imap_asearch_unops, $imap_asearch_options;
7d60bda5 719
8cc8ec79 720 return asearch_opt_array('unop[' . $row_num . ']', $imap_asearch_unops, $unop)
721 . asearch_opt_array('where[' . $row_num . ']', $imap_asearch_options, $where);
7d60bda5 722}
723
5b6abe97 724/** Build the what text input
8cc8ec79 725*/
7d60bda5 726function asearch_get_form_what($what, $row_num = 0)
727{
8cc8ec79 728 return function_exists('addInput') ? addInput('what[' . $row_num . ']', $what, '35')
729 : '<input type="text" size="35" name="what[' . $row_num . ']" value="' . htmlspecialchars($what) . '" />';
7d60bda5 730}
731
5b6abe97 732/** Build the Exclude criteria checkbox
8cc8ec79 733*/
7d60bda5 734function asearch_get_form_exclude($exclude, $row_num = 0)
735{
8cc8ec79 736 return function_exists('addCheckBox') ? addCheckBox('exclude['.$row_num.']', $exclude)
737 : '<input type="checkbox" name="exclude[' . $row_num .']"' . ($exclude ? ' checked="checked"' : '') . ' />';
7d60bda5 738}
739
740/** Print one advanced form row
8cc8ec79 741*/
7d60bda5 742function asearch_print_form_row($imapConnection, &$boxes, $mailbox, $biop, $unop, $where, $what, $exclude, $sub, $row_num)
743{
8cc8ec79 744 global $imap_asearch_biops_in;
745 global $color;
6b37252b 746
8cc8ec79 747 echo html_tag('tr', '', '', $color[4]);
6b37252b 748
7d60bda5 749//Binary operator
8cc8ec79 750 echo html_tag('td', $row_num ?
751 asearch_opt_array('biop[' . $row_num . ']', $imap_asearch_biops_in, $biop)
752 : '<b>' . _("In") . '</b>', 'center') . "\n";
7d60bda5 753
754//Mailbox list and Include Subfolders
8cc8ec79 755 echo html_tag('td',
756 asearch_get_form_mailbox($imapConnection, $boxes, $mailbox, $row_num)
757 . _("and&nbsp;subfolders:") . asearch_get_form_sub($sub, $row_num), 'center') . "\n";
6b37252b 758
7d60bda5 759//Unary operator and Search location
8cc8ec79 760 echo html_tag('td', asearch_get_form_location($unop, $where, $row_num), 'center') . "\n";
6b37252b 761
7d60bda5 762//Text input
8cc8ec79 763 echo html_tag('td', asearch_get_form_what($what, $row_num), 'center') . "\n";
7d60bda5 764
765//Exclude criteria
8cc8ec79 766 echo html_tag('td', _("Exclude Criteria:") . asearch_get_form_exclude($exclude, $row_num), 'center') . "\n";
6b37252b 767
8cc8ec79 768 echo "</tr>\n";
6b37252b 769}
770
7d60bda5 771/** Print the advanced search form
8cc8ec79 772*/
7d60bda5 773function asearch_print_form($imapConnection, &$boxes, $mailbox_array, $biop_array, $unop_array, $where_array, $what_array, $exclude_array, $sub_array)
6b37252b 774{
8cc8ec79 775 global $search_button_html, $add_criteria_button_html, $del_excluded_button_html, $del_all_button_html;
776 global $color;
6b37252b 777
7d60bda5 778//Search Form
8cc8ec79 779 echo "<br />\n";
780 echo '<form action="' . asearch_get_href() . '" name="form_asearch">' . "\n";
781
782 echo html_tag('table', '', 'center', $color[9], 'width="100%" cellpadding="1" cellspacing="1" border="0"');
783 echo html_tag('tr', html_tag('td', asearch_get_title_display($color, _("Search Criteria")), 'center', $color[5], 'colspan=5'));
784 $row_count = count($where_array);
785 for ($row_num = 0; $row_num < $row_count; $row_num++) {
786 $mailbox = asearch_nz($mailbox_array[$row_num]);
787 $biop = strip_tags(asearch_nz($biop_array[$row_num]));
788 $unop = strip_tags(asearch_nz($unop_array[$row_num]));
789 $where = strip_tags(asearch_nz($where_array[$row_num]));
790 $what = asearch_nz($what_array[$row_num]);
791 $exclude = strip_tags(asearch_nz($exclude_array[$row_num]));
792 $sub = strip_tags(asearch_nz($sub_array[$row_num]));
793 asearch_print_form_row($imapConnection, $boxes, $mailbox, $biop, $unop, $where, $what, $exclude, $sub, $row_num);
794 }
795 echo '</table>' . "\n";
6b37252b 796
7d60bda5 797//Submit buttons
8cc8ec79 798 echo html_tag('table', '', 'center', $color[9], 'width="100%" cellpadding="1" cellspacing="0" border="0"');
799 echo html_tag('tr',
e1728a7a 800 html_tag('td', getButton('submit', 'submit', $search_button_html), 'center') . "\n"
801 . html_tag('td', getButton('submit', 'submit', $add_criteria_button_html), 'center') . "\n"
802 . html_tag('td', getButton('submit', 'submit', $del_all_button_html), 'center') . "\n"
803 . html_tag('td', getButton('submit', 'submit', $del_excluded_button_html), 'center') . "\n"
8cc8ec79 804 );
805 echo '</table>' . "\n";
806 echo '</form>' . "\n";
6b37252b 807}
808
7d60bda5 809/** Print one basic form row
8cc8ec79 810*/
7d60bda5 811function asearch_print_form_row_basic($imapConnection, &$boxes, $mailbox, $biop, $unop, $where, $what, $exclude, $sub, $row_num)
812{
8cc8ec79 813 global $search_button_html;
814 global $color;
7d60bda5 815
8cc8ec79 816 echo html_tag('tr', '', '', $color[4]);
7d60bda5 817
818//Mailbox list
8cc8ec79 819 echo html_tag('td', '<b>' . _("In") . '</b> ' . asearch_get_form_mailbox($imapConnection, $boxes, $mailbox), 'center') . "\n";
7d60bda5 820
821//Unary operator and Search location
8cc8ec79 822 echo html_tag('td', asearch_get_form_location($unop, $where), 'center') . "\n";
7d60bda5 823
824//Text input
8cc8ec79 825 echo html_tag('td', asearch_get_form_what($what), 'center') . "\n";
7d60bda5 826
827//Submit button
e1728a7a 828 echo html_tag('td', getButton('submit', 'submit', $search_button_html), 'center') . "\n";
7d60bda5 829
8cc8ec79 830 echo "</tr>\n";
7d60bda5 831}
832
833/** Print the basic search form
8cc8ec79 834*/
7d60bda5 835function asearch_print_form_basic($imapConnection, &$boxes, $mailbox_array, $biop_array, $unop_array, $where_array, $what_array, $exclude_array, $sub_array)
836{
8cc8ec79 837 global $color;
7d60bda5 838
839//Search Form
8cc8ec79 840 echo "<br />\n";
841 echo '<form action="' . asearch_get_href() . '" name="form_asearch">' . "\n";
842
843 echo html_tag('table', '', 'center', $color[9], 'width="100%" cellpadding="1" cellspacing="1" border="0"');
844 //echo html_tag('tr', html_tag('td', asearch_get_title_display($color, _("Search Criteria")), 'center', $color[5], 'colspan=4'));
845 $row_count = count($where_array);
846 for ($row_num = 0; $row_num < $row_count; $row_num++) {
847 $mailbox = asearch_nz($mailbox_array[$row_num]);
848 $biop = strip_tags(asearch_nz($biop_array[$row_num]));
849 $unop = strip_tags(asearch_nz($unop_array[$row_num]));
850 $where = strip_tags(asearch_nz($where_array[$row_num]));
851 $what = asearch_nz($what_array[$row_num]);
852 $exclude = strip_tags(asearch_nz($exclude_array[$row_num]));
853 $sub = strip_tags(asearch_nz($sub_array[$row_num]));
854 asearch_print_form_row_basic($imapConnection, $boxes, $mailbox, $biop, $unop, $where, $what, $exclude, $sub, $row_num);
855 }
856 echo '</table>' . "\n";
857 echo '</form>' . "\n";
7d60bda5 858}
859
860/** Print the $msgs messages from $mailbox mailbox
8cc8ec79 861*/
8cc8ec79 862
324ac3c5 863function asearch_print_mailbox_msgs($imapConnection, &$aMailbox, $color)
864{
a73ae1c2 865 /**
866 * A mailbox can contain different sets with uid's. Default, for normal
867 * message list view we use '0' as setindex and for search a different
868 * setindex.
869 */
870 $iSetIndx = $aMailbox['SETINDEX'];
324ac3c5 871
a73ae1c2 872 $mailbox_display = asearch_get_mailbox_display($aMailbox['NAME']);
873 $mailbox_title = '<b><big>' . _("Folder:") . ' '. $mailbox_display . '&nbsp;</big></b>';
324ac3c5 874
a73ae1c2 875 /**
876 * UIDSET contains the array with uid's returned by a search
877 */
878 $cnt = count($aMailbox['UIDSET'][$iSetIndx]);
324ac3c5 879
a73ae1c2 880 $iLimit = ($aMailbox['SHOWALL'][$iSetIndx]) ? $cnt : $aMailbox['LIMIT'];
881 $iEnd = ($aMailbox['PAGEOFFSET'] + ($iLimit - 1) < $aMailbox['EXISTS']) ?
882 $aMailbox['PAGEOFFSET'] + $iLimit - 1 : $cnt;
324ac3c5 883
a73ae1c2 884 $paginator_str = get_paginator_str($aMailbox['NAME'], $aMailbox['PAGEOFFSET'],
885 $cnt, $aMailbox['LIMIT'], $aMailbox['SHOWALL'][$iSetIndx]);
324ac3c5 886
a73ae1c2 887 $msg_cnt_str = get_msgcnt_str($aMailbox['PAGEOFFSET'], $iEnd,$cnt);
8cc8ec79 888
a73ae1c2 889 echo '<table border="0" width="100%" cellpadding="0" cellspacing="0">';
8cc8ec79 890
a73ae1c2 891 echo '<tr><td>';
892 mail_message_listing_beginning($imapConnection, $aMailbox, $msg_cnt_str, $mailbox_title . " $paginator_str");
893 echo '</td></tr>';
8cc8ec79 894
e1728a7a 895 echo '<tr><td height="5" bgcolor="'.$color[4].'"></td></tr>';
8cc8ec79 896
a73ae1c2 897 echo '<tr><td>';
898 echo ' <table width="100%" cellpadding="1" cellspacing="0" align="center"'.' border="0" bgcolor="'.$color[9].'">';
899 echo ' <tr><td>';
8cc8ec79 900
a73ae1c2 901 echo ' <table width="100%" cellpadding="1" cellspacing="0" align="center" border="0" bgcolor="'.$color[5].'">';
902 echo ' <tr><td>';
903 printHeader($aMailbox);
904 displayMessageArray($imapConnection, $aMailbox);
905 echo ' </td></tr>';
906 echo ' </table>';
907 echo ' </td></tr>';
908 echo ' </table>';
909 mail_message_listing_end($cnt, '', $msg_cnt_str);
910 echo '</td></tr>';
8cc8ec79 911
a73ae1c2 912 echo '</table>';
139b3991 913}
59a623e6 914
40fbe929 915/**
8cc8ec79 916* @param array $boxes mailboxes array (reference)
917* @return array selectable unformatted mailboxes names
918*/
40fbe929 919function sqimap_asearch_get_selectable_unformatted_mailboxes(&$boxes)
920{
8cc8ec79 921 $mboxes_array = array();
922 $boxcount = count($boxes);
923 for ($boxnum = 0; $boxnum < $boxcount; $boxnum++) {
924 if (!in_array('noselect', $boxes[$boxnum]['flags']))
925 $mboxes_array[] = $boxes[$boxnum]['unformatted'];
926 }
927 return $mboxes_array;
40fbe929 928}
929
0d672ac0 930/* ------------------------ main ------------------------ */
7d60bda5 931/* get globals we will need */
6b37252b 932sqgetGlobalVar('username', $username, SQ_SESSION);
933sqgetGlobalVar('key', $key, SQ_COOKIE);
7d60bda5 934sqgetGlobalVar('delimiter', $delimiter, SQ_SESSION);
935sqgetGlobalVar('onetimepad', $onetimepad, SQ_SESSION);
6b37252b 936
ad2212db 937if ( sqgetGlobalVar('checkall', $temp, SQ_GET) ) {
139b3991 938 $checkall = (int) $temp;
ad2212db 939}
940
324ac3c5 941/**
942 * Retrieve the mailbox cache from the session.
943 */
944sqgetGlobalVar('mailbox_cache',$mailbox_cache,SQ_SESSION);
945
139b3991 946
6b37252b 947$search_button_html = _("Search");
948$search_button_text = asearch_unhtmlentities($search_button_html);
949$add_criteria_button_html = _("Add New Criteria");
950$add_criteria_button_text = asearch_unhtmlentities($add_criteria_button_html);
34a85c56 951$del_excluded_button_html = _("Remove Excluded Criteria");
6b37252b 952$del_excluded_button_text = asearch_unhtmlentities($del_excluded_button_html);
34a85c56 953$del_all_button_html = _("Remove All Criteria");
6b37252b 954$del_all_button_text = asearch_unhtmlentities($del_all_button_html);
955
7d60bda5 956/** Maximum number of recent searches to handle
8cc8ec79 957* Default 0
958* @global integer $search_memory
959*/
7d60bda5 960$search_memory = getPref($data_dir, $username, 'search_memory', 0);
961
962/** Advanced search control
8cc8ec79 963* - 0 => allow basic interface only
964* - 1 => allow advanced interface only
965* - 2 => allow both
966* Default 2
8cc8ec79 967*/
5b6abe97 968$allow_advanced_search = asearch_nz($allow_advanced_search, 2);
6b37252b 969
7d60bda5 970/**
8cc8ec79 971* Toggle advanced/basic search
972*/
324ac3c5 973if (sqgetGlobalVar('advanced', $search_advanced, SQ_GET)) {
8cc8ec79 974 setPref($data_dir, $username, 'search_advanced', $search_advanced & 1);
324ac3c5 975}
7d60bda5 976/** If 1, show advanced search interface
8cc8ec79 977* Default from allow_advanced_search pref
978* @global integer $search_advanced
979*/
324ac3c5 980if ($allow_advanced_search > 1) {
8cc8ec79 981 $search_advanced = getPref($data_dir, $username, 'search_advanced', 0);
324ac3c5 982} else {
8cc8ec79 983 $search_advanced = $allow_advanced_search;
324ac3c5 984}
7d60bda5 985if ($search_advanced) {
986/** Set recent prefkeys according to $search_advanced
8cc8ec79 987* @global array $recent_prefkeys
988*/
989 $recent_prefkeys = array('asearch_recent_where', 'asearch_recent_mailbox', 'asearch_recent_what', 'asearch_recent_unop', 'asearch_recent_biop', 'asearch_recent_exclude', 'asearch_recent_sub');
7d60bda5 990
991/** Set saved prefkeys according to $search_advanced
8cc8ec79 992* @global array $saved_prefkeys
993*/
994 $saved_prefkeys = array('asearch_saved_where', 'asearch_saved_mailbox', 'asearch_saved_what', 'asearch_saved_unop', 'asearch_saved_biop', 'asearch_saved_exclude', 'asearch_saved_sub');
7d60bda5 995
996/*$asearch_prefkeys = array('where', 'mailbox', 'what', 'biop', 'unop', 'exclude', 'sub');*/
324ac3c5 997} else {
8cc8ec79 998 $recent_prefkeys = array('search_where', 'search_folder', 'search_what', 'search_unop');
999 $saved_prefkeys = array('saved_where', 'saved_folder', 'saved_what', 'saved_unop');
7d60bda5 1000}
6b37252b 1001
2d2f8bb8 1002/** How we did enter the form
8cc8ec79 1003* - unset : Enter key, or called from outside (eg read_body)
1004* - $search_button_text : Search button
1005* - 'Search_no_update' : Search but don't update recent
1006* - 'Search_last' : Same as no_update but reload and search last
1007* - 'Search_silent' : Same as no_update but only display results
1008* - $add_criteria_button_text : Add New Criteria button
1009* - $del_excluded_button_text : Remove Excluded Criteria button
1010* - $del_all_button_text : Remove All Criteria button
1011* - 'save_recent'
1012* - 'search_recent'
1013* - 'forget_recent'
1014* - 'edit_saved'
1015* - 'search_saved'
1016* - 'delete_saved'
1017* @global string $submit
1018*/
324ac3c5 1019if (isset($_GET['submit'])) {
8cc8ec79 1020 $submit = strip_tags($_GET['submit']);
324ac3c5 1021}
2d2f8bb8 1022/** Searched mailboxes
8cc8ec79 1023* @global array $mailbox_array
1024*/
6b37252b 1025if (isset($_GET['mailbox'])) {
8cc8ec79 1026 $mailbox_array = $_GET['mailbox'];
324ac3c5 1027 $targetmailbox = $_GET['mailbox'];
1028 if (!is_array($mailbox_array)) {
8cc8ec79 1029 $mailbox_array = array($mailbox_array);
324ac3c5 1030 }
1031} else {
8cc8ec79 1032 $mailbox_array = array();
324ac3c5 1033}
1034$aMailboxGlobalPref = array(
1035 MBX_PREF_SORT => 0,
1036 MBX_PREF_LIMIT => (int) $show_num,
1037 MBX_PREF_AUTO_EXPUNGE => (bool) $auto_expunge,
1038 MBX_PREF_INTERNALDATE => (bool) getPref($data_dir, $username, 'internal_date_sort')
1039 // MBX_PREF_FUTURE => (var) $future
1040 );
1041
1042/**
1043 * system wide admin settings and incoming vars.
1044 */
1045$aConfig = array(
1046 'allow_thread_sort' => $allow_thread_sort,
1047 'allow_server_sort' => $allow_server_sort,
1048 'user' => $username,
1049 'max_cache_size'
1050 );
6b37252b 1051
2d2f8bb8 1052/** Binary operators
8cc8ec79 1053* @global array $biop_array
1054*/
6b37252b 1055if (isset($_GET['biop'])) {
8cc8ec79 1056 $biop_array = $_GET['biop'];
1057 if (!is_array($biop_array))
1058 $biop_array = array($biop_array);
324ac3c5 1059} else {
8cc8ec79 1060 $biop_array = array();
324ac3c5 1061}
2d2f8bb8 1062/** Unary operators
8cc8ec79 1063* @global array $unop_array
1064*/
6b37252b 1065if (isset($_GET['unop'])) {
8cc8ec79 1066 $unop_array = $_GET['unop'];
1067 if (!is_array($unop_array))
1068 $unop_array = array($unop_array);
324ac3c5 1069} else {
8cc8ec79 1070 $unop_array = array();
324ac3c5 1071}
2d2f8bb8 1072/** Where to search
8cc8ec79 1073* @global array $where_array
1074*/
6b37252b 1075if (isset($_GET['where'])) {
8cc8ec79 1076 $where_array = $_GET['where'];
324ac3c5 1077 if (!is_array($where_array)) {
8cc8ec79 1078 $where_array = array($where_array);
324ac3c5 1079 }
1080} else {
8cc8ec79 1081 $where_array = array();
324ac3c5 1082}
2d2f8bb8 1083/** What to search
8cc8ec79 1084* @global array $what_array
1085*/
6b37252b 1086if (isset($_GET['what'])) {
8cc8ec79 1087 $what_array = $_GET['what'];
324ac3c5 1088 if (!is_array($what_array)) {
8cc8ec79 1089 $what_array = array($what_array);
324ac3c5 1090 }
1091} else {
8cc8ec79 1092 $what_array = array();
324ac3c5 1093}
2d2f8bb8 1094/** Whether to exclude this criteria from search
8cc8ec79 1095* @global array $exclude_array
1096*/
324ac3c5 1097if (isset($_GET['exclude'])) {
8cc8ec79 1098 $exclude_array = $_GET['exclude'];
324ac3c5 1099} else {
8cc8ec79 1100 $exclude_array = array();
324ac3c5 1101}
2d2f8bb8 1102/** Search within subfolders
8cc8ec79 1103* @global array $sub_array
1104*/
324ac3c5 1105if (isset($_GET['sub'])) {
8cc8ec79 1106 $sub_array = $_GET['sub'];
324ac3c5 1107} else {
8cc8ec79 1108 $sub_array = array();
324ac3c5 1109}
2d2f8bb8 1110/** Row number used by recent and saved stuff
8cc8ec79 1111*/
324ac3c5 1112if (isset($_GET['rownum'])) {
6b37252b 1113 $submit_rownum = strip_tags($_GET['rownum']);
324ac3c5 1114}
2d2f8bb8 1115/** Change global sort
8cc8ec79 1116*/
324ac3c5 1117if (sqgetGlobalVar('srt', $temp, SQ_GET)) {
1118 $srt = (int) $temp;
1119 asearch_edit_last(1);
1120 asearch_push_recent($mailbox_array, $biop_array, $unop_array, $where_array, $what_array, $exclude_array, $sub_array);
1121}
1122if (sqgetGlobalVar('startMessage', $temp, SQ_GET)) {
1123 $startMessage = (int) $temp;
1124 asearch_edit_last(1);
1125 asearch_push_recent($mailbox_array, $biop_array, $unop_array, $where_array, $what_array, $exclude_array, $sub_array);
c2d47d51 1126}
1127
324ac3c5 1128if ( sqgetGlobalVar('showall', $temp, SQ_GET) ) {
1129 $showall = (int) $temp;
1130 asearch_edit_last(1);
1131 asearch_push_recent($mailbox_array, $biop_array, $unop_array, $where_array, $what_array, $exclude_array, $sub_array);
56e0b3b7 1132}
324ac3c5 1133/**
1134 * Incoming submit buttons from the message list with search results
1135 */
1136if (sqgetGlobalVar('moveButton', $moveButton, SQ_POST) ||
1137 sqgetGlobalVar('expungeButton', $expungeButton, SQ_POST) ||
1138 sqgetGlobalVar('delete', $markDelete, SQ_POST) ||
1139 sqgetGlobalVar('undeleteButton', $undeleteButton, SQ_POST) ||
1140 sqgetGlobalVar('markRead', $markRead, SQ_POST) ||
1141 sqgetGlobalVar('markUnread', $markUnread, SQ_POST) ||
1142 sqgetGlobalVar('markFlagged', $markFlagged, SQ_POST) ||
1143 sqgetGlobalVar('markUnflagged', $markUnflagged, SQ_POST) ||
1144 sqgetGlobalVar('attache', $attache, SQ_POST)) {
1145 asearch_edit_last(1);
1146 $submit = '';
1147 asearch_push_recent($mailbox_array, $biop_array, $unop_array, $where_array, $what_array, $exclude_array, $sub_array);
1148}
1149
1150
6b37252b 1151
7d60bda5 1152/** Toggle show/hide saved searches
8cc8ec79 1153*/
324ac3c5 1154if (sqgetGlobalVar('search_show_saved', $search_show_saved, SQ_GET)) {
8cc8ec79 1155 setPref($data_dir, $username, 'search_show_saved', $search_show_saved & 1);
324ac3c5 1156}
7d60bda5 1157/** Toggle show/hide recent searches
8cc8ec79 1158*/
324ac3c5 1159if (sqgetGlobalVar('search_show_recent', $search_show_recent, SQ_GET)) {
8cc8ec79 1160 setPref($data_dir, $username, 'search_show_recent', $search_show_recent & 1);
324ac3c5 1161}
7d60bda5 1162// end of get globals
6b37252b 1163
40fbe929 1164/** If TRUE, do not show search interface
8cc8ec79 1165* Default FALSE
1166* @global bool $search_silent
1167*/
7d60bda5 1168$search_silent = FALSE;
6b37252b 1169
1170/* See how the page was called and fire off correct function */
7d60bda5 1171if ((empty($submit)) && (!empty($where_array))) {
8cc8ec79 1172 /* This happens when the Enter key is used or called from outside */
1173 $submit = $search_button_text;
324ac3c5 1174 /* Hack needed to handle coming back from read_body et als */
1175 if (count($where_array) != count($unop_array)) {
1176 /**
1177 * Hack to use already existen where and what vars.
1178 * where now contains the initiator page of the messagelist
1179 * and in this case 'search'. what contains an index to access
1180 * the search history
1181 */
1182
1183 sqgetGlobalVar('what',$what,SQ_GET);
1184 asearch_edit_last($what);
1185 }
56e0b3b7 1186}
6b37252b 1187
1188if (!isset($submit)) {
8cc8ec79 1189 $submit = '';
324ac3c5 1190} else {
8cc8ec79 1191 switch ($submit) {
324ac3c5 1192 case $search_button_text:
1193 if (asearch_check_query($where_array, $what_array, $exclude_array) == '') {
1194 asearch_push_recent($mailbox_array, $biop_array, $unop_array, $where_array, $what_array, $exclude_array, $sub_array);
1195 }
8cc8ec79 1196 break;
324ac3c5 1197 case 'Search_silent':
1198 $search_silent = TRUE;
8cc8ec79 1199 /*nobreak;*/
324ac3c5 1200 case 'Search_no_update':
1201 $submit = $search_button_text;
8cc8ec79 1202 break;
324ac3c5 1203 case $del_excluded_button_text:
1204 $delarray = array_keys($exclude_array);
1205 while (!empty($delarray)) {
1206 $delrow = array_pop($delarray);
1207 array_splice($mailbox_array, $delrow, 1);
1208 array_splice($biop_array, $delrow, 1);
1209 array_splice($unop_array, $delrow, 1);
1210 array_splice($where_array, $delrow, 1);
1211 array_splice($what_array, $delrow, 1);
1212 /* array_splice($exclude_array, $delrow, 1);*/ /* There is still some php magic that eludes me */
1213 array_splice($sub_array, $delrow, 1);
1214 }
1215 $exclude_array = array();
8cc8ec79 1216 break;
324ac3c5 1217 case $del_all_button_text:
1218 $mailbox_array = array();
1219 $biop_array = array();
1220 $unop_array = array();
1221 $where_array = array();
1222 $what_array = array();
1223 $exclude_array = array();
1224 $sub_array = array();
8cc8ec79 1225 break;
324ac3c5 1226 case 'save_recent':
1227 asearch_save_recent($submit_rownum);
8cc8ec79 1228 break;
324ac3c5 1229 case 'search_recent':
1230 $submit = $search_button_text;
1231 asearch_edit_recent($submit_rownum);
1232 asearch_push_recent($mailbox_array, $biop_array, $unop_array, $where_array, $what_array, $exclude_array, $sub_array);
8cc8ec79 1233 break;
324ac3c5 1234 case 'edit_recent': /* no link to do this, yet */
1235 asearch_edit_recent($submit_rownum);
8cc8ec79 1236 break;
324ac3c5 1237 case 'forget_recent':
1238 asearch_forget_recent($submit_rownum);
8cc8ec79 1239 break;
324ac3c5 1240 case 'search_saved':
1241 $submit = $search_button_text;
1242 asearch_edit_saved($submit_rownum);
1243 asearch_push_recent($mailbox_array, $biop_array, $unop_array, $where_array, $what_array, $exclude_array, $sub_array);
8cc8ec79 1244 break;
324ac3c5 1245 case 'edit_saved':
1246 asearch_edit_saved($submit_rownum);
8cc8ec79 1247 break;
324ac3c5 1248 case 'delete_saved':
1249 asearch_delete_saved($submit_rownum);
8cc8ec79 1250 break;
1251 }
56e0b3b7 1252}
23a9084b 1253
7d60bda5 1254//Texts in both basic and advanced form
1255$imap_asearch_unops = array(
8cc8ec79 1256 '' => '',
1257 'NOT' => _("Not")
7d60bda5 1258);
1259
1260if ($search_advanced) {
8cc8ec79 1261 //Texts in advanced form only
1262 $imap_asearch_options = array(
1263 //<message set>,
1264 //'ALL' is binary operator
1265 'ANSWERED' => _("Answered"),
1266 'BCC' => _("Bcc"),
1267 'BEFORE' => _("Before"),
1268 'BODY' => _("Message Body"),
48027e89 1269 'CC' => _("Cc"),
8cc8ec79 1270 'DELETED' => _("Deleted"),
1271 'DRAFT' => _("Draft"),
1272 'FLAGGED' => _("Flagged"),
1273 'FROM' => _("Sent By"),
1274 'HEADER' => _("Header Field"),
1275 'KEYWORD' => _("Keyword"),
1276 'LARGER' => _("Larger Than"),
1277 'NEW' => _("New"),
1278 //'NOT' is unary operator
1279 'OLD' => _("Old"),
1280 'ON' => _("On"),
1281 //'OR' is binary operator
1282 'RECENT' => _("Recent"),
1283 'SEEN' => _("Seen"),
1284 'SENTBEFORE' => _("Sent Before"),
1285 'SENTON' => _("Sent On"),
1286 'SENTSINCE' => _("Sent Since"),
1287 'SINCE' => _("Since"),
1288 'SMALLER' => _("Smaller Than"),
1289 'SUBJECT' => _("Subject Contains"),
1290 'TEXT' => _("Header and Body"),
1291 'TO' => _("Sent To"),
1292 //'UID' => 'anum',
7d60bda5 1293/* 'UNANSWERED' => '',
8cc8ec79 1294 'UNDELETED' => '',
1295 'UNDRAFT' => '',
1296 'UNFLAGGED' => '',
1297 'UNKEYWORD' => _("Unkeyword"),
1298 'UNSEEN' => _("Unseen"),*/
1299 );
1300
1301 $imap_asearch_biops_in = array(
1302 'ALL' => _("And In"),
1303 'OR' => _("Or In")
1304 );
1305
1306 $imap_asearch_biops = array(
1307 'ALL' => _("And"),
1308 'OR' => _("Or")
1309 );
324ac3c5 1310} else {
8cc8ec79 1311 //Texts in basic form only
1312 $imap_asearch_options = array(
1313 'BCC' => _("Bcc"),
1314 'BODY' => _("Body"),
1315 'CC' => _("Cc"),
1316 'FROM' => _("From"),
1317 'SUBJECT' => _("Subject"),
1318 'TEXT' => _("Everywhere"),
1319 'TO' => _("To"),
1320 );
7d60bda5 1321}
1322
1323uasort($imap_asearch_options, 'asearch_unhtml_strcoll');
1324
6b37252b 1325/* open IMAP connection */
1326$imapConnection = sqimap_login($username, $key, $imapServerAddress, $imapPort, 0);
324ac3c5 1327
1328
5b6abe97 1329/* get mailboxes once here */
6b37252b 1330$boxes = sqimap_mailbox_list($imapConnection);
99f3175e 1331/* ensure we have a valid default mailbox name */
edda50ae 1332$mailbox = asearch_nz($mailbox_array[0]);
1333if (($mailbox == '') || ($mailbox == 'None')) //Workaround for sm quirk IMHO (what if I really have a mailbox called None?)
8cc8ec79 1334 $mailbox = $boxes[0]['unformatted']; //Usually INBOX ;)
99f3175e 1335
6b37252b 1336if (isset($composenew) && $composenew) {
8cc8ec79 1337 $comp_uri = "../src/compose.php?mailbox=" . urlencode($mailbox)
1338 . "&amp;session=$composesession&amp;attachedmessages=true&amp";
1339 displayPageHeader($color, $mailbox, "comp_in_new('$comp_uri');", false);
324ac3c5 1340} else {
8cc8ec79 1341 displayPageHeader($color, $mailbox);
324ac3c5 1342}
6b37252b 1343do_hook('search_before_form');
d81e351b 1344
6b37252b 1345if (!$search_silent) {
8cc8ec79 1346 //Add a link to the other search mode if allowed
1347 if ($allow_advanced_search > 1)
1348 $toggle_link = ' - <small>['
1349 . asearch_get_toggle_link(!$search_advanced, 'advanced', array(_("Standard search"), _("Advanced search")))
1350 . ']</small>';
1351 else
1352 $toggle_link = '';
1353
1354 echo html_tag('table',
1355 html_tag('tr', "\n"
1356 . html_tag('td', asearch_get_title_display($color, _("Search")) . $toggle_link, 'center', $color[0])
1357 ) ,
1358 '', '', 'width="100%"') . "\n";
1359 asearch_print_saved($boxes);
1360 asearch_print_recent($boxes);
1361 if (empty($where_array)) {
1362 global $sent_folder;
1363
1364 $mailbox_array[0] = $mailbox;
1365 $biop_array[0] = '';
1366 $unop_array[0] = '';
324ac3c5 1367 if ($mailbox == $sent_folder) {
8cc8ec79 1368 $where_array[0] = 'TO';
324ac3c5 1369 } else {
8cc8ec79 1370 $where_array[0] = 'FROM';
324ac3c5 1371 }
8cc8ec79 1372 $what_array[0] = '';
1373 $exclude_array[0] = '';
1374 $sub_array[0] = '';
1375 }
1376 //Display advanced or basic form
1377 if ($search_advanced) {
1378 if ($submit == $add_criteria_button_text) {
1379 $last_index = max(count($where_array) - 1, 0);
1380 $mailbox_array[] = asearch_nz($mailbox_array[$last_index]);
1381 $biop_array[] = asearch_nz($biop_array[$last_index]);
1382 $unop_array[] = asearch_nz($unop_array[$last_index]);
1383 $where_array[] = asearch_nz($where_array[$last_index]);
1384 $what_array[] = asearch_nz($what_array[$last_index]);
1385 $exclude_array[] = asearch_nz($exclude_array[$last_index]);
1386 $sub_array[] = asearch_nz($sub_array[$last_index]);
1387 }
1388 asearch_print_form($imapConnection, $boxes, $mailbox_array, $biop_array, $unop_array, $where_array, $what_array, $exclude_array, $sub_array);
324ac3c5 1389 } else {
8cc8ec79 1390 asearch_print_form_basic($imapConnection, $boxes, $mailbox_array, $biop_array, $unop_array, $where_array, $what_array, $exclude_array, $sub_array);
324ac3c5 1391 }
6b37252b 1392}
1393
88cb1b4d 1394do_hook('search_after_form');
56e0b3b7 1395
6b37252b 1396if ($submit == $search_button_text) {
a73ae1c2 1397 $msgsfound = false;
8cc8ec79 1398 echo html_tag('table', '', 'center', $color[9], 'width="100%" cellpadding="1" cellspacing="0" border="0"');
1399 echo html_tag('tr', html_tag('td', asearch_get_title_display($color, _("Search Results")), 'center', $color[5]));
1400 echo html_tag('tr', html_tag('td', asearch_get_query_display($color, $mailbox_array, $biop_array, $unop_array, $where_array, $what_array, $exclude_array, $sub_array), 'center', $color[4]));
1401 echo '</table>' . "\n";
1402
1403 flush();
1404
1405 $query_error = asearch_check_query($where_array, $what_array, $exclude_array);
324ac3c5 1406 if ($query_error != '') {
8cc8ec79 1407 echo '<br />' . html_tag('div', asearch_get_error_display($color, $query_error), 'center') . "\n";
324ac3c5 1408 } else {
8cc8ec79 1409 $mboxes_array = sqimap_asearch_get_selectable_unformatted_mailboxes($boxes);
324ac3c5 1410 /**
1411 * Retrieve the search queries
1412 */
1413 $mboxes_mailbox = sqimap_asearch($imapConnection, $mailbox_array, $biop_array, $unop_array, $where_array, $what_array, $exclude_array, $sub_array, $mboxes_array);
1414 foreach($mboxes_mailbox as $mbx => $search) {
1415 $aMailboxPrefSer=getPref($data_dir, $username, "pref_$mbx");
1416
1417 if ($aMailboxPrefSer) {
1418 $aMailboxPref = unserialize($aMailboxPrefSer);
1419 } else {
1420 setUserPref($username,"pref_$mbx",serialize($aMailboxGlobalPref));
1421 $aMailboxPref = $aMailboxGlobalPref;
8cc8ec79 1422 }
324ac3c5 1423 if (isset($srt) && $targetmailbox == $mbx) {
1424 $aMailboxPref[MBX_PREF_SORT] = (int) $srt;
1425 }
1426 if (isset($startMessage) && $targetmailbox == $mbx) {
1427 $aConfig['offset'] = $startMessage;
1428 } else if (isset($aConfig['offset'])) {
1429 unset($aConfig['offset']);
1430 }
1431 if (isset($showall) && $targetmailbox == $mbx) {
1432 $aConfig['showall'] = $showall;
1433 } else if (isset($aConfig['showall'])) {
1434 unset($aConfig['showall']);
1435 }
1436 /**
1437 * Set the max cache size to the number of mailboxes to avoid cache cleanups
1438 * when searching all mailboxes
1439 */
1440 $aConfig['max_cache_size'] = count($mboxes_mailbox) +1;
1441
1442 /**
1443 * until there is no per mailbox option screen to set prefs we override
1444 * the mailboxprefs by the default ones
1445 */
1446 $aMailboxPref[MBX_PREF_LIMIT] = (int) $show_num;
1447 $aMailboxPref[MBX_PREF_AUTO_EXPUNGE] = (bool) $auto_expunge;
1448 $aMailboxPref[MBX_PREF_INTERNALDATE] = (bool) getPref($data_dir, $username, 'internal_date_sort');
1449
324ac3c5 1450 $aConfig['search'] = $search['search'];
1451 $aConfig['charset'] = $search['charset'];
1452 $aConfig['setindex'] = 1; // $what $where = 'search'
1453
1454 $aMailbox = sqm_api_mailbox_select($imapConnection,$mbx,$aConfig,$aMailboxPref);
1455 /**
1456 * Handle form actions like flag / unflag, seen / unseen, delete
1457 */
1458 if (sqgetGlobalVar('mailbox',$postMailbox,SQ_POST)) {
1459 if ($postMailbox === $mbx) {
1460 handleMessageListForm($imapConnection,$aMailbox);
1461 }
1462 }
a73ae1c2 1463 if (fetchMessageHeaders($imapConnection, $aMailbox)) {
1464 $msgsfound = true;
1465 echo '<br />';
1466 asearch_print_mailbox_msgs($imapConnection, $aMailbox, $color);
1467 flush();
1468 }
324ac3c5 1469 /* add the mailbox to the cache */
1470 $mailbox_cache[$aMailbox['NAME']] = $aMailbox;
8cc8ec79 1471
324ac3c5 1472 }
8cc8ec79 1473 }
a73ae1c2 1474 if(!$msgsfound) {
1475 echo '<br />' . html_tag('div', asearch_get_error_display($color, _("No Messages Found")), 'center') . "\n";
1476 }
56e0b3b7 1477}
1478
70c4fd84 1479do_hook('search_bottom');
6b37252b 1480sqimap_logout($imapConnection);
dcc1cc82 1481echo '</body></html>';
324ac3c5 1482sqsession_register($mailbox_cache,'mailbox_cache');
48027e89 1483?>