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     $cm = FALSE;
  20     $j = count( $cfg );
  21
  22     for ( $i=0; $i < $j; $i++ ) {
  23         $l = '';
  24         $first_char = $cfg[$i]{0};
  25         do {
  26             // Remove comments
  27             $c = trim( $cfg[$i] );
  28             // This is not correct. We should extract strings before removing comments.
  29             $c = preg_replace( '/\/\*.*\*\//', '', $c );
  30             $c = preg_replace( '/#.*$/', '', $c );
  31             $c = preg_replace( '/\/\/.*$/', '', $c );
  32             $c = trim( $c );
  33             $l .= $c;
  34             $i++;
  35         } while( $first_char == '$' && substr( $c, -1 ) <> ';' && $i < $j );
  36         $i--;
  37         if ( $l <> '' ) {
  38             if ( $cm ) {
  39                 if( substr( $l, -2 ) == '*/' ) {
  40                     $l = '';
  41                     $cm = FALSE;
  42                 } else if( $k = strpos( $l, '*/' ) ) {
  43                     $l = substr( $l, $k );
  44                     $cm = FALSE;
  45                 } else {
  46                     $l = '';
  47                 }
  48             } else {
  49                 if( $l{0}.$l{1} == '/*' ) {
  50                     $l = '';
  51                     $cm = TRUE;
  52                 } else if ( $k = strpos( $l, '/*' ) ) {
  53                     $l = substr( $l, 0, $k );
  54                     $cm = TRUE;
  55                 }
  56             }
  57
  58             if ( $k = strpos( $l, '=' ) ) {
  59                 $key = trim( substr( $l, 0, $k - 1 ) );
  60                 $val = str_replace( ';', '', trim( substr( $l, $k + 1 ) ) );
  61                 $newcfg[$key] = $val;
  62             }
  63         }
  64
  65     }
  66
  67 }
  68 /* ---------------------- main -------------------------- */
  69 chdir('..');
  70 require_once('../src/validate.php');
  71 require_once('../functions/page_header.php');
  72 require_once('../functions/imap.php');
  73 require_once('../src/load_prefs.php');
  74 require_once('../plugins/administrator/defines.php');
  75
  76 $auth = FALSE;
  77 if ( $adm_id = fileowner('../config/config.php') ) {
  78     $adm = posix_getpwuid( $adm_id );
  79     if ( $username == $adm['name'] ) {
  80         $auth = TRUE;
  81     }
  82 }
  83
  84 if ( !auth ) {
  85     header("Location: ../../src/options.php") ;
  86     exit;
  87 }
  88
  89 displayPageHeader($color, 'None');
  90
  91 $newcfg = array( );
  92
  93 foreach ( $defcfg as $key => $def ) {
  94     $newcfg[$key] = '';
  95 }
  96
  97 $cfgfile = '../config/config.php';
  98 parseConfig( '../config/config_default.php' );
  99 parseConfig( $cfgfile );
 100
 101 echo "<form action=$PHP_SELF method=post>" .
 102     "<br><center><table width=95% bgcolor=\"$color[5]\"><tr><td>".
 103     "<table width=100% cellspacing=0 bgcolor=\"$color[4]\">" ,
 104     "<tr bgcolor=\"$color[5]\"><th colspan=2>" . _("Configuration Administrator") . "</th></tr>";
 105 foreach ( $newcfg as $k => $v ) {
 106     $l = strtolower( $v );
 107     $type = SMOPT_TYPE_UNDEFINED;
 108     $n = substr( $k, 1 );
 109     $n = str_replace( '[', '_', $n );
 110     $n = str_replace( ']', '_', $n );
 111     $e = 'adm_' . $n;
 112     $name = $k;
 113     $size = 50;
 114     if ( isset( $defcfg[$k] ) ) {
 115         $name = $defcfg[$k]['name'];
 116         $type = $defcfg[$k]['type'];
 117         $size = $defcfg[$k]['size'];
 118     } else if ( $l == 'true' ) {
 119         $v = 'TRUE';
 120         $type = SMOPT_TYPE_BOOLEAN;
 121     } else if ( $l == 'false' ) {
 122         $v = 'FALSE';
 123         $type = SMOPT_TYPE_BOOLEAN;
 124     } else if ( $v{0} == "'" ) {
 125         $type = SMOPT_TYPE_STRING;
 126     } else if ( $v{0} == '"' ) {
 127         $type = SMOPT_TYPE_STRING;
 128     }
 129
 130     switch ( $type ) {
 131     case SMOPT_TYPE_TITLE:
 132         echo "<tr bgcolor=\"$color[0]\"><th colspan=2>$name</th></tr>";
 133         break;
 134     case SMOPT_TYPE_COMMENT:
 135         $v = substr( $v, 1, strlen( $v ) - 2 );
 136         echo "<tr><td>$name</td><td>".
 137              "<b>$v</b>";
 138         $newcfg[$k] = "'$v'";
 139         break;
 140     case SMOPT_TYPE_INTEGER:
 141         if ( isset( $HTTP_POST_VARS[$e] ) ) {
 142             $v = intval( $HTTP_POST_VARS[$e] );
 143             $newcfg[$k] = $v;
 144         }
 145         echo "<tr><td>$name</td><td>".
 146              "<input size=10 name=\"adm_$n\" value=\"$v\">";
 147         break;
 148     case SMOPT_TYPE_NUMLIST:
 149         if ( isset( $HTTP_POST_VARS[$e] ) ) {
 150             $v = $HTTP_POST_VARS[$e];
 151             $newcfg[$k] = $v;
 152         }
 153         echo "<tr><td>$name</td><td>";
 154         echo "<select name=\"adm_$n\">";
 155         foreach ( $defcfg[$k]['posvals'] as $kp => $vp ) {
 156             echo "<option value=\"$kp\"";
 157             if ( $kp == $v ) {
 158                 echo ' selected';
 159             }
 160             echo ">$vp</option>";
 161         }
 162         echo '</select>';
 163         break;
 164     case SMOPT_TYPE_STRLIST:
 165         if ( isset( $HTTP_POST_VARS[$e] ) ) {
 166             $v = '"' . $HTTP_POST_VARS[$e] . '"';
 167             $newcfg[$k] = $v;
 168         }
 169         echo "<tr><td>$name</td><td>".
 170              "<select name=\"adm_$n\">";
 171         foreach ( $defcfg[$k]['posvals'] as $kp => $vp ) {
 172             echo "<option value=\"$kp\"";
 173             if ( $kp == substr( $v, 1, strlen( $v ) - 2 ) ) {
 174                 echo ' selected';
 175             }
 176             echo ">$vp</option>";
 177         }
 178         echo '</select>';
 179         break;
 180
 181     case SMOPT_TYPE_STRING:
 182         if ( isset( $HTTP_POST_VARS[$e] ) ) {
 183             $v = '"' . $HTTP_POST_VARS[$e] . '"';
 184             $newcfg[$k] = $v;
 185         }
 186         echo "<tr><td>$name</td><td>".
 187              "<input size=\"$size\" name=\"adm_$n\" value=\"" . substr( $v, 1, strlen( $v ) - 2 ) . "\">";
 188         break;
 189     case SMOPT_TYPE_BOOLEAN:
 190         if ( isset( $HTTP_POST_VARS[$e] ) ) {
 191             $v = $HTTP_POST_VARS[$e];
 192             $newcfg[$k] = $v;
 193         } else {
 194             $v = strtoupper( $v );
 195         }
 196         if ( $v == 'TRUE' ) {
 197             $ct = ' checked';
 198             $cf = '';
 199         } else {
 200             $ct = '';
 201             $cf = ' checked';
 202         }
 203         echo "<tr><td>$name</td><td>" .
 204              "<INPUT$ct type=radio NAME=\"adm_$n\" value=\"TRUE\">" . _("Yes") .
 205              "<INPUT$cf type=radio NAME=\"adm_$n\" value=\"FALSE\">" . _("No");
 206         break;
 207     default:
 208         echo "<tr><td>$name</td><td>" .
 209              "<b><i>$v</i></b>";
 210     }
 211     echo "</td></tr>\n";
 212 }
 213 echo "<tr bgcolor=\"$color[5]\"><th colspan=2><input value=\"" .
 214      _("Change Settings") . "\" type=submit></th></tr>" ,
 215      '</table></td></tr></table></form>';
 216
 217 /*
 218     Write the options to the file.
 219 */
 220 $fp = fopen( $cfgfile, 'w' );
 221 fwrite( $fp, "<?PHP\n".
 222             "/**\n".
 223             " * SquirrelMail Configuration File\n".
 224             " * Created using the Administrator Plugin\n".
 225             " */\n\n" );
 226
 227 fwrite( $fp, 'GLOBAL ' );
 228 $not_first = FALSE;
 229 foreach ( $newcfg as $k => $v ) {
 230     if ( $k{0} == '$' ) {
 231         if( $i = strpos( $k, '[' ) ) {
 232             if( strpos( $k, '[0]' ) ) {
 233                 if( $not_first ) {
 234                     fwrite( $fp, ', ' );
 235                 }
 236                 fwrite( $fp, substr( $k, 0, $i) );
 237                 $not_first = TRUE;
 238             }
 239         } else {
 240             if( $not_first ) {
 241                 fwrite( $fp, ', ' );
 242             }
 243             fwrite( $fp, $k );
 244             $not_first = TRUE;
 245         }
 246     }
 247 }
 248 fwrite( $fp, ";\n" );
 249 foreach ( $newcfg as $k => $v ) {
 250     if ( $k{0} == '$' ) {
 251         fwrite( $fp, "$k = $v;\n" );
 252     }
 253 }
 254 fwrite( $fp, '?>' );
 255 fclose( $fp );
 256 ?>