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 if ( isset( $_GET['switch'] ) ) {
 238     $switch = $_GET['switch'];
 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             if ( isset( $HTTP_POST_VARS[$e] ) ) {
 335                 $v = intval( $HTTP_POST_VARS[$e] );
 336                 $newcfg[$k] = $v;
 337             }
 338             echo "<tr><td>$name</td><td>".
 339                  "<input size=10 name=\"adm_$n\" value=\"$v\">";
 340             if ( isset( $defcfg[$k]['comment'] ) ) {
 341                 echo ' &nbsp; ' . $defcfg[$k]['comment'];
 342             }
 343             echo "</td></tr>\n";
 344             break;
 345         case SMOPT_TYPE_NUMLIST:
 346             if ( isset( $HTTP_POST_VARS[$e] ) ) {
 347                 $v = $HTTP_POST_VARS[$e];
 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 ( isset( $HTTP_POST_VARS[$e] ) ) {
 367                 $v = '"' . $HTTP_POST_VARS[$e] . '"';
 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 ( isset( $HTTP_POST_VARS[$e] ) ) {
 388                 $v = '"' . $HTTP_POST_VARS[$e] . '"';
 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 ( isset( $HTTP_POST_VARS[$e] ) ) {
 400                 $v = '"' . $HTTP_POST_VARS[$e] . '"';
 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 ( isset( $HTTP_POST_VARS[$e] ) ) {
 416                 $v = $HTTP_POST_VARS[$e];
 417                 $newcfg[$k] = $v;
 418             } else {
 419                 $v = strtoupper( $v );
 420             }
 421             if ( $v == 'TRUE' ) {
 422                 $ct = ' checked';
 423                 $cf = '';
 424             } else {
 425                 $ct = '';
 426                 $cf = ' checked';
 427             }
 428             echo "<tr><td>$name</td><td>" .
 429                  "<INPUT$ct type=radio NAME=\"adm_$n\" value=\"TRUE\">" . _("Yes") .
 430                  "<INPUT$cf type=radio NAME=\"adm_$n\" value=\"FALSE\">" . _("No");
 431             if ( isset( $defcfg[$k]['comment'] ) ) {
 432                 echo ' &nbsp; ' . $defcfg[$k]['comment'];
 433             }
 434             echo "</td></tr>\n";
 435             break;
 436         case SMOPT_TYPE_PATH:
 437             if ( isset( $HTTP_POST_VARS[$e] ) ) {
 438                $v = change_to_sm_path($HTTP_POST_VARS[$e]);
 439                $newcfg[$k] = $v;
 440             }
 441             if ( $v == "''" && isset( $defcfg[$k]['default'] ) ) {
 442                $v = change_to_sm_path($defcfg[$k]['default']);
 443                $newcfg[$k] = $v;
 444             }
 445             echo "<tr><td>$name</td><td>".
 446                  "<input size=\"$size\" name=\"adm_$n\" value=\"" . change_to_rel_path($v) . "\">";
 447             if ( isset( $defcfg[$k]['comment'] ) ) {
 448                  echo ' &nbsp; ' . $defcfg[$k]['comment'];
 449             }
 450             echo "</td></tr>\n";
 451             break;
 452         default:
 453             echo "<tr><td>$name</td><td>" .
 454                  "<b><i>$v</i></b>";
 455             if ( isset( $defcfg[$k]['comment'] ) ) {
 456                 echo ' &nbsp; ' . $defcfg[$k]['comment'];
 457             }
 458             echo "</td></tr>\n";
 459         }
 460     }
 461 }
 462
 463 /* Special Themes Block */
 464 if ( $colapse['Group7'] == 'off' ) {
 465     $i = 0;
 466     echo '<tr><th>' . _("Theme Name") .
 467          '</th><th>' . _("Theme Path") .
 468          '</th></tr>';
 469     while ( isset( $newcfg["\$theme[$i]['NAME']"] ) ) {
 470         $k1 = "\$theme[$i]['NAME']";
 471         $e1 = "theme_name_$i";
 472         if ( isset( $HTTP_POST_VARS[$e1] ) ) {
 473             $v1 = '"' . str_replace( '\"', '"', $HTTP_POST_VARS[$e1] ) . '"';
 474             $v1 = '"' . str_replace( '"', '\"', $v1 ) . '"';
 475             $newcfg[$k1] = $v1;
 476         } else {
 477             $v1 = $newcfg[$k1];
 478         }
 479         $k2 = "\$theme[$i]['PATH']";
 480         $e2 = "theme_path_$i";
 481         if ( isset( $HTTP_POST_VARS[$e2] ) ) {
 482             $v2 = change_to_sm_path($HTTP_POST_VARS[$e2]);
 483             $newcfg[$k2] = $v2;
 484         } else {
 485             $v2 = $newcfg[$k2];
 486         }
 487         $name = substr( $v1, 1, strlen( $v1 ) - 2 );
 488         $path = change_to_rel_path($v2);
 489         echo '<tr>'.
 490              "<td align=right>$i. <input name=\"$e1\" value=\"$name\" size=30></td>".
 491              "<td><input name=\"$e2\" value=\"$path\" size=40></td>".
 492              "</tr>\n";
 493         $i++;
 494
 495     }
 496 }
 497
 498 /* Special Plugins Block */
 499 if ( $colapse['Group8'] == 'on' ) {
 500     $sw = '(+)';
 501 } else {
 502     $sw = '(-)';
 503 }
 504 echo "<tr bgcolor=\"$color[0]\"><th colspan=2>" .
 505      "<a href=options.php?switch=Group8 STYLE=\"text-decoration:none\"><b>$sw</b> </a>" .
 506      _("Plugins") . '</th></tr>';
 507
 508 if( $colapse['Group8'] == 'off' ) {
 509
 510     $fd = opendir( '../plugins/' );
 511     $op_plugin = array();
 512     $p_count = 0;
 513     while (false!==($file = readdir($fd))) {
 514         if ($file != '.' && $file != '..' && $file != 'CVS' ) {
 515             if ( filetype( $file ) == 'dir' ) {
 516                 $op_plugin[] = $file;
 517                 $p_count++;
 518             }
 519         }
 520     }
 521     closedir($fd);
 522     asort( $op_plugin );
 523
 524     /* Lets get the plugins that are active */
 525     $plugins = array();
 526     if ( isset( $HTTP_POST_VARS['plg'] ) ) {
 527         foreach ( $op_plugin as $plg ) {
 528             if ( isset( $HTTP_POST_VARS["plgs_$plg"] ) &&
 529                  $HTTP_POST_VARS["plgs_$plg"] == 'on' ) {
 530                 $plugins[] = $plg;
 531             }
 532         }
 533         $i = 0;
 534         foreach ( $plugins as $plg ) {
 535             $k = "\$plugins[$i]";
 536             $newcfg[$k] = "'$plg'";
 537             $i++;
 538         }
 539         while ( isset( $newcfg["\$plugins[$i]"] ) ) {
 540             $k = "\$plugins[$i]";
 541             $newcfg[$k] = '';
 542             $i++;
 543         }
 544     } else {
 545         $i = 0;
 546         while ( isset( $newcfg["\$plugins[$i]"] ) ) {
 547             $k = "\$plugins[$i]";
 548             $v = $newcfg[$k];
 549             $plugins[] = substr( $v, 1, strlen( $v ) - 2 );
 550             $i++;
 551         }
 552     }
 553     echo "<tr><td colspan=2><input type=hidden name=plg value=on><center><table><tr><td>";
 554     foreach ( $op_plugin as $plg ) {
 555         if ( in_array( $plg, $plugins ) ) {
 556             $sw = ' checked';
 557         } else {
 558             $sw = '';
 559         }
 560         echo '<tr>' .
 561              "<td>$plg</td><td><input$sw type=checkbox name=plgs_$plg></td>".
 562              "</tr>\n";
 563     }
 564     echo '</td></tr></table>';
 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 ?>