<?php
/************************************************************************
 * Mailer v0.2.1-FINAL                                Start: 04/12/2009 *
 * ===================                          Last change: 04/12/2009 *
 *                                                                      *
 * -------------------------------------------------------------------- *
 * File              : expression-functions.php                         *
 * -------------------------------------------------------------------- *
 * Short description : Expression callback functions                    *
 * -------------------------------------------------------------------- *
 * Kurzbeschreibung  : Expression-Callback-Funktionen                   *
 * -------------------------------------------------------------------- *
 * $Revision::                                                        $ *
 * $Date::                                                            $ *
 * $Tag:: 0.2.1-FINAL                                                 $ *
 * $Author::                                                          $ *
 * -------------------------------------------------------------------- *
 * Copyright (c) 2003 - 2009 by Roland Haeder                           *
 * Copyright (c) 2009, 2010 by Mailer Developer Team                    *
 * For more information visit: http://www.mxchange.org                  *
 *                                                                      *
 * This program 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.                                  *
 *                                                                      *
 * This program 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 this program; if not, write to the Free Software          *
 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,               *
 * MA  02110-1301  USA                                                  *
 ************************************************************************/

// Some security stuff...
if (!defined('__SECURITY')) {
	die();
} // END - if

// Private function to replace the code
function replaceExpressionCode ($data, $replacer) {
	// Replace the code
	// @TODO is escapeQuotes() enougth for strings with single/double quotes?
	return str_replace($data['matches'][0][$data['key']], $replacer, escapeQuotes($data['code']));
}

// Private function to determine wether we have a special expression function avaible
// (mostly located in wrapper-functions.php)
function isExpressionFunctionAvaiable ($data) {
	// Get the enty we need
	$entry = $data['matches'][4][$data['key']];

	// Do we have cache?
	if (!isset($GLOBALS['expression_function_available'][$entry])) {
		// Init function name
		$functionName = 'get';

		// Explode it in an array
		foreach (explode('_', $entry) as $piece) {
			// Add non-empty parts
			if (!empty($piece)) {
				// Add it
				$functionName .= capitalizeUnderscoreString($piece);
			} // END - if
		} // END - foreach

		// Is that function there?
		if (function_exists($functionName)) {
			// Cache it all
			$GLOBALS['expression_function_name'][$entry] = $functionName;
			$GLOBALS['expression_function_available'][$entry] = true;
		} else {
			// Not avaiable
			logDebugMessage(__FUNCTION__, __LINE__, 'Expression function ' . $functionName . ' not found. Please consider adding it to improve execution speed.');

			// And cache it
			$GLOBALS['expression_function_available'][$entry] = false;
		}
	} elseif ($GLOBALS['expression_function_available'][$entry] == false) {
		// Debug message
		logDebugMessage(__FUNCTION__, __LINE__, 'Expression function for entry ' . $entry . ' requested but not found.');
	}

	// Return cache
	return $GLOBALS['expression_function_available'][$entry];
}

// Getter for above expression function
function getExpressionFunction ($data) {
	// Get the enty we need
	$entry = $data['matches'][4][$data['key']];

	// Return it
	return $GLOBALS['expression_function_name'][$entry];
}

// Expression call-back function for getCode() calls
function doExpressionCode ($data) {
	// Replace the code
	$code = str_replace($data['matches'][0][$data['key']], "{DQUOTE} . getCode('" . $data['matches'][4][$data['key']] . "') . {DQUOTE}", $data['code']);

	// Return replaced code
	return $code;
}

// Expression call-back function for URLs
function doExpressionUrl ($data) {
	// Do we have JS-mode?
	if ($data['callback'] == 'js') $data['mode'] = 1;

	// Handle an URL here
	$replacer = "{DQUOTE} . encodeUrl('" . $data['matches'][4][$data['key']] . "', " . $data['mode'] . ') . {DQUOTE}';

	// Replace it
	$code = replaceExpressionCode($data, $replacer);

	// Return replaced code
	return $code;
}

