Remove unused globals
[squirrelmail.git] / plugins / info / options.php
CommitLineData
01c372f1 1<?php
ea5f4b8e 2/**
3 * options page for IMAP info plugin
b11fe046 4 *
a7b90f05 5 * This is where it all happens :)
6a85a764 6 *
b11fe046 7 * @copyright (c) 1999-2004 The SquirrelMail Project Team
8 * @license http://opensource.org/licenses/gpl-license.php GNU Public License
9 * @version $Id$
10 * @author Jason Munro jason@stdbev.com
ea5f4b8e 11 * @package plugins
12 * @subpackage info
a7b90f05 13 */
8d6a115b 14
ea5f4b8e 15/** @ignore */
8d6a115b 16define('SM_PATH','../../');
a7b90f05 17
cdf82d4a 18/* SquirrelMail required files. */
19require_once(SM_PATH . 'include/validate.php');
20require_once(SM_PATH . 'functions/page_header.php');
21require_once(SM_PATH . 'functions/imap.php');
a9e1e670 22require_once(SM_PATH . 'functions/forms.php');
cdf82d4a 23require_once(SM_PATH . 'plugins/info/functions.php');
a7b90f05 24
25global $username, $color, $folder_prefix, $default_charset;
26$default_charset = strtoupper($default_charset);
27displayPageHeader($color, 'None');
28$mailbox = 'INBOX';
6a85a764 29
b11fe046 30/**
31 * testing installation
32 *
33 * prevent use of plugin if it is not enabled
34 */
35if (! is_plugin_enabled('info')) {
01c372f1 36 echo '<p align="center"><big>'.
37 _("Plugin is disabled.").
38 '</big></p></body></html>';
39 exit;
b11fe046 40}
41
6a85a764 42/* GLOBALS */
b11fe046 43sqgetGlobalVar('username', $username, SQ_SESSION);
44sqgetGlobalVar('key', $key, SQ_COOKIE);
45sqgetGlobalVar('onetimepad', $onetimepad, SQ_SESSION);
6a85a764 46
b587ac51 47sqgetGlobalVar('submit', $submit, SQ_POST);
6a85a764 48
49for($i = 0; $i <= 9; $i++){
b587ac51 50 $varc = 'CHECK_TEST_'.$i;
51 sqgetGlobalVar($varc, $$varc, SQ_POST);
52 $vart = 'TEST_'.$i;
53 sqgetGlobalVar($vart, $$vart, SQ_POST);
6a85a764 54}
55
56/* END GLOBALS */
57
a7b90f05 58$imap_stream = sqimap_login($username, $key, $imapServerAddress, $imapPort, 0);
59$caps_array = get_caps($imap_stream);
01c372f1 60$list = array ('TEST_0',
a7b90f05 61 'TEST_1',
62 'TEST_2',
63 'TEST_3',
64 'TEST_4',
65 'TEST_5',
66 'TEST_6',
67 'TEST_7',
68 'TEST_8',
69 'TEST_9');
70
01c372f1 71echo '<br /><center><b>'._("IMAP server information")."</b></center><br />\n".
72 '<center><table bgcolor="'.$color[3].'" width="100%" border="1" cellpadding="2">'.
73 '<tr><td bgcolor="'.$color[3]."\"><br />\n".
74 '<center><table width="95%" border="1" bgcolor="'.$color[3]."\">\n".
75 '<tr><td bgcolor="'.$color[4].'"><b>'.
76 _("Server Capability response:").
77 "</b><br />\n";
a7b90f05 78
79foreach($caps_array[0] as $value) {
01c372f1 80 echo htmlspecialchars($value);
a7b90f05 81}
82
01c372f1 83echo "</td></tr><tr><td>\n";
a7b90f05 84
85if (!isset($submit) || $submit == 'default') {
01c372f1 86 echo '<br /><p><small><font color="'.$color[6].'">'.
87 _("Select the IMAP commands you would like to run. Most commands require a selected mailbox so the select command is already setup. You can clear all the commands and test your own IMAP command strings. The commands are executed in order. The default values are simple IMAP commands using your default_charset and folder_prefix from SquirrelMail when needed.").
88 "</font></small></p>\n".
89 '<p align="center"><small><b>'.
90 _("NOTE: These commands are live, any changes made will effect your current email account.").
91 "</b></small></p><br />\n";
a7b90f05 92 if (!isset($submit)) {
93 $submit = '';
94 }
95}
96else {
01c372f1 97 echo 'folder_prefix = ' . htmlspecialchars($folder_prefix)."<br />\n" .
98 'default_charset = '.htmlspecialchars($default_charset)."\n";
a7b90f05 99}
100
01c372f1 101echo "<br /></td></tr></table></center><br />\n";
a7b90f05 102
103
104if ($submit == 'submit') {
105 $type = array();
106 for ($i=0;$i<count($list);$i++) {
107 $type[$list[$i]] = $$list[$i];
108 }
109}
110
111elseif ($submit == 'clear') {
112 for ($i=0;$i<count($list);$i++) {
113 $type[$list[$i]] = '';
114 }
115}
116
117elseif (!$submit || $submit == 'default') {
118 $type = array (
119 'TEST_0' => "SELECT $mailbox",
120 'TEST_1' => "STATUS $mailbox (MESSAGES RECENT)",
121 'TEST_2' => "EXAMINE $mailbox",
122 'TEST_3' => "SEARCH CHARSET \"$default_charset\" ALL *",
123 'TEST_4' => "THREAD REFERENCES $default_charset ALL",
124 'TEST_5' => "SORT (DATE) $default_charset ALL",
125 'TEST_6' => "FETCH 1:* (FLAGS BODY[HEADER.FIELDS (FROM DATE TO)])",
126 'TEST_7' => "LSUB \"$folder_prefix\" \"*%\"",
127 'TEST_8' => "LIST \"$folder_prefix*\" \"*\"",
128 'TEST_9' => "");
129}
130
01c372f1 131echo "<form action=\"options.php\" method=\"post\">\n".
132 "<center><table border=\"1\">\n".
133 '<tr><th>'. _("Select").
134 '</th><th>'._("Test Name").
135 '</th><th>'._("IMAP command string")."</th></tr>\n".
136 '<tr><td>';
a7b90f05 137
138foreach($type as $index=>$value) {
01c372f1 139 echo "</td></tr>\n<tr><td width=\"10%\">\n<input type=\"checkbox\" value=\"1\" name=\"CHECK_$index\"";
a7b90f05 140 if ($index == 'TEST_0' && ($submit == 'default' || $submit == '')) {
01c372f1 141 echo ' checked="checked"';
a7b90f05 142 }
143 $check = "CHECK_".$index;
144 if (isset($$check) && $submit != 'clear' && $submit != 'default') {
01c372f1 145 echo ' checked="checked"';
a7b90f05 146 }
01c372f1 147 echo " /></td><td width=\"30%\">$index</td><td width=\"60%\">\n".
148 addInput($index, $value, 60);
a7b90f05 149}
150
6fd95361 151echo "</td></tr></table></center><br />\n".
01c372f1 152 '<center>'.
153 addSubmit('submit','submit').
154 addSubmit('clear','submit').
155 addSubmit('default','submit').
6fd95361 156 "</center><br /></form>\n";
a7b90f05 157
158$tests = array();
159
160if ($submit == 'submit') {
161 foreach ($type as $index=>$value) {
162 $check = "CHECK_".$index;
163 if (isset($$check)) {
164 $type[$index] = $$index;
165 array_push($tests, $index);
166 }
167 }
168 for ($i=0;$i<count($tests);$i++) {
a7b90f05 169 $response = imap_test($imap_stream, $type[$tests[$i]]);
01c372f1 170 echo '<center><table width="95%" border="0" bgcolor="'.$color[4]."\">\n".
171 '<tr><td><b>'.$tests[$i]."</b></td></tr>\n".
172 '<tr><td><small><b><font color="'.$color[7].'">'.
173 _("Request:")."</font></b></small></td></tr>\n".
174 '<tr><td><small><b><font color="'.$color[7].'">'.
175 _("Response:")."</font></b></small></td></tr>\n".
176 '<tr><td>';
a7b90f05 177 print_response($response);
01c372f1 178 echo "</td></tr></table></center><br />\n";
a7b90f05 179 }
180}
01c372f1 181 echo '</td></tr></table></center>';
a7b90f05 182 sqimap_logout($imap_stream);
b11fe046 183
184/**
185 * Optional hook in info plugin
186 *
187 * Hook allows attaching plugin to bottom of info plugin
188 */
189do_hook('info_bottom');
a7b90f05 190?>
01c372f1 191</body></html>