+/* SquirrelMail required files. */
+require_once(SM_PATH . 'include/validate.php');
+require_once(SM_PATH . 'functions/imap.php');
+require_once(SM_PATH . 'functions/imap_asearch.php');
+require_once(SM_PATH . 'functions/imap_mailbox.php');
+require_once(SM_PATH . 'functions/strings.php');
+
+function asearch_unhtml_strcoll($a, $b)
+{
+ return strcoll(asearch_unhtmlentities($a), asearch_unhtmlentities($b));
+}
+
+function imap_get_mailbox_display($mailbox)
+{
+ if (strtoupper($mailbox) == 'INBOX')
+ return _("INBOX");
+ return imap_utf7_decode_local($mailbox);
+}
+
+function asearch_get_mailbox_display($mailbox)
+{
+ if ($mailbox == 'All Folders')
+ return _("All Folders");
+ return imap_get_mailbox_display($mailbox);
+}
+
+function asearch_get_title_display($color, $txt)
+{
+ return '<b><big>' . $txt . '</big></b>';
+}
+
+function asearch_get_error_display($color, $txt)
+{
+ return '<font color="' . $color[2] . '">' . '<b><big>' . $txt . '</big></b></font>';
+/*return '<b><big>' . $txt . '</big></b>';*/
+}
+
+function asearch_serialize($input_array)
+{
+/*return $input_array[0];*/
+ return serialize($input_array);
+}
+
+function asearch_unserialize($input_string)
+{
+/*return array($input_string);*/
+ return unserialize($input_string);
+}
+
+function asearch_getPref($data_dir, $username, $key, $index, $default = '')
+{
+ return getPref($data_dir, $username, $key . $index, $default);
+}
+
+function asearch_setPref($data_dir, $username, $key, $index, $value)
+{
+ return setPref($data_dir, $username, $key . $index, $value);
+}
+
+function asearch_removePref($data_dir, $username, $key, $index)
+{
+ return removePref($data_dir, $username, $key . $index);
+}
+
+/* sanity checks, done before running the imap command and before push_recent */
+function asearch_check_query($where_array, $what_array, $exclude_array)
+{
+ global $imap_asearch_opcodes;
+
+ if (empty($where_array))
+ return _("Please enter something to search for");
+ if (count($exclude_array) == count($where_array))
+ return _("There must be at least one criteria to search for");
+ for ($crit_num = 0; $crit_num < count($where_array); $crit_num++) {
+ $where = $where_array[$crit_num];
+ $what = $what_array[$crit_num];
+ if (!(($what == '') ^ ($imap_asearch_opcodes[$where] != '')))
+ return _("Error in criteria argument");
+ }
+ return '';
+}
+
+/* read the recent searches */
+function asearch_read_recent($data_dir, $username)
+{
+ global $recent_prefkeys;
+
+ $recent_array = array();
+ $recent_max = getPref($data_dir, $username, 'search_memory', 0);
+ for ($recent_num = 0; $recent_num < $recent_max; $recent_num++) {
+ foreach ($recent_prefkeys as $prefkey) {
+ $pref = asearch_getPref($data_dir, $username, $prefkey, $recent_num);
+/* if (!empty($pref))*/
+ $recent_array[$prefkey][$recent_num] = $pref;
+ }
+ if (empty($recent_array[$recent_prefkeys[0]][$recent_num])) {
+ foreach ($recent_prefkeys as $key) {
+ array_pop($recent_array[$key]);
+ }
+ break;
+ }
+ }
+ return $recent_array;
+}
+
+/* get the saved searches */
+function asearch_read_saved($data_dir, $username)
+{
+ global $saved_prefkeys;
+
+ $saved_array = array();
+ $saved_key = $saved_prefkeys[0];
+ for ($saved_count = 0; ; $saved_count++) {
+ $pref = asearch_getPref($data_dir, $username, $saved_key, $saved_count);
+ if (empty($pref))
+ break;
+ }
+ for ($saved_num = 0; $saved_num < $saved_count; $saved_num++) {
+ foreach ($saved_prefkeys as $key) {
+ $saved_array[$key][$saved_num] = asearch_getPref($data_dir, $username, $key, $saved_num);
+ }
+ }
+ return $saved_array;
+}
+
+/* save a recent search */
+function asearch_save_recent($data_dir, $username, $recent_index)
+{
+ global $recent_prefkeys, $saved_prefkeys;
+
+ $saved_array = asearch_read_saved($data_dir, $username);
+ $saved_index = count($saved_array[$saved_prefkeys[0]]);
+ $recent_array = asearch_read_recent($data_dir, $username);
+ $n = 0;
+ foreach ($recent_prefkeys as $key) {
+ $recent_slice = array_slice($recent_array[$key], $recent_index, 1);
+ if (!empty($recent_slice[0]))
+ asearch_setPref($data_dir, $username, $saved_prefkeys[$n], $saved_index, $recent_slice[0]);
+ else
+ asearch_removePref($data_dir, $username, $saved_prefkeys[$n], $saved_index);
+ $n++;
+ }
+}
+
+function asearch_write_recent($data_dir, $username, $recent_array)
+{
+ global $recent_prefkeys;
+
+ $recent_max = getPref($data_dir, $username, 'search_memory', 0);
+ $recent_count = min($recent_max, count($recent_array[$recent_prefkeys[0]]));
+ for ($recent_num=0; $recent_num < $recent_count; $recent_num++) {
+ foreach ($recent_prefkeys as $key) {
+ asearch_setPref($data_dir, $username, $key, $recent_num, $recent_array[$key][$recent_num]);
+ }
+ }
+ for (; $recent_num < $recent_max; $recent_num++) {
+ foreach ($recent_prefkeys as $key) {
+ asearch_removePref($data_dir, $username, $key, $recent_num);
+ }
+ }
+}
+
+/* forget a recent search */
+function asearch_forget_recent($data_dir, $username, $forget_index)
+{
+ global $recent_prefkeys;
+
+ $recent_array = asearch_read_recent($data_dir, $username);
+ foreach ($recent_prefkeys as $key) {
+ array_splice($recent_array[$key], $forget_index, 1);
+ }
+ asearch_write_recent($data_dir, $username, $recent_array);
+}
+
+function asearch_recent_exists($recent_array, $mailbox_array, $biop_array, $unop_array, $where_array, $what_array, $exclude_array)
+{
+ global $recent_prefkeys;
+
+ $mailbox_string = asearch_serialize($mailbox_array);
+ $biop_string = asearch_serialize($biop_array);
+ $unop_string = asearch_serialize($unop_array);
+ $where_string = asearch_serialize($where_array);
+ $what_string = asearch_serialize($what_array);
+ $exclude_string = asearch_serialize($exclude_array);
+ $recent_count = count($recent_array[$recent_prefkeys[0]]);
+ for ($recent_num=0; $recent_num<$recent_count; $recent_num++) {
+ if (isset($recent_array[$recent_prefkeys[0]][$recent_num])) {
+ if (
+ $mailbox_string == $recent_array['asearch_recent_mailbox'][$recent_num] &&
+ $biop_string == $recent_array['asearch_recent_biop'][$recent_num] &&
+ $unop_string == $recent_array['asearch_recent_unop'][$recent_num] &&
+ $where_string == $recent_array['asearch_recent_where'][$recent_num] &&
+ $what_string == $recent_array['asearch_recent_what'][$recent_num] &&
+ $exclude_string == $recent_array['asearch_recent_exclude'][$recent_num]
+ )
+ return TRUE;
+ }
+ }
+ return FALSE;
+}
+
+/* push a recent search */
+function asearch_push_recent($data_dir, $username, $mailbox_array, $biop_array, $unop_array, $where_array, $what_array, $exclude_array)
+{
+ global $recent_prefkeys;
+
+ $recent_max = getPref($data_dir, $username, 'search_memory', 0);
+ if ($recent_max > 0) {
+ $recent_array = asearch_read_recent($data_dir, $username);
+ if (!asearch_recent_exists($recent_array, $mailbox_array, $biop_array, $unop_array, $where_array, $what_array, $exclude_array)) {
+ $input = array($where_array, $mailbox_array, $what_array, $biop_array, $unop_array, $exclude_array);
+ $i = 0;
+ foreach ($recent_prefkeys as $key) {
+ array_unshift($recent_array[$key], asearch_serialize($input[$i]));
+ $i++;
+ }
+ asearch_write_recent($data_dir, $username, $recent_array);
+ }
+ }
+}
+
+/* edit a recent search */
+function asearch_edit_recent($data_dir, $username, $index)
+{
+ global $mailbox_array, $biop_array, $unop_array, $where_array, $what_array, $exclude_array;
+
+ $mailbox_array = asearch_unserialize(asearch_getPref($data_dir, $username, 'asearch_recent_mailbox', $index));
+ $biop_array = asearch_unserialize(asearch_getPref($data_dir, $username, 'asearch_recent_biop', $index));
+ $unop_array = asearch_unserialize(asearch_getPref($data_dir, $username, 'asearch_recent_unop', $index));
+ $where_array = asearch_unserialize(asearch_getPref($data_dir, $username, 'asearch_recent_where', $index));
+ $what_array = asearch_unserialize(asearch_getPref($data_dir, $username, 'asearch_recent_what', $index));
+ $exclude_array = asearch_unserialize(asearch_getPref($data_dir, $username, 'asearch_recent_exclude', $index));
+}
+
+/* edit the last recent search if the prefs permit it */
+function asearch_edit_last($data_dir, $username)
+{
+ if (getPref($data_dir, $username, 'search_memory', 0) > 0)
+ asearch_edit_recent($data_dir, $username, 0);
+}
+
+/* edit a saved search */
+function asearch_edit_saved($data_dir, $username, $index)
+{
+ global $mailbox_array, $biop_array, $unop_array, $where_array, $what_array, $exclude_array;
+
+ $mailbox_array = asearch_unserialize(asearch_getPref($data_dir, $username, 'asearch_saved_mailbox', $index));
+ $biop_array = asearch_unserialize(asearch_getPref($data_dir, $username, 'asearch_saved_biop', $index));
+ $unop_array = asearch_unserialize(asearch_getPref($data_dir, $username, 'asearch_saved_unop', $index));
+ $where_array = asearch_unserialize(asearch_getPref($data_dir, $username, 'asearch_saved_where', $index));
+ $what_array = asearch_unserialize(asearch_getPref($data_dir, $username, 'asearch_saved_what', $index));
+ $exclude_array = asearch_unserialize(asearch_getPref($data_dir, $username, 'asearch_saved_exclude', $index));
+}
+
+function asearch_write_saved($data_dir, $username, $saved_array)
+{
+ global $saved_prefkeys;
+
+ $saved_count = count($saved_array[$saved_prefkeys[0]]);
+ for ($saved_num=0; $saved_num < $saved_count; $saved_num++) {
+ foreach ($saved_prefkeys as $key) {
+ asearch_setPref($data_dir, $username, $key, $saved_num, $saved_array[$key][$saved_num]);
+ }
+ }
+ foreach ($saved_prefkeys as $key) {
+ asearch_removePref($data_dir, $username, $key, $saved_count);
+ }
+}
+
+/* delete a saved search */
+function asearch_delete_saved($data_dir, $username, $saved_index)
+{
+ global $saved_prefkeys;
+
+ $saved_array = asearch_read_saved($data_dir, $username);
+ $asearch_keys = $saved_prefkeys;
+ foreach ($asearch_keys as $key) {
+ array_splice($saved_array[$key], $saved_index, 1);
+ }
+ asearch_write_saved($data_dir, $username, $saved_array);
+}
+
+/* translate the input date to imap date to local date display, so the user can know if the date is wrong or illegal */
+function asearch_get_date_display($what)
+{
+ $what_parts = sqimap_asearch_parse_date($what);
+ if (count($what_parts) == 4) {
+ if (checkdate($what_parts[2], $what_parts[1], $what_parts[3])) {
+ $what_display = date_intl(_("M j, Y"),mktime(0,0,0,$what_parts[2],$what_parts[1],$what_parts[3]));
+ /*$what_display = $what_parts[1] . ' ' . getMonthName($what_parts[2]) . ' ' . $what_parts[3];*/
+ }
+ else
+ $what_display = _("(Illegal date)");
+ }
+ else
+ $what_display = _("(Wrong date)");
+ return $what_display;
+}
+
+/* translate the query to rough natural display */
+function asearch_get_query_display($color, $mailbox_array, $biop_array, $unop_array, $where_array, $what_array, $exclude_array)
+{
+ global $imap_asearch_biops_in, $imap_asearch_biops, $imap_asearch_unops, $imap_asearch_options;
+ global $imap_asearch_opcodes;
+
+ $last_mailbox = $mailbox_array[0];
+ if (empty($last_mailbox))
+ $last_mailbox = 'INBOX';
+ $query_display = '';
+ for ($crit_num=0; $crit_num < count($where_array); $crit_num++) {
+ if ((!isset($exclude_array[$crit_num])) || (!$exclude_array[$crit_num])) {
+ $cur_mailbox = $mailbox_array[$crit_num];
+ if (empty($cur_mailbox))
+ $cur_mailbox = 'INBOX';
+ $biop = asearch_nz($biop_array[$crit_num]);
+ if (($query_display == '') || ($cur_mailbox != $last_mailbox)) {
+ $mailbox_display = ' <B>' . asearch_get_mailbox_display($cur_mailbox) . '</B>';
+ if ($query_display == '')
+ $biop_display = _("In");
+ else
+ $biop_display = $imap_asearch_biops_in[$biop];
+ $last_mailbox = $cur_mailbox;
+ }
+ else {
+ $mailbox_display = '';
+ $biop_display = $imap_asearch_biops[$biop];
+ }
+ $biop_display = ' <U><I>' . $biop_display . '</I></U>';
+ $unop = $unop_array[$crit_num];
+ $unop_display = $imap_asearch_unops[$unop];
+ $where = $where_array[$crit_num];
+ $where_display = $imap_asearch_options[$where];
+ if ($unop_display != '')
+ $where_display = ' <U><I>' . $unop_display . ' ' . $where_display . '</I></U>';
+ else
+ $where_display = ' <U><I>' . $where_display . '</I></U>';
+ $what_type = $imap_asearch_opcodes[$where];
+ $what = $what_array[$crit_num];
+ if ($what_type) { /* Check opcode parameter */
+ if ($what == '')
+ $what_display = ' ' . asearch_get_error_display($color, _("(Missing argument)"));
+ else {
+ if ($what_type == 'adate')
+ $what_display = asearch_get_date_display($what);
+ else
+ $what_display = htmlspecialchars($what);
+ $what_display = ' <B>' . $what_display . '</B>';
+ }
+ }
+ else {
+ if ($what)
+ $what_display = ' ' . asearch_get_error_display($color, _("(Spurious argument)"));
+ else
+ $what_display = '';
+ }
+ $query_display .= ' ' . $biop_display . $mailbox_display . $where_display . $what_display;
+ }
+ }
+ return $query_display;
+}
+
+/* Handle the alternate row colors */
+function asearch_get_row_color($color, $row_num)
+{
+/*$color_string = ($row_num%2 ? $color[0] : $color[4]);*/
+ $color_string = $color[4];
+ if ($GLOBALS['alt_index_colors']) {
+ if (($row_num % 2) == 0) {
+ if (!isset($color[12]))
+ $color[12] = '#EAEAEA';
+ $color_string = $color[12];
+ }
+ }
+ return $color_string;
+}
+
+/* Print a whole query array, recent or saved */
+function asearch_print_query_array($query_array, $query_keys, $action_array, $title)
+{
+ global $color;
+
+ echo "<br>\n";
+ echo html_tag( 'table', '', 'center', $color[9], 'width="95%" cellpadding="1" cellspacing="1" border="0"' );
+ echo html_tag( 'tr', html_tag( 'td', asearch_get_title_display($color, $title), 'center', $color[5], 'colspan=5'));
+ $main_key = $query_keys[0];
+ $query_count = count($query_array[$main_key]);
+ for ($query_num=0, $row_num=0; $query_num<$query_count; $query_num++) {
+ if (!empty($query_array[$main_key][$query_num])) {
+ echo html_tag('tr', '', '', asearch_get_row_color($color, $row_num));
+
+ unset($search_array);
+ foreach ($query_keys as $query_key) {
+ $search_array[] = asearch_unserialize($query_array[$query_key][$query_num]);
+ }
+ $mailbox_array = $search_array[1];
+ $biop_array = $search_array[3];
+ $unop_array = $search_array[4];
+ $where_array = $search_array[0];
+ $what_array = $search_array[2];
+ $exclude_array = $search_array[5];
+ $query_display = asearch_get_query_display($color, $mailbox_array, $biop_array, $unop_array, $where_array, $what_array, $exclude_array);
+
+ echo html_tag( 'td', $query_num+1, 'right');
+ echo html_tag( 'td', $query_display, 'center', '', 'width="80%"');
+ foreach ($action_array as $action => $action_display) {
+ echo html_tag('td', '<a href=search.php?submit=' . $action . '&rownum=' . $query_num . '>' . $action_display . '</a>', 'center');
+ }
+
+ echo '</tr>' . "\n";
+ $row_num++;
+ }
+ }
+ echo '</table>' . "\n";
+}
+
+/* print the saved array */
+function asearch_print_saved($data_dir, $username)
+{
+ global $saved_prefkeys;
+
+ $saved_array = asearch_read_saved($data_dir, $username);
+ if (isset($saved_array[$saved_prefkeys[0]])) {
+ $saved_count = count($saved_array[$saved_prefkeys[0]]);
+ if ($saved_count > 0) {
+ $saved_actions = array('edit_saved' => _("edit"), 'search_saved' => _("search"), 'delete_saved' => _("delete"));
+ asearch_print_query_array($saved_array, $saved_prefkeys, $saved_actions, _("Saved Searches"));
+ }
+ }
+}
+
+/* print the recent array */
+function asearch_print_recent($data_dir, $username)
+{
+ global $recent_prefkeys;
+
+ $recent_array = asearch_read_recent($data_dir, $username);
+ if (isset($recent_array[$recent_prefkeys[0]])) {
+ $recent_count = count($recent_array[$recent_prefkeys[0]]);
+ $recent_max = min($recent_count, getPref($data_dir, $username, 'search_memory', 0));
+ if ($recent_max > 0) {
+ $recent_actions = array('save_recent' => _("save"), 'search_recent' => _("search"), 'forget_recent' => _("forget"));
+ asearch_print_query_array($recent_array, $recent_prefkeys, $recent_actions, _("Recent Searches"));
+ }
+ }