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  * @version $Id$
  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
  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
  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
  48                 if( $line{$j} == ' ' ) {
  49                     $mode = '=';
  50                 } else {
  51                     $key .= $line{$j};
  52                 }
  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
  84                 if ( $s > $j + 1  &&
  85                      $line{$j}.$line{$j+1} == '*/' ) {
  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:
 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 ' ) {
 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;
 135                 }
 136             }
 137         }
 138     }
 139 }
 140
 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  */
 154 function 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 }
 160
 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
 173 */
 174 function change_to_sm_path($old_path) {
 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    }
 182
 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;
 212 }
 213
 214
 215 /* ---------------------- main -------------------------- */
 216
 217 /** @ignore */
 218 define('SM_PATH','../../');
 219
 220 /* SquirrelMail required files. */
 221 require_once(SM_PATH . 'include/validate.php');
 222 require_once(SM_PATH . 'functions/page_header.php');
 223 require_once(SM_PATH . 'functions/imap.php');
 224 require_once(SM_PATH . 'include/load_prefs.php');
 225 require_once(SM_PATH . 'plugins/administrator/defines.php');
 226 require_once(SM_PATH . 'plugins/administrator/auth.php');
 227
 228 global $data_dir, $username;
 229
 230 if ( !adm_check_user() ) {
 231     header('Location: ' . SM_PATH . 'src/options.php') ;
 232     exit;
 233 }
 234
 235 displayPageHeader($color, 'None');
 236
 237 $newcfg = array( );
 238
 239 foreach ( $defcfg as $key => $def ) {
 240     $newcfg[$key] = '';
 241 }
 242
 243 $cfgfile = SM_PATH . 'config/config.php';
 244 parseConfig( SM_PATH . 'config/config_default.php' );
 245 parseConfig( $cfgfile );
 246
 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' ),
 255                   'Group8' => getPref($data_dir, $username, 'adm_Group8', 'on' ),
 256                   'Group9' => getPref($data_dir, $username, 'adm_Group9', 'on' ),
 257                   'Group10' => getPref($data_dir, $username, 'adm_Group10', 'on' ) );
 258
 259 /* look in $_GET array for 'switch' */
 260 if ( sqgetGlobalVar('switch', $switch, SQ_GET) ) {
 261     if ( $colapse[$switch] == 'on' ) {
 262        $colapse[$switch] = 'off';
 263     } else {
 264        $colapse[$switch] = 'on';
 265     }
 266     setPref($data_dir, $username, "adm_$switch", $colapse[$switch] );
 267 }
 268
 269 echo '<form action="options.php" method="post" name="options">' .
 270     "<center><table width=\"95%\" bgcolor=\"$color[5]\"><tr><td>".
 271     "<table width=\"100%\" cellspacing=\"0\" bgcolor=\"$color[4]\">" ,
 272     "<tr bgcolor=\"$color[5]\"><th colspan=\"2\">" . _("Configuration Administrator") . "</th></tr>",
 273     "<tr bgcolor=\"$color[5]\"><td colspan=\"2\" align=\"center\">";
 274
 275 echo "<small>";
 276 echo _("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 echo "<br />";
 278 echo _("Run or consult conf.pl should you run into difficulty with your configuration.");
 279 echo "</small></td></tr>";
 280
 281
 282 $act_grp = 'Titles';  /* Active group */
 283
 284 foreach ( $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;
 293     if ( isset( $defcfg[$k] ) ) {
 294         $name = $defcfg[$k]['name'];
 295         $type = $defcfg[$k]['type'];
 296         if ( isset( $defcfg[$k]['size'] ) ) {
 297             $size = $defcfg[$k]['size'];
 298         } else {
 299             $size = 40;
 300         }
 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
 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;
 317     } else if ( substr( $k, 0, 13 ) == '$ldap_server[' ) {
 318         $type = SMOPT_TYPE_LDAP;
 319     }
 320
 321     if( $type == SMOPT_TYPE_TITLE || $colapse[$act_grp] == 'off' ) {
 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;
 329         case SMOPT_TYPE_EXTERNAL:
 330             echo "<tr><td>$name</td><td><b>" .
 331                  $defcfg[$k]['value'] .
 332                  "</b></td></tr>";
 333             break;
 334         case SMOPT_TYPE_TITLE:
 335             if ( $colapse[$k] == 'on' ) {
 336                 $sw = '(+)';
 337             } else {
 338                 $sw = '(-)';
 339             }
 340             echo "<tr bgcolor=\"$color[0]\"><th colspan=\"2\">" .
 341                  "<a href=\"options.php?switch=$k\" style=\"text-decoration:none\"><b>$sw</b> </a>" .
 342                  "$name</th></tr>";
 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'];
 352             }
 353             echo "</td></tr>\n";
 354             break;
 355         case SMOPT_TYPE_INTEGER:
 356             /* look for variable $e in POST, fill into $v */
 357             if ( sqgetGlobalVar($e, $v, SQ_POST) ) {
 358                 $v = intval( $v );
 359                 $newcfg[$k] = $v;
 360             }
 361             echo "<tr><td>$name</td><td>".
 362                  "<input size=\"10\" name=\"adm_$n\" value=\"$v\">";
 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:
 369             if (  sqgetGlobalVar($e, $v, SQ_POST) ) {
 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 ) {
 377                     echo ' selected';
 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:
 388             if (  sqgetGlobalVar($e, $v, SQ_POST) ) {
 389                 $v = '"' . $v . '"';
 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 ) ) {
 397                     echo ' selected';
 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;
 407
 408         case SMOPT_TYPE_TEXTAREA:
 409             if (  sqgetGlobalVar($e, $v, SQ_POST) ) {
 410                 $v = '"' . $v . '"';
 411                 $newcfg[$k] = str_replace( "\n", '', $v );
 412             }
 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>";
 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:
 421             if (  sqgetGlobalVar($e, $v, SQ_POST) ) {
 422                 $v = '"' . $v . '"';
 423                 $newcfg[$k] = $v;
 424             }
 425             if ( $v == '""' && isset( $defcfg[$k]['default'] ) ) {
 426                 $v = "'" . $defcfg[$k]['default'] . "'";
 427                 $newcfg[$k] = $v;
 428             }
 429             echo "<tr><td>$name</td><td>".
 430                  "<input size=\"$size\" name=\"adm_$n\" value=\"" . substr( $v, 1, strlen( $v ) - 2 ) . "\">";
 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:
 437             if (  sqgetGlobalVar($e, $v, SQ_POST) ) {
 438                 $newcfg[$k] = $v;
 439             } else {
 440                 $v = strtoupper( $v );
 441             }
 442             if ( $v == 'TRUE' ) {
 443                 $ct = ' checked';
 444                 $cf = '';
 445             } else {
 446                 $ct = '';
 447                 $cf = ' checked';
 448             }
 449             echo "<tr><td>$name</td><td>" .
 450                  "<input$ct type=\"radio\" name=\"adm_$n\" value=\"TRUE\">" . _("Yes") .
 451                  "<input$cf type=\"radio\" name=\"adm_$n\" value=\"FALSE\">" . _("No");
 452             if ( isset( $defcfg[$k]['comment'] ) ) {
 453                 echo ' &nbsp; ' . $defcfg[$k]['comment'];
 454             }
 455             echo "</td></tr>\n";
 456             break;
 457         case SMOPT_TYPE_PATH:
 458             if (  sqgetGlobalVar($e, $v, SQ_POST) ) {
 459                $v = change_to_sm_path($v);
 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             }
 466             echo "<tr><td>$name</td><td>".
 467                  "<input size=\"$size\" name=\"adm_$n\" value=\"" . change_to_rel_path($v) . "\">";
 468             if ( isset( $defcfg[$k]['comment'] ) ) {
 469                  echo ' &nbsp; ' . $defcfg[$k]['comment'];
 470             }
 471             echo "</td></tr>\n";
 472             break;
 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";
 480         }
 481     }
 482 }
 483
 484 /* Special Themes Block */
 485 if ( $colapse['Group7'] == 'off' ) {
 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";
 493         if (  sqgetGlobalVar($e, $v1, SQ_POST) ) {
 494             $v1 = '"' . str_replace( '\"', '"', $v1 ) . '"';
 495             $v1 = '"' . str_replace( '"', '\"', $v1 ) . '"';
 496             $newcfg[$k1] = $v1;
 497         } else {
 498             $v1 = $newcfg[$k1];
 499         }
 500         $k2 = "\$theme[$i]['PATH']";
 501         $e2 = "theme_path_$i";
 502         if (  sqgetGlobalVar($e, $v2, SQ_POST) ) {
 503             $v2 = change_to_sm_path($v2);
 504             $newcfg[$k2] = $v2;
 505         } else {
 506             $v2 = $newcfg[$k2];
 507         }
 508         $name = substr( $v1, 1, strlen( $v1 ) - 2 );
 509         $path = change_to_rel_path($v2);
 510         echo '<tr>'.
 511              "<td align=\"right\">$i. <input name=\"$e1\" value=\"$name\" size=\"30\"></td>".
 512              "<td><input name=\"$e2\" value=\"$path\" size=\"40\"></td>".
 513              "</tr>\n";
 514         $i++;
 515
 516     }
 517 }
 518
 519 /* Special Plugins Block */
 520 if ( $colapse['Group8'] == 'on' ) {
 521     $sw = '(+)';
 522 } else {
 523     $sw = '(-)';
 524 }
 525 echo "<tr bgcolor=\"$color[0]\"><th colspan=\"2\">" .
 526      "<a href=\"options.php?switch=Group8\" style=\"text-decoration:none\"><b>$sw</b> </a>" .
 527      _("Plugins") . '</th></tr>';
 528
 529 if( $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++;
 540         }
 541       }
 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         }
 564       } else {
 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         }
 572       }
 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';
 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">' . sprintf(_("Plugin directory could not be found: %s"),$plugpath) . "</td></tr>\n";
 593   }
 594 }
 595 echo "<tr bgcolor=\"$color[5]\"><th colspan=\"2\"><input value=\"" .
 596      _("Change Settings") . '" type="submit"><br />'.
 597      '<a href="'.SM_PATH.'src/configtest.php" target="_blank">'._("Test Configuration").
 598      "</a></th></tr>\n" ,
 599      '</table></td></tr></table></center></form>';
 600
 601 /*
 602     Write the options to the file.
 603 */
 604
 605 if( $fp = @fopen( $cfgfile, 'w' ) ) {
 606     fwrite( $fp, "<?PHP\n".
 607     "/**\n".
 608     " * SquirrelMail Configuration File\n".
 609     " * Created using the Administrator Plugin\n".
 610     " */\n".
 611     "\n".
 612     "global \$version;\n" );
 613
 614     foreach ( $newcfg as $k => $v ) {
 615         if ( $k{0} == '$' && $v <> '' || is_int($v)) {
 616             if ( substr( $k, 1, 11 ) == 'ldap_server' ) {
 617                 $v = substr( $v, 0, strlen( $v ) - 1 ) . "\n)";
 618                 $v = str_replace( 'array(', "array(\n\t", $v );
 619                 $v = str_replace( "',", "',\n\t", $v );
 620             }
 621             fwrite( $fp, "$k = $v;\n" );
 622         }
 623     }
 624     fwrite( $fp, '?>' );
 625     fclose( $fp );
 626 } else {
 627     echo '<br /><p align="center"><big>'.
 628          _("Config file can't be opened. Please check config.php.").
 629          '</big></p>';
 630 }
 631 ?>
 632 </body></html>