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