<?php
# MantisBT - A PHP based bugtracking system

# MantisBT is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 2 of the License, or
# (at your option) any later version.
#
# MantisBT is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with MantisBT.  If not, see <http://www.gnu.org/licenses/>.

/**
 * This page stores the reported bug
 *
 * @package MantisBT
 * @copyright Copyright 2000 - 2002  Kenzaburo Ito - kenito@300baud.org
 * @copyright Copyright 2002  MantisBT Team - mantisbt-dev@lists.sourceforge.net
 * @link http://www.mantisbt.org
 *
 * @uses core.php
 * @uses access_api.php
 * @uses config_api.php
 * @uses constant_inc.php
 * @uses error_api.php
 * @uses form_api.php
 * @uses gpc_api.php
 * @uses print_api.php
 * @uses project_api.php
 * @uses utility_api.php
 */

require_once( 'core.php' );
require_api( 'access_api.php' );
require_api( 'config_api.php' );
require_api( 'constant_inc.php' );
require_api( 'error_api.php' );
require_api( 'form_api.php' );
require_api( 'gpc_api.php' );
require_api( 'print_api.php' );
require_api( 'project_api.php' );
require_api( 'utility_api.php' );

form_security_validate( 'adm_config_set' );

$f_user_id = gpc_get_int( 'user_id' );
$f_project_id = gpc_get_int( 'project_id' );
$f_config_option = trim( gpc_get_string( 'config_option' ) );
$f_type = gpc_get_string( 'type' );
$f_value = gpc_get_string( 'value' );

if( is_blank( $f_config_option ) ) {
	error_parameters( 'config_option' );
	trigger_error( ERROR_EMPTY_FIELD, ERROR );
}

access_ensure_global_level( config_get( 'set_configuration_threshold' ) );

if( $f_project_id != ALL_PROJECTS ) {
	project_ensure_exists( $f_project_id );
}

# make sure that configuration option specified is a valid one.
$t_not_found_value = '***CONFIG OPTION NOT FOUND***';
if( config_get_global( $f_config_option, $t_not_found_value ) === $t_not_found_value ) {
	error_parameters( $f_config_option );
	trigger_error( ERROR_CONFIG_OPT_NOT_FOUND, ERROR );
}

# make sure that configuration option specified can be stored in the database
if( !config_can_set_in_database( $f_config_option ) ) {
	error_parameters( $f_config_option );
	trigger_error( ERROR_CONFIG_OPT_CANT_BE_SET_IN_DB, ERROR );
}

# For 'default', behavior is based on the global variable's type
if( $f_type == CONFIG_TYPE_DEFAULT ) {
	$t_config_global_value = config_get_global( $f_config_option );
	if( is_string( $t_config_global_value ) ) {
		$t_type = CONFIG_TYPE_STRING;
	} else if( is_int( $t_config_global_value ) ) {
		$t_type = CONFIG_TYPE_INT;
	} else if( is_float( $t_config_global_value ) ) {
		$t_type = CONFIG_TYPE_FLOAT;
	} else {
		# note that we consider bool and float as complex.
		# We use ON/OFF for bools which map to numeric.
		$t_type = CONFIG_TYPE_COMPLEX;
	}
} else {
	$t_type = $f_type;
}

switch( $t_type ) {
	case CONFIG_TYPE_STRING:
		$t_value = $f_value;
		break;
	case CONFIG_TYPE_INT:
		$t_value = (integer)constant_replace( trim( $f_value ) );
		break;
	case CONFIG_TYPE_FLOAT:
		$t_value = (float)constant_replace( trim( $f_value ) );
		break;
	case CONFIG_TYPE_COMPLEX:
	default:
		$t_value = process_complex_value( $f_value );
		break;
}

config_set( $f_config_option, $t_value, $f_user_id, $f_project_id );

form_security_purge( 'adm_config_set' );

print_successful_redirect( 'adm_config_report.php' );


/**
 * Helper function to recursively process complex types
 * We support the following kind of variables here:
 * 1. constant values (like the ON/OFF switches): they are defined as constants mapping to numeric values
 * 2. simple arrays with the form: array( a, b, c, d )
 * 3. associative arrays with the form: array( a=>1, b=>2, c=>3, d=>4 )
 * 4. multi-dimensional arrays
 * commas and '=>' within strings are handled
 *
 * @param string  $p_value      Complex value to process.
 * @param boolean $p_trim_quotes Whether to trim quotes.
 * @return parsed variable
 */
