$def ) { $newcfg[$key] = ''; } foreach ( $cfg as $l ) { // Remove inline /* */ Blocks $l = preg_replace( '/\/\*.*\*\//', '', $l ); $l = preg_replace( '/#.*$/', '', $l ); $l = preg_replace( '/\/\/.*$/', '', $l ); $v = $s = trim( $l ); if ( $cm ) { if( substr( $v, -2 ) == '*/' ) { $v = ''; $cm = FALSE; } else if( $i = strpos( $v, '*/' ) ) { $v = substr( $v, $i ); $cm = FALSE; } else { $v = ''; } } else { if( $v{0}.$v{1} == '/*' ) { $v = ''; $cm = TRUE; } else if ( $i = strpos( $v, '/*' ) ) { $v = substr( $v, 0, $i ); $cm = TRUE; } } if ( $i = strpos( $v, '=' ) ) { $key = trim( substr( $v, 0, $i - 1 ) ); $val = str_replace( ';', '', trim( substr( $v, $i + 1 ) ) ); $newcfg[$key] = $val; $dfncfg[$key] = $val; } } $cfg = file( $cfgfile ); $cm = FALSE; foreach ( $cfg as $l ) { $l = preg_replace( '/\/\*.*\*\//', '', $l ); $l = preg_replace( '/#.*$/', '', $l ); $l = preg_replace( '/\/\/.*$/', '', $l ); $v = $s = trim( $l ); if ( $cm ) { if( substr( $v, -2 ) == '*/' ) { $v = ''; $cm = FALSE; } else if( $i = strpos( $v, '*/' ) ) { $v = substr( $v, $i ); $cm = FALSE; } else { $v = ''; } } else { if( $v{0}.$v{1} == '/*' ) { $v = ''; $cm = TRUE; } else if ( $i = strpos( $v, '/*' ) ) { $v = substr( $v, 0, $i ); $cm = TRUE; } } if ( $i = strpos( $v, '=' ) ) { $key = trim( substr( $v, 0, $i - 1 ) ); $val = str_replace( ';', '', trim( substr( $v, $i + 1 ) ) ); $newcfg[$key] = $val; } } echo "

" . "

". "" , ""; foreach ( $newcfg as $k => $v ) { $l = strtolower( $v ); $type = SMOPT_TYPE_UNDEFINED; $n = substr( $k, 1 ); $n = str_replace( '[', '_', $n ); $n = str_replace( ']', '_', $n ); $e = 'adm_' . $n; $name = $k; $size = 50; if ( isset( $defcfg[$k] ) ) { $name = $defcfg[$k]['name']; $type = $defcfg[$k]['type']; $size = $defcfg[$k]['size']; } else if ( $l == 'true' ) { $v = 'TRUE'; $type = SMOPT_TYPE_BOOLEAN; } else if ( $l == 'false' ) { $v = 'FALSE'; $type = SMOPT_TYPE_BOOLEAN; } else if ( $v{0} == "'" ) { $type = SMOPT_TYPE_STRING; } else if ( $v{0} == '"' ) { $type = SMOPT_TYPE_STRING; } switch ( $type ) { case SMOPT_TYPE_TITLE: echo ""; break; case SMOPT_TYPE_COMMENT: $v = substr( $v, 1, strlen( $v ) - 2 ); echo "\n"; } echo "" , ' " . _("Configuration Administrator") . " $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; } echo " $name "; echo ""; foreach ( $defcfg[$k]['posvals'] as $kp => $vp ) { echo "$vp"; } echo ''; break; case SMOPT_TYPE_STRLIST: if ( isset( $HTTP_POST_VARS[$e] ) ) { $v = '"' . $HTTP_POST_VARS[$e] . '"'; $newcfg[$k] = $v; } echo " $name "; echo ""; foreach ( $defcfg[$k]['posvals'] as $kp => $vp ) { echo "$vp"; } echo ''; break; case SMOPT_TYPE_STRING: if ( isset( $HTTP_POST_VARS[$e] ) ) { $v = '"' . $HTTP_POST_VARS[$e] . '"'; $newcfg[$k] = $v; } echo " $name "; echo ""; break; case SMOPT_TYPE_BOOLEAN: if ( isset( $HTTP_POST_VARS[$e] ) ) { $v = $HTTP_POST_VARS[$e]; $newcfg[$k] = $v; } if ( $v == 'TRUE' ) { $ct = ' checked'; $cf = ''; } else { $ct = ''; $cf = ' checked'; } echo " $name "; echo "" . _("Yes") . "" . _("No"); break; default: echo " $name "; echo "$v"; } echo "

'; /* 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, ', ' ); } fwrite( $fp, $k ); $not_first = TRUE; } } } fwrite( $fp, ";\n" ); foreach ( $newcfg as $k => $v ) { if ( $k{0} == '$' ) { fwrite( $fp, "$k = $v;\n" ); } } fwrite( $fp, '?>' ); fclose( $fp ); ?>