1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
|
<?php
/**
* imap_search.php
*
* IMAP search routines
*
* @copyright 1999-2012 The SquirrelMail Project Team
* @license http://opensource.org/licenses/gpl-license.php GNU Public License
* @version $Id: imap_search.php 14248 2012-01-02 00:18:17Z pdontthink $
* @package squirrelmail
* @subpackage imap
* @deprecated This search interface has been largely replaced by asearch
*/
/**
* Load up a bunch of SM functions */
require_once(SM_PATH . 'functions/imap.php');
require_once(SM_PATH . 'functions/date.php');
require_once(SM_PATH . 'functions/mailbox_display.php');
require_once(SM_PATH . 'functions/mime.php');
function sqimap_search($imapConnection, $search_where, $search_what, $mailbox,
$color, $search_position = '', $search_all, $count_all) {
global $message_highlight_list, $squirrelmail_language, $languages,
$index_order, $pos, $allow_charset_search, $uid_support,
$imap_server_type;
$pos = $search_position;
$urlMailbox = urlencode($mailbox);
/* construct the search query, taking multiple search terms into account */
$multi_search = array();
$search_what = trim($search_what);
$search_what = preg_replace('/[ ]{2,}/', ' ', $search_what);
$multi_search = explode(' ', $search_what);
$search_string = '';
if (strtoupper($languages[$squirrelmail_language]['CHARSET']) == 'ISO-2022-JP') {
foreach($multi_search as $idx=>$search_part) {
$multi_search[$idx] = mb_convert_encoding($search_part, 'JIS', 'auto');
}
}
$search_literal = array('commands'=>array(), 'literal_args'=>array());
$use_search_literal = FALSE;
foreach ($multi_search as $string) {
//FIXME: why JIS? shouldn't input be in EUC-JP? this is copied from DEVEL
if (isset($languages[$squirrelmail_language]['CHARSET']) &&
strtoupper($languages[$squirrelmail_language]['CHARSET']) == 'ISO-2022-JP')
$string = mb_convert_encoding($string, 'JIS', 'auto');
if (preg_match('/["\\\\\r\n\x80-\xff]/', $string))
$use_search_literal = TRUE;
$search_literal['commands'][] = $search_where;
$search_literal['literal_args'][] = $string;
$search_string .= $search_where
. ' "'
. str_replace(array('\\', '"'), array('\\\\', '\\"'), $string)
. '" ';
}
$search_string = trim($search_string);
$original_search_literal = $search_literal;
/* now use $search_string in the imap search */
if ($allow_charset_search && isset($languages[$squirrelmail_language]['CHARSET']) &&
$languages[$squirrelmail_language]['CHARSET']) {
if ($use_search_literal) {
$search_literal['commands'][0] = 'SEARCH CHARSET '
. strtoupper($languages[$squirrelmail_language]['CHARSET'])
. ' ALL ' . $search_literal['commands'][0];
} else {
$ss = "SEARCH CHARSET "
. strtoupper($languages[$squirrelmail_language]['CHARSET'])
. " ALL $search_string";
}
} else {
if ($use_search_literal) {
$search_literal['commands'][0] = 'SEARCH ALL ' . $search_literal['commands'][0];
} else {
$ss = "SEARCH ALL $search_string";
}
}
/* read data back from IMAP */
if ($use_search_literal) {
$readin = sqimap_run_literal_command($imapConnection, $search_literal, false, $result, $message, $uid_support);
} else {
$readin = sqimap_run_command($imapConnection, $ss, false, $result, $message, $uid_support);
}
/* try US-ASCII charset if search fails */
if (isset($languages[$squirrelmail_language]['CHARSET'])
&& strtolower($result) == 'no') {
if ($use_search_literal) {
$original_search_literal['commands'][0] = 'SEARCH CHARSET "US-ASCII" ALL '
. $original_search_literal['commands'][0];
} else {
$ss = "SEARCH CHARSET \"US-ASCII\" ALL $search_string";
}
if ($use_search_literal) {
$readin = sqimap_run_literal_command($imapConnection, $search_literal, false, $result, $message, $uid_support);
} else {
$readin = sqimap_run_command($imapConnection, $ss, false, $result, $message, $uid_support);
}
}
unset($messagelist);
/* Keep going till we find the SEARCH response */
foreach ($readin as $readin_part) {
/* Check to see if a SEARCH response was received */
if (substr($readin_part, 0, 9) == '* SEARCH ') {
$messagelist = preg_split("/ /", substr($readin_part, 9));
} else if (isset($errors)) {
$errors = $errors.$readin_part;
} else {
$errors = $readin_part;
}
}
/* If nothing is found * SEARCH should be the first error else echo errors */
if (isset($errors)) {
if (strstr($errors,'* SEARCH')) {
return array();
}
echo '<!-- '.sm_encode_html_special_chars($errors) .' -->';
}
global $sent_folder;
$cnt = count($messagelist);
for ($q = 0; $q < $cnt; $q++) {
$id[$q] = trim($messagelist[$q]);
}
$issent = ($mailbox == $sent_folder);
$msgs = fillMessageArray($imapConnection,$id,$cnt);
return $msgs;
}
|
