X-Git-Url: https://vcs.fsf.org/?a=blobdiff_plain;f=plugins%2Fadministrator%2Foptions.php;h=08aad32bec9156c4bf37278ce8d0bcfae477909f;hb=595848f9dbf9fda650ca1809f94702043dbc0f79;hp=93370f64b1f96d463b006cb1a633930657a4fa5e;hpb=37d904943abf33f8dbc7c6c22b960133eeadd36e;p=squirrelmail.git diff --git a/plugins/administrator/options.php b/plugins/administrator/options.php index 93370f64..08aad32b 100644 --- a/plugins/administrator/options.php +++ b/plugins/administrator/options.php @@ -1,86 +1,234 @@ ';' && $i < $j ); - $i--; - if ( $l <> '' ) { - if ( $cm ) { - if( substr( $l, -2 ) == '*/' ) { - $l = ''; - $cm = FALSE; - } else if( $k = strpos( $l, '*/' ) ) { - $l = substr( $l, $k ); - $cm = FALSE; + $mode = ''; + $l = count( $cfg ); + $modifier = FALSE; + + for ($i=0;$i<$l;$i++) { + $line = trim( $cfg[$i] ); + $s = strlen( $line ); + for ($j=0;$j<$s;$j++) { + switch ( $mode ) { + case '=': + if ( $line{$j} == '=' ) { + // Ok, we've got a right value, lets detect what type + $mode = 'D'; + } else if ( $line{$j} == ';' ) { + // hu! end of command + $key = $mode = ''; + } + break; + case 'K': + // Key detect + if( $line{$j} == ' ' ) { + $mode = '='; } else { - $l = ''; + $key .= $line{$j}; } - } else { - if( $l{0}.$l{1} == '/*' ) { - $l = ''; - $cm = TRUE; - } else if ( $k = strpos( $l, '/*' ) ) { - $l = substr( $l, 0, $k ); - $cm = TRUE; + break; + case ';': + // Skip until next ; + if ( $line{$j} == ';' ) { + $mode = ''; + } + break; + case 'S': + if ( $line{$j} == '\\' ) { + $value .= $line{$j}; + $modifier = TRUE; + } else if ( $line{$j} == $delimiter && $modifier === FALSE ) { + // End of string; + $newcfg[$key] = $value . $delimiter; + $key = $value = ''; + $mode = ';'; + } else { + $value .= $line{$j}; + $modifier = FALSE; + } + break; + case 'N': + if ( $line{$j} == ';' ) { + $newcfg{$key} = $value; + $key = $mode = ''; + } else { + $value .= $line{$j}; + } + break; + case 'C': + // Comments + if ( $s > $j + 1 && + $line{$j}.$line{$j+1} == '*/' ) { + $mode = ''; + $j++; + } + break; + case 'D': + // Delimiter detect + switch ( $line{$j} ) { + case '"': + case "'": + // Double quote string + $delimiter = $value = $line{$j}; + $mode = 'S'; + break; + case ' ': + // Nothing yet + break; + default: + if ( strtoupper( substr( $line, $j, 4 ) ) == 'TRUE' ) { + // Boolean TRUE + $newcfg{$key} = 'TRUE'; + $key = ''; + $mode = ';'; + } else if ( strtoupper( substr( $line, $j, 5 ) ) == 'FALSE' ) { + $newcfg{$key} = 'FALSE'; + $key = ''; + $mode = ';'; + } else { + // Number or function call + $mode = 'N'; + $value = $line{$j}; + } + } + break; + default: + if ( $line{$j} == '$' ) { + // We must detect $key name + $mode = 'K'; + $key = '$'; + } else if ( $s < $j + 2 ) { + } else if ( strtoupper( substr( $line, $j, 7 ) ) == 'GLOBAL ' ) { + // Skip untill next ; + $mode = ';'; + $j += 6; + } else if ( $line{$j}.$line{$j+1} == '/*' ) { + $mode = 'C'; + $j++; + } else if ( $line{$j} == '#' || $line{$j}.$line{$j+1} == '//' ) { + // Delete till the end of the line + $j = $s; } - } - - if ( $k = strpos( $l, '=' ) ) { - $key = trim( substr( $l, 0, $k - 1 ) ); - $val = str_replace( ';', '', trim( substr( $l, $k + 1 ) ) ); - $newcfg[$key] = $val; } } - } +} +/** + * Change paths containing SM_PATH to admin-friendly paths + * relative to the config dir, i.e.: + * '' --> + * SM_PATH . 'images/logo.gif' --> ../images/logo.gif + * '/absolute/path/logo.gif' --> /absolute/path/logo.gif + * 'http://whatever/' --> http://whatever + * Note removal of quotes in returned value + * + * @param string $old_path path that has to be converted + * @return string new path + * @access private + */ +function change_to_rel_path($old_path) { + $new_path = str_replace("SM_PATH . '", "../", $old_path); + $new_path = str_replace("../config/","", $new_path); + $new_path = str_replace("'","", $new_path); + return $new_path; } -/* ---------------------- main -------------------------- */ -chdir('..'); -require_once('../src/validate.php'); -require_once('../functions/page_header.php'); -require_once('../functions/imap.php'); -require_once('../src/load_prefs.php'); -require_once('../plugins/administrator/defines.php'); - -$auth = FALSE; -if ( $adm_id = fileowner('../config/config.php') ) { - $adm = posix_getpwuid( $adm_id ); - if ( $username == $adm['name'] ) { - $auth = TRUE; - } + +/** + * Change relative path (relative to config dir) to + * internal SM_PATH, i.e.: + * empty_string --> '' + * ../images/logo.gif --> SM_PATH . 'images/logo.gif' + * images/logo.gif --> SM_PATH . 'config/images/logo.gif' + * /absolute/path/logo.gif --> '/absolute/path/logo.gif' + * http://whatever/ --> 'http://whatever' + * + * @param string $old_path path that has to be converted + * @return string new path + * @access private +*/ +function change_to_sm_path($old_path) { + if ( $old_path === '' || $old_path == "''" ) { + return "''"; + } elseif ( preg_match("/^(\/|http)/", $old_path) ) { + return "'" . $old_path . "'"; + } elseif ( preg_match("/^(\$|SM_PATH)/", $old_path) ) { + return $old_path; + } + + $new_path = ''; + $rel_path = explode("../", $old_path); + if ( count($rel_path) > 2 ) { + // Since we're relative to the config dir, + // more than 1 ../ puts us OUTSIDE the SM tree. + // get full path to config.php, then pop the filename + $abs_path = explode('/', realpath (SM_PATH . 'config/config.php')); + array_pop ($abs_path); + foreach ( $rel_path as $subdir ) { + if ( $subdir === '' ) { + array_pop ($abs_path); + } else { + array_push($abs_path, $subdir); + } + } + foreach ($abs_path as $subdir) { + $new_path .= $subdir . '/'; + } + $new_path = "'$new_path'"; + } elseif ( count($rel_path) > 1 ) { + // we're within the SM tree, prepend SM_PATH + $new_path = str_replace('../',"SM_PATH . '", $old_path . "'"); + } else { + // Last, if it's a relative path without a .. prefix, + // we're somewhere within the config dir, so prepend + // SM_PATH . 'config/ + $new_path = "SM_PATH . 'config/" . $old_path . "'"; + } + return $new_path; } -if ( !auth ) { - header("Location: ../../src/options.php") ; + +/* ---------------------- main -------------------------- */ + +/** @ignore */ +define('SM_PATH','../../'); + +/* SquirrelMail required files. */ +require_once(SM_PATH . 'include/validate.php'); +require_once(SM_PATH . 'functions/page_header.php'); +require_once(SM_PATH . 'functions/imap.php'); +require_once(SM_PATH . 'include/load_prefs.php'); +require_once(SM_PATH . 'plugins/administrator/defines.php'); +require_once(SM_PATH . 'plugins/administrator/auth.php'); + +global $data_dir, $username; + +if ( !adm_check_user() ) { + header('Location: ' . SM_PATH . 'src/options.php') ; exit; } @@ -92,14 +240,47 @@ foreach ( $defcfg as $key => $def ) { $newcfg[$key] = ''; } -$cfgfile = '../config/config.php'; -parseConfig( '../config/config_default.php' ); +$cfgfile = SM_PATH . 'config/config.php'; +parseConfig( SM_PATH . 'config/config_default.php' ); parseConfig( $cfgfile ); -echo "
" . - "
\n" , + '
". - "" , - ""; +$colapse = array( 'Titles' => 'off', + 'Group1' => getPref($data_dir, $username, 'adm_Group1', 'off' ), + 'Group2' => getPref($data_dir, $username, 'adm_Group2', 'on' ), + 'Group3' => getPref($data_dir, $username, 'adm_Group3', 'on' ), + 'Group4' => getPref($data_dir, $username, 'adm_Group4', 'on' ), + 'Group5' => getPref($data_dir, $username, 'adm_Group5', 'on' ), + 'Group6' => getPref($data_dir, $username, 'adm_Group6', 'on' ), + 'Group7' => getPref($data_dir, $username, 'adm_Group7', 'on' ), + 'Group8' => getPref($data_dir, $username, 'adm_Group8', 'on' ), + 'Group9' => getPref($data_dir, $username, 'adm_Group9', 'on' ), + 'Group10' => getPref($data_dir, $username, 'adm_Group10', 'on' ) ); + +/* look in $_GET array for 'switch' */ +if ( sqgetGlobalVar('switch', $switch, SQ_GET) ) { + if ( $colapse[$switch] == 'on' ) { + $colapse[$switch] = 'off'; + } else { + $colapse[$switch] = 'on'; + } + setPref($data_dir, $username, "adm_$switch", $colapse[$switch] ); +} + +echo '' . + "
" . _("Configuration Administrator") . "
". + "" , + "", + ""; + + +$act_grp = 'Titles'; /* Active group */ + foreach ( $newcfg as $k => $v ) { $l = strtolower( $v ); $type = SMOPT_TYPE_UNDEFINED; @@ -112,7 +293,11 @@ foreach ( $newcfg as $k => $v ) { if ( isset( $defcfg[$k] ) ) { $name = $defcfg[$k]['name']; $type = $defcfg[$k]['type']; - $size = $defcfg[$k]['size']; + if ( isset( $defcfg[$k]['size'] ) ) { + $size = $defcfg[$k]['size']; + } else { + $size = 40; + } } else if ( $l == 'true' ) { $v = 'TRUE'; $type = SMOPT_TYPE_BOOLEAN; @@ -125,128 +310,323 @@ foreach ( $newcfg as $k => $v ) { $type = SMOPT_TYPE_STRING; } - switch ( $type ) { - case SMOPT_TYPE_TITLE: - echo ""; - break; - case SMOPT_TYPE_COMMENT: - $v = substr( $v, 1, strlen( $v ) - 2 ); - echo ""; + break; + case SMOPT_TYPE_TITLE: + if ( $colapse[$k] == 'on' ) { + $sw = '(+)'; + } else { + $sw = '(-)'; + } + echo ""; + $act_grp = $k; + break; + case SMOPT_TYPE_COMMENT: + $v = substr( $v, 1, strlen( $v ) - 2 ); + echo "\n"; + break; + case SMOPT_TYPE_INTEGER: + /* look for variable $e in POST, fill into $v */ + if ( sqgetGlobalVar($e, $v, SQ_POST) ) { + $v = intval( $v ); + $newcfg[$k] = $v; + } + echo "\n"; + break; + case SMOPT_TYPE_NUMLIST: + if ( sqgetGlobalVar($e, $v, SQ_POST) ) { + $newcfg[$k] = $v; + } + echo "\n"; + break; + case SMOPT_TYPE_STRLIST: + if ( sqgetGlobalVar($e, $v, SQ_POST) ) { + $v = '"' . $v . '"'; + $newcfg[$k] = $v; + } + echo "\n"; + break; + + case SMOPT_TYPE_TEXTAREA: + if ( sqgetGlobalVar($e, $v, SQ_POST) ) { + $v = '"' . $v . '"'; + $newcfg[$k] = str_replace( "\n", '', $v ); + } + echo "\n"; + break; + case SMOPT_TYPE_STRING: + if ( sqgetGlobalVar($e, $v, SQ_POST) ) { + $v = '"' . $v . '"'; + $newcfg[$k] = $v; + } + if ( $v == '""' && isset( $defcfg[$k]['default'] ) ) { + $v = "'" . $defcfg[$k]['default'] . "'"; + $newcfg[$k] = $v; + } + echo "\n"; + break; + case SMOPT_TYPE_BOOLEAN: + if ( sqgetGlobalVar($e, $v, SQ_POST) ) { + $newcfg[$k] = $v; + } else { + $v = strtoupper( $v ); + } + if ( $v == 'TRUE' ) { + $ct = ' checked'; + $cf = ''; + } else { + $ct = ''; + $cf = ' checked'; + } + echo "\n"; + break; + case SMOPT_TYPE_PATH: + if ( sqgetGlobalVar($e, $v, SQ_POST) ) { + $v = change_to_sm_path($v); + $newcfg[$k] = $v; + } + if ( $v == "''" && isset( $defcfg[$k]['default'] ) ) { + $v = change_to_sm_path($defcfg[$k]['default']); + $newcfg[$k] = $v; + } + echo "\n"; + break; + default: + echo "\n"; } - echo "'; + while ( isset( $newcfg["\$theme[$i]['NAME']"] ) ) { + $k1 = "\$theme[$i]['NAME']"; + $e1 = "theme_name_$i"; + if ( sqgetGlobalVar($e, $v1, SQ_POST) ) { + $v1 = '"' . str_replace( '\"', '"', $v1 ) . '"'; + $v1 = '"' . str_replace( '"', '\"', $v1 ) . '"'; + $newcfg[$k1] = $v1; + } else { + $v1 = $newcfg[$k1]; } - echo ''; - break; - case SMOPT_TYPE_STRLIST: - if ( isset( $HTTP_POST_VARS[$e] ) ) { - $v = '"' . $HTTP_POST_VARS[$e] . '"'; - $newcfg[$k] = $v; + $k2 = "\$theme[$i]['PATH']"; + $e2 = "theme_path_$i"; + if ( sqgetGlobalVar($e, $v2, SQ_POST) ) { + $v2 = change_to_sm_path($v2); + $newcfg[$k2] = $v2; + } else { + $v2 = $newcfg[$k2]; } - echo "'. + "". + "". + "\n"; + $i++; + + } +} + +/* Special Plugins Block */ +if ( $colapse['Group8'] == 'on' ) { + $sw = '(+)'; +} else { + $sw = '(-)'; +} +echo "'; + +if( $colapse['Group8'] == 'off' ) { + + $plugpath = SM_PATH . 'plugins/'; + if ( file_exists($plugpath) ) { + $fd = opendir( $plugpath ); + $op_plugin = array(); + $p_count = 0; + while (false !== ($file = readdir($fd))) { + if ($file != '.' && $file != '..' && $file != 'CVS' && is_dir($plugpath . $file) ) { + $op_plugin[] = $file; + $p_count++; } - echo ''; - break; + } + closedir($fd); + asort( $op_plugin ); - case SMOPT_TYPE_STRING: - if ( isset( $HTTP_POST_VARS[$e] ) ) { - $v = '"' . $HTTP_POST_VARS[$e] . '"'; - $newcfg[$k] = $v; + /* Lets get the plugins that are active */ + $plugins = array(); + if ( sqgetGlobalVar('plg', $v, SQ_POST) ) { + foreach ( $op_plugin as $plg ) { + if ( sqgetGlobalVar("plgs_$plg", $v, SQ_POST) && $v == 'on' ) { + $plugins[] = $plg; + } + } + $i = 0; + foreach ( $plugins as $plg ) { + $k = "\$plugins[$i]"; + $newcfg[$k] = "'$plg'"; + $i++; } - echo "'; + } else { + echo '\n"; + } } -echo "" , - '
" . _("Configuration Administrator") . "
"; + +echo ""; +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."); +echo "
"; +echo _("Run or consult conf.pl should you run into difficulty with your configuration."); +echo "
$name
$name"; - echo "$v"; - $newcfg[$k] = "'$v'"; - break; - case SMOPT_TYPE_INTEGER: - if ( isset( $HTTP_POST_VARS[$e] ) ) { - $v = intval( $HTTP_POST_VARS[$e] ); - $newcfg[$k] = $v; - } - echo "
$name"; - echo ""; - break; - case SMOPT_TYPE_NUMLIST: - if ( isset( $HTTP_POST_VARS[$e] ) ) { - $v = $HTTP_POST_VARS[$e]; - $newcfg[$k] = $v; + if ( substr( $k, 0, 7 ) == '$theme[' ) { + $type = SMOPT_TYPE_THEME; + } else if ( substr( $k, 0, 9 ) == '$plugins[' ) { + $type = SMOPT_TYPE_PLUGINS; + } else if ( substr( $k, 0, 13 ) == '$ldap_server[' ) { + $type = SMOPT_TYPE_LDAP; + } + + if( $type == SMOPT_TYPE_TITLE || $colapse[$act_grp] == 'off' ) { + + switch ( $type ) { + case SMOPT_TYPE_LDAP: + case SMOPT_TYPE_PLUGINS: + case SMOPT_TYPE_THEME: + case SMOPT_TYPE_HIDDEN: + break; + case SMOPT_TYPE_EXTERNAL: + echo "
$name" . + $defcfg[$k]['value'] . + "
" . + "$sw " . + "$name
$name". + "$v"; + $newcfg[$k] = "'$v'"; + if ( isset( $defcfg[$k]['comment'] ) ) { + echo '   ' . $defcfg[$k]['comment']; + } + echo "
$name". + ""; + if ( isset( $defcfg[$k]['comment'] ) ) { + echo '   ' . $defcfg[$k]['comment']; + } + echo "
$name"; + echo "'; + if ( isset( $defcfg[$k]['comment'] ) ) { + echo '   ' . $defcfg[$k]['comment']; + } + echo "
$name". + "'; + if ( isset( $defcfg[$k]['comment'] ) ) { + echo '   ' . $defcfg[$k]['comment']; + } + echo "
$name". + ""; + if ( isset( $defcfg[$k]['comment'] ) ) { + echo '   ' . $defcfg[$k]['comment']; + } + echo "
$name". + ""; + if ( isset( $defcfg[$k]['comment'] ) ) { + echo '   ' . $defcfg[$k]['comment']; + } + echo "
$name" . + "" . _("Yes") . + "" . _("No"); + if ( isset( $defcfg[$k]['comment'] ) ) { + echo '   ' . $defcfg[$k]['comment']; + } + echo "
$name". + ""; + if ( isset( $defcfg[$k]['comment'] ) ) { + echo '   ' . $defcfg[$k]['comment']; + } + echo "
$name" . + "$v"; + if ( isset( $defcfg[$k]['comment'] ) ) { + echo '   ' . $defcfg[$k]['comment']; + } + echo "
$name"; - echo "
' . _("Theme Name") . + '' . _("Theme Path") . + '
$name"; - echo "
$i.
" . + "$sw " . + _("Plugins") . '
$name"; - echo ""; - break; - case SMOPT_TYPE_BOOLEAN: - if ( isset( $HTTP_POST_VARS[$e] ) ) { - $v = $HTTP_POST_VARS[$e]; - $newcfg[$k] = $v; + while ( isset( $newcfg["\$plugins[$i]"] ) ) { + $k = "\$plugins[$i]"; + $newcfg[$k] = ''; + $i++; } - if ( $v == 'TRUE' ) { - $ct = ' checked'; - $cf = ''; + } else { + $i = 0; + while ( isset( $newcfg["\$plugins[$i]"] ) ) { + $k = "\$plugins[$i]"; + $v = $newcfg[$k]; + $plugins[] = substr( $v, 1, strlen( $v ) - 2 ); + $i++; + } + } + echo "
"; + foreach ( $op_plugin as $plg ) { + if ( in_array( $plg, $plugins ) ) { + $sw = ' checked'; } else { - $ct = ''; - $cf = ' checked'; + $sw = ''; } - echo "\n"; + echo '\n". + "". + "\n"; + } + echo '
$name"; - echo "" . _("Yes") . - "" . _("No"); - break; - default: - echo "
$name"; - echo "$v"; - } - echo "
'; + if (file_exists(SM_PATH . "plugins/$plg/README")) { + echo "$plg"; + } else { + echo $plg; + } + echo "
' . sprintf(_("Plugin directory could not be found: %s"),$plugpath) . "
'; +echo "

