+/* 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;
+}