// Expression call-back function for reading data from $_SERVER
function doExpressionServer ($data) {
	// This will make 'foo_bar' to detectFooBar()
	$functionName = "'detect' . implode('', array_map('ucfirst', explode('_', '" . $data['callback'] . "')))";

	// Generate replacer
	$replacer = '{DQUOTE} . call_user_func(' . $functionName . ') . {DQUOTE}';

	// Replace it
	$code = replaceExpressionCode($data, $replacer);

	// Return replaced code
	return $code;
}

// Expression call-back function for getting extension data
function doExpressionExt ($data) {
	// Not installed is default
	$replacer = 'false';

	// Is the extension installed?
	if (isExtensionInstalled($data['matches'][4][$data['key']])) {
		// Construct call-back function name
		$functionName = 'getExtension' . capitalizeUnderscoreString($data['callback']);

		// Construct call of the function
		$replacer = "{DQUOTE} . call_user_func_array('" . $functionName . "', array('" . $data['matches'][4][$data['key']] . "', true)) . {DQUOTE}";
	} // END - if

	// Generate replacer
	$replacer = sprintf("&amp;ext=%s&amp;ver=%s&amp;rev={?CURRENT_REPOSITORY_REVISION?}", $data['matches'][4][$data['key']], $replacer);

	// Replace it and insert parameter for GET request
	$code = replaceExpressionCode($data, $replacer);

	// Return replaced code
	return $code;
}

// Expression call-back function for getting configuration data
// @TODO FILTER_COMPILE_CONFIG does not handle call-back functions so we handle it here again
function doExpressionConfig ($data) {
	// Do we have a special expression function for it?
	if (isExpressionFunctionAvaiable($data)) {
		// Then use it
		$replacer = '{DQUOTE}  . ' . $data['callback'] . '(' . getExpressionFunction($data) . '()) . {DQUOTE}';
	} else {
		// Default replacer is the config value itself
		$replacer = '{DQUOTE}  . ' . $data['callback'] . '(getConfig(' . "'" . $data['matches'][4][$data['key']] . "'" . ')) . {DQUOTE}';
	}

	// Replace the config entry
	$code = replaceExpressionCode($data, $replacer);

	// Return replaced code
	return $code;
}

// Expression call-back function for piping data through functions
function doExpressionPipe ($data) {
	// We need callback and extra_func: callback is really the call-back function, extra_func is our value
	$replacer = $data['extra_func'];

	// Do we have a call-back? Should always be there!
	if (!empty($data['callback'])) {
		//if ($data['callback'] == 'getMemberId') die('<pre>'.encodeEntities(print_r($data, true)).'</pre>');
		// If the value is empty, we don't add it
		if (empty($data['value'])) {
			// No value is set
			$replacer = '{DQUOTE} . ' . $data['extra_func2'] . '(' . $data['extra_func'] . '(' . $data['callback'] . '())) . {DQUOTE}';
		} else {
			// Some value is set
			$replacer = '{DQUOTE} . ' . $data['extra_func2'] . '(' . $data['extra_func'] . '(' . $data['callback'] . "('" . $data['value'] . "'))) . {DQUOTE}";
		}
	} // END - if

	// Replace the config entry
	$code = replaceExpressionCode($data, $replacer);

	// Return replaced code
	return $code;
}

// Expression call-back function for calling filters
function doExpressionFilter ($data) {
	// Construct replacement
	$replacer = "{DQUOTE} . runFilterChain('" . $data['matches'][4][$data['key']] . "') . {DQUOTE}";

	// Run the filter and insert result
	$code = replaceExpressionCode($data, $replacer);

	// Return replaced code
	return $code;
}

