<?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::                                                          $ *
 * Needs to be in all Files and every File needs "svn propset           *
 * svn:keywords Date Revision" (autoprobset!) at least!!!!!!            *
 * -------------------------------------------------------------------- *
 * 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']));
}

// 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 fetching user data
function doExpressionUser ($data) {
	// Use current userid by default
	$functionName = 'getMemberId()';

	// User-related data, so is there a userid?
	if (!empty($data['matches'][4][$data['key']])) {
		// Do we have a userid or $userid?
		if ($data['matches'][4][$data['key']] == '$userid') {
			// Use dynamic call
			$functionName = "getFetchedUserData('userid', \$userid, '" . $data['callback'] . "')";
		} elseif ($data['matches'][4][$data['key']] > 0) {
			// User data found
			$functionName = "getFetchedUserData('userid', " . $data['matches'][4][$data['key']] . ", " . $data['callback'] . "')";
		}
	} elseif ((!empty($data['callback'])) && (isUserDataValid())) {
		// "Call-back" alias column for current logged in user's data
		$functionName = "getUserData('" . $data['callback'] . "')";
	}

	// Do we have another function to run (e.g. translations)
	if (!empty($data['extra_func'])) {
		// Surround the original function call with it
		$functionName = $data['extra_func'] . '(' . $functionName . ')';
	} // END - if

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

	// Now replace the code
	$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' . ucfirst(strtolower($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={DQUOTE} . getConfig('CURR_SVN_REVISION') . {DQUOTE}", $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) {
	// 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'];

	// Is the extra_func empty and value set?
	if ((empty($replacer)) && (isset($data['value']))) {
		// Then use this
		$replacer = $data['value'];
	} // END - if

	// Do we have a call-back? Should always be there!
	if (!empty($data['callback'])) {
		// Parse it through this function
		$replacer = '{DQUOTE} . ' . $data['callback'] . "('" . $replacer . "') . {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) {
	// Message string replacement depends on if message is masked
	if (isMessageMasked($data['callback'])) {
		// Message should be masked
		$replacer = "{DQUOTE} . getMaskedMessage('" . $data['callback'] . "', '" . $data['extra_func'] . "') . {DQUOTE}";
	} else {
		// Regular message
		$replacer = "{DQUOTE} . getMessage('" . $data['callback'] . "') . {DQUOTE}";
	}

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

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

// [EOF]
?>