plugins/administrator/options.php

   1 <?php
   2
   3 /**
   4  * Administrator Plugin
   5  *
   6  * Copyright (c) 1999-2002 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
 133 /* ---------------------- main -------------------------- */
 134
 135 chdir('..');
 136 chdir('..');
 137 define('SM_PATH','../');
 138
 139 /* SquirrelMail required files. */
 140 require_once(SM_PATH . 'include/validate.php');
 141 require_once(SM_PATH . 'functions/page_header.php');
 142 require_once(SM_PATH . 'functions/imap.php');
 143 require_once(SM_PATH . 'include/load_prefs.php');
 144 require_once(SM_PATH . 'plugins/administrator/defines.php');
 145 require_once(SM_PATH . 'plugins/administrator/auth.php');
 146
 147 GLOBAL $data_dir, $username;
 148
 149 if ( !adm_check_user() ) {
 150     header("Location: ../../src/options.php") ;
 151     exit;
 152 }
 153
 154 displayPageHeader($color, 'None');
 155
 156 $newcfg = array( );
 157
 158 foreach ( $defcfg as $key => $def ) {
 159     $newcfg[$key] = '';
 160 }
 161
 162 $cfgfile = '../config/config.php';
 163 parseConfig( '../config/config_default.php' );
 164 parseConfig( $cfgfile );
 165
 166 $colapse = array( 'Titles' => 'off',
 167                   'Group1' => getPref($data_dir, $username, 'adm_Group1', 'off' ),
 168                   'Group2' => getPref($data_dir, $username, 'adm_Group2', 'on' ),
 169                   'Group3' => getPref($data_dir, $username, 'adm_Group3', 'on' ),
 170                   'Group4' => getPref($data_dir, $username, 'adm_Group4', 'on' ),
 171                   'Group5' => getPref($data_dir, $username, 'adm_Group5', 'on' ),
 172                   'Group6' => getPref($data_dir, $username, 'adm_Group6', 'on' ),
 173                   'Group7' => getPref($data_dir, $username, 'adm_Group7', 'on' ),
 174                   'Group8' => getPref($data_dir, $username, 'adm_Group8', 'on' ) );
 175
 176 if ( isset( $switch ) ) {
 177
 178     if ( $colapse[$switch] == 'on' ) {
 179        $colapse[$switch] = 'off';
 180     } else {
 181        $colapse[$switch] = 'on';
 182     }
 183     setPref($data_dir, $username, "adm_$switch", $colapse[$switch] );
 184
 185 }
 186
 187 echo "<form action=options.php method=post name=options>" .
 188     "<center><table width=95% bgcolor=\"$color[5]\"><tr><td>".
 189     "<table width=100% cellspacing=0 bgcolor=\"$color[4]\">" ,
 190     "<tr bgcolor=\"$color[5]\"><th colspan=2>" . _("Configuration Administrator") . "</th></tr>";
 191
 192 $act_grp = 'Titles';  /* Active group */
 193
 194 foreach ( $newcfg as $k => $v ) {
 195     $l = strtolower( $v );
 196     $type = SMOPT_TYPE_UNDEFINED;
 197     $n = substr( $k, 1 );
 198     $n = str_replace( '[', '_', $n );
 199     $n = str_replace( ']', '_', $n );
 200     $e = 'adm_' . $n;
 201     $name = $k;
 202     $size = 50;
 203     if ( isset( $defcfg[$k] ) ) {
 204         $name = $defcfg[$k]['name'];
 205         $type = $defcfg[$k]['type'];
 206         if ( isset( $defcfg[$k]['size'] ) ) {
 207             $size = $defcfg[$k]['size'];
 208         } else {
 209             $size = 40;
 210         }
 211     } else if ( $l == 'true' ) {
 212         $v = 'TRUE';
 213         $type = SMOPT_TYPE_BOOLEAN;
 214     } else if ( $l == 'false' ) {
 215         $v = 'FALSE';
 216         $type = SMOPT_TYPE_BOOLEAN;
 217     } else if ( $v{0} == "'" ) {
 218         $type = SMOPT_TYPE_STRING;
 219     } else if ( $v{0} == '"' ) {
 220         $type = SMOPT_TYPE_STRING;
 221     }
 222
 223     if ( substr( $k, 0, 7 ) == '$theme[' ) {
 224         $type = SMOPT_TYPE_THEME;
 225     } else if ( substr( $k, 0, 9 ) == '$plugins[' ) {
 226         $type = SMOPT_TYPE_PLUGINS;
 227     } else if ( substr( $k, 0, 13 ) == '$ldap_server[' ) {
 228         $type = SMOPT_TYPE_LDAP;
 229     }
 230
 231     if( $type == SMOPT_TYPE_TITLE || $colapse[$act_grp] == 'off' ) {
 232
 233         switch ( $type ) {
 234         case SMOPT_TYPE_LDAP:
 235         case SMOPT_TYPE_PLUGINS:
 236         case SMOPT_TYPE_THEME:
 237         case SMOPT_TYPE_HIDDEN:
 238             break;
 239         case SMOPT_TYPE_EXTERNAL:
 240             echo "<tr><td>$name</td><td><b>" .
 241                  $defcfg[$k]['value'] .
 242                  "</b></td></tr>";
 243             break;
 244         case SMOPT_TYPE_TITLE:
 245             if ( $colapse[$k] == 'on' ) {
 246                 $sw = '(+)';
 247             } else {
 248                 $sw = '(-)';
 249             }
 250             echo "<tr bgcolor=\"$color[0]\"><th colspan=2>" .
 251                  "<a href=options.php?switch=$k STYLE=\"text-decoration:none\"><b>$sw</b> </a>" .
 252                  "$name</th></tr>";
 253             $act_grp = $k;
 254             break;
 255         case SMOPT_TYPE_COMMENT:
 256             $v = substr( $v, 1, strlen( $v ) - 2 );
 257             echo "<tr><td>$name</td><td>".
 258                  "<b>$v</b>";
 259             $newcfg[$k] = "'$v'";
 260             if ( isset( $defcfg[$k]['comment'] ) ) {
 261                 echo ' &nbsp; ' . $defcfg[$k]['comment'];
 262             }
 263             echo "</td></tr>\n";
 264             break;
 265         case SMOPT_TYPE_INTEGER:
 266             if ( isset( $HTTP_POST_VARS[$e] ) ) {
 267                 $v = intval( $HTTP_POST_VARS[$e] );
 268                 $newcfg[$k] = $v;
 269             }
 270             echo "<tr><td>$name</td><td>".
 271                  "<input size=10 name=\"adm_$n\" value=\"$v\">";
 272             if ( isset( $defcfg[$k]['comment'] ) ) {
 273                 echo ' &nbsp; ' . $defcfg[$k]['comment'];
 274             }
 275             echo "</td></tr>\n";
 276             break;
 277         case SMOPT_TYPE_NUMLIST:
 278             if ( isset( $HTTP_POST_VARS[$e] ) ) {
 279                 $v = $HTTP_POST_VARS[$e];
 280                 $newcfg[$k] = $v;
 281             }
 282             echo "<tr><td>$name</td><td>";
 283             echo "<select name=\"adm_$n\">";
 284             foreach ( $defcfg[$k]['posvals'] as $kp => $vp ) {
 285                 echo "<option value=\"$kp\"";
 286                 if ( $kp == $v ) {
 287                     echo ' selected';
 288                 }
 289                 echo ">$vp</option>";
 290             }
 291             echo '</select>';
 292             if ( isset( $defcfg[$k]['comment'] ) ) {
 293                 echo ' &nbsp; ' . $defcfg[$k]['comment'];
 294             }
 295             echo "</td></tr>\n";
 296             break;
 297         case SMOPT_TYPE_STRLIST:
 298             if ( isset( $HTTP_POST_VARS[$e] ) ) {
 299                 $v = '"' . $HTTP_POST_VARS[$e] . '"';
 300                 $newcfg[$k] = $v;
 301             }
 302             echo "<tr><td>$name</td><td>".
 303                  "<select name=\"adm_$n\">";
 304             foreach ( $defcfg[$k]['posvals'] as $kp => $vp ) {
 305                 echo "<option value=\"$kp\"";
 306                 if ( $kp == substr( $v, 1, strlen( $v ) - 2 ) ) {
 307                     echo ' selected';
 308                 }
 309                 echo ">$vp</option>";
 310             }
 311             echo '</select>';
 312             if ( isset( $defcfg[$k]['comment'] ) ) {
 313                 echo ' &nbsp; ' . $defcfg[$k]['comment'];
 314             }
 315             echo "</td></tr>\n";
 316             break;
 317
 318         case SMOPT_TYPE_TEXTAREA:
 319             if ( isset( $HTTP_POST_VARS[$e] ) ) {
 320                 $v = '"' . $HTTP_POST_VARS[$e] . '"';
 321                 $newcfg[$k] = str_replace( "\n", '', $v );
 322             }
 323             echo "<tr><td valign=top>$name</td><td>".
 324                  "<textarea cols=\"$size\" name=\"adm_$n\">" . substr( $v, 1, strlen( $v ) - 2 ) . "</textarea>";
 325             if ( isset( $defcfg[$k]['comment'] ) ) {
 326                 echo ' &nbsp; ' . $defcfg[$k]['comment'];
 327             }
 328             echo "</td></tr>\n";
 329             break;
 330         case SMOPT_TYPE_STRING:
 331             if ( isset( $HTTP_POST_VARS[$e] ) ) {
 332                 $v = '"' . $HTTP_POST_VARS[$e] . '"';
 333                 $newcfg[$k] = $v;
 334             }
 335             if ( $v == '""' && isset( $defcfg[$k]['default'] ) ) {
 336                 $v = "'" . $defcfg[$k]['default'] . "'";
 337                 $newcfg[$k] = $v;
 338             }
 339             echo "<tr><td>$name</td><td>".
 340                  "<input size=\"$size\" name=\"adm_$n\" value=\"" . substr( $v, 1, strlen( $v ) - 2 ) . "\">";
 341             if ( isset( $defcfg[$k]['comment'] ) ) {
 342                 echo ' &nbsp; ' . $defcfg[$k]['comment'];
 343             }
 344             echo "</td></tr>\n";
 345             break;
 346         case SMOPT_TYPE_BOOLEAN:
 347             if ( isset( $HTTP_POST_VARS[$e] ) ) {
 348                 $v = $HTTP_POST_VARS[$e];
 349                 $newcfg[$k] = $v;
 350             } else {
 351                 $v = strtoupper( $v );
 352             }
 353             if ( $v == 'TRUE' ) {
 354                 $ct = ' checked';
 355                 $cf = '';
 356             } else {
 357                 $ct = '';
 358                 $cf = ' checked';
 359             }
 360             echo "<tr><td>$name</td><td>" .
 361                  "<INPUT$ct type=radio NAME=\"adm_$n\" value=\"TRUE\">" . _("Yes") .
 362                  "<INPUT$cf type=radio NAME=\"adm_$n\" value=\"FALSE\">" . _("No");
 363             if ( isset( $defcfg[$k]['comment'] ) ) {
 364                 echo ' &nbsp; ' . $defcfg[$k]['comment'];
 365             }
 366             echo "</td></tr>\n";
 367             break;
 368         default:
 369             echo "<tr><td>$name</td><td>" .
 370                  "<b><i>$v</i></b>";
 371             if ( isset( $defcfg[$k]['comment'] ) ) {
 372                 echo ' &nbsp; ' . $defcfg[$k]['comment'];
 373             }
 374             echo "</td></tr>\n";
 375         }
 376     }
 377
 378 }
 379
 380 /* Special Themes Block */
 381 if ( $colapse['Group7'] == 'off' ) {
 382     $i = 0;
 383     echo '<tr><th>' . _("Theme Name") .
 384          '</th><th>' . _("Theme Path") .
 385          '</th></tr>';
 386     while ( isset( $newcfg["\$theme[$i]['NAME']"] ) ) {
 387         $k1 = "\$theme[$i]['NAME']";
 388         $e1 = "theme_name_$i";
 389         if ( isset( $HTTP_POST_VARS[$e1] ) ) {
 390             $v1 = '"' . str_replace( '\"', '"', $HTTP_POST_VARS[$e1] ) . '"';
 391             $v1 = '"' . str_replace( '"', '\"', $v1 ) . '"';
 392             $newcfg[$k1] = $v1;
 393         } else {
 394             $v1 = $newcfg[$k1];
 395         }
 396         $k2 = "\$theme[$i]['PATH']";
 397         $e2 = "theme_path_$i";
 398         if ( isset( $HTTP_POST_VARS[$e2] ) ) {
 399             $v2 = '"' . str_replace( '\"', '"', $HTTP_POST_VARS[$e2] ) . '"';
 400             $v2 = '"' . str_replace( '"', '\"', $v2 ) . '"';
 401             $newcfg[$k2] = $v2;
 402         } else {
 403             $v2 = $newcfg[$k2];
 404         }
 405         $name = substr( $v1, 1, strlen( $v1 ) - 2 );
 406         $path = substr( $v2, 1, strlen( $v2 ) - 2 );
 407         echo '<tr>'.
 408              "<td align=right>$i. <input name=\"$e1\" value=\"$name\" size=30></td>".
 409              "<td><input name=\"$e2\" value=\"$path\" size=40></td>".
 410              "</tr>\n";
 411         $i++;
 412
 413     }
 414 }
 415
 416 /* Special Plugins Block */
 417 if ( $colapse['Group8'] == 'on' ) {
 418     $sw = '(+)';
 419 } else {
 420     $sw = '(-)';
 421 }
 422 echo "<tr bgcolor=\"$color[0]\"><th colspan=2>" .
 423      "<a href=options.php?switch=Group8 STYLE=\"text-decoration:none\"><b>$sw</b> </a>" .
 424      _("Plugins") . '</th></tr>';
 425
 426 if( $colapse['Group8'] == 'off' ) {
 427
 428     $fd = opendir( '../plugins/' );
 429     $op_plugin = array();
 430     $p_count = 0;
 431     while (false!==($file = readdir($fd))) {
 432         if ($file != '.' && $file != '..' && $file != 'CVS' ) {
 433             if ( filetype( $file ) == 'dir' ) {
 434                 $op_plugin[] = $file;
 435                 $p_count++;
 436             }
 437         }
 438     }
 439     closedir($fd);
 440     asort( $op_plugin );
 441
 442     /* Lets get the plugins that are active */
 443     $plugins = array();
 444     if ( isset( $HTTP_POST_VARS['plg'] ) ) {
 445         foreach ( $op_plugin as $plg ) {
 446             if ( isset( $HTTP_POST_VARS["plgs_$plg"] ) &&
 447                  $HTTP_POST_VARS["plgs_$plg"] == 'on' ) {
 448                 $plugins[] = $plg;
 449             }
 450         }
 451         $i = 0;
 452         foreach ( $plugins as $plg ) {
 453             $k = "\$plugins[$i]";
 454             $newcfg[$k] = "'$plg'";
 455             $i++;
 456         }
 457         while ( isset( $newcfg["\$plugins[$i]"] ) ) {
 458             $k = "\$plugins[$i]";
 459             $newcfg[$k] = '';
 460             $i++;
 461         }
 462     } else {
 463         $i = 0;
 464         while ( isset( $newcfg["\$plugins[$i]"] ) ) {
 465             $k = "\$plugins[$i]";
 466             $v = $newcfg[$k];
 467             $plugins[] = substr( $v, 1, strlen( $v ) - 2 );
 468             $i++;
 469         }
 470     }
 471     echo "<tr><td colspan=2><input type=hidden name=plg value=on><center><table><tr><td>";
 472     foreach ( $op_plugin as $plg ) {
 473         if ( in_array( $plg, $plugins ) ) {
 474             $sw = ' checked';
 475         } else {
 476             $sw = '';
 477         }
 478         echo '<tr>' .
 479              "<td>$plg</td><td><input$sw type=checkbox name=plgs_$plg></td>".
 480              "</tr>\n";
 481     }
 482     echo '</td></tr></table>';
 483
 484 }
 485 echo "<tr bgcolor=\"$color[5]\"><th colspan=2><input value=\"" .
 486      _("Change Settings") . "\" type=submit></th></tr>" ,
 487      '</table></td></tr></table></form>';
 488
 489 /*
 490     Write the options to the file.
 491 */
 492
 493 if( $fp = @fopen( $cfgfile, 'w' ) ) {
 494     fwrite( $fp, "<?PHP\n".
 495     "/**\n".
 496     " * SquirrelMail Configuration File\n".
 497     " * Created using the Administrator Plugin\n".
 498     " */\n" );
 499
 500     foreach ( $newcfg as $k => $v ) {
 501         if ( $k{0} == '$' && $v <> '' ) {
 502             if ( substr( $k, 1, 11 ) == 'ldap_server' ) {
 503                 $v = substr( $v, 0, strlen( $v ) - 1 ) . "\n)";
 504                 $v = str_replace( 'array(', "array(\n\t", $v );
 505                 $v = str_replace( "',", "',\n\t", $v );
 506             }
 507             fwrite( $fp, "$k = $v;\n" );
 508         }
 509     }
 510     fwrite( $fp, '?>' );
 511     fclose( $fp );
 512 } else {
 513     echo '<font size=+1><br>'.
 514          _("Config file can't be opened. Please check config.php.").
 515          '</font>';
 516 }
 517
 518 ?>