<?php
/*+**********************************************************************************
 * The contents of this file are subject to the vtiger CRM Public License Version 1.0
 * ("License"); You may not use this file except in compliance with the License
 * The Original Code is:  vtiger CRM Open Source
 * The Initial Developer of the Original Code is vtiger.
 * Portions created by vtiger are Copyright (C) vtiger.
 * All Rights Reserved.
 ************************************************************************************/
require_once("include/Zend/Json.php");

class VTJsonCondition {

	function __construct() {

	}

	function evaluate($condition, $entityCache, $id) {
		$expr = Zend_Json::decode($condition);
		$entityData = $entityCache->forId($id);
		$data = $entityData->getData();

		$groupResults = array();
		$expressionResults = array();
		$i = 0;
		foreach ($expr as $cond) {
			$conditionGroup = $cond['groupid'];
			if (empty($conditionGroup))
				$conditionGroup = 0;
			preg_match('/(\w+) : \((\w+)\) (\w+)/', $cond['fieldname'], $matches);
			if (count($matches) == 0) {
				$expressionResults[$conditionGroup][$i]['result'] = $this->checkCondition($entityData, $cond);
			} else {
				list($full, $referenceField, $referenceModule, $fieldname) = $matches;
				$referenceFieldId = $data[$referenceField];
				if ($referenceFieldId != 0) {
					$entity = $entityCache->forId($data[$referenceField]);
					if ($entity->getModuleName() == $referenceModule) {
						$cond['fieldname'] = $fieldname;
						$expressionResults[$conditionGroup][$i]['result'] = $this->checkCondition($entity, $cond, $entityData);
					} else {
						$expressionResults[$conditionGroup][$i]['result'] = FALSE;
					}
				} else {
					$expressionResults[$conditionGroup][$i]['result'] = FALSE;
				}
			}
			$expressionResults[$conditionGroup][$i + 1]['logicaloperator'] = (!empty($cond['joincondition'])) ? $cond['joincondition'] : 'and';
			$groupResults[$conditionGroup]['logicaloperator'] = (!empty($cond['groupjoin'])) ? $cond['groupjoin'] : 'and';
			$i++;
		}

		foreach ($expressionResults as $groupId => $groupExprResultSet) {
			$groupResult = TRUE;
			foreach ($groupExprResultSet as $exprResult) {
				$result = $exprResult['result'];
				$logicalOperator = $exprResult['logicaloperator'];
				if (isset($result)) { // Condition to skip last condition
					if (!empty($logicalOperator)) {
						switch ($logicalOperator) {
							case 'and' : $groupResult = ($groupResult && $result);
								break;
							case 'or' : $groupResult = ($groupResult || $result);
								break;
						}
					} else { // Case for the first condition
						$groupResult = $result;
					}
				}
			}
			$groupResults[$groupId]['result'] = $groupResult;
		}

		$finalResult = TRUE;
		foreach ($groupResults as $groupId => $groupResult) {
			$result = $groupResult['result'];
			$logicalOperator = $groupResult['logicaloperator'];
			if (isset($result)) { // Condition to skip last condition
				if (!empty($logicalOperator)) {
					switch ($logicalOperator) {
						case 'and' : $finalResult = ($finalResult && $result);
							break;
						case 'or' : $finalResult = ($finalResult || $result);
							break;
					}
				} else { // Case for the first condition
					$finalResult = $result;
				}
			}
		}
		return $finalResult;
	}

	function startsWith($str, $subStr) {
		$sl = strlen($str);
		$ssl = strlen($subStr);
		if ($sl >= $ssl) {
			return substr_compare($str, $subStr, 0, $ssl) == 0;
		} else {
			return FALSE;
		}
	}

	function endsWith($str, $subStr) {
		$sl = strlen($str);
		$ssl = strlen($subStr);
		if ($sl >= $ssl) {
			return substr_compare($str, $subStr, $sl - $ssl, $ssl) == 0;
		} else {
			return FALSE;
		}
	}

	function checkCondition($entityData, $cond, $referredEntityData=null) {
		$data = $entityData->getData();

		$condition = $cond['operation'];
		$fieldValue = $data[$cond['fieldname']];
		$value = trim(html_entity_decode($cond['value']));
		$expressionType = $cond['valuetype'];

		if ($expressionType == 'fieldname') {
			if ($referredEntityData != null) {
				$referredData = $referredEntityData->getData();
			} else {
				$referredData = $data;
			}
			$value = $referredData[$value];
		} elseif ($expressionType == 'expression') {
			require_once 'modules/com_vtiger_workflow/expression_engine/include.inc';

			$parser = new VTExpressionParser(new VTExpressionSpaceFilter(new VTExpressionTokenizer($value)));
			$expression = $parser->expression();
			$exprEvaluater = new VTFieldExpressionEvaluater($expression);
			if ($referredEntityData != null) {
				$value = $exprEvaluater->evaluate($referredEntityData);
			} else {
				$value = $exprEvaluater->evaluate($entityData);
			}
		}

		switch ($condition) {
			case "equal to":
				return $fieldValue == $value;
			case "less than":
				return $fieldValue < $value;
			case "greater than":
				return $fieldValue > $value;
			case "does not equal":
				return $fieldValue != $value;
			case "less than or equal to":
				return $fieldValue <= $value;
			case "greater than or equal to":
				return $fieldValue >= $value;
			case "is":
				if (preg_match('/([^:]+):boolean$/', $value, $match)) {
					$value = $match[1];
					if ($value == 'true') {
						return $fieldValue === 'on' || $fieldValue === 1 || $fieldValue === '1';
					} else {
						return $fieldValue === 'off' || $fieldValue === 0 || $fieldValue === '0' || $fieldValue === '';
					}
				} else {
					return $fieldValue == $value;
				}
			case "is not":
				if (preg_match('/([^:]+):boolean$/', $value, $match)) {
					$value = $match[1];
					if ($value == 'true') {
						return $fieldValue === 'off' || $fieldValue === 0 || $fieldValue === '0' || $fieldValue === '';
					} else {
						return $fieldValue === 'on' || $fieldValue === 1 || $fieldValue === '1';
					}
				} else {
					return $fieldValue != $value;
				}
			case "contains":
				return strpos($fieldValue, $value) !== FALSE;
			case "does not contain":
				return strpos($fieldValue, $value) === FALSE;
			case "starts with":
				return $this->startsWith($fieldValue, $value);
			case "ends with":
				return $this->endsWith($fieldValue, $value);
			case "matches":
				return preg_match($value, $fieldValue);
			case "has changed" :
				$entityDelta = new VTEntityDelta();
				$idParts = vtws_getIdComponents($entityData->getId());
				$hasChanged = $entityDelta->hasChanged($entityData->getModuleName(), $idParts[1], $cond['fieldname']);
				if (empty($value)) {
					return $hasChanged;
				} else {
					return $hasChanged && $fieldValue == $value;
				}
			default:
				//Unexpected condition
				throw new Exception("Found an unexpected condition: " . $condition);
		}
	}

}

?>