6 ** Copyright (c) 1999-2001 The Squirrelmail Development Team
7 ** Licensed under the GNU GPL. For full terms see the file COPYING.
13 require_once('../src/validate.php');
14 require_once('../functions/imap.php');
15 require_once('../functions/imap_search.php');
16 require_once('../functions/array.php');
18 function s_opt( $val, $sel, $tit ) {
19 echo " <option value=\"$val\"";
22 echo ">$tit</option>\n";
25 displayPageHeader($color, $mailbox);
26 $imapConnection = sqimap_login($username, $key, $imapServerAddress, $imapPort, 0);
28 do_hook('search_before_form');
30 " <table width=95% align=center cellpadding=2 cellspacing=0 border=0>\n".
31 " <tr><td bgcolor=\"$color[0]\">\n".
32 " <center><b>"._("Search")."</b></center>\n".
34 ' <tr><td align=center>'.
36 "<FORM ACTION=\"search.php\" NAME=s>\n".
37 " <TABLE WIDTH=\"75%\">\n".
39 " <TD WIDTH=\"33%\">\n".
40 ' <TT><SMALL><SELECT NAME="mailbox">';
42 $boxes = sqimap_mailbox_list($imapConnection);
43 for ($i = 0; $i < count($boxes); $i++
) {
44 if (!in_array('noselect', $boxes[$i]['flags'])) {
45 $box = $boxes[$i]['unformatted'];
46 $box2 = str_replace(' ', ' ', $boxes[$i]['unformatted-disp']);
48 echo " <OPTION VALUE=\"$box\" SELECTED>$box2</OPTION>\n";
50 echo " <OPTION VALUE=\"$box\">$box2</OPTION>\n";
53 echo ' </SELECT></SMALL></TT>'.
55 " <TD ALIGN=\"CENTER\" WIDTH=\"33%\">\n";
58 $what_disp = ereg_replace(',', ' ', $what);
59 $what_disp = str_replace('\\\\', '\\', $what_disp);
60 $what_disp = str_replace('\\"', '"', $what_disp);
61 $what_disp = str_replace('"', '"', $what_disp);
62 echo " <INPUT TYPE=\"TEXT\" SIZE=\"20\" NAME=\"what\" VALUE=\"$what_disp\">\n".
64 "<TD ALIGN=\"RIGHT\" WIDTH=\"33%\">\n".
65 '<SELECT NAME="where">';
67 s_opt( 'BODY', ($where == 'BODY'), _("Body") );
68 s_opt( 'TEXT', ($where == 'TEXT'), _("Everywhere") );
69 s_opt( 'SUBJECT', ($where == 'SUBJECT'), _("Subject") );
70 s_opt( 'FROM', ($where == 'FROM'), _("From") );
71 s_opt( 'CC', ($where == 'CC'), _("Cc") );
72 s_opt( 'TO', ($where == 'TO'), _("To") );
76 " <TD COLSPAN=\"3\" ALIGN=\"CENTER\">\n".
77 " <INPUT TYPE=\"submit\" VALUE=\""._("Search")."\">\n".
83 do_hook("search_after_form");
84 if (isset($where) && $where && isset($what) && $what) {
85 sqimap_mailbox_select($imapConnection, $mailbox);
86 sqimap_search($imapConnection, $where, $what, $mailbox, $color);
88 do_hook("search_bottom");
89 sqimap_logout ($imapConnection);