'. + ''._("Test Configuration"). + "
'; /* Write the options to the file. */ -$fp = fopen( $cfgfile, 'w' ); -fwrite( $fp, " $v ) { - if ( $k{0} == '$' ) { - if( $i = strpos( $k, '[' ) ) { - if( strpos( $k, '[0]' ) ) { - if( $not_first ) { - fwrite( $fp, ', ' ); - } - fwrite( $fp, substr( $k, 0, $i) ); - $not_first = TRUE; - } - } else { - if( $not_first ) { - fwrite( $fp, ', ' ); + +if( $fp = @fopen( $cfgfile, 'w' ) ) { + fwrite( $fp, " $v ) { + if ( $k{0} == '$' && $v <> '' || is_int($v)) { + if ( substr( $k, 1, 11 ) == 'ldap_server' ) { + $v = substr( $v, 0, strlen( $v ) - 1 ) . "\n)"; + $v = str_replace( 'array(', "array(\n\t", $v ); + $v = str_replace( "',", "',\n\t", $v ); } - fwrite( $fp, $k ); - $not_first = TRUE; - } - } -} -fwrite( $fp, ";\n" ); -foreach ( $newcfg as $k => $v ) { - if ( $k{0} == '$' ) { - fwrite( $fp, "$k = $v;\n" ); + fwrite( $fp, "$k = $v;\n" ); + } } + fwrite( $fp, '?>' ); + fclose( $fp ); +} else { + echo '

'. + _("Config file can't be opened. Please check config.php."). + '

'; } -fwrite( $fp, '?>' ); -fclose( $fp ); -?> \ No newline at end of file +?> + \ No newline at end of file