adding address book block
[squirrelmail.git] / plugins / administrator / options.php
CommitLineData
abd7a3f8 1<?php
2
3/**
fd521778 4 * Administrator Plugin - Options Page
abd7a3f8 5 *
fd521778 6 * This script creates separate page, that allows to review and modify
7 * SquirrelMail configuration file.
abd7a3f8 8 *
0df03ce7 9 * @version $Id$
fd521778 10 * @author Philippe Mingo
11 * @copyright (c) 1999-2004 The SquirrelMail Project Team
12 * @license http://opensource.org/licenses/gpl-license.php GNU Public License
ea5f4b8e 13 * @package plugins
14 * @subpackage administrator
abd7a3f8 15 */
16
ea5f4b8e 17/**
18 * parse the config file
0df03ce7 19 *
20 * @param string $cfg_file
21 * @access private
ea5f4b8e 22 */
37d90494 23function parseConfig( $cfg_file ) {
24
25 global $newcfg;
26
27 $cfg = file( $cfg_file );
71e5c245 28 $mode = '';
29 $l = count( $cfg );
30 $modifier = FALSE;
37d90494 31
71e5c245 32 for ($i=0;$i<$l;$i++) {
33 $line = trim( $cfg[$i] );
34 $s = strlen( $line );
35 for ($j=0;$j<$s;$j++) {
36 switch ( $mode ) {
37 case '=':
38 if ( $line{$j} == '=' ) {
39 // Ok, we've got a right value, lets detect what type
40 $mode = 'D';
41 } else if ( $line{$j} == ';' ) {
42 // hu! end of command
43 $key = $mode = '';
44 }
45 break;
46 case 'K':
47 // Key detect
ab3fe577 48 if ( $line{$j} == ' ' ) {
71e5c245 49 $mode = '=';
37d90494 50 } else {
71e5c245 51 $key .= $line{$j};
37d90494 52 }
71e5c245 53 break;
54 case ';':
55 // Skip until next ;
56 if ( $line{$j} == ';' ) {
57 $mode = '';
58 }
59 break;
60 case 'S':
61 if ( $line{$j} == '\\' ) {
62 $value .= $line{$j};
63 $modifier = TRUE;
64 } else if ( $line{$j} == $delimiter && $modifier === FALSE ) {
65 // End of string;
66 $newcfg[$key] = $value . $delimiter;
67 $key = $value = '';
68 $mode = ';';
69 } else {
70 $value .= $line{$j};
71 $modifier = FALSE;
72 }
73 break;
74 case 'N':
75 if ( $line{$j} == ';' ) {
76 $newcfg{$key} = $value;
77 $key = $mode = '';
78 } else {
79 $value .= $line{$j};
80 }
81 break;
82 case 'C':
83 // Comments
88cb1b4d 84 if ( $s > $j + 1 &&
85 $line{$j}.$line{$j+1} == '*/' ) {
71e5c245 86 $mode = '';
87 $j++;
88 }
89 break;
90 case 'D':
91 // Delimiter detect
92 switch ( $line{$j} ) {
93 case '"':
94 case "'":
95 // Double quote string
96 $delimiter = $value = $line{$j};
97 $mode = 'S';
98 break;
99 case ' ':
100 // Nothing yet
101 break;
102 default:
103 if ( strtoupper( substr( $line, $j, 4 ) ) == 'TRUE' ) {
104 // Boolean TRUE
105 $newcfg{$key} = 'TRUE';
106 $key = '';
107 $mode = ';';
108 } else if ( strtoupper( substr( $line, $j, 5 ) ) == 'FALSE' ) {
109 $newcfg{$key} = 'FALSE';
110 $key = '';
111 $mode = ';';
112 } else {
113 // Number or function call
114 $mode = 'N';
115 $value = $line{$j};
116 }
117 }
118 break;
119 default:
88cb1b4d 120 if ( $line{$j} == '$' ) {
121 // We must detect $key name
122 $mode = 'K';
123 $key = '$';
124 } else if ( $s < $j + 2 ) {
125 } else if ( strtoupper( substr( $line, $j, 7 ) ) == 'GLOBAL ' ) {
71e5c245 126 // Skip untill next ;
127 $mode = ';';
128 $j += 6;
129 } else if ( $line{$j}.$line{$j+1} == '/*' ) {
130 $mode = 'C';
131 $j++;
132 } else if ( $line{$j} == '#' || $line{$j}.$line{$j+1} == '//' ) {
133 // Delete till the end of the line
134 $j = $s;
37d90494 135 }
37d90494 136 }
137 }
37d90494 138 }
a28a56da 139}
140
0df03ce7 141/**
142 * Change paths containing SM_PATH to admin-friendly paths
143 * relative to the config dir, i.e.:
144 * '' --> <empty string>
145 * SM_PATH . 'images/logo.gif' --> ../images/logo.gif
146 * '/absolute/path/logo.gif' --> /absolute/path/logo.gif
147 * 'http://whatever/' --> http://whatever
148 * Note removal of quotes in returned value
149 *
150 * @param string $old_path path that has to be converted
151 * @return string new path
152 * @access private
153 */
a28a56da 154function change_to_rel_path($old_path) {
155 $new_path = str_replace("SM_PATH . '", "../", $old_path);
156 $new_path = str_replace("../config/","", $new_path);
157 $new_path = str_replace("'","", $new_path);
158 return $new_path;
159}
37d90494 160
0df03ce7 161/**
162 * Change relative path (relative to config dir) to
163 * internal SM_PATH, i.e.:
164 * empty_string --> ''
165 * ../images/logo.gif --> SM_PATH . 'images/logo.gif'
166 * images/logo.gif --> SM_PATH . 'config/images/logo.gif'
167 * /absolute/path/logo.gif --> '/absolute/path/logo.gif'
168 * http://whatever/ --> 'http://whatever'
169 *
170 * @param string $old_path path that has to be converted
171 * @return string new path
172 * @access private
a28a56da 173*/
174function change_to_sm_path($old_path) {
ab3fe577 175 if ( $old_path === '' || $old_path == "''" ) {
176 return "''";
177 } elseif ( preg_match("/^(\/|http)/", $old_path) ) {
178 return "'" . $old_path . "'";
179 } elseif ( preg_match("/^(\$|SM_PATH)/", $old_path) ) {
180 return $old_path;
181 }
a28a56da 182
ab3fe577 183 $new_path = '';
184 $rel_path = explode("../", $old_path);
185 if ( count($rel_path) > 2 ) {
186 // Since we're relative to the config dir,
187 // more than 1 ../ puts us OUTSIDE the SM tree.
188 // get full path to config.php, then pop the filename
189 $abs_path = explode('/', realpath (SM_PATH . 'config/config.php'));
190 array_pop ($abs_path);
191 foreach ( $rel_path as $subdir ) {
192 if ( $subdir === '' ) {
193 array_pop ($abs_path);
194 } else {
195 array_push($abs_path, $subdir);
196 }
197 }
198 foreach ($abs_path as $subdir) {
199 $new_path .= $subdir . '/';
200 }
201 $new_path = "'$new_path'";
202 } elseif ( count($rel_path) > 1 ) {
203 // we're within the SM tree, prepend SM_PATH
204 $new_path = str_replace('../',"SM_PATH . '", $old_path . "'");
205 } else {
206 // Last, if it's a relative path without a .. prefix,
207 // we're somewhere within the config dir, so prepend
208 // SM_PATH . 'config/
209 $new_path = "SM_PATH . 'config/" . $old_path . "'";
210 }
211 return $new_path;
37d90494 212}
71e5c245 213
a28a56da 214
37d90494 215/* ---------------------- main -------------------------- */
71e5c245 216
ea5f4b8e 217/** @ignore */
8d6a115b 218define('SM_PATH','../../');
cf1efdce 219
220/* SquirrelMail required files. */
221require_once(SM_PATH . 'include/validate.php');
222require_once(SM_PATH . 'functions/page_header.php');
223require_once(SM_PATH . 'functions/imap.php');
aa7fb30c 224require_once(SM_PATH . 'include/load_prefs.php');
cf1efdce 225require_once(SM_PATH . 'plugins/administrator/defines.php');
226require_once(SM_PATH . 'plugins/administrator/auth.php');
abd7a3f8 227
fd521778 228global $data_dir, $username;
a3fab7e3 229
7004cc32 230if ( !adm_check_user() ) {
a28a56da 231 header('Location: ' . SM_PATH . 'src/options.php') ;
dcd6f144 232 exit;
233}
234
abd7a3f8 235displayPageHeader($color, 'None');
236
37d90494 237$newcfg = array( );
0e66bc84 238
239foreach ( $defcfg as $key => $def ) {
240 $newcfg[$key] = '';
241}
242
b59d1a7d 243$cfgfile = SM_PATH . 'config/config.php';
244parseConfig( SM_PATH . 'config/config_default.php' );
37d90494 245parseConfig( $cfgfile );
abd7a3f8 246
88cb1b4d 247$colapse = array( 'Titles' => 'off',
248 'Group1' => getPref($data_dir, $username, 'adm_Group1', 'off' ),
249 'Group2' => getPref($data_dir, $username, 'adm_Group2', 'on' ),
250 'Group3' => getPref($data_dir, $username, 'adm_Group3', 'on' ),
251 'Group4' => getPref($data_dir, $username, 'adm_Group4', 'on' ),
252 'Group5' => getPref($data_dir, $username, 'adm_Group5', 'on' ),
253 'Group6' => getPref($data_dir, $username, 'adm_Group6', 'on' ),
254 'Group7' => getPref($data_dir, $username, 'adm_Group7', 'on' ),
39d3ec89 255 'Group8' => getPref($data_dir, $username, 'adm_Group8', 'on' ),
256 'Group9' => getPref($data_dir, $username, 'adm_Group9', 'on' ),
0f610dca 257 'Group10' => getPref($data_dir, $username, 'adm_Group10', 'on' ),
258 'Group11' => getPref($data_dir, $username, 'adm_Group10', 'on' ) );
a3fab7e3 259
4cd8ae7d 260/* look in $_GET array for 'switch' */
261if ( sqgetGlobalVar('switch', $switch, SQ_GET) ) {
88cb1b4d 262 if ( $colapse[$switch] == 'on' ) {
ab3fe577 263 $colapse[$switch] = 'off';
88cb1b4d 264 } else {
ab3fe577 265 $colapse[$switch] = 'on';
88cb1b4d 266 }
a3fab7e3 267 setPref($data_dir, $username, "adm_$switch", $colapse[$switch] );
268}
269
78154473 270echo '<form action="options.php" method="post" name="options">' .
ab3fe577 271 '<center><table width="95%" bgcolor="'.$color[5].'"><tr><td>'.
272 '<table width="100%" cellspacing="0" bgcolor="'.$color[4].'">'.
273 '<tr bgcolor="'.$color[5].'"><th colspan="2">'.
274 _("Configuration Administrator").'</th></tr>'.
275 '<tr bgcolor="'.$color[5].'"><td colspan="2" align="center"><small>'.
276 _("Note: it is recommended that you configure your system using conf.pl, and not this plugin. conf.pl contains additional information regarding the purpose of variables and appropriate values, as well as additional verification steps.").
277 '<br />'.
278 _("Run or consult conf.pl should you run into difficulty with your configuration.").
279 '</small></td></tr>';
39d3ec89 280
a3fab7e3 281
282$act_grp = 'Titles'; /* Active group */
c83b38c1 283
abd7a3f8 284foreach ( $newcfg as $k => $v ) {
285 $l = strtolower( $v );
286 $type = SMOPT_TYPE_UNDEFINED;
287 $n = substr( $k, 1 );
288 $n = str_replace( '[', '_', $n );
289 $n = str_replace( ']', '_', $n );
290 $e = 'adm_' . $n;
291 $name = $k;
292 $size = 50;
0e66bc84 293 if ( isset( $defcfg[$k] ) ) {
294 $name = $defcfg[$k]['name'];
295 $type = $defcfg[$k]['type'];
88cb1b4d 296 if ( isset( $defcfg[$k]['size'] ) ) {
297 $size = $defcfg[$k]['size'];
298 } else {
299 $size = 40;
300 }
abd7a3f8 301 } else if ( $l == 'true' ) {
302 $v = 'TRUE';
303 $type = SMOPT_TYPE_BOOLEAN;
304 } else if ( $l == 'false' ) {
305 $v = 'FALSE';
306 $type = SMOPT_TYPE_BOOLEAN;
307 } else if ( $v{0} == "'" ) {
308 $type = SMOPT_TYPE_STRING;
309 } else if ( $v{0} == '"' ) {
310 $type = SMOPT_TYPE_STRING;
311 }
312
edd4a552 313 if ( substr( $k, 0, 7 ) == '$theme[' ) {
314 $type = SMOPT_TYPE_THEME;
315 } else if ( substr( $k, 0, 9 ) == '$plugins[' ) {
316 $type = SMOPT_TYPE_PLUGINS;
65a5bae6 317 } else if ( substr( $k, 0, 13 ) == '$ldap_server[' ) {
318 $type = SMOPT_TYPE_LDAP;
edd4a552 319 }
320
ab3fe577 321 if ( $type == SMOPT_TYPE_TITLE || $colapse[$act_grp] == 'off' ) {
a3fab7e3 322
323 switch ( $type ) {
324 case SMOPT_TYPE_LDAP:
325 case SMOPT_TYPE_PLUGINS:
326 case SMOPT_TYPE_THEME:
327 case SMOPT_TYPE_HIDDEN:
328 break;
88cb1b4d 329 case SMOPT_TYPE_EXTERNAL:
330 echo "<tr><td>$name</td><td><b>" .
331 $defcfg[$k]['value'] .
ab3fe577 332 '</b></td></tr>';
88cb1b4d 333 break;
a3fab7e3 334 case SMOPT_TYPE_TITLE:
88cb1b4d 335 if ( $colapse[$k] == 'on' ) {
a3fab7e3 336 $sw = '(+)';
337 } else {
338 $sw = '(-)';
dcd6f144 339 }
ab3fe577 340 echo '<tr bgcolor="'.$color[0].'"><th colspan="2">'.
341 "<a href=\"options.php?switch=$k\" style=\"text-decoration:none\">".
342 '<b>'.$sw.'</b></a> '.$name.'</th></tr>';
a3fab7e3 343 $act_grp = $k;
344 break;
345 case SMOPT_TYPE_COMMENT:
346 $v = substr( $v, 1, strlen( $v ) - 2 );
347 echo "<tr><td>$name</td><td>".
348 "<b>$v</b>";
349 $newcfg[$k] = "'$v'";
350 if ( isset( $defcfg[$k]['comment'] ) ) {
351 echo ' &nbsp; ' . $defcfg[$k]['comment'];
abd7a3f8 352 }
a3fab7e3 353 echo "</td></tr>\n";
354 break;
355 case SMOPT_TYPE_INTEGER:
ab3fe577 356 /* look for variable $e in POST, fill into $v */
4cd8ae7d 357 if ( sqgetGlobalVar($e, $v, SQ_POST) ) {
358 $v = intval( $v );
a3fab7e3 359 $newcfg[$k] = $v;
360 }
361 echo "<tr><td>$name</td><td>".
ab3fe577 362 "<input size=\"10\" name=\"adm_$n\" value=\"$v\" />";
a3fab7e3 363 if ( isset( $defcfg[$k]['comment'] ) ) {
364 echo ' &nbsp; ' . $defcfg[$k]['comment'];
365 }
366 echo "</td></tr>\n";
367 break;
368 case SMOPT_TYPE_NUMLIST:
4cd8ae7d 369 if ( sqgetGlobalVar($e, $v, SQ_POST) ) {
a3fab7e3 370 $newcfg[$k] = $v;
371 }
372 echo "<tr><td>$name</td><td>";
373 echo "<select name=\"adm_$n\">";
374 foreach ( $defcfg[$k]['posvals'] as $kp => $vp ) {
375 echo "<option value=\"$kp\"";
376 if ( $kp == $v ) {
ab3fe577 377 echo ' selected="selected"';
a3fab7e3 378 }
379 echo ">$vp</option>";
380 }
381 echo '</select>';
382 if ( isset( $defcfg[$k]['comment'] ) ) {
383 echo ' &nbsp; ' . $defcfg[$k]['comment'];
384 }
385 echo "</td></tr>\n";
386 break;
387 case SMOPT_TYPE_STRLIST:
4cd8ae7d 388 if ( sqgetGlobalVar($e, $v, SQ_POST) ) {
389 $v = '"' . $v . '"';
a3fab7e3 390 $newcfg[$k] = $v;
391 }
392 echo "<tr><td>$name</td><td>".
393 "<select name=\"adm_$n\">";
394 foreach ( $defcfg[$k]['posvals'] as $kp => $vp ) {
395 echo "<option value=\"$kp\"";
396 if ( $kp == substr( $v, 1, strlen( $v ) - 2 ) ) {
ab3fe577 397 echo ' selected="selected"';
a3fab7e3 398 }
399 echo ">$vp</option>";
400 }
401 echo '</select>';
402 if ( isset( $defcfg[$k]['comment'] ) ) {
403 echo ' &nbsp; ' . $defcfg[$k]['comment'];
404 }
405 echo "</td></tr>\n";
406 break;
c83b38c1 407
a3fab7e3 408 case SMOPT_TYPE_TEXTAREA:
4cd8ae7d 409 if ( sqgetGlobalVar($e, $v, SQ_POST) ) {
410 $v = '"' . $v . '"';
a3fab7e3 411 $newcfg[$k] = str_replace( "\n", '', $v );
412 }
78154473 413 echo "<tr><td valign=\"top\">$name</td><td>".
414 "<textarea cols=\"$size\" rows=\"4\" name=\"adm_$n\">" . substr( $v, 1, strlen( $v ) - 2 ) . "</textarea>";
a3fab7e3 415 if ( isset( $defcfg[$k]['comment'] ) ) {
416 echo ' &nbsp; ' . $defcfg[$k]['comment'];
417 }
418 echo "</td></tr>\n";
419 break;
420 case SMOPT_TYPE_STRING:
4cd8ae7d 421 if ( sqgetGlobalVar($e, $v, SQ_POST) ) {
422 $v = '"' . $v . '"';
a3fab7e3 423 $newcfg[$k] = $v;
424 }
feba1a41 425 if ( $v == '""' && isset( $defcfg[$k]['default'] ) ) {
426 $v = "'" . $defcfg[$k]['default'] . "'";
427 $newcfg[$k] = $v;
428 }
a3fab7e3 429 echo "<tr><td>$name</td><td>".
ab3fe577 430 "<input size=\"$size\" name=\"adm_$n\" value=\"" . substr( $v, 1, strlen( $v ) - 2 ) . '" />';
a3fab7e3 431 if ( isset( $defcfg[$k]['comment'] ) ) {
432 echo ' &nbsp; ' . $defcfg[$k]['comment'];
433 }
434 echo "</td></tr>\n";
435 break;
436 case SMOPT_TYPE_BOOLEAN:
4cd8ae7d 437 if ( sqgetGlobalVar($e, $v, SQ_POST) ) {
a3fab7e3 438 $newcfg[$k] = $v;
439 } else {
440 $v = strtoupper( $v );
441 }
442 if ( $v == 'TRUE' ) {
ab3fe577 443 $ct = ' checked="checked"';
a3fab7e3 444 $cf = '';
445 } else {
446 $ct = '';
ab3fe577 447 $cf = ' checked="checked"';
a3fab7e3 448 }
449 echo "<tr><td>$name</td><td>" .
ab3fe577 450 "<input$ct type=\"radio\" name=\"adm_$n\" value=\"TRUE\" />" . _("Yes") .
451 "<input$cf type=\"radio\" name=\"adm_$n\" value=\"FALSE\" />" . _("No");
a3fab7e3 452 if ( isset( $defcfg[$k]['comment'] ) ) {
453 echo ' &nbsp; ' . $defcfg[$k]['comment'];
454 }
455 echo "</td></tr>\n";
456 break;
ab3fe577 457 case SMOPT_TYPE_PATH:
4cd8ae7d 458 if ( sqgetGlobalVar($e, $v, SQ_POST) ) {
459 $v = change_to_sm_path($v);
a28a56da 460 $newcfg[$k] = $v;
461 }
462 if ( $v == "''" && isset( $defcfg[$k]['default'] ) ) {
463 $v = change_to_sm_path($defcfg[$k]['default']);
464 $newcfg[$k] = $v;
465 }
ab3fe577 466 echo "<tr><td>$name</td><td>".
467 "<input size=\"$size\" name=\"adm_$n\" value=\"" . change_to_rel_path($v) . '" />';
a28a56da 468 if ( isset( $defcfg[$k]['comment'] ) ) {
469 echo ' &nbsp; ' . $defcfg[$k]['comment'];
470 }
ab3fe577 471 echo "</td></tr>\n";
472 break;
a3fab7e3 473 default:
474 echo "<tr><td>$name</td><td>" .
475 "<b><i>$v</i></b>";
476 if ( isset( $defcfg[$k]['comment'] ) ) {
477 echo ' &nbsp; ' . $defcfg[$k]['comment'];
478 }
479 echo "</td></tr>\n";
6a9acbca 480 }
a3fab7e3 481 }
a3fab7e3 482}
483
1fa5ece1 484/* Special Themes Block */
88cb1b4d 485if ( $colapse['Group7'] == 'off' ) {
a3fab7e3 486 $i = 0;
487 echo '<tr><th>' . _("Theme Name") .
488 '</th><th>' . _("Theme Path") .
489 '</th></tr>';
490 while ( isset( $newcfg["\$theme[$i]['NAME']"] ) ) {
491 $k1 = "\$theme[$i]['NAME']";
492 $e1 = "theme_name_$i";
4cd8ae7d 493 if ( sqgetGlobalVar($e, $v1, SQ_POST) ) {
494 $v1 = '"' . str_replace( '\"', '"', $v1 ) . '"';
b5a29535 495 $v1 = '"' . str_replace( '"', '\"', $v1 ) . '"';
a3fab7e3 496 $newcfg[$k1] = $v1;
a55bb207 497 } else {
a3fab7e3 498 $v1 = $newcfg[$k1];
abd7a3f8 499 }
a3fab7e3 500 $k2 = "\$theme[$i]['PATH']";
501 $e2 = "theme_path_$i";
4cd8ae7d 502 if ( sqgetGlobalVar($e, $v2, SQ_POST) ) {
503 $v2 = change_to_sm_path($v2);
ab3fe577 504 $newcfg[$k2] = $v2;
abd7a3f8 505 } else {
a3fab7e3 506 $v2 = $newcfg[$k2];
abd7a3f8 507 }
a3fab7e3 508 $name = substr( $v1, 1, strlen( $v1 ) - 2 );
a28a56da 509 $path = change_to_rel_path($v2);
a3fab7e3 510 echo '<tr>'.
ab3fe577 511 "<td align=\"right\">$i. <input name=\"$e1\" value=\"$name\" size=\"30\" /></td>".
512 "<td><input name=\"$e2\" value=\"$path\" size=\"40\" /></td>".
a3fab7e3 513 "</tr>\n";
514 $i++;
c83b38c1 515
6a9acbca 516 }
6a9acbca 517}
518
1fa5ece1 519/* Special Plugins Block */
88cb1b4d 520if ( $colapse['Group8'] == 'on' ) {
a3fab7e3 521 $sw = '(+)';
522} else {
523 $sw = '(-)';
6a9acbca 524}
ab3fe577 525echo '<tr bgcolor="'.$color[0].'"><th colspan="2">'.
526 '<a href="options.php?switch=Group8" style="text-decoration:none"><b>'.
527 $sw.'</b></a> '._("Plugins").'</th></tr>';
528
529if ( $colapse['Group8'] == 'off' ) {
530
531 $plugpath = SM_PATH . 'plugins/';
532 if ( file_exists($plugpath) ) {
533 $fd = opendir( $plugpath );
534 $op_plugin = array();
535 $p_count = 0;
536 while (false !== ($file = readdir($fd))) {
537 if ($file != '.' && $file != '..' && $file != 'CVS' && is_dir($plugpath . $file) ) {
538 $op_plugin[] = $file;
539 $p_count++;
c83b38c1 540 }
541 }
ab3fe577 542 closedir($fd);
543 asort( $op_plugin );
544
545 /* Lets get the plugins that are active */
546 $plugins = array();
547 if ( sqgetGlobalVar('plg', $v, SQ_POST) ) {
548 foreach ( $op_plugin as $plg ) {
549 if ( sqgetGlobalVar("plgs_$plg", $v, SQ_POST) && $v == 'on' ) {
550 $plugins[] = $plg;
551 }
552 }
553 $i = 0;
554 foreach ( $plugins as $plg ) {
555 $k = "\$plugins[$i]";
556 $newcfg[$k] = "'$plg'";
557 $i++;
558 }
559 while ( isset( $newcfg["\$plugins[$i]"] ) ) {
560 $k = "\$plugins[$i]";
561 $newcfg[$k] = '';
562 $i++;
563 }
c83b38c1 564 } else {
ab3fe577 565 $i = 0;
566 while ( isset( $newcfg["\$plugins[$i]"] ) ) {
567 $k = "\$plugins[$i]";
568 $v = $newcfg[$k];
569 $plugins[] = substr( $v, 1, strlen( $v ) - 2 );
570 $i++;
571 }
a3fab7e3 572 }
ab3fe577 573 echo '<tr><td colspan="2"><input type="hidden" name="plg" value="on" /><center><table>';
574 foreach ( $op_plugin as $plg ) {
575 if ( in_array( $plg, $plugins ) ) {
576 $sw = ' checked="checked"';
577 } else {
578 $sw = '';
579 }
580 echo '<tr><td>';
581 if (file_exists(SM_PATH . "plugins/$plg/README")) {
582 echo "<a href=\"../$plg/README\" target=\"_blank\">$plg</a>";
583 } else {
584 echo $plg;
585 }
586 echo "</td>\n".
587 "<td><input$sw type=\"checkbox\" name=\"plgs_$plg\" /></td>".
588 "</tr>\n";
589 }
590 echo '</table></center></td></tr>';
591 } else {
592 echo '<tr><td colspan="2" align="center">'.
593 sprintf(_("Plugin directory could not be found: %s"), $plugpath).
594 "</td></tr>\n";
595 }
6a9acbca 596}
ab3fe577 597echo '<tr bgcolor="'.$color[5].'"><th colspan="2"><input value="'.
598 _("Change Settings").'" type="submit" /><br />'.
599 '<a href="'.SM_PATH.'src/configtest.php" target="_blank">'.
600 _("Test Configuration")."</a></th></tr>\n".
78154473 601 '</table></td></tr></table></center></form>';
abd7a3f8 602
603/*
604 Write the options to the file.
605*/
71e5c245 606
ab3fe577 607if ( $fp = @fopen( $cfgfile, 'w' ) ) {
608 fwrite( $fp, "<?php\n".
b5a29535 609 "/**\n".
610 " * SquirrelMail Configuration File\n".
611 " * Created using the Administrator Plugin\n".
39d3ec89 612 " */\n".
613 "\n".
614 "global \$version;\n" );
b5a29535 615
c05c489a 616 foreach ( $newcfg as $k => $v ) {
781da5d4 617 if ( $k{0} == '$' && $v <> '' || is_int($v)) {
c05c489a 618 if ( substr( $k, 1, 11 ) == 'ldap_server' ) {
b5a29535 619 $v = substr( $v, 0, strlen( $v ) - 1 ) . "\n)";
620 $v = str_replace( 'array(', "array(\n\t", $v );
621 $v = str_replace( "',", "',\n\t", $v );
c05c489a 622 }
623 fwrite( $fp, "$k = $v;\n" );
ab3fe577 624 }
0e66bc84 625 }
c05c489a 626 fwrite( $fp, '?>' );
627 fclose( $fp );
628} else {
78154473 629 echo '<br /><p align="center"><big>'.
c05c489a 630 _("Config file can't be opened. Please check config.php.").
78154473 631 '</big></p>';
abd7a3f8 632}
dcc1cc82 633?>
78154473 634</body></html>