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