BUG 9087 Adjustment for standardization of code SOLVED
- Adjustment workflow/engine/classes/class.pmScript.php file.
This commit is contained in:
@@ -1,4 +1,5 @@
|
|||||||
<?php
|
<?php
|
||||||
|
|
||||||
/**
|
/**
|
||||||
* class.pmScript.php
|
* class.pmScript.php
|
||||||
* @package workflow.engine.ProcessMaker
|
* @package workflow.engine.ProcessMaker
|
||||||
@@ -38,7 +39,6 @@
|
|||||||
* last modify comment was added and adapted the catch errors
|
* last modify comment was added and adapted the catch errors
|
||||||
* @copyright 2007 COLOSA
|
* @copyright 2007 COLOSA
|
||||||
*/
|
*/
|
||||||
|
|
||||||
function __autoload($sClassName)
|
function __autoload($sClassName)
|
||||||
{
|
{
|
||||||
if (defined('SYS_SYS')) {
|
if (defined('SYS_SYS')) {
|
||||||
@@ -59,12 +59,12 @@ if (class_exists('folderData')) {
|
|||||||
$aAvailablePmFunctions = $oPluginRegistry->getPmFunctions();
|
$aAvailablePmFunctions = $oPluginRegistry->getPmFunctions();
|
||||||
foreach ($aAvailablePmFunctions as $key => $class) {
|
foreach ($aAvailablePmFunctions as $key => $class) {
|
||||||
$filePlugin = PATH_PLUGINS . $class . PATH_SEP . 'classes' . PATH_SEP . 'class.pmFunctions.php';
|
$filePlugin = PATH_PLUGINS . $class . PATH_SEP . 'classes' . PATH_SEP . 'class.pmFunctions.php';
|
||||||
if ( file_exists ( $filePlugin ) )
|
if (file_exists($filePlugin)) {
|
||||||
include_once( $filePlugin);
|
include_once( $filePlugin);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
}
|
||||||
//end plugin
|
//end plugin
|
||||||
|
|
||||||
//Add External Triggers
|
//Add External Triggers
|
||||||
$dir = G::ExpandPath("classes") . 'triggers';
|
$dir = G::ExpandPath("classes") . 'triggers';
|
||||||
$filesArray = array();
|
$filesArray = array();
|
||||||
@@ -73,10 +73,11 @@ if (file_exists($dir)){
|
|||||||
while (false !== ($file = readdir($handle))) {
|
while (false !== ($file = readdir($handle))) {
|
||||||
if (($file != ".") && ($file != "..")) {
|
if (($file != ".") && ($file != "..")) {
|
||||||
$extFile = explode(".", $file);
|
$extFile = explode(".", $file);
|
||||||
if($extFile[sizeof($extFile)-1] == 'php')
|
if ($extFile[sizeof($extFile) - 1] == 'php') {
|
||||||
include_once( $dir . PATH_SEP . $file);
|
include_once( $dir . PATH_SEP . $file);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
}
|
||||||
closedir($handle);
|
closedir($handle);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@@ -88,36 +89,37 @@ if (file_exists($dir)){
|
|||||||
*/
|
*/
|
||||||
class PMScript
|
class PMScript
|
||||||
{
|
{
|
||||||
|
|
||||||
/**
|
/**
|
||||||
* Original fields
|
* Original fields
|
||||||
*/
|
*/
|
||||||
var $aOriginalFields = array();
|
public $aOriginalFields = array();
|
||||||
|
|
||||||
/**
|
/**
|
||||||
* Fields to use
|
* Fields to use
|
||||||
*/
|
*/
|
||||||
var $aFields = array();
|
public $aFields = array();
|
||||||
|
|
||||||
/**
|
/**
|
||||||
* Script
|
* Script
|
||||||
*/
|
*/
|
||||||
var $sScript = '';
|
public $sScript = '';
|
||||||
|
|
||||||
/**
|
/**
|
||||||
* Error has happened?
|
* Error has happened?
|
||||||
*/
|
*/
|
||||||
var $bError = false;
|
public $bError = false;
|
||||||
|
|
||||||
/**
|
/**
|
||||||
* Affected fields
|
* Affected fields
|
||||||
*/
|
*/
|
||||||
var $affected_fields;
|
public $affected_fields;
|
||||||
|
|
||||||
/**
|
/**
|
||||||
* Constructor of the class PMScript
|
* Constructor of the class PMScript
|
||||||
* @return void
|
* @return void
|
||||||
*/
|
*/
|
||||||
function PMScript()
|
public function PMScript()
|
||||||
{
|
{
|
||||||
$this->aFields['__ERROR__'] = 'none';
|
$this->aFields['__ERROR__'] = 'none';
|
||||||
}
|
}
|
||||||
@@ -127,7 +129,7 @@ class PMScript
|
|||||||
* @param array $aFields
|
* @param array $aFields
|
||||||
* @return void
|
* @return void
|
||||||
*/
|
*/
|
||||||
function setFields($aFields = array())
|
public function setFields($aFields=array())
|
||||||
{
|
{
|
||||||
if (!is_array($aFields)) {
|
if (!is_array($aFields)) {
|
||||||
$aFields = array();
|
$aFields = array();
|
||||||
@@ -140,7 +142,7 @@ class PMScript
|
|||||||
* @param string $sScript
|
* @param string $sScript
|
||||||
* @return void
|
* @return void
|
||||||
*/
|
*/
|
||||||
function setScript($sScript = '')
|
public function setScript($sScript='')
|
||||||
{
|
{
|
||||||
$this->sScript = $sScript;
|
$this->sScript = $sScript;
|
||||||
}
|
}
|
||||||
@@ -150,13 +152,13 @@ class PMScript
|
|||||||
* @param string $sScript
|
* @param string $sScript
|
||||||
* @return boolean
|
* @return boolean
|
||||||
*/
|
*/
|
||||||
function validSyntax($sScript)
|
public function validSyntax($sScript)
|
||||||
{
|
{
|
||||||
return true;
|
return true;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
public function executeAndCatchErrors($sScript, $sCode)
|
||||||
function executeAndCatchErrors($sScript, $sCode) {
|
{
|
||||||
ob_start('handleFatalErrors');
|
ob_start('handleFatalErrors');
|
||||||
set_error_handler('handleErrors');
|
set_error_handler('handleErrors');
|
||||||
$_SESSION['_CODE_'] = $sCode;
|
$_SESSION['_CODE_'] = $sCode;
|
||||||
@@ -169,20 +171,21 @@ class PMScript
|
|||||||
* Execute the current script
|
* Execute the current script
|
||||||
* @return void
|
* @return void
|
||||||
*/
|
*/
|
||||||
function execute()
|
public function execute()
|
||||||
{
|
{
|
||||||
$sScript = "";
|
$sScript = "";
|
||||||
$iAux = 0;
|
$iAux = 0;
|
||||||
$bEqual = false;
|
$bEqual = false;
|
||||||
$iOcurrences = preg_match_all('/\@(?:([\@\%\#\?\$\=])([a-zA-Z\_]\w*)|([a-zA-Z\_][\w\-\>\:]*)\(((?:[^\\\\\)]*(?:[\\\\][\w\W])?)*)\))((?:\s*\[[\'"]?\w+[\'"]?\])+)?/', $this->sScript, $aMatch, PREG_PATTERN_ORDER | PREG_OFFSET_CAPTURE);
|
$iOcurrences = preg_match_all( '/\@(?:([\@\%\#\?\$\=])([a-zA-Z\_]\w*)|([a-zA-Z\_][\w\-\>\:]*)\(((?:[^\\\\\)]'
|
||||||
|
. '*(?:[\\\\][\w\W])?)*)\))((?:\s*\[[\'"]?\w+[\'"]?\])+)?/',
|
||||||
|
$this->sScript, $aMatch, PREG_PATTERN_ORDER | PREG_OFFSET_CAPTURE);
|
||||||
if ($iOcurrences) {
|
if ($iOcurrences) {
|
||||||
for ($i = 0; $i < $iOcurrences; $i++) {
|
for ($i = 0; $i < $iOcurrences; $i++) {
|
||||||
$sAux = substr($this->sScript, $iAux, $aMatch[0][$i][1] - $iAux);
|
$sAux = substr($this->sScript, $iAux, $aMatch[0][$i][1] - $iAux);
|
||||||
if (!$bEqual) {
|
if (!$bEqual) {
|
||||||
if (strpos($sAux, '==') !== false) {
|
if (strpos($sAux, '==') !== false) {
|
||||||
$bEqual = false;
|
$bEqual = false;
|
||||||
}
|
} else {
|
||||||
else {
|
|
||||||
if (strpos($sAux, '=') !== false) {
|
if (strpos($sAux, '=') !== false) {
|
||||||
$bEqual = true;
|
$bEqual = true;
|
||||||
}
|
}
|
||||||
@@ -195,30 +198,38 @@ class PMScript
|
|||||||
}
|
}
|
||||||
if ($bEqual) {
|
if ($bEqual) {
|
||||||
if (!isset($aMatch[5][$i][0])) {
|
if (!isset($aMatch[5][$i][0])) {
|
||||||
eval("if (!isset(\$this->aFields['" . $aMatch[2][$i][0] . "'])) { \$this->aFields['" . $aMatch[2][$i][0] . "'] = null; }");
|
eval("if (!isset(\$this->aFields['" . $aMatch[2][$i][0] . "'])) { \$this->aFields['"
|
||||||
}
|
. $aMatch[2][$i][0] . "'] = null; }");
|
||||||
else {
|
} else {
|
||||||
eval("if (!isset(\$this->aFields" . (isset($aMatch[2][$i][0]) ? "['" . $aMatch[2][$i][0] . "']" : '') . $aMatch[5][$i][0] . ")) { \$this->aFields" . (isset($aMatch[2][$i][0]) ? "['" . $aMatch[2][$i][0] . "']" : '') . $aMatch[5][$i][0] . " = null; }");
|
eval( "if (!isset(\$this->aFields"
|
||||||
|
. (isset($aMatch[2][$i][0])
|
||||||
|
? "['" . $aMatch[2][$i][0] . "']"
|
||||||
|
: '') . $aMatch[5][$i][0] . ")) { \$this->aFields"
|
||||||
|
. (isset($aMatch[2][$i][0]) ? "['" . $aMatch[2][$i][0]
|
||||||
|
. "']" : '') . $aMatch[5][$i][0] . " = null; }");
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
$sScript .= $sAux;
|
$sScript .= $sAux;
|
||||||
$iAux = $aMatch[0][$i][1] + strlen($aMatch[0][$i][0]);
|
$iAux = $aMatch[0][$i][1] + strlen($aMatch[0][$i][0]);
|
||||||
switch ($aMatch[1][$i][0])
|
switch ($aMatch[1][$i][0]) {
|
||||||
{ case '@':
|
case '@':
|
||||||
if ($bEqual) {
|
if ($bEqual) {
|
||||||
if (!isset($aMatch[5][$i][0])) {
|
if (!isset($aMatch[5][$i][0])) {
|
||||||
$sScript .= "pmToString(\$this->aFields['" . $aMatch[2][$i][0] . "'])";
|
$sScript .= "pmToString(\$this->aFields['" . $aMatch[2][$i][0] . "'])";
|
||||||
|
} else {
|
||||||
|
$sScript .= "pmToString(\$this->aFields"
|
||||||
|
. (isset($aMatch[2][$i][0])
|
||||||
|
? "['" . $aMatch[2][$i][0] . "']"
|
||||||
|
: '') . $aMatch[5][$i][0] . ")";
|
||||||
}
|
}
|
||||||
else {
|
} else {
|
||||||
$sScript .= "pmToString(\$this->aFields" . (isset($aMatch[2][$i][0]) ? "['" . $aMatch[2][$i][0] . "']" : '') . $aMatch[5][$i][0] . ")";
|
|
||||||
}
|
|
||||||
}
|
|
||||||
else{
|
|
||||||
if (!isset($aMatch[5][$i][0])) {
|
if (!isset($aMatch[5][$i][0])) {
|
||||||
$sScript .= "\$this->aFields['" . $aMatch[2][$i][0] . "']";
|
$sScript .= "\$this->aFields['" . $aMatch[2][$i][0] . "']";
|
||||||
}
|
} else {
|
||||||
else {
|
$sScript .= "\$this->aFields"
|
||||||
$sScript .= "\$this->aFields" . (isset($aMatch[2][$i][0]) ? "['" . $aMatch[2][$i][0] . "']" : '') . $aMatch[5][$i][0];
|
. (isset($aMatch[2][$i][0])
|
||||||
|
? "['" . $aMatch[2][$i][0] . "']"
|
||||||
|
: '') . $aMatch[5][$i][0];
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
@@ -226,17 +237,20 @@ class PMScript
|
|||||||
if ($bEqual) {
|
if ($bEqual) {
|
||||||
if (!isset($aMatch[5][$i][0])) {
|
if (!isset($aMatch[5][$i][0])) {
|
||||||
$sScript .= "pmToInteger(\$this->aFields['" . $aMatch[2][$i][0] . "'])";
|
$sScript .= "pmToInteger(\$this->aFields['" . $aMatch[2][$i][0] . "'])";
|
||||||
|
} else {
|
||||||
|
$sScript .= "pmToInteger(\$this->aFields"
|
||||||
|
. (isset($aMatch[2][$i][0])
|
||||||
|
? "['" . $aMatch[2][$i][0] . "']"
|
||||||
|
: '') . $aMatch[5][$i][0] . ")";
|
||||||
}
|
}
|
||||||
else {
|
} else {
|
||||||
$sScript .= "pmToInteger(\$this->aFields" . (isset($aMatch[2][$i][0]) ? "['" . $aMatch[2][$i][0] . "']" : '') . $aMatch[5][$i][0] . ")";
|
|
||||||
}
|
|
||||||
}
|
|
||||||
else{
|
|
||||||
if (!isset($aMatch[5][$i][0])) {
|
if (!isset($aMatch[5][$i][0])) {
|
||||||
$sScript .= "\$this->aFields['" . $aMatch[2][$i][0] . "']";
|
$sScript .= "\$this->aFields['" . $aMatch[2][$i][0] . "']";
|
||||||
}
|
} else {
|
||||||
else {
|
$sScript .= "\$this->aFields"
|
||||||
$sScript .= "\$this->aFields" . (isset($aMatch[2][$i][0]) ? "['" . $aMatch[2][$i][0] . "']" : '') . $aMatch[5][$i][0];
|
. (isset($aMatch[2][$i][0])
|
||||||
|
? "['" . $aMatch[2][$i][0] . "']"
|
||||||
|
: '') . $aMatch[5][$i][0];
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
@@ -244,17 +258,20 @@ class PMScript
|
|||||||
if ($bEqual) {
|
if ($bEqual) {
|
||||||
if (!isset($aMatch[5][$i][0])) {
|
if (!isset($aMatch[5][$i][0])) {
|
||||||
$sScript .= "pmToFloat(\$this->aFields['" . $aMatch[2][$i][0] . "'])";
|
$sScript .= "pmToFloat(\$this->aFields['" . $aMatch[2][$i][0] . "'])";
|
||||||
|
} else {
|
||||||
|
$sScript .= "pmToFloat(\$this->aFields"
|
||||||
|
. (isset($aMatch[2][$i][0])
|
||||||
|
? "['" . $aMatch[2][$i][0] . "']"
|
||||||
|
: '') . $aMatch[5][$i][0] . ")";
|
||||||
}
|
}
|
||||||
else {
|
} else {
|
||||||
$sScript .= "pmToFloat(\$this->aFields" . (isset($aMatch[2][$i][0]) ? "['" . $aMatch[2][$i][0] . "']" : '') . $aMatch[5][$i][0] . ")";
|
|
||||||
}
|
|
||||||
}
|
|
||||||
else{
|
|
||||||
if (!isset($aMatch[5][$i][0])) {
|
if (!isset($aMatch[5][$i][0])) {
|
||||||
$sScript .= "\$this->aFields['" . $aMatch[2][$i][0] . "']";
|
$sScript .= "\$this->aFields['" . $aMatch[2][$i][0] . "']";
|
||||||
}
|
} else {
|
||||||
else {
|
$sScript .= "\$this->aFields"
|
||||||
$sScript .= "\$this->aFields" . (isset($aMatch[2][$i][0]) ? "['" . $aMatch[2][$i][0] . "']" : '') . $aMatch[5][$i][0];
|
. (isset($aMatch[2][$i][0])
|
||||||
|
? "['" . $aMatch[2][$i][0] . "']"
|
||||||
|
: '') . $aMatch[5][$i][0];
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
@@ -262,17 +279,20 @@ class PMScript
|
|||||||
if ($bEqual) {
|
if ($bEqual) {
|
||||||
if (!isset($aMatch[5][$i][0])) {
|
if (!isset($aMatch[5][$i][0])) {
|
||||||
$sScript .= "pmToUrl(\$this->aFields['" . $aMatch[2][$i][0] . "'])";
|
$sScript .= "pmToUrl(\$this->aFields['" . $aMatch[2][$i][0] . "'])";
|
||||||
|
} else {
|
||||||
|
$sScript .= "pmToUrl(\$this->aFields"
|
||||||
|
. (isset($aMatch[2][$i][0])
|
||||||
|
? "['" . $aMatch[2][$i][0] . "']"
|
||||||
|
: '') . $aMatch[5][$i][0] . ")";
|
||||||
}
|
}
|
||||||
else {
|
} else {
|
||||||
$sScript .= "pmToUrl(\$this->aFields" . (isset($aMatch[2][$i][0]) ? "['" . $aMatch[2][$i][0] . "']" : '') . $aMatch[5][$i][0] . ")";
|
|
||||||
}
|
|
||||||
}
|
|
||||||
else{
|
|
||||||
if (!isset($aMatch[5][$i][0])) {
|
if (!isset($aMatch[5][$i][0])) {
|
||||||
$sScript .= "\$this->aFields['" . $aMatch[2][$i][0] . "']";
|
$sScript .= "\$this->aFields['" . $aMatch[2][$i][0] . "']";
|
||||||
}
|
} else {
|
||||||
else {
|
$sScript .= "\$this->aFields"
|
||||||
$sScript .= "\$this->aFields" . (isset($aMatch[2][$i][0]) ? "['" . $aMatch[2][$i][0] . "']" : '') . $aMatch[5][$i][0];
|
. (isset($aMatch[2][$i][0])
|
||||||
|
? "['" . $aMatch[2][$i][0] . "']"
|
||||||
|
: '') . $aMatch[5][$i][0];
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
@@ -280,17 +300,20 @@ class PMScript
|
|||||||
if ($bEqual) {
|
if ($bEqual) {
|
||||||
if (!isset($aMatch[5][$i][0])) {
|
if (!isset($aMatch[5][$i][0])) {
|
||||||
$sScript .= "pmSqlEscape(\$this->aFields['" . $aMatch[2][$i][0] . "'])";
|
$sScript .= "pmSqlEscape(\$this->aFields['" . $aMatch[2][$i][0] . "'])";
|
||||||
|
} else {
|
||||||
|
$sScript .= "pmSqlEscape(\$this->aFields"
|
||||||
|
. (isset($aMatch[2][$i][0])
|
||||||
|
? "['" . $aMatch[2][$i][0] . "']"
|
||||||
|
: '') . $aMatch[5][$i][0] . ")";
|
||||||
}
|
}
|
||||||
else {
|
} else {
|
||||||
$sScript .= "pmSqlEscape(\$this->aFields" . (isset($aMatch[2][$i][0]) ? "['" . $aMatch[2][$i][0] . "']" : '') . $aMatch[5][$i][0] . ")";
|
|
||||||
}
|
|
||||||
}
|
|
||||||
else{
|
|
||||||
if (!isset($aMatch[5][$i][0])) {
|
if (!isset($aMatch[5][$i][0])) {
|
||||||
$sScript .= "\$this->aFields['" . $aMatch[2][$i][0] . "']";
|
$sScript .= "\$this->aFields['" . $aMatch[2][$i][0] . "']";
|
||||||
}
|
} else {
|
||||||
else {
|
$sScript .= "\$this->aFields"
|
||||||
$sScript .= "\$this->aFields" . (isset($aMatch[2][$i][0]) ? "['" . $aMatch[2][$i][0] . "']" : '') . $aMatch[5][$i][0];
|
. (isset($aMatch[2][$i][0])
|
||||||
|
? "['" . $aMatch[2][$i][0] . "']"
|
||||||
|
: '') . $aMatch[5][$i][0];
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
@@ -298,17 +321,20 @@ class PMScript
|
|||||||
if ($bEqual) {
|
if ($bEqual) {
|
||||||
if (!isset($aMatch[5][$i][0])) {
|
if (!isset($aMatch[5][$i][0])) {
|
||||||
$sScript .= "\$this->aFields['" . $aMatch[2][$i][0] . "']";
|
$sScript .= "\$this->aFields['" . $aMatch[2][$i][0] . "']";
|
||||||
|
} else {
|
||||||
|
$sScript .= "\$this->aFields"
|
||||||
|
. (isset($aMatch[2][$i][0])
|
||||||
|
? "['" . $aMatch[2][$i][0] . "']"
|
||||||
|
: '') . $aMatch[5][$i][0];
|
||||||
}
|
}
|
||||||
else {
|
} else {
|
||||||
$sScript .= "\$this->aFields" . (isset($aMatch[2][$i][0]) ? "['" . $aMatch[2][$i][0] . "']" : '') . $aMatch[5][$i][0];
|
|
||||||
}
|
|
||||||
}
|
|
||||||
else{
|
|
||||||
if (!isset($aMatch[5][$i][0])) {
|
if (!isset($aMatch[5][$i][0])) {
|
||||||
$sScript .= "\$this->aFields['" . $aMatch[2][$i][0] . "']";
|
$sScript .= "\$this->aFields['" . $aMatch[2][$i][0] . "']";
|
||||||
}
|
} else {
|
||||||
else {
|
$sScript .= "\$this->aFields"
|
||||||
$sScript .= "\$this->aFields" . (isset($aMatch[2][$i][0]) ? "['" . $aMatch[2][$i][0] . "']" : '') . $aMatch[5][$i][0];
|
. (isset($aMatch[2][$i][0])
|
||||||
|
? "['" . $aMatch[2][$i][0] . "']"
|
||||||
|
: '') . $aMatch[5][$i][0];
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
@@ -317,13 +343,16 @@ class PMScript
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
$sScript .= substr($this->sScript, $iAux);
|
$sScript .= substr($this->sScript, $iAux);
|
||||||
$sScript = "try {\n" . $sScript . "\n} catch (Exception \$oException) {\n \$this->aFields['__ERROR__'] = utf8_encode(\$oException->getMessage());\n}";
|
$sScript = "try {\n" . $sScript . "\n} catch (Exception \$oException) {\n "
|
||||||
|
. " \$this->aFields['__ERROR__'] = utf8_encode(\$oException->getMessage());\n}";
|
||||||
//echo '<pre>-->'; print_r($this->aFields); echo '<---</pre>';
|
//echo '<pre>-->'; print_r($this->aFields); echo '<---</pre>';
|
||||||
$this->executeAndCatchErrors($sScript, $this->sScript);
|
$this->executeAndCatchErrors($sScript, $this->sScript);
|
||||||
for ($i = 0; $i < count($this->affected_fields); $i++) {
|
for ($i = 0; $i < count($this->affected_fields); $i++) {
|
||||||
$_SESSION['TRIGGER_DEBUG']['DATA'][] = Array(
|
$_SESSION['TRIGGER_DEBUG']['DATA'][] = Array(
|
||||||
'key' => $this->affected_fields[$i],
|
'key' => $this->affected_fields[$i],
|
||||||
'value' => isset($this->aFields[$this->affected_fields[$i]]) ? $this->aFields[$this->affected_fields[$i]] : ''
|
'value' => isset($this->aFields[$this->affected_fields[$i]])
|
||||||
|
? $this->aFields[$this->affected_fields[$i]]
|
||||||
|
: ''
|
||||||
);
|
);
|
||||||
}
|
}
|
||||||
//echo '<pre>-->'; print_r($_SESSION['TRIGGER_DEBUG']['DATA']); echo '<---</pre>';
|
//echo '<pre>-->'; print_r($_SESSION['TRIGGER_DEBUG']['DATA']); echo '<---</pre>';
|
||||||
@@ -333,17 +362,20 @@ class PMScript
|
|||||||
* Evaluate the current script
|
* Evaluate the current script
|
||||||
* @return void
|
* @return void
|
||||||
*/
|
*/
|
||||||
function evaluate()
|
public function evaluate()
|
||||||
{
|
{
|
||||||
$bResult = null;
|
$bResult = null;
|
||||||
$sScript = '';
|
$sScript = '';
|
||||||
$iAux = 0;
|
$iAux = 0;
|
||||||
$bEqual = false;
|
$bEqual = false;
|
||||||
$variableIsDefined = true;
|
$variableIsDefined = true;
|
||||||
$iOcurrences = preg_match_all('/\@(?:([\@\%\#\?\$\=])([a-zA-Z\_]\w*)|([a-zA-Z\_][\w\-\>\:]*)\(((?:[^\\\\\)]*(?:[\\\\][\w\W])?)*)\))((?:\s*\[[\'"]?\w+[\'"]?\])+)?/', $this->sScript, $aMatch, PREG_PATTERN_ORDER | PREG_OFFSET_CAPTURE);
|
$iOcurrences = preg_match_all('/\@(?:([\@\%\#\?\$\=])([a-zA-Z\_]\w*)|([a-zA-Z\_][\w\-\>\:]*)\(((?:[^\\\\\)]'
|
||||||
|
. '*(?:[\\\\][\w\W])?)*)\))((?:\s*\[[\'"]?\w+[\'"]?\])+)?/',
|
||||||
|
$this->sScript, $aMatch, PREG_PATTERN_ORDER | PREG_OFFSET_CAPTURE);
|
||||||
if ($iOcurrences) {
|
if ($iOcurrences) {
|
||||||
for ($i = 0; $i < $iOcurrences; $i++) {
|
for ($i = 0; $i < $iOcurrences; $i++) {
|
||||||
// if the variables for that condition has not been previously defined then $variableIsDefined is set to false
|
// if the variables for that condition has not been previously defined then $variableIsDefined
|
||||||
|
// is set to false
|
||||||
if (!isset($this->aFields[$aMatch[2][$i][0]])) {
|
if (!isset($this->aFields[$aMatch[2][$i][0]])) {
|
||||||
// $variableIsDefined = false;
|
// $variableIsDefined = false;
|
||||||
$this->aFields[$aMatch[2][$i][0]] = '';
|
$this->aFields[$aMatch[2][$i][0]] = '';
|
||||||
@@ -355,8 +387,7 @@ class PMScript
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
if ($bEqual) {
|
if ($bEqual) {
|
||||||
if (strpos($sAux, ';') !== false)
|
if (strpos($sAux, ';') !== false) {
|
||||||
{
|
|
||||||
$bEqual = false;
|
$bEqual = false;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@@ -367,17 +398,20 @@ class PMScript
|
|||||||
if ($bEqual) {
|
if ($bEqual) {
|
||||||
if (!isset($aMatch[5][$i][0])) {
|
if (!isset($aMatch[5][$i][0])) {
|
||||||
$sScript .= "pmToString(\$this->aFields['" . $aMatch[2][$i][0] . "'])";
|
$sScript .= "pmToString(\$this->aFields['" . $aMatch[2][$i][0] . "'])";
|
||||||
|
} else {
|
||||||
|
$sScript .= "pmToString(\$this->aFields"
|
||||||
|
. (isset($aMatch[2][$i][0])
|
||||||
|
? "['" . $aMatch[2][$i][0] . "']"
|
||||||
|
: '') . $aMatch[5][$i][0] . ")";
|
||||||
}
|
}
|
||||||
else {
|
} else {
|
||||||
$sScript .= "pmToString(\$this->aFields" . (isset($aMatch[2][$i][0]) ? "['" . $aMatch[2][$i][0] . "']" : '') . $aMatch[5][$i][0] . ")";
|
|
||||||
}
|
|
||||||
}
|
|
||||||
else{
|
|
||||||
if (!isset($aMatch[5][$i][0])) {
|
if (!isset($aMatch[5][$i][0])) {
|
||||||
$sScript .= "\$this->aFields['" . $aMatch[2][$i][0] . "']";
|
$sScript .= "\$this->aFields['" . $aMatch[2][$i][0] . "']";
|
||||||
}
|
} else {
|
||||||
else {
|
$sScript .= "\$this->aFields"
|
||||||
$sScript .= "\$this->aFields" . (isset($aMatch[2][$i][0]) ? "['" . $aMatch[2][$i][0] . "']" : '') . $aMatch[5][$i][0];
|
. (isset($aMatch[2][$i][0])
|
||||||
|
? "['" . $aMatch[2][$i][0] . "']"
|
||||||
|
: '') . $aMatch[5][$i][0];
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
@@ -385,17 +419,20 @@ class PMScript
|
|||||||
if ($bEqual) {
|
if ($bEqual) {
|
||||||
if (!isset($aMatch[5][$i][0])) {
|
if (!isset($aMatch[5][$i][0])) {
|
||||||
$sScript .= "pmToInteger(\$this->aFields['" . $aMatch[2][$i][0] . "'])";
|
$sScript .= "pmToInteger(\$this->aFields['" . $aMatch[2][$i][0] . "'])";
|
||||||
|
} else {
|
||||||
|
$sScript .= "pmToInteger(\$this->aFields"
|
||||||
|
. (isset($aMatch[2][$i][0])
|
||||||
|
? "['" . $aMatch[2][$i][0] . "']"
|
||||||
|
: '') . $aMatch[5][$i][0] . ")";
|
||||||
}
|
}
|
||||||
else {
|
} else {
|
||||||
$sScript .= "pmToInteger(\$this->aFields" . (isset($aMatch[2][$i][0]) ? "['" . $aMatch[2][$i][0] . "']" : '') . $aMatch[5][$i][0] . ")";
|
|
||||||
}
|
|
||||||
}
|
|
||||||
else{
|
|
||||||
if (!isset($aMatch[5][$i][0])) {
|
if (!isset($aMatch[5][$i][0])) {
|
||||||
$sScript .= "\$this->aFields['" . $aMatch[2][$i][0] . "']";
|
$sScript .= "\$this->aFields['" . $aMatch[2][$i][0] . "']";
|
||||||
}
|
} else {
|
||||||
else {
|
$sScript .= "\$this->aFields"
|
||||||
$sScript .= "\$this->aFields" . (isset($aMatch[2][$i][0]) ? "['" . $aMatch[2][$i][0] . "']" : '') . $aMatch[5][$i][0];
|
. (isset($aMatch[2][$i][0])
|
||||||
|
? "['" . $aMatch[2][$i][0] . "']"
|
||||||
|
: '') . $aMatch[5][$i][0];
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
@@ -403,17 +440,20 @@ class PMScript
|
|||||||
if ($bEqual) {
|
if ($bEqual) {
|
||||||
if (!isset($aMatch[5][$i][0])) {
|
if (!isset($aMatch[5][$i][0])) {
|
||||||
$sScript .= "pmToFloat(\$this->aFields['" . $aMatch[2][$i][0] . "'])";
|
$sScript .= "pmToFloat(\$this->aFields['" . $aMatch[2][$i][0] . "'])";
|
||||||
|
} else {
|
||||||
|
$sScript .= "pmToFloat(\$this->aFields"
|
||||||
|
. (isset($aMatch[2][$i][0])
|
||||||
|
? "['" . $aMatch[2][$i][0] . "']"
|
||||||
|
: '') . $aMatch[5][$i][0] . ")";
|
||||||
}
|
}
|
||||||
else {
|
} else {
|
||||||
$sScript .= "pmToFloat(\$this->aFields" . (isset($aMatch[2][$i][0]) ? "['" . $aMatch[2][$i][0] . "']" : '') . $aMatch[5][$i][0] . ")";
|
|
||||||
}
|
|
||||||
}
|
|
||||||
else{
|
|
||||||
if (!isset($aMatch[5][$i][0])) {
|
if (!isset($aMatch[5][$i][0])) {
|
||||||
$sScript .= "\$this->aFields['" . $aMatch[2][$i][0] . "']";
|
$sScript .= "\$this->aFields['" . $aMatch[2][$i][0] . "']";
|
||||||
}
|
} else {
|
||||||
else {
|
$sScript .= "\$this->aFields"
|
||||||
$sScript .= "\$this->aFields" . (isset($aMatch[2][$i][0]) ? "['" . $aMatch[2][$i][0] . "']" : '') . $aMatch[5][$i][0];
|
. (isset($aMatch[2][$i][0])
|
||||||
|
? "['" . $aMatch[2][$i][0] . "']"
|
||||||
|
: '') . $aMatch[5][$i][0];
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
@@ -421,17 +461,20 @@ class PMScript
|
|||||||
if ($bEqual) {
|
if ($bEqual) {
|
||||||
if (!isset($aMatch[5][$i][0])) {
|
if (!isset($aMatch[5][$i][0])) {
|
||||||
$sScript .= "pmToUrl(\$this->aFields['" . $aMatch[2][$i][0] . "'])";
|
$sScript .= "pmToUrl(\$this->aFields['" . $aMatch[2][$i][0] . "'])";
|
||||||
|
} else {
|
||||||
|
$sScript .= "pmToUrl(\$this->aFields"
|
||||||
|
. (isset($aMatch[2][$i][0])
|
||||||
|
? "['" . $aMatch[2][$i][0] . "']"
|
||||||
|
: '') . $aMatch[5][$i][0] . ")";
|
||||||
}
|
}
|
||||||
else {
|
} else {
|
||||||
$sScript .= "pmToUrl(\$this->aFields" . (isset($aMatch[2][$i][0]) ? "['" . $aMatch[2][$i][0] . "']" : '') . $aMatch[5][$i][0] . ")";
|
|
||||||
}
|
|
||||||
}
|
|
||||||
else{
|
|
||||||
if (!isset($aMatch[5][$i][0])) {
|
if (!isset($aMatch[5][$i][0])) {
|
||||||
$sScript .= "\$this->aFields['" . $aMatch[2][$i][0] . "']";
|
$sScript .= "\$this->aFields['" . $aMatch[2][$i][0] . "']";
|
||||||
}
|
} else {
|
||||||
else {
|
$sScript .= "\$this->aFields"
|
||||||
$sScript .= "\$this->aFields" . (isset($aMatch[2][$i][0]) ? "['" . $aMatch[2][$i][0] . "']" : '') . $aMatch[5][$i][0];
|
. (isset($aMatch[2][$i][0])
|
||||||
|
? "['" . $aMatch[2][$i][0] . "']"
|
||||||
|
: '') . $aMatch[5][$i][0];
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
@@ -439,17 +482,20 @@ class PMScript
|
|||||||
if ($bEqual) {
|
if ($bEqual) {
|
||||||
if (!isset($aMatch[5][$i][0])) {
|
if (!isset($aMatch[5][$i][0])) {
|
||||||
$sScript .= "pmSqlEscape(\$this->aFields['" . $aMatch[2][$i][0] . "'])";
|
$sScript .= "pmSqlEscape(\$this->aFields['" . $aMatch[2][$i][0] . "'])";
|
||||||
|
} else {
|
||||||
|
$sScript .= "pmSqlEscape(\$this->aFields"
|
||||||
|
. (isset($aMatch[2][$i][0])
|
||||||
|
? "['" . $aMatch[2][$i][0] . "']"
|
||||||
|
: '') . $aMatch[5][$i][0] . ")";
|
||||||
}
|
}
|
||||||
else {
|
} else {
|
||||||
$sScript .= "pmSqlEscape(\$this->aFields" . (isset($aMatch[2][$i][0]) ? "['" . $aMatch[2][$i][0] . "']" : '') . $aMatch[5][$i][0] . ")";
|
|
||||||
}
|
|
||||||
}
|
|
||||||
else{
|
|
||||||
if (!isset($aMatch[5][$i][0])) {
|
if (!isset($aMatch[5][$i][0])) {
|
||||||
$sScript .= "\$this->aFields['" . $aMatch[2][$i][0] . "']";
|
$sScript .= "\$this->aFields['" . $aMatch[2][$i][0] . "']";
|
||||||
}
|
} else {
|
||||||
else {
|
$sScript .= "\$this->aFields"
|
||||||
$sScript .= "\$this->aFields" . (isset($aMatch[2][$i][0]) ? "['" . $aMatch[2][$i][0] . "']" : '') . $aMatch[5][$i][0];
|
. (isset($aMatch[2][$i][0])
|
||||||
|
? "['" . $aMatch[2][$i][0] . "']"
|
||||||
|
: '') . $aMatch[5][$i][0];
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
@@ -457,17 +503,20 @@ class PMScript
|
|||||||
if ($bEqual) {
|
if ($bEqual) {
|
||||||
if (!isset($aMatch[5][$i][0])) {
|
if (!isset($aMatch[5][$i][0])) {
|
||||||
$sScript .= "\$this->aFields['" . $aMatch[2][$i][0] . "']";
|
$sScript .= "\$this->aFields['" . $aMatch[2][$i][0] . "']";
|
||||||
|
} else {
|
||||||
|
$sScript .= "\$this->aFields"
|
||||||
|
. (isset($aMatch[2][$i][0])
|
||||||
|
? "['" . $aMatch[2][$i][0] . "']"
|
||||||
|
: '') . $aMatch[5][$i][0];
|
||||||
}
|
}
|
||||||
else {
|
} else {
|
||||||
$sScript .= "\$this->aFields" . (isset($aMatch[2][$i][0]) ? "['" . $aMatch[2][$i][0] . "']" : '') . $aMatch[5][$i][0];
|
|
||||||
}
|
|
||||||
}
|
|
||||||
else{
|
|
||||||
if (!isset($aMatch[5][$i][0])) {
|
if (!isset($aMatch[5][$i][0])) {
|
||||||
$sScript .= "\$this->aFields['" . $aMatch[2][$i][0] . "']";
|
$sScript .= "\$this->aFields['" . $aMatch[2][$i][0] . "']";
|
||||||
}
|
} else {
|
||||||
else {
|
$sScript .= "\$this->aFields"
|
||||||
$sScript .= "\$this->aFields" . (isset($aMatch[2][$i][0]) ? "['" . $aMatch[2][$i][0] . "']" : '') . $aMatch[5][$i][0];
|
. (isset($aMatch[2][$i][0])
|
||||||
|
? "['" . $aMatch[2][$i][0] . "']"
|
||||||
|
: '') . $aMatch[5][$i][0];
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
@@ -480,8 +529,7 @@ class PMScript
|
|||||||
if ($this->validSyntax($sScript) && $variableIsDefined) {
|
if ($this->validSyntax($sScript) && $variableIsDefined) {
|
||||||
$this->bError = false;
|
$this->bError = false;
|
||||||
eval($sScript);
|
eval($sScript);
|
||||||
}
|
} else {
|
||||||
else{
|
|
||||||
// echo "<script> alert('".G::loadTranslation('MSG_CONDITION_NOT_DEFINED')."'); </script>";
|
// echo "<script> alert('".G::loadTranslation('MSG_CONDITION_NOT_DEFINED')."'); </script>";
|
||||||
G::SendTemporalMessage('MSG_CONDITION_NOT_DEFINED', 'error', 'labels');
|
G::SendTemporalMessage('MSG_CONDITION_NOT_DEFINED', 'error', 'labels');
|
||||||
$this->bError = true;
|
$this->bError = true;
|
||||||
@@ -575,6 +623,7 @@ function handleErrors($errno, $errstr, $errfile, $errline)
|
|||||||
* @param variant $buffer
|
* @param variant $buffer
|
||||||
* @return buffer
|
* @return buffer
|
||||||
*/
|
*/
|
||||||
|
|
||||||
function handleFatalErrors($buffer)
|
function handleFatalErrors($buffer)
|
||||||
{
|
{
|
||||||
if (preg_match('/(error<\/b>:)(.+)(<br)/', $buffer, $regs)) {
|
if (preg_match('/(error<\/b>:)(.+)(<br)/', $buffer, $regs)) {
|
||||||
@@ -587,7 +636,10 @@ function handleFatalErrors($buffer)
|
|||||||
if (strpos($_SERVER['REQUEST_URI'], '&ACTION=GENERATE') !== false) {
|
if (strpos($_SERVER['REQUEST_URI'], '&ACTION=GENERATE') !== false) {
|
||||||
G::LoadClass('case');
|
G::LoadClass('case');
|
||||||
$oCase = new Cases();
|
$oCase = new Cases();
|
||||||
$aNextStep = $oCase->getNextStep($_SESSION['PROCESS'], $_SESSION['APPLICATION'], $_SESSION['INDEX'], $_SESSION['STEP_POSITION']);
|
$aNextStep = $oCase->getNextStep($_SESSION['PROCESS'],
|
||||||
|
$_SESSION['APPLICATION'],
|
||||||
|
$_SESSION['INDEX'],
|
||||||
|
$_SESSION['STEP_POSITION']);
|
||||||
if ($_SESSION['TRIGGER_DEBUG']['ISSET']) {
|
if ($_SESSION['TRIGGER_DEBUG']['ISSET']) {
|
||||||
$_SESSION['TRIGGER_DEBUG']['TIME'] = 'AFTER';
|
$_SESSION['TRIGGER_DEBUG']['TIME'] = 'AFTER';
|
||||||
$_SESSION['TRIGGER_DEBUG']['BREAKPAGE'] = $aNextStep['PAGE'];
|
$_SESSION['TRIGGER_DEBUG']['BREAKPAGE'] = $aNextStep['PAGE'];
|
||||||
@@ -599,11 +651,13 @@ function handleFatalErrors($buffer)
|
|||||||
$_SESSION['_NO_EXECUTE_TRIGGERS_'] = 1;
|
$_SESSION['_NO_EXECUTE_TRIGGERS_'] = 1;
|
||||||
G::header('Location: ' . $_SERVER['REQUEST_URI']);
|
G::header('Location: ' . $_SERVER['REQUEST_URI']);
|
||||||
die;
|
die;
|
||||||
}
|
} else {
|
||||||
else {
|
|
||||||
G::LoadClass('case');
|
G::LoadClass('case');
|
||||||
$oCase = new Cases();
|
$oCase = new Cases();
|
||||||
$aNextStep = $oCase->getNextStep($_SESSION['PROCESS'], $_SESSION['APPLICATION'], $_SESSION['INDEX'], $_SESSION['STEP_POSITION']);
|
$aNextStep = $oCase->getNextStep($_SESSION['PROCESS'],
|
||||||
|
$_SESSION['APPLICATION'],
|
||||||
|
$_SESSION['INDEX'],
|
||||||
|
$_SESSION['STEP_POSITION']);
|
||||||
if ($_SESSION['TRIGGER_DEBUG']['ISSET']) {
|
if ($_SESSION['TRIGGER_DEBUG']['ISSET']) {
|
||||||
$_SESSION['TRIGGER_DEBUG']['TIME'] = 'AFTER';
|
$_SESSION['TRIGGER_DEBUG']['TIME'] = 'AFTER';
|
||||||
$_SESSION['TRIGGER_DEBUG']['BREAKPAGE'] = $aNextStep['PAGE'];
|
$_SESSION['TRIGGER_DEBUG']['BREAKPAGE'] = $aNextStep['PAGE'];
|
||||||
@@ -618,6 +672,7 @@ function handleFatalErrors($buffer)
|
|||||||
}
|
}
|
||||||
return $buffer;
|
return $buffer;
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Register Error
|
* Register Error
|
||||||
* @param string $iType
|
* @param string $iType
|
||||||
@@ -626,10 +681,12 @@ function handleFatalErrors($buffer)
|
|||||||
* @param string $sCode
|
* @param string $sCode
|
||||||
* @return void
|
* @return void
|
||||||
*/
|
*/
|
||||||
|
|
||||||
function registerError($iType, $sError, $iLine, $sCode)
|
function registerError($iType, $sError, $iLine, $sCode)
|
||||||
{
|
{
|
||||||
$sType = ($iType == 1 ? 'ERROR' : 'FATAL');
|
$sType = ($iType == 1 ? 'ERROR' : 'FATAL');
|
||||||
$_SESSION['TRIGGER_DEBUG']['ERRORS'][][$sType] = $sError . ($iLine > 0 ? ' (line ' . $iLine . ')' : '') . ':<br /><br />' . $sCode;
|
$_SESSION['TRIGGER_DEBUG']['ERRORS'][][$sType] = $sError . ($iLine > 0 ? ' (line ' . $iLine . ')' : '')
|
||||||
|
. ':<br /><br />' . $sCode;
|
||||||
}
|
}
|
||||||
|
|
||||||
/**
|
/**
|
||||||
@@ -660,10 +717,10 @@ function executeQueryOci($sql, $connection, $aParameter = array())
|
|||||||
$sDatabse = $aDNS["database"];
|
$sDatabse = $aDNS["database"];
|
||||||
$sPort = $aDNS["port"];
|
$sPort = $aDNS["port"];
|
||||||
|
|
||||||
if ($sPort != "1521") { // if not default port
|
if ($sPort != "1521") {
|
||||||
|
// if not default port
|
||||||
$conn = oci_connect($sUsername, $sPassword, $sHostspec . ":" . $sPort . "/" . $sDatabse);
|
$conn = oci_connect($sUsername, $sPassword, $sHostspec . ":" . $sPort . "/" . $sDatabse);
|
||||||
}
|
} else {
|
||||||
else {
|
|
||||||
$conn = oci_connect($sUsername, $sPassword, $sHostspec . "/" . $sDatabse);
|
$conn = oci_connect($sUsername, $sPassword, $sHostspec . "/" . $sDatabse);
|
||||||
}
|
}
|
||||||
|
|
||||||
@@ -703,8 +760,7 @@ function executeQueryOci($sql, $connection, $aParameter = array())
|
|||||||
$objExecute = oci_execute($stid, OCI_DEFAULT);
|
$objExecute = oci_execute($stid, OCI_DEFAULT);
|
||||||
if ($objExecute) {
|
if ($objExecute) {
|
||||||
oci_commit($conn);
|
oci_commit($conn);
|
||||||
}
|
} else {
|
||||||
else {
|
|
||||||
oci_rollback($conn);
|
oci_rollback($conn);
|
||||||
$isValid = false;
|
$isValid = false;
|
||||||
}
|
}
|
||||||
@@ -712,8 +768,7 @@ function executeQueryOci($sql, $connection, $aParameter = array())
|
|||||||
oci_close($conn);
|
oci_close($conn);
|
||||||
if ($isValid) {
|
if ($isValid) {
|
||||||
return true;
|
return true;
|
||||||
}
|
} else {
|
||||||
else {
|
|
||||||
return oci_error();
|
return oci_error();
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
@@ -734,5 +789,5 @@ function executeQueryOci($sql, $connection, $aParameter = array())
|
|||||||
return $aParameterRet;
|
return $aParameterRet;
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
Reference in New Issue
Block a user