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