// Expression call-back function for validator links
function doExpressionValidatorLinks ($data) {
	// Default is nothing
	$replacer = '';

	// Get the code from data array for replacement/pipe-through
	$code = $data['code'];

	// Should we generally include validator links?
	if ((isExtensionInstalled('validator')) && (getConfig('enable_validator') == 'Y') && (!in_array(getModule(), array('admin', 'login')))) {
		// Load the validator template
		$replacer = escapeQuotes(loadTemplate('validator_links', true));
	} // END - if

	// Replace the code
	$code = replaceExpressionCode($data, $replacer);

	// Return the (maybe) replaced code
	return $code;
}

// Expression call-back for dynamic messages
function doExpressionMessage ($data) {
	// Debug message
	//* DEBUG: */ logDebugMessage(__FUNCTION__, __LINE__, 'callback=' . $data['callback'] . ',extra_func=' . $data['extra_func'] . ',value=' . $data['value']);

	// Message string replacement depends on if message is masked
	if ((isMessageMasked($data['callback'])) && ((!empty($data['extra_func'])) || ($data['extra_func'] == '0'))) {
		// Message should be masked
		$replacer = "{DQUOTE} . getMaskedMessage('" . $data['callback'] . "', '" . $data['extra_func'] . "') . {DQUOTE}";
	} elseif (!empty($data['value'])) {
		// value is set, so it is masked message
		$replacer = "{DQUOTE} . getMaskedMessage('" . $data['callback'] . "', '" . $data['value'] . "') . {DQUOTE}";
	} else {
		// Regular message
		$replacer = "{DQUOTE} . getMessage('" . $data['callback'] . "') . {DQUOTE}";
	}

	// Replace the code
	$code = replaceExpressionCode($data, $replacer);

	// Return the (maybe) replaced code
	return $code;
}

// Expression call-back for template functions
function doExpressionTemplate ($data) {
	// Construct call-back function name
	$callback = 'doTemplate' . $data['callback'];

	// Init replacer
	$replacer = '<!-- ['.__FUNCTION__.':'.__LINE__.'] Call-back function ' . $callback  . ' does not exist. //-->';

	// Is the function there?
	if (function_exists($callback)) {
		// Do the replacement
		//* DEBUG: */ logDebugMessage(__FUNCTION__, __LINE__, 'template='.$GLOBALS['current_template']);
		$replacer = '{DQUOTE} . ' . $callback . "('" . $GLOBALS['current_template'] . "', true";

		// Is 'value' set?
		if (!empty($data['value'])) {
			// Then include it as well
			$replacer .= ", '" . $data['value'] . "'";
		} // END - if

		// Replacer is ready
		$replacer .= ') . {DQUOTE}';
	} // END - if

	// Replace the code
	$code = replaceExpressionCode($data, $replacer);

	// Return the (maybe) replaced code
	return $code;
}

// Expression call-back for math functions
function doExpressionMath ($data) {
	// Do the replacement
	//* DEBUG: */ logDebugMessage(__FUNCTION__, __LINE__, 'template='.$GLOBALS['current_template']);
	$replacer = '{DQUOTE} . doCalculate' . $data['callback'] . '(' . $data['value'] . ') . {DQUOTE}';

	// Replace the code
	$code = replaceExpressionCode($data, $replacer);

	// Load include once
	loadIncludeOnce('inc/math-functions.php');

	// Return the (maybe) replaced code
	return $code;
}

// Expression call-back for GET request
function doExpressionGet ($data) {
	// Construct the replacer
	$replacer = '{%pipe,getRequestParameter=' . $data['value'] . '%}';

	// Replace the code
	$code = replaceExpressionCode($data, $replacer);

	// Return the (maybe) replaced code
	return $code;
}

// Expression call-back for POST request
function doExpressionPost ($data) {
	// Construct the replacer
	$replacer = '{%pipe,postRequestParameter=' . $data['value'] . '%}';

	// Replace the code
	$code = replaceExpressionCode($data, $replacer);

	// Return the (maybe) replaced code
	return $code;
}

// [EOF]
?>