function process_complex_value( $p_value, $p_trim_quotes = false ) {
	static $s_regex_array = null;
	static $s_regex_string = null;
	static $s_regex_element = null;

	$t_value = trim( $p_value );

	# Parsing regex initialization
	if( is_null( $s_regex_array ) ) {
		$s_regex_array = '^array[\s]*\((.*)\)[;]*$';
		$s_regex_string =
			# unquoted string (word)
			'[\w]+' . '|' .
			# single-quoted string
			"'(?:[^'\\\\]|\\\\.)*'" . '|' .
			# double-quoted string
			'"(?:[^"\\\\]|\\\\.)*"';
		# The following complex regex will parse individual array elements,
		# taking into consideration sub-arrays, associative arrays and single,
		# double and un-quoted strings
		# @TODO dregad reverse pattern logic for sub-array to avoid match on array(xxx)=>array(xxx)
		$s_regex_element = '('
			# Main sub-pattern - match one of
			. '(' .
					# sub-array: ungreedy, no-case match ignoring nested parenthesis
					'(?:(?iU:array\s*(?:\\((?:(?>[^()]+)|(?1))*\\))))' . '|' .
					$s_regex_string
			. ')'
			# Optional pattern for associative array, back-referencing the
			# above main pattern
			. '(?:\s*=>\s*(?2))?' .
			')';
	}

	if( preg_match( '/' . $s_regex_array . '/s', $t_value, $t_match ) === 1 ) {
		# It's an array - process each element
		$t_processed = array();

		if( preg_match_all( '/' . $s_regex_element . '/', $t_match[1], $t_elements ) ) {
			foreach( $t_elements[0] as $t_key => $t_element ) {
				if( !trim( $t_element ) ) {
					# Empty element - skip it
					continue;
				}
				# Check if element is associative array
				preg_match_all( '/(' . $s_regex_string . ')\s*=>\s*(.*)/', $t_element, $t_split );
				if( !empty( $t_split[0] ) ) {
					# associative array
					$t_new_key = constant_replace( trim( $t_split[1][0], " \t\n\r\0\x0B\"'" ) );
					$t_new_value = process_complex_value( $t_split[2][0], true );
					$t_processed[$t_new_key] = $t_new_value;
				} else {
					# regular array
					$t_new_value = process_complex_value( $t_element );
					$t_processed[$t_key] = $t_new_value;
				}
			}
		}
		return $t_processed;
	} else {
		# Scalar value
		$t_value = trim( $t_value, " \t\n\r\0\x0B" );

		if( is_numeric( $t_value ) ) {
			return (int)$t_value;
		}

		# if has quotation marks
		if ( strpos( $t_value, "'" ) !== false || strpos( $t_value, '"' ) !== false ) {
			if( $p_trim_quotes  ) {
				$t_value = trim( $t_value, "\"'" );
			}
		} else {
			# Only replace constants when no quotation marks exist
			$t_value = constant_replace( $t_value );
		}

		return $t_value;
	}
}

/**
 * Split by commas, but ignore commas that are within quotes or parenthesis.
 * Ignoring commas within parenthesis helps allow for multi-dimensional arrays.
 * @param string $p_string String to split.
 * @return array
 */
function special_split ( $p_string ) {
	$t_values = array();
	$t_array_element = '';
	$t_paren_level = 0;
	$t_inside_quote = false;
	$t_escape_next = false;

	foreach( str_split( trim( $p_string ) ) as $t_character ) {
		if( $t_escape_next ) {
			$t_array_element .= $t_character;
			$t_escape_next = false;
		} else if( $t_character == ',' && $t_paren_level==0 && !$t_inside_quote ) {
			array_push( $t_values, $t_array_element );
			$t_array_element = '';
		} else {
			if( $t_character == '(' && !$t_inside_quote ) {
				$t_paren_level++;
			} else if( $t_character == ')' && !$t_inside_quote ) {
				$t_paren_level--;
			} else if( $t_character == '\'' ) {
				$t_inside_quote = !$t_inside_quote;
			} else if( $t_character == '\\' ) {
				# escape character
				$t_escape_next = true;
				# keep the escape if the string will be going through another recursion
				if( $t_paren_level > 0 ) {
					$t_array_element .= $t_character;
				}
				continue;
			}
			$t_array_element .= $t_character;
		}
	}
	array_push( $t_values, $t_array_element );
	return $t_values;
}


/**
 * Check if the passed string is a constant and returns its value
 * if yes, or the string itself if not
 * @param string $p_name String to check.
 * @return mixed|string value of constant $p_name, or $p_name itself
 */
function constant_replace( $p_name ) {
	if( is_string( $p_name ) && defined( $p_name ) ) {
		# we have a constant
		return constant( $p_name );
	}
	return $p_name;
}