Eliminated all eveil chdir statements.
[squirrelmail.git] / plugins / mail_fetch / options.php
CommitLineData
d622d38a 1<?php
d3c89357 2
8d6a115b 3/**
4 * mail_fetch/options.php
5 *
6 * Copyright (c) 1999-2002 The SquirrelMail Project Team
7 * Licensed under the GNU GPL. For full terms see the file COPYING.
8 *
9 * Setup of the mailfetch plugin.
10 *
11 * $Id$
12 */
d622d38a 13
8d6a115b 14define('SM_PATH','../../');
aa7fb30c 15
8d6a115b 16require_once(SM_PATH . 'include/validate.php');
17require_once(SM_PATH . 'functions/imap.php');
18require_once(SM_PATH . 'include/load_prefs.php');
d622d38a 19
d3c89357 20 displayPageHeader( $color, 'None' );
d622d38a 21
d3c89357 22 //if dosen't select any option
23 if (!isset($mf_action))
24 $mf_action = 'config';
d622d38a 25
d3c89357 26 switch( $mf_action ) {
27 case 'add':
28 if ($mf_sn<1) $mf_sn=0;
29 if (!isset($mf_server)) return;
30 setPref($data_dir,$username,"mailfetch_server_$mf_sn", (isset($mf_server)?$mf_server:""));
31 setPref($data_dir,$username,"mailfetch_alias_$mf_sn", (isset($mf_alias)?$mf_alias:""));
32 setPref($data_dir,$username,"mailfetch_user_$mf_sn",(isset($mf_user)?$mf_user:""));
33 setPref($data_dir,$username,"mailfetch_pass_$mf_sn",(isset($mf_pass)?encrypt( $mf_pass ) :""));
34 if( $mf_cypher <> 'on' ) SetPref($data_dir,$username,"mailfetch_cypher", 'on');
35 setPref($data_dir,$username,"mailfetch_lmos_$mf_sn",(isset($mf_lmos)?$mf_lmos:""));
36 setPref($data_dir,$username,"mailfetch_login_$mf_sn",(isset($mf_login)?$mf_login:""));
37 setPref($data_dir,$username,"mailfetch_fref_$mf_sn",(isset($mf_fref)?$mf_fref:""));
38 setPref($data_dir,$username,"mailfetch_subfolder_$mf_sn",(isset($mf_subfolder)?$mf_subfolder:""));
39 $mf_sn++;
40 setPref($data_dir,$username,'mailfetch_server_number', $mf_sn);
41 $mf_action = 'config';
42 break;
43 case 'confirm_modify':
44 //modify a server
45 if (!isset($mf_server)) return;
46 setPref($data_dir,$username,"mailfetch_server_$mf_sn", (isset($mf_server)?$mf_server:""));
47 setPref($data_dir,$username,"mailfetch_alias_$mf_sn", (isset($mf_alias)?$mf_alias:""));
48 setPref($data_dir,$username,"mailfetch_user_$mf_sn",(isset($mf_user)?$mf_user:""));
49 setPref($data_dir,$username,"mailfetch_pass_$mf_sn",(isset($mf_pass)?encrypt( $mf_pass ) :""));
50 if( $mf_cypher <> 'on' ) setPref($data_dir,$username,"mailfetch_cypher", 'on');
51 setPref($data_dir,$username,"mailfetch_lmos_$mf_sn",(isset($mf_lmos)?$mf_lmos:""));
52 setPref($data_dir,$username,"mailfetch_login_$mf_sn",(isset($mf_login)?$mf_login:""));
53 setPref($data_dir,$username,"mailfetch_fref_$mf_sn",(isset($mf_fref)?$mf_fref:""));
54 setPref($data_dir,$username,"mailfetch_subfolder_$mf_sn",(isset($mf_subfolder)?$mf_subfolder:""));
55 $mf_action = 'config';
56 break;
57 case 'confirm_delete':
58 //delete a server
59 $mailfetch_server_number = getPref($data_dir, $username, "mailfetch_server_number");
60 if ($mf_sn+1==$mailfetch_server_number) {
61 //is the last server, whe can only decrase $mailfetch_server_number
62 $mailfetch_server_number--;
63 setPref($data_dir,$username,"mailfetch_server_number", $mailfetch_server_number);
64 } else {
65 //if not the last, all the sequel server come up one step
66 //then whe decrase $mailfetch_server_number
67 $mailfetch_server_number--;
68 for ($i=$mf_sn;$i<$mailfetch_server_number;$i++) {
69 $tmp=$i+1;
09e47788 70 setPref($data_dir,$username,"mailfetch_server_$i", getPref($data_dir, $username, "mailfetch_server_$tmp"));
71 setPref($data_dir,$username,"mailfetch_alias_$i", getPref($data_dir, $username, "mailfetch_alias_$tmp"));
72 setPref($data_dir,$username,"mailfetch_user_$i", getPref($data_dir, $username, "mailfetch_user_$tmp"));
73 setPref($data_dir,$username,"mailfetch_pass_$i",(isset($mf_pass)?encrypt( $mf_pass ) :""));
d3c89357 74 // if( $mf_cypher <> 'on' ) setPref($data_dir,$username,"mailfetch_cypher", 'on');
09e47788 75 setPref($data_dir,$username,"mailfetch_lmos_$i", getPref($data_dir, $username, "mailfetch_lmos_$tmp"));
76 setPref($data_dir,$username,"mailfetch_login_$i", getPref($data_dir, $username, "mailfetch_login_$tmp"));
77 setPref($data_dir,$username,"mailfetch_fref_$i", getPref($data_dir, $username, "mailfetch_fref_$tmp"));
78 setPref($data_dir,$username,"mailfetch_subfolder_$i", getPref($data_dir, $username, "mailfetch_subfolder_$tmp"));
d3c89357 79 }
80 setPref($data_dir,$username,"mailfetch_server_number", $mailfetch_server_number);
81 }
82 $mf_action = 'config';
83 break;
84 }
85
86 $mailfetch_server_number = getPref($data_dir, $username, 'mailfetch_server_number', 0);
87 $mailfetch_cypher = getPref( $data_dir, $username, 'mailfetch_cypher' );
88 if ($mailfetch_server_number<1) {
89 $mailfetch_server_number=0;
90 }
d622d38a 91 for ($i=0;$i<$mailfetch_server_number;$i++) {
92 $mailfetch_server_[$i] = getPref($data_dir, $username, "mailfetch_server_$i");
93 $mailfetch_alias_[$i] = getPref($data_dir, $username, "mailfetch_alias_$i");
94 $mailfetch_user_[$i] = getPref($data_dir, $username, "mailfetch_user_$i");
95 $mailfetch_pass_[$i] = getPref($data_dir, $username, "mailfetch_pass_$i");
96 $mailfetch_lmos_[$i] = getPref($data_dir, $username, "mailfetch_lmos_$i");
97 $mailfetch_login_[$i] = getPref($data_dir, $username, "mailfetch_login_$i");
98 $mailfetch_fref_[$i] = getPref($data_dir, $username, "mailfetch_fref_$i");
99 $mailfetch_uidl_[$i] = getPref($data_dir, $username, "mailfetch_uidl_$i");
100 $mailfetch_subfolder_[$i] = getPref($data_dir, $username, "mailfetch_subfolder_$i");
101 if( $mailfetch_cypher == 'on' ) $mailfetch_pass_[$i] = decrypt( $mailfetch_pass_[$i] );
102 }
103
104
d3c89357 105 echo '<BR><form method=post action="'.$PHP_SELF.'">' .
4cf43843 106 html_tag( 'table',
107 html_tag( 'tr',
108 html_tag( 'td',
109 '<b>' . _("Remote POP server settings") . '</b>',
110 'center', $color[0] )
111 ),
112 'center', '', 'width="95%" cols="1"' ) .
113 html_tag( 'table',
114 html_tag( 'tr',
115 html_tag( 'td',
116 _("You should be aware that the encryption used to store your password is not perfectly secure. However, if you are using pop, there is inherently no encryption anyway. Additionally, the encryption that we do to save it on the server can be undone by a hacker reading the source to this file." ) ,
117 'left' )
118 ) .
119 html_tag( 'tr',
120 html_tag( 'td',
121 _("If you leave password empty, it will be required when you fetch mail.") ,
122 'left' )
123 ) .
124 html_tag( 'tr',
125 html_tag( 'td',
126 '<input type=checkbox name=mf_cypher ' .
127 (($mailfetch_cypher=='on')?'checked >':'>') .
128 _("Encrypt passwords (informative only)") ,
129 'right' )
130 ) ,
131 'center', '', 'width="95%" cols="1"' );
d622d38a 132
d3c89357 133 switch( $mf_action ) {
134 case 'config':
4cf43843 135 echo html_tag( 'table', '', 'center', '', 'width="70%" cols="1" cellpadding="5" cellspacing="1"' ) .
136 html_tag( 'tr',
137 html_tag( 'td', '<b>' . _("Add Server") . '</b>', 'center', $color[9] )
138 ) .
139 html_tag( 'tr' ) .
140 html_tag( 'td', '', 'center', $color[0] ) .
141
d3c89357 142 "<INPUT TYPE=\"hidden\" NAME=\"mf_sn\" VALUE=\"$mailfetch_server_number\">" .
4cf43843 143 '<INPUT TYPE="hidden" NAME="mf_action" VALUE="add">' .
144 html_tag( 'table' ) .
145 html_tag( 'tr',
146 html_tag( 'th', _("Server:"), 'right' ) .
147 html_tag( 'td', '<input type=text name=mf_server value="" size=40>', 'left' )
148 ) .
149 html_tag( 'tr',
150 html_tag( 'th', _("Alias:"), 'right' ) .
151 html_tag( 'td', '<input type=text name=mf_alias value="" size=20>', 'left' )
152 ) .
153 html_tag( 'tr',
154 html_tag( 'th', _("Username:"), 'right' ) .
155 html_tag( 'td', '<input type=text name=mf_user value="" size=20>', 'left' )
156 ) .
157 html_tag( 'tr',
158 html_tag( 'th', _("Password:"), 'right' ) .
159 html_tag( 'td', '<input type=password name=mf_pass value="" size=20>', 'left' )
160 ) .
161 html_tag( 'tr' ) .
162 html_tag( 'th', _("Store in Folder:"), 'right' ) .
163 html_tag( 'td', '', 'left' );
d3c89357 164 $imapConnection = sqimap_login ($username, $key, $imapServerAddress, $imapPort, 0);
165 $boxes = sqimap_mailbox_list($imapConnection);
4cf43843 166 echo '<select name="mf_subfolder">';
5e7f6ef6 167 $boxes = sqimap_mailbox_list($imapConnection);
d3c89357 168 for ($i = 0; $i < count($boxes); $i++) {
5e7f6ef6 169 if (!in_array('noselect', $boxes[$i]['flags'])) {
170 $box = $boxes[$i]['unformatted'];
171 $box2 = str_replace(' ', '&nbsp;', $boxes[$i]['unformatted-disp']);
172 if ( strtolower( $box2 ) == 'inbox' ) {
173 $box2 = _("INBOX");
d622d38a 174 }
4cf43843 175 echo "<option value=\"$box\">$box2</option>\n";
d622d38a 176 }
5e7f6ef6 177 }
4cf43843 178 echo '</select></td></tr>' .
179 html_tag( 'tr',
180 html_tag( 'th', '&nbsp;', 'right' ) .
181 html_tag( 'td', '<input type="checkbox" name="mf_lmos" checked>' . _("Leave Mail on Server"), 'left' )
182 ) .
183 html_tag( 'tr',
184 html_tag( 'th', '&nbsp;', 'right' ) .
185 html_tag( 'td', '<input type="checkbox" name="mf_login">' . _("Check mail during login"), 'left' )
186 ) .
187 html_tag( 'tr',
188 html_tag( 'th', '&nbsp;', 'right' ) .
189 html_tag( 'td', '<input type="checkbox" name="mf_fref">' . _("Check mail during folder refresh"), 'left' )
190 ) .
191 html_tag( 'tr',
192 html_tag( 'td',
193 '<input type=submit name="submit_mailfetch" value="' . _("Add Server") . '">',
194 'center', '', 'colspan="2"' )
195 ) .
196 '</table></form></td></tr></table>';
d622d38a 197
d3c89357 198 // Modify Server
199 echo '<font size=-5><BR></font>' .
4cf43843 200 html_tag( 'table', '', 'center', '', 'width="70%" cols="1" cellpadding="5" cellspacing="1"' ) .
201 html_tag( 'tr',
202 html_tag( 'td', '<b>' . _("Modify Server") . '</b>', 'center', $color[9] )
203 ) .
204 html_tag( 'tr' ) .
205 html_tag( 'td', '', 'center', $color[0] );
d3c89357 206 if ($mailfetch_server_number>0) {
4cf43843 207 echo "<form action=\"$PHP_SELF\" method=\"post\" target=\"_self\">";
208 echo '<b>' . _("Server Name:") . '</b> <select name="mf_sn">';
d3c89357 209 for ($i=0;$i<$mailfetch_server_number;$i++) {
4cf43843 210 echo "<option value=\"$i\">" .
211 (($mailfetch_alias_[$i]=='')?$mailfetch_server_[$i]:$mailfetch_alias_[$i]) . "</option>>";
d3c89357 212 }
4cf43843 213 echo '</select>'.
d3c89357 214 '&nbsp;&nbsp;<INPUT TYPE=submit name=mf_action value="' . _("Modify") . '">'.
215 '&nbsp;&nbsp;<INPUT TYPE=submit name=mf_action value="' . _("Delete") . '">'.
216 '</form>';
217 } else {
218 echo _("No-one server in use. Try to add.");
219 }
4cf43843 220 echo '</td></tr></table>';
d3c89357 221 break;
222 case _("Delete"): //erase confirmation about a server
4cf43843 223 echo html_tag( 'table',
224 html_tag( 'tr',
225 html_tag( 'td', '<b>' . _("Fetching Servers") . '</b>', 'center', $color[0] )
226 ) ,
227 'center', '', 'width="95%" cols="1" cellpadding="5" cellspacing="1"' ) .
228 '<br>' .
229 html_tag( 'table',
230 html_tag( 'tr',
231 html_tag( 'td', '<b>' . _("Confirm Deletion of a Server") . '</b>', 'center', $color[9] )
232 ) .
233 html_tag( 'tr',
234 html_tag( 'td',
235 "<INPUT TYPE=\"hidden\" NAME=\"mf_sn\" VALUE=\"$mf_sn\">" .
236 '<INPUT TYPE="hidden" NAME="mf_action" VALUE="confirm_delete">' .
237 '<br>' . _("Selected Server:") . " <b>$mailfetch_server_[$mf_sn]</b><br>" .
238 _("Confirm delete of selected server?") . '<br><br>' .
239 '<input type=submit name=submit_mailfetch value="' . _("Confirm Delete") . '">' .
240 '<br></form>' ,
241 'center', $color[9] )
242 ) ,
243 'center', '', 'width="70%" cols="1" cellpadding="5" cellspacing="1"' );
d3c89357 244 break; //modify a server
245 case _("Modify"):
4cf43843 246 echo html_tag( 'table',
247 html_tag( 'tr',
248 html_tag( 'td', '<b>' . _("Fetching Servers") . '</b>', 'center', $color[0] )
249 ) ,
250 'center', '', 'width="95%" cols="1" cellpadding="5" cellspacing="1"' ) .
251 '<br>' .
252 html_tag( 'table', '', 'center', '', 'width="70%" cols="1" cellpadding="5" cellspacing="1"' ) .
253 html_tag( 'tr',
254 html_tag( 'td', '<b>' . _("Mofify a Server") . '</b>', 'center', $color[9] )
255 ) .
256 html_tag( 'tr' ) .
257 html_tag( 'td', '', 'center', $color[0] ) .
258
d3c89357 259 "<INPUT TYPE=\"hidden\" NAME=\"mf_sn\" VALUE=\"$mf_sn\">" .
260 '<INPUT TYPE="hidden" NAME="mf_action" VALUE="confirm_modify">' .
4cf43843 261 html_tag( 'table' ) .
262 html_tag( 'tr',
263 html_tag( 'th', _("Server:"), 'right' ) .
264 html_tag( 'td', '<input type="text" name="mf_server" value="' . $mailfetch_server_[$mf_sn] . '" size="40">', 'left' )
265 ) .
266 html_tag( 'tr',
267 html_tag( 'th', _("Alias:"), 'right' ) .
268 html_tag( 'td', '<input type="text" name="mf_alias" value="' . $mailfetch_alias_[$mf_sn] . '" size="40">', 'left' )
269 ) .
270 html_tag( 'tr',
271 html_tag( 'th', _("Username:"), 'right' ) .
272 html_tag( 'td', '<input type="text" name="mf_user" value="' . $mailfetch_user_[$mf_sn] . '" size="20">', 'left' )
273 ) .
274 html_tag( 'tr',
275 html_tag( 'th', _("Password:"), 'right' ) .
276 html_tag( 'td', '<input type="password" name="mf_pass" value="' . $mailfetch_pass_[$mf_sn] . '" size="20">', 'left' )
277 ) .
278 html_tag( 'tr' ) .
279 html_tag( 'th', _("Store in Folder:"), 'right' ) .
280 html_tag( 'td', '', 'left' );
281
d3c89357 282 $imapConnection = sqimap_login ($username, $key, $imapServerAddress, $imapPort, 0);
283 $boxes = sqimap_mailbox_list($imapConnection);
4cf43843 284 echo '<select name="mf_subfolder">';
5e7f6ef6 285 $boxes = sqimap_mailbox_list($imapConnection);
d3c89357 286 for ($i = 0; $i < count($boxes); $i++) {
5e7f6ef6 287 if (!in_array('noselect', $boxes[$i]['flags'])) {
288 $box = $boxes[$i]['unformatted'];
289 $box2 = str_replace(' ', '&nbsp;', $boxes[$i]['unformatted-disp']);
290 if ( strtolower( $box2 ) == 'inbox' ) {
291 $box2 = _("INBOX");
d622d38a 292 }
4cf43843 293 echo '<option ' .
294 (strcmp($mailfetch_subfolder_[$mf_sn],$box)==0?'selected':'') .
295 " value=\"$box\">$box2</option>\n";
d622d38a 296 }
5e7f6ef6 297 }
4cf43843 298 echo '</select></td></tr>' .
299
300 html_tag( 'tr',
301 html_tag( 'th', '&nbsp;', 'right' ) .
302 html_tag( 'td',
303 '<input type=checkbox name=mf_lmos ' . (($mailfetch_lmos_[$mf_sn] == 'on')?'checked':'') .
304 '>' . _("Leave Mail on Server") ,
305 'left' )
306 ) .
307 html_tag( 'tr',
308 html_tag( 'th', '&nbsp;', 'right' ) .
309 html_tag( 'td',
310 '<input type=checkbox name=mf_login ' . ( ($mailfetch_login_[$mf_sn] == 'on')?'checked':'') .
311 '>' . _("Check mail during login"),
312 'left' )
313 ) .
314 html_tag( 'tr',
315 html_tag( 'th', '&nbsp;', 'right' ) .
316 html_tag( 'td',
317 '<input type=checkbox name=mf_fref ' . ( ($mailfetch_fref_[$mf_sn] == 'on')?'checked':'') .
318 '>' . _("Check mail during folder refresh") ,
319 'left' )
320 ) .
321 html_tag( 'tr',
322 html_tag( 'td',
323 '<input type=submit name="submit_mailfetch" value="' . _("Modify Server") . '">',
324 'center', '', 'colspan="2"' )
325 ) .
326
327 '</table></form></td></tr></table>';
d3c89357 328 break;
329 default: //unsupported action
4cf43843 330 echo '</form>' .
331 html_tag( 'table',
332 html_tag( 'tr',
333 html_tag( 'td', '<b>' . _("Fetching Servers") . '</b>', 'center', $color[0] )
334 ) ,
335 'center', '', 'width="95%" cols="1"' ) .
336 '<br>' .
337 html_tag( 'table',
338 html_tag( 'tr',
339 html_tag( 'td', '<b>' . _("Undefined Function") . '</b>', 'center', $color[9] ) .
340 html_tag( 'td', '<b>' . _("Hey! Wath do You are looking for?") . '</b>', 'center', $color[0] )
341 ) ,
342 'center', '', 'width="70%" cols="1"' );
d3c89357 343 }
d622d38a 344
345 ?>
15e6162e 346</body></html>