2010-12-02 23:34:41 +00:00
|
|
|
|
<?php
|
|
|
|
|
|
/**
|
|
|
|
|
|
* class.g.php
|
|
|
|
|
|
*
|
|
|
|
|
|
* ProcessMaker Open Source Edition
|
|
|
|
|
|
* Copyright (C) 2004 - 2008 Colosa Inc.23
|
|
|
|
|
|
*
|
|
|
|
|
|
* This program is free software: you can redistribute it and/or modify
|
|
|
|
|
|
* it under the terms of the GNU Affero General Public License as
|
|
|
|
|
|
* published by the Free Software Foundation, either version 3 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 Affero General Public License for more details.
|
|
|
|
|
|
*
|
|
|
|
|
|
* You should have received a copy of the GNU Affero General Public License
|
|
|
|
|
|
* along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
|
|
*
|
|
|
|
|
|
* For more information, contact Colosa Inc, 2566 Le Jeune Rd.,
|
|
|
|
|
|
* Coral Gables, FL, 33134, USA, or email info@colosa.com.
|
|
|
|
|
|
*
|
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
2011-01-14 11:51:34 +00:00
|
|
|
|
* @package gulliver.system
|
2010-12-02 23:34:41 +00:00
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
|
|
class G
|
|
|
|
|
|
{
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* is_https
|
|
|
|
|
|
* @return void
|
|
|
|
|
|
*/
|
|
|
|
|
|
function is_https()
|
|
|
|
|
|
{
|
|
|
|
|
|
if(isset($_SERVER['HTTPS']))
|
|
|
|
|
|
{
|
|
|
|
|
|
if($_SERVER['HTTPS']=='on')
|
|
|
|
|
|
return true;
|
|
|
|
|
|
else
|
|
|
|
|
|
return false;
|
|
|
|
|
|
}
|
|
|
|
|
|
else
|
|
|
|
|
|
return false;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Fill array values (recursive)
|
|
|
|
|
|
* @author maborak <maborak@maborak.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @param Array $arr
|
|
|
|
|
|
* @param Void $value
|
|
|
|
|
|
* @param Boolean $recursive
|
|
|
|
|
|
* @return Array
|
|
|
|
|
|
*/
|
|
|
|
|
|
function array_fill_value($arr = Array(),$value = '',$recursive = false)
|
|
|
|
|
|
{
|
|
|
|
|
|
if(is_array($arr)) {
|
|
|
|
|
|
foreach($arr as $key=>$val) {
|
|
|
|
|
|
if(is_array($arr[$key])) {
|
|
|
|
|
|
$arr[$key] = ($recursive===true)?G::array_fill_value($arr[$key],$value,true):$val;
|
|
|
|
|
|
}
|
|
|
|
|
|
else {
|
|
|
|
|
|
$arr[$key] = $value;
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
else {
|
|
|
|
|
|
$arr = Array();
|
|
|
|
|
|
}
|
|
|
|
|
|
return $arr;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Generate Password Random
|
|
|
|
|
|
* @author maborak <maborak@maborak.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @param Int
|
|
|
|
|
|
* @return String
|
|
|
|
|
|
*/
|
|
|
|
|
|
function generate_password($length = 8)
|
|
|
|
|
|
{
|
|
|
|
|
|
$password = "";
|
|
|
|
|
|
$possible = "0123456789bcdfghjkmnpqrstvwxyz";
|
|
|
|
|
|
$i = 0;
|
|
|
|
|
|
while($i<$length) {
|
|
|
|
|
|
$char = substr($possible, mt_rand(0, strlen($possible)-1), 1);
|
|
|
|
|
|
if(!strstr($password, $char)) {
|
|
|
|
|
|
$password .= $char;
|
|
|
|
|
|
$i++;
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
return $password;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Array concat
|
|
|
|
|
|
* array_concat(ArrayToConcat,ArrayOriginal);
|
|
|
|
|
|
* @author maborak <maborak@maborak.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @param Array
|
|
|
|
|
|
* @return Array
|
|
|
|
|
|
*/
|
|
|
|
|
|
function array_concat()
|
|
|
|
|
|
{
|
|
|
|
|
|
$nums = func_num_args();
|
|
|
|
|
|
$vars = func_get_args();
|
|
|
|
|
|
$ret = Array();
|
|
|
|
|
|
for($i = 0;$i < $nums; $i++)
|
|
|
|
|
|
{
|
|
|
|
|
|
if(is_array($vars[$i])) {
|
|
|
|
|
|
foreach($vars[$i] as $key=>$value) {
|
|
|
|
|
|
$ret[$key] = $value;
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
return $ret;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Compare Variables
|
|
|
|
|
|
* var_compare(value,[var1,var2,varN]);
|
|
|
|
|
|
* @author maborak <maborak@maborak.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @param void $value
|
|
|
|
|
|
* @param void $var1-N
|
|
|
|
|
|
* @return Boolean
|
|
|
|
|
|
*/
|
|
|
|
|
|
function var_compare($value=true,$varN)
|
|
|
|
|
|
{
|
|
|
|
|
|
$nums = func_num_args();
|
|
|
|
|
|
if($nums<2){return true;}
|
|
|
|
|
|
$vars = func_get_args();
|
|
|
|
|
|
$ret = Array();
|
|
|
|
|
|
for($i=1;$i<$nums;$i++) {
|
|
|
|
|
|
if($vars[$i]!==$value) {
|
|
|
|
|
|
return false;
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
return true;
|
|
|
|
|
|
}
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Emulate variable selector
|
|
|
|
|
|
* @author maborak <maborak@maborak.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @param void
|
|
|
|
|
|
* @return void
|
|
|
|
|
|
*/
|
|
|
|
|
|
function var_probe()
|
|
|
|
|
|
{
|
|
|
|
|
|
//return (!$variable)?
|
|
|
|
|
|
$nums = func_num_args();
|
|
|
|
|
|
$vars = func_get_args();
|
|
|
|
|
|
for($i=0;$i<$nums;$i++) {
|
|
|
|
|
|
if($vars[$i]) {
|
|
|
|
|
|
return $vars[$i];
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
return 1;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Get the current version of gulliver classes
|
|
|
|
|
|
* @author Fernando Ontiveros Lira <fernando@colosa.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @return string
|
|
|
|
|
|
*/
|
|
|
|
|
|
/*public static*/ function &getVersion( )
|
|
|
|
|
|
{
|
|
|
|
|
|
//majorVersion.minorVersion-SvnRevision
|
|
|
|
|
|
return '3.0-1';
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* getIpAddress
|
|
|
|
|
|
* @return string $ip
|
|
|
|
|
|
*/
|
|
|
|
|
|
/*public static*/ function getIpAddress ()
|
|
|
|
|
|
{
|
|
|
|
|
|
if (getenv('HTTP_CLIENT_IP')) {
|
|
|
|
|
|
$ip = getenv('HTTP_CLIENT_IP');
|
|
|
|
|
|
}
|
|
|
|
|
|
elseif(getenv('HTTP_X_FORWARDED_FOR')) {
|
|
|
|
|
|
$ip = getenv('HTTP_X_FORWARDED_FOR');
|
|
|
|
|
|
}
|
|
|
|
|
|
else {
|
|
|
|
|
|
$ip = getenv('REMOTE_ADDR');
|
|
|
|
|
|
}
|
|
|
|
|
|
return $ip;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* getMacAddress
|
|
|
|
|
|
* @return string $mac
|
|
|
|
|
|
*/
|
|
|
|
|
|
function getMacAddress()
|
|
|
|
|
|
{
|
|
|
|
|
|
if ( strstr ( getenv ( 'OS' ), 'Windows' ) ) {
|
|
|
|
|
|
$ipconfig = `ipconfig /all`;
|
|
|
|
|
|
preg_match('/[\dA-Z]{2,2}[\:-][\dA-Z]{2,2}[\:-][\dA-Z]{2,2}[\:-][\dA-Z]{2,2}[\:-][\dA-Z]{2,2}[\:-][\dA-Z]{2,2}/i',$ipconfig,$mac);
|
|
|
|
|
|
} else {
|
|
|
|
|
|
$ifconfig = `/sbin/ifconfig`;
|
|
|
|
|
|
preg_match('/[\dA-Z]{2,2}[\:-][\dA-Z]{2,2}[\:-][\dA-Z]{2,2}[\:-][\dA-Z]{2,2}[\:-][\dA-Z]{2,2}[\:-][\dA-Z]{2,2}/i',$ifconfig,$mac);
|
|
|
|
|
|
}
|
|
|
|
|
|
return isset($mac[0])? $mac[0]:'00:00:00:00:00:00';
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* microtime_float
|
|
|
|
|
|
* @return array_sum(explode(' ',microtime()))
|
|
|
|
|
|
*/
|
|
|
|
|
|
/*public static*/ function microtime_float() {
|
|
|
|
|
|
return array_sum(explode(' ',microtime()));
|
|
|
|
|
|
}
|
|
|
|
|
|
/* custom error functions */
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* &setFatalErrorHandler
|
|
|
|
|
|
*
|
|
|
|
|
|
* @param string $newFatalErrorHandler default value null
|
|
|
|
|
|
*
|
|
|
|
|
|
* @return boolean true
|
|
|
|
|
|
*/
|
2010-12-22 14:21:52 +00:00
|
|
|
|
/*public static*/
|
|
|
|
|
|
function &setFatalErrorHandler( $newFatalErrorHandler = null )
|
|
|
|
|
|
{
|
|
|
|
|
|
if ( isset ( $newFatalErrorHandler ) ) {
|
|
|
|
|
|
set_error_handler( $newFatalErrorHandler );
|
|
|
|
|
|
}
|
|
|
|
|
|
else {
|
|
|
|
|
|
ob_start( array ( 'G', 'fatalErrorHandler' ) );
|
|
|
|
|
|
}
|
|
|
|
|
|
return true;
|
|
|
|
|
|
}
|
2010-12-02 23:34:41 +00:00
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* setErrorHandler
|
|
|
|
|
|
* @param string setErrorHandler
|
|
|
|
|
|
* @param object $newCustomErrorHandler
|
|
|
|
|
|
*
|
|
|
|
|
|
* @return boolean true
|
|
|
|
|
|
*/
|
2010-12-22 14:21:52 +00:00
|
|
|
|
/*public static*/
|
|
|
|
|
|
function setErrorHandler( $newCustomErrorHandler = null )
|
|
|
|
|
|
{
|
2010-12-02 23:34:41 +00:00
|
|
|
|
if ( isset ( $newCustomErrorHandler ) ) {
|
|
|
|
|
|
set_error_handler( $newCustomErrorHandler );
|
|
|
|
|
|
}
|
|
|
|
|
|
else {
|
|
|
|
|
|
set_error_handler( array("G", "customErrorHandler"));
|
|
|
|
|
|
}
|
|
|
|
|
|
return true;
|
2010-12-22 14:21:52 +00:00
|
|
|
|
}
|
2010-12-02 23:34:41 +00:00
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* fatalErrorHandler
|
|
|
|
|
|
*
|
|
|
|
|
|
* @param string $buffer
|
|
|
|
|
|
*
|
|
|
|
|
|
* @return string $errorBox or $buffer
|
|
|
|
|
|
*/
|
|
|
|
|
|
/*public static*/ function fatalErrorHandler($buffer) {
|
|
|
|
|
|
if (ereg("(error</b>:)(.+)(<br)", $buffer, $regs) ) {
|
|
|
|
|
|
$err = preg_replace("/<.*?>/","",$regs[2]);
|
|
|
|
|
|
G::customErrorLog('FATAL', $err, '', 0, '');
|
|
|
|
|
|
$ip_addr = G::getIpAddress();
|
|
|
|
|
|
$errorBox = "<table cellpadding=1 cellspacing=0 border=0 bgcolor=#808080 width=250><tr><td >" .
|
|
|
|
|
|
"<table cellpadding=2 cellspacing=0 border=0 bgcolor=white width=100%>" .
|
|
|
|
|
|
"<tr bgcolor=#d04040><td colspan=2 nowrap><font color=#ffffaa><code> ERROR CAUGHT check log file</code></font></td></tr>" .
|
|
|
|
|
|
"<tr ><td colspan=2 nowrap><font color=black><code>IP address: $ip_addr</code></font></td></tr> " .
|
|
|
|
|
|
"</table></td></tr></table>";
|
|
|
|
|
|
return $errorBox;
|
|
|
|
|
|
}
|
|
|
|
|
|
return $buffer;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
2010-12-22 14:21:52 +00:00
|
|
|
|
* customErrorHandler
|
2010-12-02 23:34:41 +00:00
|
|
|
|
*
|
|
|
|
|
|
* @param string $errno
|
|
|
|
|
|
* @param string $msg
|
|
|
|
|
|
* @param string $file
|
|
|
|
|
|
* @param string $line
|
|
|
|
|
|
* @param string $context
|
|
|
|
|
|
*
|
|
|
|
|
|
* @return void
|
|
|
|
|
|
*/
|
2010-12-22 14:21:52 +00:00
|
|
|
|
/*public static*/
|
|
|
|
|
|
function customErrorHandler ( $errno, $msg, $file, $line, $context) {
|
2010-12-02 23:34:41 +00:00
|
|
|
|
switch ($errno) {
|
|
|
|
|
|
case E_ERROR:
|
|
|
|
|
|
case E_USER_ERROR:
|
|
|
|
|
|
$type = "FATAL";
|
|
|
|
|
|
G::customErrorLog ($type, $msg, $file, $line);
|
|
|
|
|
|
G::verboseError ($type, $errno, $msg, $file, $line, $context);
|
|
|
|
|
|
if (defined ("ERROR_SHOW_SOURCE_CODE") && ERROR_SHOW_SOURCE_CODE)
|
|
|
|
|
|
G::showErrorSource ($type, $msg, $file, $line, "#c00000");
|
|
|
|
|
|
die ();
|
|
|
|
|
|
break;
|
|
|
|
|
|
case E_WARNING:
|
|
|
|
|
|
case E_USER_WARNING:
|
|
|
|
|
|
$type = "WARNING";
|
|
|
|
|
|
G::customErrorLog ($type, $msg, $file, $line);
|
|
|
|
|
|
break;
|
|
|
|
|
|
case E_NOTICE:
|
|
|
|
|
|
case E_USER_NOTICE:
|
|
|
|
|
|
$type = "NOTICE";
|
|
|
|
|
|
if (defined ("ERROR_LOG_NOTICE_ERROR") && ERROR_LOG_NOTICE_ERROR)
|
|
|
|
|
|
G::customErrorLog ($type, $msg, $file, $line);
|
|
|
|
|
|
break;
|
|
|
|
|
|
case E_STRICT:
|
|
|
|
|
|
$type = "STRICT"; //dont show STRICT Errors
|
|
|
|
|
|
//if (defined ("ERROR_LOG_NOTICE_ERROR") && ERROR_LOG_NOTICE_ERROR)
|
|
|
|
|
|
// G::customErrorLog ($type, $msg, $file, $line);
|
|
|
|
|
|
break;
|
|
|
|
|
|
default:
|
|
|
|
|
|
$type = "ERROR ($errno)";
|
|
|
|
|
|
G::customErrorLog ($type, $msg, $file, $line);
|
|
|
|
|
|
break;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
if (defined ("ERROR_SHOW_SOURCE_CODE") && ERROR_SHOW_SOURCE_CODE && $errno <> E_STRICT )
|
|
|
|
|
|
G::showErrorSource ($type, $msg, $file, $line);
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Function showErrorSource
|
|
|
|
|
|
* @author David S. Callizaya S. <davidsantos@colosa.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @parameter string type
|
|
|
|
|
|
* @parameter string msg
|
|
|
|
|
|
* @parameter string file
|
|
|
|
|
|
* @parameter string line
|
|
|
|
|
|
* @return string
|
|
|
|
|
|
*/
|
|
|
|
|
|
function showErrorSource($type, $msg, $file, $line)
|
|
|
|
|
|
{
|
|
|
|
|
|
global $__src_array;
|
|
|
|
|
|
$line_offset = 3;
|
|
|
|
|
|
|
|
|
|
|
|
if (! isset ($__src_array[$file]))
|
|
|
|
|
|
$__src_array[$file] = @file ($file);
|
|
|
|
|
|
|
|
|
|
|
|
if (!$__src_array[$file])
|
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
|
|
if ($line - $line_offset < 1)
|
|
|
|
|
|
$start = 1;
|
|
|
|
|
|
else
|
|
|
|
|
|
$start = $line - $line_offset;
|
|
|
|
|
|
|
|
|
|
|
|
if ($line + $line_offset > count ($__src_array[$file]))
|
|
|
|
|
|
$end = count ($__src_array[$file]);
|
|
|
|
|
|
else
|
|
|
|
|
|
$end = $line + $line_offset;
|
|
|
|
|
|
|
|
|
|
|
|
print "<table cellpadding=1 cellspacing=0 border=0 bgcolor=#808080 width=80%><tr><td >";
|
|
|
|
|
|
print "<table cellpadding=2 cellspacing=0 border=0 bgcolor=white width=100%>";
|
|
|
|
|
|
print "<tr bgcolor=#d04040>
|
|
|
|
|
|
<td colspan=2 nowrap><font color=#ffffaa><code> $type: $msg</code></font></td></tr>
|
|
|
|
|
|
<tr >
|
|
|
|
|
|
<td colspan=2 nowrap><font color=gray>File: $file</font></td></tr>
|
|
|
|
|
|
";
|
|
|
|
|
|
for ($i = $start; $i <= $end; $i++) {
|
2011-01-06 11:11:53 +00:00
|
|
|
|
$str = @highlight_string ("<?php" . $__src_array[$file][$i-1] . "?>", TRUE);
|
2010-12-02 23:34:41 +00:00
|
|
|
|
|
|
|
|
|
|
$pos1 = strpos ($str,"<?");
|
|
|
|
|
|
$pos2 = strrpos ($str,"?>");
|
|
|
|
|
|
|
|
|
|
|
|
$str = substr ($str, 0, $pos1) .
|
|
|
|
|
|
substr ($str, $pos1+5, $pos2-($pos1+5)) .
|
|
|
|
|
|
substr ($str, $pos2+5);
|
|
|
|
|
|
|
|
|
|
|
|
($i == $line) ? $bgcolor = "bgcolor=#ffccaa" : $bgcolor = "bgcolor=#ffffff";
|
|
|
|
|
|
print "<tr><td bgcolor=#d0d0d0 width=15 align=right><code>$i</code></td>
|
|
|
|
|
|
<td $bgcolor>$str</td></tr>";
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
print "</table></td></tr></table><p>";
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
2010-12-22 14:21:52 +00:00
|
|
|
|
* customErrorLog
|
2010-12-02 23:34:41 +00:00
|
|
|
|
*
|
|
|
|
|
|
* @param string $type
|
|
|
|
|
|
* @param string $msg
|
|
|
|
|
|
* @param string $file
|
|
|
|
|
|
* @param string $line
|
|
|
|
|
|
*
|
|
|
|
|
|
* @return void
|
|
|
|
|
|
*/
|
2010-12-22 14:21:52 +00:00
|
|
|
|
/*public static*/
|
|
|
|
|
|
function customErrorLog ($type, $msg, $file, $line)
|
|
|
|
|
|
{
|
2010-12-02 23:34:41 +00:00
|
|
|
|
global $HTTP_X_FORWARDED_FOR, $REMOTE_ADDR, $HTTP_USER_AGENT, $REQUEST_URI;
|
|
|
|
|
|
|
|
|
|
|
|
$ip_addr = G::getIpAddress();
|
|
|
|
|
|
|
|
|
|
|
|
if (defined ('APPLICATION_CODE'))
|
|
|
|
|
|
$name = APPLICATION_CODE;
|
|
|
|
|
|
else
|
|
|
|
|
|
$name = "php";
|
|
|
|
|
|
|
|
|
|
|
|
if ( $file != '')
|
|
|
|
|
|
$msg .= " in $file:$line ";
|
|
|
|
|
|
|
|
|
|
|
|
$date = date ( 'Y-m-d H:i:s');
|
|
|
|
|
|
$REQUEST_URI = getenv ( 'REQUEST_URI' );
|
|
|
|
|
|
$HTTP_USER_AGENT = getenv ( 'HTTP_USER_AGENT' );
|
|
|
|
|
|
error_log ("[$date] [$ip_addr] [$name] $type: $msg [$HTTP_USER_AGENT] URI: $REQUEST_URI", 0);
|
2010-12-22 14:21:52 +00:00
|
|
|
|
}
|
2010-12-02 23:34:41 +00:00
|
|
|
|
|
|
|
|
|
|
/**
|
2010-12-22 14:21:52 +00:00
|
|
|
|
* verboseError
|
2010-12-02 23:34:41 +00:00
|
|
|
|
*
|
|
|
|
|
|
* @param string $type
|
|
|
|
|
|
* @param string $errno
|
|
|
|
|
|
* @param string $msg
|
|
|
|
|
|
* @param string $file
|
|
|
|
|
|
* @param string $line
|
|
|
|
|
|
* @param string $context
|
|
|
|
|
|
*
|
|
|
|
|
|
* @return void
|
|
|
|
|
|
*/
|
|
|
|
|
|
/*public static*/ function verboseError ($type, $errno, $msg, $file, $line, $context) {
|
|
|
|
|
|
global $SERVER_ADMIN;
|
|
|
|
|
|
|
|
|
|
|
|
print "<h1>Error!</h1>";
|
|
|
|
|
|
print "An error occurred while executing this script. Please
|
|
|
|
|
|
contact the <a href=mailto:$SERVER_ADMIN>$SERVER_ADMIN</a> to
|
|
|
|
|
|
report this error.";
|
|
|
|
|
|
print "<p>";
|
|
|
|
|
|
print "Here is the information provided by the script:";
|
|
|
|
|
|
print "<hr><pre>";
|
|
|
|
|
|
print "Error type: $type (code: $errno)<br>";
|
|
|
|
|
|
print "Error message: $msg<br>";
|
|
|
|
|
|
print "Script name and line number of error: $file:$line<br>";
|
|
|
|
|
|
print "Variable context when error occurred: <br>";
|
|
|
|
|
|
print_r ($context);
|
|
|
|
|
|
print "</pre><hr>";
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/*** Encrypt and decrypt functions ****/
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Encrypt string
|
|
|
|
|
|
*
|
|
|
|
|
|
* @author Fernando Ontiveros Lira <fernando@colosa.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @param string $string
|
|
|
|
|
|
* @param string $key
|
|
|
|
|
|
* @return string
|
|
|
|
|
|
*/
|
|
|
|
|
|
function encrypt($string, $key)
|
2010-12-22 14:21:52 +00:00
|
|
|
|
{
|
2010-12-02 23:34:41 +00:00
|
|
|
|
//print $string;
|
|
|
|
|
|
// if ( defined ( 'ENABLE_ENCRYPT' ) && ENABLE_ENCRYPT == 'yes' ) {
|
|
|
|
|
|
if (strpos($string, '|', 0) !== false) return $string;
|
|
|
|
|
|
$result = '';
|
|
|
|
|
|
for($i = 0; $i<strlen($string); $i++) {
|
|
|
|
|
|
$char = substr($string, $i, 1);
|
|
|
|
|
|
$keychar = substr($key, ($i % strlen($key))-1, 1);
|
|
|
|
|
|
$char = chr(ord($char)+ord($keychar));
|
|
|
|
|
|
$result .= $char;
|
2010-12-22 14:21:52 +00:00
|
|
|
|
}
|
2010-12-02 23:34:41 +00:00
|
|
|
|
//echo $result . '<br>';
|
|
|
|
|
|
$result = base64_encode($result);
|
|
|
|
|
|
$result = str_replace ( '/' , '°' , $result);
|
|
|
|
|
|
$result = str_replace ( '=' , '' , $result);
|
|
|
|
|
|
// }
|
|
|
|
|
|
// else
|
|
|
|
|
|
// $result = $string;
|
|
|
|
|
|
|
|
|
|
|
|
return $result;
|
2010-12-22 14:21:52 +00:00
|
|
|
|
}
|
2010-12-02 23:34:41 +00:00
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Decrypt string
|
|
|
|
|
|
*
|
|
|
|
|
|
* @author Fernando Ontiveros Lira <fernando@colosa.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @param string $string
|
|
|
|
|
|
* @param string $key
|
|
|
|
|
|
* @return string
|
|
|
|
|
|
*/
|
|
|
|
|
|
/*public static*/ function decrypt($string, $key) {
|
|
|
|
|
|
|
|
|
|
|
|
// if ( defined ( 'ENABLE_ENCRYPT' ) && ENABLE_ENCRYPT == 'yes' ) {
|
|
|
|
|
|
|
|
|
|
|
|
//if (strpos($string, '|', 0) !== false) return $string;
|
|
|
|
|
|
$result = '';
|
|
|
|
|
|
$string = str_replace ( '°', '/' , $string);
|
|
|
|
|
|
$string_jhl = explode("?",$string);
|
|
|
|
|
|
$string = base64_decode($string);
|
|
|
|
|
|
$string = base64_decode($string_jhl[0]);
|
|
|
|
|
|
|
|
|
|
|
|
for($i=0; $i<strlen($string); $i++) {
|
|
|
|
|
|
$char = substr($string, $i, 1);
|
|
|
|
|
|
$keychar = substr($key, ($i % strlen($key))-1, 1);
|
|
|
|
|
|
$char = chr(ord($char)-ord($keychar));
|
|
|
|
|
|
$result .= $char;
|
|
|
|
|
|
}
|
|
|
|
|
|
if (!empty($string_jhl[1]))
|
|
|
|
|
|
$result .= '?' . $string_jhl[1];
|
|
|
|
|
|
// }
|
|
|
|
|
|
// else
|
|
|
|
|
|
// $result = $string;
|
|
|
|
|
|
return $result;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Look up an IP address direction
|
|
|
|
|
|
* @author Fernando Ontiveros Lira <fernando@colosa.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @param string $target
|
|
|
|
|
|
* @return void
|
|
|
|
|
|
*/
|
|
|
|
|
|
function lookup($target)
|
|
|
|
|
|
{
|
2010-12-08 15:05:47 +00:00
|
|
|
|
//if( eregi("[a-zA-Z]", $target) )
|
|
|
|
|
|
if( preg_match("[a-zA-Z]", $target) )//Made compatible to PHP 5.3
|
2010-12-02 23:34:41 +00:00
|
|
|
|
$ntarget = gethostbyname($target);
|
|
|
|
|
|
else
|
|
|
|
|
|
$ntarget = gethostbyaddr($target);
|
|
|
|
|
|
return($ntarget);
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/*************** path functions *****************/
|
2010-12-22 14:21:52 +00:00
|
|
|
|
|
2010-12-02 23:34:41 +00:00
|
|
|
|
/*public static*/ function mk_dir( $strPath, $rights = 0777)
|
|
|
|
|
|
{
|
|
|
|
|
|
$folder_path = array($strPath);
|
|
|
|
|
|
$oldumask = umask(0);
|
|
|
|
|
|
while(!@is_dir(dirname(end($folder_path)))
|
|
|
|
|
|
&& dirname(end($folder_path)) != '/'
|
|
|
|
|
|
&& dirname(end($folder_path)) != '.'
|
|
|
|
|
|
&& dirname(end($folder_path)) != '')
|
|
|
|
|
|
array_push($folder_path, dirname(end($folder_path))); //var_dump($folder_path); die;
|
|
|
|
|
|
|
|
|
|
|
|
while($parent_folder_path = array_pop($folder_path))
|
|
|
|
|
|
if(!@is_dir($parent_folder_path))
|
|
|
|
|
|
if(!@mkdir($parent_folder_path, $rights))
|
|
|
|
|
|
//trigger_error ("Can't create folder \"$parent_folder_path\".", E_USER_WARNING);
|
|
|
|
|
|
umask($oldumask);
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* rm_dir
|
|
|
|
|
|
*
|
|
|
|
|
|
* @param string $dirName
|
|
|
|
|
|
*
|
|
|
|
|
|
* @return void
|
|
|
|
|
|
*/
|
|
|
|
|
|
function rm_dir($dirName) {
|
|
|
|
|
|
if(empty($dirName)) {
|
|
|
|
|
|
return;
|
|
|
|
|
|
}
|
|
|
|
|
|
if(file_exists($dirName)) {
|
|
|
|
|
|
$dir = dir($dirName);
|
|
|
|
|
|
while($file = $dir->read()) {
|
|
|
|
|
|
if($file != '.' && $file != '..') {
|
|
|
|
|
|
if(is_dir($dirName.'/'.$file)) {
|
|
|
|
|
|
G::rm_dir($dirName.'/'.$file);
|
|
|
|
|
|
} else {
|
|
|
|
|
|
@unlink($dirName.'/'.$file) or die('File '.$dirName.'/'.$file.' couldn\'t be deleted!');
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
$folder = opendir($dirName. PATH_SEP .$file);
|
|
|
|
|
|
closedir($folder);
|
|
|
|
|
|
@rmdir($dirName.'/'.$file) or die('Folder '.$dirName.'/'.$file.' couldn\'t be deleted!');
|
|
|
|
|
|
} else {
|
|
|
|
|
|
echo 'Folder "<b>'.$dirName.'</b>" doesn\'t exist.';
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* verify path
|
|
|
|
|
|
*
|
|
|
|
|
|
* @author Fernando Ontiveros Lira <fernando@colosa.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @param string $strPath path
|
|
|
|
|
|
* @param boolean $createPath if true this function will create the path
|
|
|
|
|
|
* @return boolean
|
|
|
|
|
|
*/
|
|
|
|
|
|
/*public static*/ function verifyPath( $strPath , $createPath = false )
|
|
|
|
|
|
{
|
|
|
|
|
|
$folder_path = strstr($strPath, '.') ? dirname($strPath) : $strPath;
|
|
|
|
|
|
|
|
|
|
|
|
if ( file_exists($strPath ) || @is_dir( $strPath )) {
|
|
|
|
|
|
return true;
|
|
|
|
|
|
}
|
|
|
|
|
|
else {
|
|
|
|
|
|
if ( $createPath ) {
|
|
|
|
|
|
//TODO:: Define Environment constants: Devel (0777), Production (0770), ...
|
|
|
|
|
|
G::mk_dir ( $strPath , 0777 );
|
|
|
|
|
|
}
|
|
|
|
|
|
else
|
|
|
|
|
|
return false;
|
|
|
|
|
|
}
|
|
|
|
|
|
return false;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Expand the path using the path constants
|
|
|
|
|
|
*
|
|
|
|
|
|
* @author Fernando Ontiveros Lira <fernando@colosa.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @param string $strPath
|
|
|
|
|
|
* @return string
|
|
|
|
|
|
*/
|
|
|
|
|
|
function expandPath( $strPath = '' )
|
|
|
|
|
|
{
|
|
|
|
|
|
$res = "";
|
|
|
|
|
|
$res = PATH_CORE;
|
|
|
|
|
|
if( $strPath != "" )
|
|
|
|
|
|
{
|
|
|
|
|
|
$res .= $strPath . "/";
|
|
|
|
|
|
}
|
|
|
|
|
|
return $res;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Load Gulliver Classes
|
|
|
|
|
|
*
|
|
|
|
|
|
* @author Fernando Ontiveros Lira <fernando@colosa.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @param string $strClass
|
|
|
|
|
|
* @return void
|
|
|
|
|
|
*/
|
|
|
|
|
|
function LoadSystem( $strClass )
|
|
|
|
|
|
{
|
|
|
|
|
|
require_once( PATH_GULLIVER . 'class.' . $strClass . '.php' );
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
function LoadSystemExist($strClass)
|
|
|
|
|
|
{
|
|
|
|
|
|
if (file_exists (PATH_GULLIVER . 'class.' . $strClass . '.php') )
|
|
|
|
|
|
return true;
|
|
|
|
|
|
else
|
|
|
|
|
|
return false;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Render Page
|
|
|
|
|
|
*
|
|
|
|
|
|
* @author Fernando Ontiveros Lira <fernando@colosa.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @param object $objContent
|
|
|
|
|
|
* @param string $strTemplate
|
|
|
|
|
|
* @param string $strSkin
|
|
|
|
|
|
* @return void
|
|
|
|
|
|
*/
|
|
|
|
|
|
function RenderPage( $strTemplate = "default", $strSkin = SYS_SKIN , $objContent = NULL )
|
|
|
|
|
|
{
|
|
|
|
|
|
global $G_CONTENT;
|
|
|
|
|
|
global $G_TEMPLATE;
|
|
|
|
|
|
$G_CONTENT = $objContent;
|
|
|
|
|
|
$G_TEMPLATE = $strTemplate;
|
|
|
|
|
|
try {
|
|
|
|
|
|
G::LoadSkin( $strSkin );
|
|
|
|
|
|
}
|
|
|
|
|
|
catch ( Exception $e ) {
|
|
|
|
|
|
$aMessage['MESSAGE'] = $e->getMessage();
|
|
|
|
|
|
global $G_PUBLISH;
|
|
|
|
|
|
global $G_MAIN_MENU;
|
|
|
|
|
|
global $G_SUB_MENU;
|
|
|
|
|
|
$G_MAIN_MENU = '';
|
|
|
|
|
|
$G_SUB_MENU = '';
|
|
|
|
|
|
//$G_PUBLISH = new Publisher;
|
|
|
|
|
|
|
|
|
|
|
|
//remove the login.js script
|
|
|
|
|
|
global $oHeadPublisher;
|
|
|
|
|
|
if ( count ( $G_PUBLISH->Parts ) == 1 )
|
|
|
|
|
|
array_shift ( $G_PUBLISH->Parts );
|
|
|
|
|
|
$leimnudInitString = $oHeadPublisher->leimnudInitString;
|
|
|
|
|
|
//restart the oHeadPublisher
|
|
|
|
|
|
$oHeadPublisher->clearScripts();
|
|
|
|
|
|
//add the missing components, and go on.
|
|
|
|
|
|
$oHeadPublisher->leimnudInitString = $leimnudInitString;
|
|
|
|
|
|
$oHeadPublisher->addScriptFile("/js/maborak/core/maborak.js");
|
|
|
|
|
|
|
|
|
|
|
|
$G_PUBLISH->AddContent('xmlform', 'xmlform', 'login/showMessage', null, $aMessage );
|
|
|
|
|
|
G::LoadSkin( 'green' );
|
|
|
|
|
|
die;
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Load a skin
|
|
|
|
|
|
*
|
|
|
|
|
|
* @author Fernando Ontiveros Lira <fernando@colosa.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @param string $strSkinName
|
|
|
|
|
|
* @return void
|
|
|
|
|
|
*/
|
|
|
|
|
|
function LoadSkin( $strSkinName )
|
|
|
|
|
|
{
|
|
|
|
|
|
//print $strSkinName;
|
|
|
|
|
|
//now, we are using the skin, a skin is a file in engine/skin directory
|
|
|
|
|
|
$file = G::ExpandPath( "skins" ) . $strSkinName. ".php";
|
|
|
|
|
|
if (file_exists ($file) ) {
|
|
|
|
|
|
require_once( $file );
|
|
|
|
|
|
return;
|
|
|
|
|
|
}
|
|
|
|
|
|
else {
|
|
|
|
|
|
if (file_exists ( PATH_HTML . 'errors/error703.php') ) {
|
|
|
|
|
|
header ( 'location: /errors/error703.php' );
|
|
|
|
|
|
die;
|
|
|
|
|
|
}
|
|
|
|
|
|
else {
|
|
|
|
|
|
$text = "The Skin $file is not exist, please review the Skin Definition";
|
|
|
|
|
|
throw ( new Exception ( $text) );
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Include javascript files
|
|
|
|
|
|
*
|
|
|
|
|
|
* @author Fernando Ontiveros Lira <fernando@colosa.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @param string $strInclude
|
|
|
|
|
|
* @return void
|
|
|
|
|
|
*/
|
|
|
|
|
|
function LoadInclude( $strInclude )
|
|
|
|
|
|
{
|
|
|
|
|
|
$incfile = G::ExpandPath( "includes" ) . 'inc.' . $strInclude . '.php';
|
|
|
|
|
|
if ( !file_exists( $incfile )) {
|
|
|
|
|
|
$incfile = PATH_GULLIVER_HOME . 'includes' . PATH_SEP . 'inc.' . $strInclude . '.php';
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
if ( file_exists( $incfile )) {
|
|
|
|
|
|
require_once( $incfile );
|
|
|
|
|
|
return true;
|
|
|
|
|
|
}
|
|
|
|
|
|
else {
|
|
|
|
|
|
return false;
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Include all model files
|
|
|
|
|
|
*
|
|
|
|
|
|
* @author Fernando Ontiveros Lira <fernando@colosa.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @param string $strInclude
|
|
|
|
|
|
* @return void
|
|
|
|
|
|
*/
|
|
|
|
|
|
function LoadAllModelClasses( )
|
|
|
|
|
|
{
|
|
|
|
|
|
$baseDir = PATH_CORE . 'classes' . PATH_SEP . 'model';
|
|
|
|
|
|
if ($handle = opendir( $baseDir )) {
|
|
|
|
|
|
while ( false !== ($file = readdir($handle))) {
|
|
|
|
|
|
if ( strpos($file, '.php',1) && !strpos($file, 'Peer.php',1) ) {
|
|
|
|
|
|
require_once ( $baseDir . PATH_SEP . $file );
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Include all model plugin files
|
|
|
|
|
|
*
|
2010-12-22 14:21:52 +00:00
|
|
|
|
* LoadAllPluginModelClasses
|
2010-12-02 23:34:41 +00:00
|
|
|
|
* @author Hugo Loza <hugo@colosa.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @return void
|
|
|
|
|
|
*/
|
|
|
|
|
|
function LoadAllPluginModelClasses(){
|
|
|
|
|
|
//Get the current Include path, where the plugins directories should be
|
|
|
|
|
|
if ( !defined('PATH_SEPARATOR') ) {
|
|
|
|
|
|
define('PATH_SEPARATOR', ( substr(PHP_OS, 0, 3) == 'WIN' ) ? ';' : ':');
|
|
|
|
|
|
}
|
|
|
|
|
|
$path=explode(PATH_SEPARATOR,get_include_path());
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
foreach($path as $possiblePath){
|
|
|
|
|
|
if(strstr($possiblePath,"plugins")){
|
|
|
|
|
|
$baseDir = $possiblePath . 'classes' . PATH_SEP . 'model';
|
|
|
|
|
|
if(file_exists($baseDir)){
|
|
|
|
|
|
if ($handle = opendir( $baseDir )) {
|
|
|
|
|
|
while ( false !== ($file = readdir($handle))) {
|
|
|
|
|
|
if ( strpos($file, '.php',1) && !strpos($file, 'Peer.php',1) ) {
|
|
|
|
|
|
require_once ( $baseDir . PATH_SEP . $file );
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
//Include also the extendGulliverClass that could have some new definitions for fields
|
|
|
|
|
|
if(file_exists($possiblePath . 'classes' . PATH_SEP.'class.extendGulliver.php')){
|
|
|
|
|
|
include_once $possiblePath . 'classes' . PATH_SEP.'class.extendGulliver.php';
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Load a template
|
|
|
|
|
|
*
|
|
|
|
|
|
* @author Fernando Ontiveros Lira <fernando@colosa.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @param string $strTemplateName
|
|
|
|
|
|
* @return void
|
|
|
|
|
|
*/
|
|
|
|
|
|
function LoadTemplate( $strTemplateName )
|
|
|
|
|
|
{
|
|
|
|
|
|
if ( $strTemplateName == '' ) return;
|
|
|
|
|
|
$temp = $strTemplateName . ".php";
|
|
|
|
|
|
$file = G::ExpandPath( 'templates' ) . $temp;
|
|
|
|
|
|
// Check if its a user template
|
|
|
|
|
|
if ( file_exists($file) ) {
|
|
|
|
|
|
//require_once( $file );
|
|
|
|
|
|
include( $file );
|
|
|
|
|
|
} else {
|
|
|
|
|
|
// Try to get the global system template
|
|
|
|
|
|
$file = PATH_TEMPLATE . PATH_SEP . $temp;
|
|
|
|
|
|
//require_once( $file );
|
|
|
|
|
|
if ( file_exists($file) )
|
|
|
|
|
|
include( $file );
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Function LoadClassRBAC
|
|
|
|
|
|
* @author David S. Callizaya S. <davidsantos@colosa.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @parameter string strClass
|
|
|
|
|
|
* @return string
|
|
|
|
|
|
*/
|
|
|
|
|
|
function LoadClassRBAC( $strClass )
|
|
|
|
|
|
{
|
|
|
|
|
|
$classfile = PATH_RBAC . "class.$strClass" . '.php';
|
|
|
|
|
|
require_once( $classfile );
|
|
|
|
|
|
}
|
|
|
|
|
|
/**
|
2010-12-22 14:21:52 +00:00
|
|
|
|
* If the class is not defined by the aplication, it
|
2010-12-02 23:34:41 +00:00
|
|
|
|
* attempt to load the class from gulliver.system
|
|
|
|
|
|
*
|
|
|
|
|
|
* @author Fernando Ontiveros Lira <fernando@colosa.com>, David S. Callizaya
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @param string $strClass
|
|
|
|
|
|
* @return void
|
|
|
|
|
|
*/
|
|
|
|
|
|
function LoadClass( $strClass )
|
|
|
|
|
|
{
|
|
|
|
|
|
$classfile = G::ExpandPath( "classes" ) . 'class.' . $strClass . '.php';
|
|
|
|
|
|
if (!file_exists( $classfile )) {
|
|
|
|
|
|
if (file_exists( PATH_GULLIVER . 'class.' . $strClass . '.php' ))
|
|
|
|
|
|
return require_once( PATH_GULLIVER . 'class.' . $strClass . '.php' );
|
|
|
|
|
|
else
|
|
|
|
|
|
return false;
|
|
|
|
|
|
} else {
|
|
|
|
|
|
return require_once( $classfile );
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Loads a Class. If the class is not defined by the aplication, it
|
|
|
|
|
|
* attempt to load the class from gulliver.system
|
|
|
|
|
|
*
|
|
|
|
|
|
* @author Fernando Ontiveros Lira <fernando@colosa.com>, David S. Callizaya
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @param string $strClass
|
|
|
|
|
|
* @return void
|
|
|
|
|
|
*/
|
|
|
|
|
|
function LoadThirdParty( $sPath , $sFile )
|
|
|
|
|
|
{
|
|
|
|
|
|
$classfile = PATH_THIRDPARTY . $sPath .'/'. $sFile .
|
|
|
|
|
|
( (substr($sFile,0,-4)!=='.php')? '.php': '' );
|
|
|
|
|
|
return require_once( $classfile );
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Encrypt URL
|
|
|
|
|
|
*
|
|
|
|
|
|
* @author Fernando Ontiveros Lira <fernando@colosa.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @param string $urlLink
|
|
|
|
|
|
* @return string
|
|
|
|
|
|
*/
|
|
|
|
|
|
function encryptlink($url)
|
|
|
|
|
|
{
|
|
|
|
|
|
if ( defined ( 'ENABLE_ENCRYPT' ) && ENABLE_ENCRYPT == 'yes' )
|
|
|
|
|
|
return urlencode( G::encrypt( $url ,URL_KEY ) );
|
|
|
|
|
|
else
|
|
|
|
|
|
return $url;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Parsing the URI
|
|
|
|
|
|
*
|
|
|
|
|
|
* @author Fernando Ontiveros Lira <fernando@colosa.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @param string $urlLink
|
|
|
|
|
|
* @return string
|
|
|
|
|
|
*/
|
|
|
|
|
|
function parseURI( $uri )
|
|
|
|
|
|
{
|
|
|
|
|
|
$aRequestUri = explode('/', $uri );
|
|
|
|
|
|
if ( substr ( $aRequestUri[1], 0, 3 ) == 'sys' ) {
|
|
|
|
|
|
define( 'SYS_TEMP', substr ( $aRequestUri[1], 3 ) );
|
|
|
|
|
|
}
|
|
|
|
|
|
else {
|
|
|
|
|
|
define("ENABLE_ENCRYPT", 'yes' );
|
|
|
|
|
|
|
|
|
|
|
|
define( 'SYS_TEMP', $aRequestUri[1] );
|
|
|
|
|
|
|
|
|
|
|
|
$plain = '/sys' . SYS_TEMP;
|
|
|
|
|
|
|
|
|
|
|
|
for ($i = 2 ; $i < count($aRequestUri); $i++ ) {
|
|
|
|
|
|
$decoded = G::decrypt ( urldecode($aRequestUri[$i]) , URL_KEY );
|
|
|
|
|
|
if ( $decoded == 'sWì›' ) $decoded = $VARS[$i]; //this is for the string "../"
|
|
|
|
|
|
$plain .= '/' . $decoded;
|
|
|
|
|
|
}
|
|
|
|
|
|
$_SERVER["REQUEST_URI"] = $plain;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
$CURRENT_PAGE = $_SERVER["REQUEST_URI"];
|
|
|
|
|
|
|
|
|
|
|
|
$work = explode('?', $CURRENT_PAGE);
|
|
|
|
|
|
if ( count($work) > 1 )
|
|
|
|
|
|
define( 'SYS_CURRENT_PARMS', $work[1]);
|
|
|
|
|
|
else
|
|
|
|
|
|
define( 'SYS_CURRENT_PARMS', '');
|
|
|
|
|
|
define( 'SYS_CURRENT_URI' , $work[0]);
|
|
|
|
|
|
|
|
|
|
|
|
if (!defined('SYS_CURRENT_PARMS'))
|
|
|
|
|
|
define('SYS_CURRENT_PARMS', $work[1]);
|
|
|
|
|
|
$preArray = explode('&', SYS_CURRENT_PARMS);
|
|
|
|
|
|
$buffer = explode( '.', $work[0] );
|
|
|
|
|
|
if ( count($buffer) == 1 ) $buffer[1]='';
|
|
|
|
|
|
|
|
|
|
|
|
//request type
|
|
|
|
|
|
define('REQUEST_TYPE', ($buffer[1] != "" ?$buffer[1] : 'html'));
|
|
|
|
|
|
|
|
|
|
|
|
$toparse = substr($buffer[0], 1, strlen($buffer[0]) - 1);
|
|
|
|
|
|
$URL = "";
|
|
|
|
|
|
$URI_VARS = explode('/', $toparse);
|
|
|
|
|
|
for ( $i=3; $i < count( $URI_VARS) ; $i++)
|
|
|
|
|
|
$URL .= $URI_VARS[$i].'/';
|
|
|
|
|
|
|
|
|
|
|
|
$URI_VARS = explode('/', $toparse);
|
|
|
|
|
|
|
|
|
|
|
|
unset($work);
|
|
|
|
|
|
unset($buffer);
|
|
|
|
|
|
unset($toparse);
|
|
|
|
|
|
|
|
|
|
|
|
array_shift($URI_VARS);
|
|
|
|
|
|
define("SYS_LANG", array_shift($URI_VARS));
|
|
|
|
|
|
define("SYS_SKIN", array_shift($URI_VARS));
|
|
|
|
|
|
|
|
|
|
|
|
$SYS_COLLECTION = array_shift($URI_VARS);
|
|
|
|
|
|
$SYS_TARGET = array_shift($URI_VARS);
|
|
|
|
|
|
|
|
|
|
|
|
//to enable more than 2 directories...in the methods structure
|
|
|
|
|
|
$exit = 0;
|
|
|
|
|
|
while ( count ( $URI_VARS ) > 0 && $exit == 0) {
|
|
|
|
|
|
$SYS_TARGET .= '/' . array_shift($URI_VARS);
|
|
|
|
|
|
}
|
|
|
|
|
|
define('SYS_COLLECTION', $SYS_COLLECTION );
|
|
|
|
|
|
define('SYS_TARGET', $SYS_TARGET );
|
|
|
|
|
|
|
|
|
|
|
|
if ( $SYS_COLLECTION == 'js2' ) {
|
|
|
|
|
|
print "ERROR"; die;
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* streaming a file
|
|
|
|
|
|
*
|
|
|
|
|
|
* @author Fernando Ontiveros Lira <fernando@colosa.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @param string $file
|
|
|
|
|
|
* @param boolean $download
|
|
|
|
|
|
* @param string $downloadFileName
|
|
|
|
|
|
* @return string
|
|
|
|
|
|
*/
|
|
|
|
|
|
function streamFile( $file, $download = false, $downloadFileName = '' )
|
|
|
|
|
|
{
|
|
|
|
|
|
$typearray = explode ( '.', $file );
|
|
|
|
|
|
$typefile = $typearray[ count($typearray) -1 ];
|
|
|
|
|
|
$filename = $file;
|
|
|
|
|
|
if ( file_exists ( $filename ) ) {
|
|
|
|
|
|
switch ( strtolower ($typefile ) ) {
|
|
|
|
|
|
case 'swf' :
|
|
|
|
|
|
G::sendHeaders ( $filename , 'application/x-shockwave-flash', $download, $downloadFileName ); break;
|
|
|
|
|
|
case 'js' :
|
|
|
|
|
|
G::sendHeaders ( $filename , 'text/javascript', $download, $downloadFileName ); break;
|
|
|
|
|
|
case 'htm' :
|
|
|
|
|
|
case 'html' :
|
|
|
|
|
|
G::sendHeaders ( $filename , 'text/html', $download, $downloadFileName ); break;
|
|
|
|
|
|
case 'htc' :
|
|
|
|
|
|
G::sendHeaders ( $filename , 'text/plain', $download, $downloadFileName ); break;
|
|
|
|
|
|
case 'json' :
|
|
|
|
|
|
G::sendHeaders ( $filename , 'text/plain', $download, $downloadFileName ); break;
|
|
|
|
|
|
case 'gif' :
|
|
|
|
|
|
G::sendHeaders ( $filename , 'image/gif', $download, $downloadFileName ); break;
|
|
|
|
|
|
case 'png' :
|
|
|
|
|
|
G::sendHeaders ( $filename , 'image/png', $download, $downloadFileName ); break;
|
|
|
|
|
|
case 'jpg' :
|
|
|
|
|
|
G::sendHeaders ( $filename , 'image/jpg', $download, $downloadFileName ); break;
|
|
|
|
|
|
case 'css' :
|
|
|
|
|
|
G::sendHeaders ( $filename , 'text/css', $download, $downloadFileName ); break;
|
|
|
|
|
|
case 'css' :
|
|
|
|
|
|
G::sendHeaders ( $filename , 'text/css', $download, $downloadFileName ); break;
|
|
|
|
|
|
case 'xml' :
|
|
|
|
|
|
G::sendHeaders ( $filename , 'text/xml', $download, $downloadFileName ); break;
|
|
|
|
|
|
case 'txt' :
|
|
|
|
|
|
G::sendHeaders ( $filename , 'text/html', $download, $downloadFileName ); break;
|
|
|
|
|
|
case 'doc' :
|
|
|
|
|
|
case 'pdf' :
|
|
|
|
|
|
case 'pm' :
|
|
|
|
|
|
case 'po' :
|
|
|
|
|
|
G::sendHeaders ( $filename , 'application/octet-stream', $download, $downloadFileName ); break;
|
|
|
|
|
|
case 'php' :
|
|
|
|
|
|
if ($download) {
|
|
|
|
|
|
G::sendHeaders ( $filename , 'text/plain', $download, $downloadFileName );
|
|
|
|
|
|
}
|
|
|
|
|
|
else {
|
|
|
|
|
|
require_once( $filename );
|
|
|
|
|
|
return;
|
|
|
|
|
|
}
|
|
|
|
|
|
break;
|
|
|
|
|
|
default :
|
|
|
|
|
|
//throw new Exception ( "Unknown type of file '$file'. " );
|
|
|
|
|
|
G::sendHeaders ( $filename , 'application/octet-stream', $download, $downloadFileName ); break;
|
|
|
|
|
|
break;
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
else {
|
|
|
|
|
|
if( strpos($file, 'gulliver') !== false ){
|
|
|
|
|
|
list($path, $filename) = explode('gulliver', $file);
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
$_SESSION['phpFileNotFound'] = $file;
|
|
|
|
|
|
G::header("location: /errors/error404.php?p=$filename");
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
switch ( strtolower($typefile ) ) {
|
|
|
|
|
|
case "js" :
|
|
|
|
|
|
$paths = explode ( '/', $filename);
|
|
|
|
|
|
$jsName = $paths[ count ($paths) -1 ];
|
|
|
|
|
|
$output = '';
|
|
|
|
|
|
switch ( $jsName ) {
|
|
|
|
|
|
case 'maborak.js' :
|
|
|
|
|
|
$oHeadPublisher =& headPublisher::getSingleton();
|
|
|
|
|
|
foreach ( $oHeadPublisher->maborakFiles as $fileJS ) {
|
|
|
|
|
|
$output .= G::trimSourceCodeFile ($fileJS );
|
|
|
|
|
|
}
|
|
|
|
|
|
break;
|
|
|
|
|
|
case 'maborak.loader.js':
|
|
|
|
|
|
$oHeadPublisher =& headPublisher::getSingleton();
|
|
|
|
|
|
foreach ( $oHeadPublisher->maborakLoaderFiles as $fileJS ) {
|
|
|
|
|
|
$output .= G::trimSourceCodeFile ($fileJS );
|
|
|
|
|
|
}
|
|
|
|
|
|
break;
|
|
|
|
|
|
default :
|
|
|
|
|
|
$output = G::trimSourceCodeFile ($filename );
|
|
|
|
|
|
}
|
|
|
|
|
|
print $output;
|
|
|
|
|
|
break;
|
|
|
|
|
|
case 'css' :
|
|
|
|
|
|
print G::trimSourceCodeFile ($filename );
|
|
|
|
|
|
break;
|
|
|
|
|
|
default :
|
|
|
|
|
|
readfile($filename);
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* trimSourceCodeFile
|
|
|
|
|
|
*
|
|
|
|
|
|
* @param string $filename
|
|
|
|
|
|
*
|
|
|
|
|
|
* @return string $output
|
|
|
|
|
|
*/
|
|
|
|
|
|
function trimSourceCodeFile ( $filename ) {
|
|
|
|
|
|
$handle = fopen ($filename, "r");
|
|
|
|
|
|
$lastChar = '';
|
|
|
|
|
|
$firstChar = '';
|
|
|
|
|
|
$content = '';
|
|
|
|
|
|
$line = '';
|
|
|
|
|
|
|
|
|
|
|
|
//no optimizing code
|
|
|
|
|
|
if ($handle) {
|
|
|
|
|
|
while (!feof($handle)) {
|
|
|
|
|
|
//$line = trim( fgets($handle, 16096) ) . "\n" ;
|
|
|
|
|
|
$line = fgets($handle, 16096);
|
|
|
|
|
|
$content .= $line;
|
|
|
|
|
|
}
|
|
|
|
|
|
fclose($handle);
|
|
|
|
|
|
}
|
|
|
|
|
|
return $content;
|
|
|
|
|
|
//end NO optimizing code
|
|
|
|
|
|
//begin optimizing code
|
|
|
|
|
|
/*
|
|
|
|
|
|
if ($handle) {
|
|
|
|
|
|
while (!feof($handle)) {
|
|
|
|
|
|
$lastChar = ( strlen ( $line ) > 5 ) ? $line[strlen($line)-1] : '';
|
|
|
|
|
|
|
|
|
|
|
|
$line = trim( fgets($handle, 16096) ) ;
|
|
|
|
|
|
if ( substr ($line,0,2 ) == '//' ) $line = '';
|
|
|
|
|
|
$firstChar = ( strlen ( $line ) > 6 ) ? strtolower($line[0]) : '';
|
|
|
|
|
|
if ( ord( $firstChar ) > 96 && ord($firstChar) < 122 && $lastChar == ';')
|
|
|
|
|
|
$content .= '';
|
|
|
|
|
|
else
|
|
|
|
|
|
$content .= "\n";
|
|
|
|
|
|
// $content .= '('.$firstChar . $lastChar . ord( $firstChar ).'-'. ord( $lastChar ) . ")\n";
|
|
|
|
|
|
|
|
|
|
|
|
$content .= $line;
|
|
|
|
|
|
}
|
|
|
|
|
|
fclose($handle);
|
|
|
|
|
|
}
|
|
|
|
|
|
*/
|
|
|
|
|
|
//end optimizing code
|
|
|
|
|
|
|
|
|
|
|
|
$index = 0;
|
|
|
|
|
|
$output = '';
|
|
|
|
|
|
while ( $index < strlen ($content) ) {
|
|
|
|
|
|
$car = $content[$index];
|
|
|
|
|
|
$index++;
|
|
|
|
|
|
if ( $car == '/' && isset($content[$index]) && $content[$index] == '*' ) {
|
|
|
|
|
|
$endComment = false;
|
|
|
|
|
|
$index ++;
|
|
|
|
|
|
while ( $endComment == false && $index < strlen ($content) ) {
|
|
|
|
|
|
if ($content[$index] == '*' && isset($content[$index+1]) && $content[$index+1] == '/' ) {
|
|
|
|
|
|
$endComment = true; $index ++;
|
|
|
|
|
|
}
|
|
|
|
|
|
$index ++;
|
|
|
|
|
|
}
|
|
|
|
|
|
$car = '';
|
|
|
|
|
|
}
|
|
|
|
|
|
$output .= $car;
|
|
|
|
|
|
}
|
|
|
|
|
|
return $output;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
2010-12-22 14:21:52 +00:00
|
|
|
|
* sendHeaders
|
2010-12-02 23:34:41 +00:00
|
|
|
|
*
|
|
|
|
|
|
* @param string $filename
|
|
|
|
|
|
* @param string $contentType default value ''
|
|
|
|
|
|
* @param boolean $download default value false
|
|
|
|
|
|
* @param string $downloadFileName default value ''
|
|
|
|
|
|
*
|
|
|
|
|
|
* @return void
|
|
|
|
|
|
*/
|
|
|
|
|
|
function sendHeaders ( $filename , $contentType = '', $download = false, $downloadFileName = '' )
|
|
|
|
|
|
{
|
|
|
|
|
|
if ($download) {
|
|
|
|
|
|
if ($downloadFileName == '') {
|
|
|
|
|
|
$aAux = explode('/', $filename);
|
|
|
|
|
|
$downloadFileName = $aAux[count($aAux) - 1];
|
|
|
|
|
|
}
|
|
|
|
|
|
header('Content-Disposition: attachment; filename="' . $downloadFileName . '"');
|
|
|
|
|
|
}
|
|
|
|
|
|
header('Content-Type: ' . $contentType);
|
|
|
|
|
|
|
|
|
|
|
|
//if userAgent (BROWSER) is MSIE we need special headers to avoid MSIE behaivor.
|
|
|
|
|
|
$userAgent = strtolower($_SERVER['HTTP_USER_AGENT']);
|
|
|
|
|
|
if ( preg_match("/msie/i", $userAgent)) {
|
|
|
|
|
|
//if ( ereg("msie", $userAgent)) {
|
|
|
|
|
|
header('Pragma: cache');
|
|
|
|
|
|
|
|
|
|
|
|
$mtime = filemtime($filename);
|
|
|
|
|
|
$gmt_mtime = gmdate("D, d M Y H:i:s", $mtime ) . " GMT";
|
|
|
|
|
|
header('ETag: "' . md5 ($mtime . $filename ) . '"' );
|
|
|
|
|
|
header("Last-Modified: " . $gmt_mtime );
|
|
|
|
|
|
header('Cache-Control: public');
|
|
|
|
|
|
header("Expires: " . gmdate("D, d M Y H:i:s", time () + 60*10 ) . " GMT"); //ten minutes
|
|
|
|
|
|
return;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
if (!$download) {
|
|
|
|
|
|
|
|
|
|
|
|
header('Pragma: cache');
|
|
|
|
|
|
|
|
|
|
|
|
$mtime = filemtime($filename);
|
|
|
|
|
|
$gmt_mtime = gmdate("D, d M Y H:i:s", $mtime ) . " GMT";
|
|
|
|
|
|
header('ETag: "' . md5 ($mtime . $filename ) . '"' );
|
|
|
|
|
|
header("Last-Modified: " . $gmt_mtime );
|
|
|
|
|
|
header('Cache-Control: public');
|
|
|
|
|
|
header("Expires: " . gmdate("D, d M Y H:i:s", time () + 90*60*60*24 ) . " GMT");
|
|
|
|
|
|
if( isset($_SERVER['HTTP_IF_MODIFIED_SINCE']) ) {
|
|
|
|
|
|
if ($_SERVER['HTTP_IF_MODIFIED_SINCE'] == $gmt_mtime) {
|
|
|
|
|
|
header('HTTP/1.1 304 Not Modified');
|
|
|
|
|
|
exit();
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
if (isset($_SERVER['HTTP_IF_NONE_MATCH'])) {
|
|
|
|
|
|
if ( str_replace('"', '', stripslashes($_SERVER['HTTP_IF_NONE_MATCH'])) == md5( $mtime . $filename)) {
|
|
|
|
|
|
header("HTTP/1.1 304 Not Modified");
|
|
|
|
|
|
exit();
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Transform a public URL into a local path.
|
|
|
|
|
|
*
|
|
|
|
|
|
* @author David S. Callizaya S. <davidsantos@colosa.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @param string $url
|
|
|
|
|
|
* @param string $corvertionTable
|
|
|
|
|
|
* @param string $realPath = local path
|
|
|
|
|
|
* @return boolean
|
|
|
|
|
|
*/
|
|
|
|
|
|
function virtualURI( $url , $convertionTable , &$realPath )
|
|
|
|
|
|
{
|
|
|
|
|
|
foreach($convertionTable as $urlPattern => $localPath ) {
|
|
|
|
|
|
// $urlPattern = addcslashes( $urlPattern , '/');
|
|
|
|
|
|
$urlPattern = addcslashes( $urlPattern , './');
|
|
|
|
|
|
$urlPattern = '/^' . str_replace(
|
|
|
|
|
|
array('*','?'),
|
|
|
|
|
|
array('.*','.?'),
|
|
|
|
|
|
$urlPattern) . '$/';
|
|
|
|
|
|
if (preg_match($urlPattern , $url, $match)) {
|
|
|
|
|
|
if ($localPath === FALSE) {
|
|
|
|
|
|
$realPath = $url;
|
|
|
|
|
|
return false;
|
|
|
|
|
|
}
|
|
|
|
|
|
if ( $localPath != 'jsMethod' )
|
|
|
|
|
|
$realPath = $localPath . $match[1];
|
|
|
|
|
|
else
|
|
|
|
|
|
$realPath = $localPath;
|
|
|
|
|
|
return true;
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
$realPath = $url;
|
|
|
|
|
|
return false;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Create an encrypted unique identifier based on $id and the selected scope id.
|
|
|
|
|
|
*
|
|
|
|
|
|
* @author David S. Callizaya S. <davidsantos@colosa.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @param string $scope
|
|
|
|
|
|
* @param string $id
|
|
|
|
|
|
* @return string
|
|
|
|
|
|
*/
|
|
|
|
|
|
function createUID( $scope, $id )
|
|
|
|
|
|
{
|
|
|
|
|
|
$e = $scope . $id;
|
|
|
|
|
|
$e=G::encrypt( $e , URL_KEY );
|
|
|
|
|
|
$e=str_replace(array('+','/','='),array('__','_','___'),base64_encode($e));
|
|
|
|
|
|
return $e;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* (Create an encrypted unique identificator based on $id and the selected scope id.) ^-1
|
2010-12-22 14:21:52 +00:00
|
|
|
|
* getUIDName
|
|
|
|
|
|
*
|
2010-12-02 23:34:41 +00:00
|
|
|
|
* @author David S. Callizaya S. <davidsantos@colosa.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @param string $id
|
|
|
|
|
|
* @param string $scope
|
|
|
|
|
|
* @return string
|
|
|
|
|
|
*/
|
|
|
|
|
|
function getUIDName( $uid , $scope = '' )
|
|
|
|
|
|
{
|
|
|
|
|
|
$e=str_replace(array('=','+','/'),array('___','__','_'),$uid);
|
|
|
|
|
|
$e=base64_decode($e);
|
|
|
|
|
|
$e=G::decrypt( $e , URL_KEY );
|
|
|
|
|
|
$e=substr( $e , strlen($scope) );
|
|
|
|
|
|
return $e;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/* formatNumber
|
|
|
|
|
|
*
|
|
|
|
|
|
* @author David Callizaya <calidavidx21@yahoo.com.ar>
|
|
|
|
|
|
* @param int/string $num
|
|
|
|
|
|
* @return string number
|
|
|
|
|
|
*/
|
|
|
|
|
|
function formatNumber($num, $language='latin')
|
|
|
|
|
|
{
|
|
|
|
|
|
switch($language)
|
|
|
|
|
|
{
|
|
|
|
|
|
default:
|
|
|
|
|
|
$snum=$num;
|
|
|
|
|
|
}
|
|
|
|
|
|
return $snum;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/* Returns a date formatted according to the given format string
|
|
|
|
|
|
* @author David Callizaya <calidavidx21@hotmail.com>
|
|
|
|
|
|
* @param string $format The format of the outputted date string
|
|
|
|
|
|
* @param string $datetime Date in the format YYYY-MM-DD HH:MM:SS
|
|
|
|
|
|
*/
|
|
|
|
|
|
function formatDate($datetime, $format='Y-m-d', $lang='')
|
|
|
|
|
|
{
|
|
|
|
|
|
if ($lang==='') $lang=defined(SYS_LANG)?SYS_LANG:'en';
|
|
|
|
|
|
$aux = explode (' ', $datetime); //para dividir la fecha del dia
|
|
|
|
|
|
$date = explode ('-', isset ( $aux[0] ) ? $aux[0] : '00-00-00' ); //para obtener los dias, el mes, y el año.
|
|
|
|
|
|
$time = explode (':', isset ( $aux[1] ) ? $aux[1] : '00:00:00' ); //para obtener las horas, minutos, segundos.
|
|
|
|
|
|
$date[0] = (int)((isset($date[0]))?$date[0]:'0');
|
|
|
|
|
|
$date[1] = (int)((isset($date[1]))?$date[1]:'0');
|
|
|
|
|
|
$date[2] = (int)((isset($date[2]))?$date[2]:'0');
|
|
|
|
|
|
$time[0] = (int)((isset($time[0]))?$time[0]:'0');
|
|
|
|
|
|
$time[1] = (int)((isset($time[1]))?$time[1]:'0');
|
|
|
|
|
|
$time[2] = (int)((isset($time[2]))?$time[2]:'0');
|
|
|
|
|
|
// Spanish months
|
|
|
|
|
|
$ARR_MONTHS['es'] = array ("Enero","Febrero","Marzo","Abril","Mayo","Junio","Julio","Agosto","Septiembre","Octubre","Noviembre","Diciembre");
|
|
|
|
|
|
// English months
|
|
|
|
|
|
$ARR_MONTHS['en'] = array("January", "February", "March", "April", "May", "June","July", "August", "September", "October", "November", "December");
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
// Spanish days
|
|
|
|
|
|
$ARR_WEEKDAYS['es'] = array("Domingo", "Lunes", "Martes", "Miércoles", "Jueves", "Viernes", "Sábado");
|
|
|
|
|
|
// English days
|
|
|
|
|
|
$ARR_WEEKDAYS['en'] = array("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday");
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
if ($lang=='fa')
|
|
|
|
|
|
$number='persian';
|
|
|
|
|
|
else
|
|
|
|
|
|
$number='latin';
|
|
|
|
|
|
$d = '0'.$date[2];$d=G::formatNumber(substr($d,strlen($d)-2,2),$number);
|
|
|
|
|
|
$j = G::formatNumber($date[2],$number);
|
|
|
|
|
|
$F = isset ( $ARR_MONTHS[$lang][$date[1]-1] ) ? $ARR_MONTHS[$lang][$date[1]-1] : '';
|
|
|
|
|
|
$m = '0'.$date[1];$m=G::formatNumber(substr($m,strlen($m)-2,2),$number);
|
|
|
|
|
|
$n = G::formatNumber($date[1],$number);
|
|
|
|
|
|
$y = G::formatNumber(substr($date[0],strlen($date[0])-2,2),$number);
|
|
|
|
|
|
$Y = '0000'.$date[0];$Y=G::formatNumber(substr($Y,strlen($Y)-4,4),$number);
|
|
|
|
|
|
$g = ($time[0] % 12);if ($g===0)$g=12;
|
|
|
|
|
|
$G = $time[0];
|
|
|
|
|
|
$h = '0'.$g;$h=G::formatNumber(substr($h,strlen($h)-2,2),$number);
|
|
|
|
|
|
$H = '0'.$G;$H=G::formatNumber(substr($H,strlen($H)-2,2),$number);
|
|
|
|
|
|
$i = '0'.$time[1];$i=G::formatNumber(substr($i,strlen($i)-2,2),$number);
|
|
|
|
|
|
$s = '0'.$time[2];$s=G::formatNumber(substr($s,strlen($s)-2,2),$number);
|
|
|
|
|
|
$names=array('d','j','F','m','n','y','Y','g','G','h','H','i','s');
|
|
|
|
|
|
$values=array($d, $j, $F, $m, $n, $y, $Y, $g, $G, $h, $H, $i, $s);
|
|
|
|
|
|
$_formatedDate = str_replace( $names, $values, $format );
|
|
|
|
|
|
return $_formatedDate;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* getformatedDate
|
|
|
|
|
|
*
|
|
|
|
|
|
* @param date $date
|
|
|
|
|
|
* @param string $format default value 'yyyy-mm-dd',
|
|
|
|
|
|
* @param string $lang default value ''
|
|
|
|
|
|
*
|
|
|
|
|
|
* @return string $ret
|
|
|
|
|
|
*/
|
|
|
|
|
|
function getformatedDate($date, $format = 'yyyy-mm-dd', $lang = '')
|
|
|
|
|
|
{
|
|
|
|
|
|
/********************************************************************************************************
|
|
|
|
|
|
* if the year is 2008 and the format is yy then -> 08
|
|
|
|
|
|
* if the year is 2008 and the format is yyyy then -> 2008
|
|
|
|
|
|
*
|
|
|
|
|
|
* if the month is 05 and the format is mm then -> 05
|
|
|
|
|
|
* if the month is 05 and the format is m and the month is less than 10 then -> 5 else digit normal
|
|
|
|
|
|
* if the month is 05 and the format is MM or M then -> May
|
|
|
|
|
|
*
|
|
|
|
|
|
* if the day is 5 and the format is dd then -> 05
|
|
|
|
|
|
* if the day is 5 and the format is d and the day is less than 10 then -> 5 else digit normal
|
|
|
|
|
|
* if the day is 5 and the format is DD or D then -> five
|
|
|
|
|
|
*********************************************************************************************************/
|
|
|
|
|
|
|
|
|
|
|
|
//scape the literal
|
|
|
|
|
|
switch($lang) {
|
|
|
|
|
|
case 'es':
|
|
|
|
|
|
$format = str_replace(' de ', '[of]', $format);
|
|
|
|
|
|
break;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
//first we must formatted the string
|
|
|
|
|
|
$format = str_replace('yyyy', '{YEAR}', $format);
|
|
|
|
|
|
$format = str_replace('yy', '{year}', $format);
|
|
|
|
|
|
|
|
|
|
|
|
$format = str_replace('mm', '{YONTH}', $format);
|
|
|
|
|
|
$format = str_replace('m', '{month}', $format);
|
|
|
|
|
|
$format = str_replace('M', '{XONTH}', $format);
|
|
|
|
|
|
|
|
|
|
|
|
$format = str_replace('dd', '{DAY}', $format);
|
|
|
|
|
|
$format = str_replace('d', '{day}', $format);
|
|
|
|
|
|
|
|
|
|
|
|
if ($lang==='') $lang=defined(SYS_LANG)?SYS_LANG:'en';
|
|
|
|
|
|
|
|
|
|
|
|
$aux = explode (' ', $date); //para dividir la fecha del dia
|
|
|
|
|
|
$date = explode ('-', isset ( $aux[0] ) ? $aux[0] : '00-00-00' ); //para obtener los dias, el mes, y el año.
|
|
|
|
|
|
$time = explode (':', isset ( $aux[1] ) ? $aux[1] : '00:00:00' ); //para obtener las horas, minutos, segundos.
|
|
|
|
|
|
|
|
|
|
|
|
$year = (int)((isset($date[0]))?$date[0]:'0'); //year
|
|
|
|
|
|
$month = (int)((isset($date[1]))?$date[1]:'0'); //month
|
|
|
|
|
|
$day = (int)((isset($date[2]))?$date[2]:'0'); //day
|
|
|
|
|
|
|
|
|
|
|
|
$time[0] = (int)((isset($time[0]))?$time[0]:'0'); //hour
|
|
|
|
|
|
$time[1] = (int)((isset($time[1]))?$time[1]:'0'); //minute
|
|
|
|
|
|
$time[2] = (int)((isset($time[2]))?$time[2]:'0'); //second
|
|
|
|
|
|
|
|
|
|
|
|
$MONTHS = Array();
|
|
|
|
|
|
for($i=1; $i<=12; $i++){
|
|
|
|
|
|
$MONTHS[$i] = G::LoadTranslation("ID_MONTH_$i", $lang);
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
$d = (int)$day;
|
|
|
|
|
|
$dd = G::complete_field($day, 2, 1);
|
|
|
|
|
|
|
|
|
|
|
|
//missing D
|
|
|
|
|
|
|
|
|
|
|
|
$M = $MONTHS[$month];
|
|
|
|
|
|
$m = (int)$month;
|
|
|
|
|
|
$mm = G::complete_field($month, 2, 1);
|
|
|
|
|
|
|
|
|
|
|
|
$yy = substr($year,strlen($year)-2,2);
|
|
|
|
|
|
$yyyy = $year;
|
|
|
|
|
|
|
|
|
|
|
|
$names = array('{day}', '{DAY}', '{month}', '{YONTH}', '{XONTH}', '{year}', '{YEAR}');
|
|
|
|
|
|
$values = array($d, $dd, $m, $mm, $M, $yy, $yyyy);
|
|
|
|
|
|
|
|
|
|
|
|
$ret = str_replace( $names, $values, $format );
|
|
|
|
|
|
|
|
|
|
|
|
//recovering the original literal
|
|
|
|
|
|
switch($lang){
|
|
|
|
|
|
case 'es':
|
|
|
|
|
|
$ret = str_replace('[of]', ' de ', $ret);
|
|
|
|
|
|
break;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
return $ret;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* By <erik@colosa.com>
|
|
|
|
|
|
* Here's a little wrapper for array_diff - I found myself needing
|
|
|
|
|
|
* to iterate through the edited array, and I didn't need to original keys for anything.
|
|
|
|
|
|
*/
|
|
|
|
|
|
function arrayDiff($array1, $array2) {
|
|
|
|
|
|
// This wrapper for array_diff rekeys the array returned
|
|
|
|
|
|
$valid_array = array_diff($array1,$array2);
|
|
|
|
|
|
|
|
|
|
|
|
// reinstantiate $array1 variable
|
|
|
|
|
|
$array1 = array();
|
|
|
|
|
|
|
|
|
|
|
|
// loop through the validated array and move elements to $array1
|
|
|
|
|
|
// this is necessary because the array_diff function returns arrays that retain their original keys
|
|
|
|
|
|
foreach ($valid_array as $valid){
|
|
|
|
|
|
$array1[] = $valid;
|
|
|
|
|
|
}
|
|
|
|
|
|
return $array1;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* @author Erik Amaru Ortiz <erik@colosa.com>
|
|
|
|
|
|
* @name complete_field($string, $lenght, $type={1:number/2:string/3:float})
|
|
|
|
|
|
*/
|
|
|
|
|
|
function complete_field($campo, $long, $tipo)
|
|
|
|
|
|
{
|
|
|
|
|
|
$campo = trim($campo);
|
|
|
|
|
|
switch($tipo)
|
|
|
|
|
|
{
|
|
|
|
|
|
case 1: //number
|
|
|
|
|
|
$long = $long-strlen($campo);
|
|
|
|
|
|
for($i=1; $i<=$long; $i++) {
|
|
|
|
|
|
$campo = "0".$campo;
|
|
|
|
|
|
}
|
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
|
|
case 2: //string
|
|
|
|
|
|
$long = $long-strlen($campo);
|
|
|
|
|
|
for($i=1; $i<=$long; $i++) {
|
|
|
|
|
|
$campo = " ".$campo;
|
|
|
|
|
|
}
|
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
|
|
case 3: //float
|
|
|
|
|
|
if($campo!="0") {
|
|
|
|
|
|
$vals = explode(".",$long);
|
|
|
|
|
|
$ints = $vals[0];
|
|
|
|
|
|
|
|
|
|
|
|
$decs = $vals[1];
|
|
|
|
|
|
|
|
|
|
|
|
$valscampo = explode(".",$campo);
|
|
|
|
|
|
|
|
|
|
|
|
$intscampo = $valscampo[0];
|
|
|
|
|
|
$decscampo = $valscampo[1];
|
|
|
|
|
|
|
|
|
|
|
|
$ints = $ints - strlen($intscampo);
|
|
|
|
|
|
|
|
|
|
|
|
for($i=1; $i<=$ints; $i++) {
|
|
|
|
|
|
$intscampo = "0".$intscampo;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
//los decimales pueden ser 0 uno o dos
|
|
|
|
|
|
$decs = $decs - strlen($decscampo);
|
|
|
|
|
|
for($i=1; $i<=$decs; $i++) {
|
|
|
|
|
|
$decscampo = $decscampo."0";
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
$campo = $intscampo.".".$decscampo;
|
|
|
|
|
|
} else {
|
|
|
|
|
|
$vals = explode(".",$long);
|
|
|
|
|
|
$ints = $vals[0];
|
|
|
|
|
|
$decs = $vals[1];
|
|
|
|
|
|
|
|
|
|
|
|
$campo = "";
|
|
|
|
|
|
for($i=1; $i<=$ints; $i++) {
|
|
|
|
|
|
$campo = "0".$campo;
|
|
|
|
|
|
}
|
|
|
|
|
|
$campod = "";
|
|
|
|
|
|
for($i=1; $i<=$decs; $i++) {
|
|
|
|
|
|
$campod = "0".$campod;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
$campo = $campo.".".$campod;
|
|
|
|
|
|
}
|
|
|
|
|
|
break;
|
|
|
|
|
|
}
|
|
|
|
|
|
return $campo;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/* Escapes special characters in a string for use in a SQL statement
|
|
|
|
|
|
* @author David Callizaya <calidavidx21@hotmail.com>
|
|
|
|
|
|
* @param string $sqlString The string to be escaped
|
|
|
|
|
|
* @param string $DBEngine Target DBMS
|
|
|
|
|
|
*/
|
2010-12-17 15:06:03 +00:00
|
|
|
|
function sqlEscape( $sqlString, $DBEngine = DB_ADAPTER )
|
2010-12-02 23:34:41 +00:00
|
|
|
|
{
|
2010-12-17 15:06:03 +00:00
|
|
|
|
$DBEngine = DB_ADAPTER;
|
2010-12-02 23:34:41 +00:00
|
|
|
|
switch($DBEngine){
|
|
|
|
|
|
case 'mysql':
|
|
|
|
|
|
$con = Propel::getConnection('workflow') ;
|
|
|
|
|
|
return mysql_real_escape_string(stripslashes($sqlString), $con->getResource() );
|
|
|
|
|
|
case 'myxml':
|
|
|
|
|
|
$sqlString = str_replace('"', '""', $sqlString);
|
|
|
|
|
|
return str_replace("'", "''", $sqlString);
|
|
|
|
|
|
//return str_replace(array('"',"'"),array('""',"''"),stripslashes($sqlString));
|
|
|
|
|
|
default:
|
|
|
|
|
|
return addslashes(stripslashes($sqlString));
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
2010-12-21 22:30:42 +00:00
|
|
|
|
|
2011-01-04 20:27:02 +00:00
|
|
|
|
/**
|
|
|
|
|
|
* Function MySQLSintaxis
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @return Boolean
|
|
|
|
|
|
**/
|
2010-12-21 22:30:42 +00:00
|
|
|
|
function MySQLSintaxis()
|
|
|
|
|
|
{
|
|
|
|
|
|
$DBEngine = DB_ADAPTER;
|
|
|
|
|
|
switch($DBEngine){
|
|
|
|
|
|
case 'mysql' :
|
|
|
|
|
|
return TRUE;
|
|
|
|
|
|
break;
|
|
|
|
|
|
case 'mssql' :
|
|
|
|
|
|
default:
|
|
|
|
|
|
return FALSE;
|
|
|
|
|
|
break;
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
2010-12-02 23:34:41 +00:00
|
|
|
|
/* Returns a sql string with @@parameters replaced with its values defined
|
|
|
|
|
|
* in array $result using the next notation:
|
|
|
|
|
|
* NOTATION:
|
|
|
|
|
|
* @@ Quoted parameter acording to the SYSTEM's Database
|
|
|
|
|
|
* @Q Double quoted parameter \\ \"
|
|
|
|
|
|
* @q Single quoted parameter \\ \'
|
|
|
|
|
|
* @% URL string
|
|
|
|
|
|
* @# Non-quoted parameter
|
|
|
|
|
|
* @! Evaluate string : Replace the parameters in value and then in the sql string
|
|
|
|
|
|
* @fn() Evaluate string with the function "fn"
|
|
|
|
|
|
* @author David Callizaya <calidavidx21@hotmail.com>
|
|
|
|
|
|
*/
|
|
|
|
|
|
function replaceDataField( $sqlString, $result, $DBEngine = 'mysql' )
|
|
|
|
|
|
{
|
|
|
|
|
|
if (!is_array($result)) {
|
|
|
|
|
|
$result = array();
|
|
|
|
|
|
}
|
|
|
|
|
|
$result = $result + G::getSystemConstants();
|
|
|
|
|
|
$__textoEval = "";
|
|
|
|
|
|
$u = 0;
|
|
|
|
|
|
//$count=preg_match_all('/\@(?:([\@\%\#\!Qq])([a-zA-Z\_]\w*)|([a-zA-Z\_][\w\-\>\:]*)\(((?:[^\\\\\)]*(?:[\\\\][\w\W])?)*)\))/',$sqlString,$match,PREG_PATTERN_ORDER | PREG_OFFSET_CAPTURE);
|
|
|
|
|
|
$count = preg_match_all('/\@(?:([\@\%\#\!Qq])([a-zA-Z\_]\w*)|([a-zA-Z\_][\w\-\>\:]*)\(((?:[^\\\\\)]*?)*)\))/',$sqlString,$match,PREG_PATTERN_ORDER | PREG_OFFSET_CAPTURE);
|
|
|
|
|
|
|
|
|
|
|
|
if ($count) {
|
|
|
|
|
|
for($r=0;$r<$count;$r++) {
|
|
|
|
|
|
if (!isset($result[$match[2][$r][0]]))
|
|
|
|
|
|
$result[$match[2][$r][0]] = '';
|
|
|
|
|
|
if (!is_array($result[$match[2][$r][0]])) {
|
|
|
|
|
|
$__textoEval.=substr($sqlString,$u,$match[0][$r][1]-$u);
|
|
|
|
|
|
$u = $match[0][$r][1]+strlen($match[0][$r][0]);
|
|
|
|
|
|
//Mysql quotes scape
|
|
|
|
|
|
if (($match[1][$r][0]=='@')&&(isset($result[$match[2][$r][0]]))) {
|
|
|
|
|
|
$__textoEval.="\"". G::sqlEscape($result[$match[2][$r][0]],$DBEngine) ."\"";continue;
|
|
|
|
|
|
}
|
|
|
|
|
|
//URL encode
|
|
|
|
|
|
if (($match[1][$r][0]=='%')&&(isset($result[$match[2][$r][0]]))) {
|
|
|
|
|
|
$__textoEval.=urlencode($result[$match[2][$r][0]]);continue;
|
|
|
|
|
|
}
|
|
|
|
|
|
//Double quoted parameter
|
|
|
|
|
|
if (($match[1][$r][0]=='Q')&&(isset($result[$match[2][$r][0]]))) {
|
|
|
|
|
|
$__textoEval.='"'.addcslashes($result[$match[2][$r][0]],'\\"').'"';continue;
|
|
|
|
|
|
}
|
|
|
|
|
|
//Single quoted parameter
|
|
|
|
|
|
if (($match[1][$r][0]=='q')&&(isset($result[$match[2][$r][0]]))) {
|
|
|
|
|
|
$__textoEval.="'".addcslashes($result[$match[2][$r][0]],'\\\'')."'";continue;
|
|
|
|
|
|
}
|
|
|
|
|
|
//Substring (Sub replaceDataField)
|
|
|
|
|
|
if (($match[1][$r][0]=='!')&&(isset($result[$match[2][$r][0]]))) {
|
|
|
|
|
|
$__textoEval.=G::replaceDataField($result[$match[2][$r][0]],$result);continue;
|
|
|
|
|
|
}
|
|
|
|
|
|
//Call function
|
|
|
|
|
|
if (($match[1][$r][0]==='')&&($match[2][$r][0]==='')&&($match[3][$r][0]!=='')) {
|
|
|
|
|
|
eval('$__textoEval.='.$match[3][$r][0].'(\''.addcslashes(G::replaceDataField(stripslashes($match[4][$r][0]),$result),'\\\'').'\');');continue;
|
|
|
|
|
|
}
|
|
|
|
|
|
//Non-quoted
|
|
|
|
|
|
if (($match[1][$r][0]=='#')&&(isset($result[$match[2][$r][0]]))) {
|
|
|
|
|
|
$__textoEval.=G::replaceDataField($result[$match[2][$r][0]],$result);continue;
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
$__textoEval.=substr($sqlString,$u);
|
|
|
|
|
|
return $__textoEval;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/* Load strings from a XMLFile.
|
|
|
|
|
|
* @author David Callizaya <davidsantos@colosa.com>
|
|
|
|
|
|
* @parameter $languageFile An xml language file.
|
|
|
|
|
|
* @parameter $languageId (es|en|...).
|
|
|
|
|
|
* @parameter $forceParse Force to read and parse the xml file.
|
|
|
|
|
|
*/
|
|
|
|
|
|
function loadLanguageFile ( $filename , $languageId = '', $forceParse = false )
|
|
|
|
|
|
{
|
|
|
|
|
|
global $arrayXmlMessages;
|
|
|
|
|
|
if ($languageId==='') $languageId = defined('SYS_LANG') ? SYS_LANG : 'en';
|
|
|
|
|
|
$languageFile = basename( $filename , '.xml' );
|
|
|
|
|
|
$cacheFile = substr( $filename , 0 ,-3 ) . $languageId;
|
|
|
|
|
|
if (($forceParse) || (!file_exists($cacheFile)) ||
|
|
|
|
|
|
( filemtime($filename) > filemtime($cacheFile))
|
|
|
|
|
|
//|| ( filemtime(__FILE__) > filemtime($cacheFile))
|
|
|
|
|
|
) {
|
|
|
|
|
|
$languageDocument = new Xml_document();
|
|
|
|
|
|
$languageDocument->parseXmlFile( $filename );
|
|
|
|
|
|
if (!is_array($arrayXmlMessages)) $arrayXmlMessages = array();
|
|
|
|
|
|
$arrayXmlMessages[ $languageFile ] = array();
|
|
|
|
|
|
for($r=0 ; $r < sizeof($languageDocument->children[0]->children) ; $r++ ) {
|
|
|
|
|
|
$n = $languageDocument->children[0]->children[$r]->findNode($languageId);
|
|
|
|
|
|
if ($n) {
|
|
|
|
|
|
$k = $languageDocument->children[0]->children[$r]->name;
|
|
|
|
|
|
$arrayXmlMessages[ $languageFile ][ $k ] = $n->value;
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
$f = fopen( $cacheFile , 'w');
|
2011-01-06 11:11:53 +00:00
|
|
|
|
fwrite( $f , "<?php\n" );
|
2010-12-02 23:34:41 +00:00
|
|
|
|
fwrite( $f , '$arrayXmlMessages[\'' . $languageFile . '\']=' . 'unserialize(\'' .
|
|
|
|
|
|
addcslashes( serialize ( $arrayXmlMessages[ $languageFile ] ), '\\\'' ) .
|
|
|
|
|
|
"');\n");
|
|
|
|
|
|
fwrite( $f , "?>" );
|
|
|
|
|
|
fclose( $f );
|
|
|
|
|
|
} else {
|
|
|
|
|
|
require( $cacheFile );
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
/* Funcion auxiliar Temporal:
|
|
|
|
|
|
* Registra en la base de datos los labels xml usados en el sistema
|
|
|
|
|
|
* @author David Callizaya <calidavidx21@hotmail.com>
|
|
|
|
|
|
*/
|
|
|
|
|
|
function registerLabel( $id , $label )
|
|
|
|
|
|
{
|
|
|
|
|
|
return 1;
|
|
|
|
|
|
$dbc = new DBConnection();
|
|
|
|
|
|
$ses = new DBSession($dbc);
|
|
|
|
|
|
$ses->Execute(G::replaceDataField(
|
|
|
|
|
|
'REPLACE INTO `TRANSLATION` (`TRN_CATEGORY`, `TRN_ID`, `TRN_LANG`, `TRN_VALUE`) VALUES
|
|
|
|
|
|
("LABEL", @@ID, "'.SYS_LANG.'", @@LABEL);',array('ID'=>$id,'LABEL'=>($label !== null ? $label : ''))));
|
|
|
|
|
|
}
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Function LoadMenuXml
|
|
|
|
|
|
* @author David S. Callizaya S. <davidsantos@colosa.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @parameter string msgID
|
|
|
|
|
|
* @return string
|
|
|
|
|
|
*/
|
|
|
|
|
|
function LoadMenuXml( $msgID )
|
|
|
|
|
|
{
|
|
|
|
|
|
global $arrayXmlMessages;
|
|
|
|
|
|
if (!isset($arrayXmlMessages['menus']))
|
|
|
|
|
|
G::loadLanguageFile( G::ExpandPath('content') . 'languages/menus.xml' );
|
|
|
|
|
|
G::registerLabel($msgID,$arrayXmlMessages['menus'][$msgID]);
|
|
|
|
|
|
return $arrayXmlMessages['menus'][$msgID];
|
|
|
|
|
|
}
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Function SendMessageXml
|
|
|
|
|
|
* @author David S. Callizaya S. <davidsantos@colosa.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @parameter string msgID
|
|
|
|
|
|
* @parameter string strType
|
|
|
|
|
|
* @parameter string file
|
|
|
|
|
|
* @return string
|
|
|
|
|
|
*/
|
|
|
|
|
|
function SendMessageXml( $msgID, $strType , $file="labels")
|
|
|
|
|
|
{
|
|
|
|
|
|
global $arrayXmlMessages;
|
|
|
|
|
|
if (!isset($arrayXmlMessages[$file]))
|
|
|
|
|
|
G::loadLanguageFile( G::ExpandPath('content') . 'languages/' . $file . '.xml' );
|
|
|
|
|
|
$_SESSION['G_MESSAGE_TYPE'] = $strType;
|
|
|
|
|
|
G::registerLabel($msgID,$arrayXmlMessages[$file][$msgID]);
|
|
|
|
|
|
$_SESSION['G_MESSAGE'] = nl2br ($arrayXmlMessages[$file][$msgID]);
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* SendTemporalMessage
|
|
|
|
|
|
*
|
|
|
|
|
|
* @param string $msgID
|
|
|
|
|
|
* @param string $strType
|
|
|
|
|
|
* @param string $sType default value 'LABEL'
|
|
|
|
|
|
* @param date $time default value null
|
|
|
|
|
|
* @param integer $width default value null
|
|
|
|
|
|
* @param string $customLabels default value null
|
|
|
|
|
|
*
|
|
|
|
|
|
* @return void
|
|
|
|
|
|
*/
|
|
|
|
|
|
function SendTemporalMessage($msgID, $strType, $sType='LABEL', $time=null, $width=null, $customLabels= null)
|
|
|
|
|
|
{
|
2010-12-03 15:43:29 +00:00
|
|
|
|
echo"Inside Send Temporal Message";
|
2010-12-02 23:34:41 +00:00
|
|
|
|
if( isset($width) ){
|
|
|
|
|
|
$_SESSION['G_MESSAGE_WIDTH'] = $width;
|
|
|
|
|
|
}
|
|
|
|
|
|
if( isset($time) ){
|
|
|
|
|
|
$_SESSION['G_MESSAGE_TIME'] = $time;
|
|
|
|
|
|
}
|
|
|
|
|
|
switch(strtolower($sType)){
|
|
|
|
|
|
case 'label':
|
|
|
|
|
|
case 'labels':
|
|
|
|
|
|
$_SESSION['G_MESSAGE_TYPE'] = $strType;
|
|
|
|
|
|
$_SESSION['G_MESSAGE'] = nl2br(G::LoadTranslation($msgID));
|
|
|
|
|
|
break;
|
|
|
|
|
|
case 'string':
|
|
|
|
|
|
$_SESSION['G_MESSAGE_TYPE'] = $strType;
|
|
|
|
|
|
$_SESSION['G_MESSAGE'] = nl2br($msgID);
|
|
|
|
|
|
break;
|
|
|
|
|
|
}
|
|
|
|
|
|
if ( $customLabels != null ) {
|
|
|
|
|
|
$message = $_SESSION['G_MESSAGE'];
|
|
|
|
|
|
foreach ( $customLabels as $key=>$val ) {
|
|
|
|
|
|
$message = str_replace ( '{' . nl2br($key) . '}' , nl2br($val), $message );
|
|
|
|
|
|
}
|
|
|
|
|
|
$_SESSION['G_MESSAGE'] = $message;
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* SendMessage
|
|
|
|
|
|
*
|
|
|
|
|
|
* @param string $msgID
|
|
|
|
|
|
* @param string $strType
|
|
|
|
|
|
* @param string $file default value "labels"
|
|
|
|
|
|
*
|
|
|
|
|
|
* @return void
|
|
|
|
|
|
*/
|
|
|
|
|
|
function SendMessage( $msgID, $strType , $file="labels")
|
|
|
|
|
|
{
|
|
|
|
|
|
global $arrayXmlMessages;
|
|
|
|
|
|
$_SESSION['G_MESSAGE_TYPE'] = $strType;
|
|
|
|
|
|
$_SESSION['G_MESSAGE'] = nl2br (G::LoadTranslation($msgID));
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* SendMessageText
|
|
|
|
|
|
* Just put the $text in the message text
|
|
|
|
|
|
*
|
|
|
|
|
|
* @param string $text
|
|
|
|
|
|
* @param string $strType
|
|
|
|
|
|
*
|
|
|
|
|
|
* @return void
|
|
|
|
|
|
*/
|
|
|
|
|
|
function SendMessageText( $text, $strType)
|
|
|
|
|
|
{
|
|
|
|
|
|
global $arrayXmlMessages;
|
|
|
|
|
|
$_SESSION['G_MESSAGE_TYPE'] = $strType;
|
|
|
|
|
|
$_SESSION['G_MESSAGE'] = nl2br ( $text );
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Render message from XML file
|
2010-12-22 14:21:52 +00:00
|
|
|
|
*
|
2010-12-02 23:34:41 +00:00
|
|
|
|
* @author Fernando Ontiveros Lira <fernando@colosa.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @param string $msgID
|
|
|
|
|
|
* @return void
|
|
|
|
|
|
*/
|
|
|
|
|
|
function LoadMessage( $msgID, $file = "messages" )
|
|
|
|
|
|
{
|
|
|
|
|
|
global $_SESSION;
|
|
|
|
|
|
global $arrayXmlMessages;
|
|
|
|
|
|
|
|
|
|
|
|
if ( !is_array ($arrayXmlMessages) )
|
|
|
|
|
|
$arrayXmlMessages = G::LoadArrayFile( G::ExpandPath( 'content' ) . $file . "." . SYS_LANG );
|
|
|
|
|
|
|
|
|
|
|
|
$aux = $arrayXmlMessages[$msgID];
|
|
|
|
|
|
$msg = "";
|
|
|
|
|
|
for ($i = 0; $i < strlen($aux); $i++) {
|
|
|
|
|
|
if ( $aux[$i] == "$") {
|
|
|
|
|
|
$token = ""; $i++;
|
|
|
|
|
|
while ($i < strlen ($aux) && $aux[$i]!=" " && $aux[$i]!="." && $aux[$i]!="'" && $aux[$i]!='"')
|
|
|
|
|
|
$token.= $aux[$i++];
|
|
|
|
|
|
eval ( "\$msg.= \$_SESSION['".$token."'] ; ");
|
|
|
|
|
|
$msg .= $aux[$i];
|
|
|
|
|
|
}
|
|
|
|
|
|
else
|
|
|
|
|
|
$msg = $msg . $aux[$i];
|
|
|
|
|
|
}
|
|
|
|
|
|
return $msg;
|
|
|
|
|
|
}
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Function LoadXmlLabel
|
|
|
|
|
|
* @author David S. Callizaya S. <davidsantos@colosa.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @parameter string file
|
|
|
|
|
|
* @parameter string msgID
|
|
|
|
|
|
* @return string
|
|
|
|
|
|
*/
|
|
|
|
|
|
function LoadXmlLabel( $msgID , $file = 'labels' )
|
|
|
|
|
|
{
|
|
|
|
|
|
return 'xxxxxx';
|
|
|
|
|
|
global $arrayXmlMessages;
|
|
|
|
|
|
if (!isset($arrayXmlMessages[$file]))
|
|
|
|
|
|
G::loadLanguageFile( G::ExpandPath('content') . 'languages/' . $file . '.xml' );
|
|
|
|
|
|
G::registerLabel($msgID,$arrayXmlMessages[$file][$msgID]);
|
|
|
|
|
|
return $arrayXmlMessages[$file][$msgID];
|
|
|
|
|
|
}
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Function LoadMessageXml
|
|
|
|
|
|
* @author David S. Callizaya S. <davidsantos@colosa.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @parameter string msgID
|
|
|
|
|
|
* @parameter string file
|
|
|
|
|
|
* @return string
|
|
|
|
|
|
*/
|
|
|
|
|
|
function LoadMessageXml( $msgID , $file ='labels' )
|
|
|
|
|
|
{
|
|
|
|
|
|
global $arrayXmlMessages;
|
|
|
|
|
|
if ( !isset($arrayXmlMessages[$file]) )
|
|
|
|
|
|
G::loadLanguageFile( G::ExpandPath('content') . 'languages/' . $file . '.xml' );
|
|
|
|
|
|
if ( isset($arrayXmlMessages[$file][$msgID]) ) {
|
|
|
|
|
|
G::registerLabel( $msgID, $arrayXmlMessages[$file][$msgID] );
|
|
|
|
|
|
return $arrayXmlMessages[$file][$msgID];
|
|
|
|
|
|
}
|
|
|
|
|
|
else {
|
|
|
|
|
|
G::registerLabel($msgID,'');
|
|
|
|
|
|
return NULL;
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Function LoadTranslationObject
|
|
|
|
|
|
* @description It generates a global Translation variable that will be used in all the system. Per script
|
|
|
|
|
|
* @author Hugo Loza. <hugo@colosa.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @parameter string lang
|
|
|
|
|
|
* @return void
|
|
|
|
|
|
*
|
|
|
|
|
|
* @note Refactored By Erik A.O. <erik@colosa.com> in Sep 9th, 2010
|
|
|
|
|
|
*/
|
|
|
|
|
|
function LoadTranslationObject($lang = SYS_LANG){
|
|
|
|
|
|
$defaultTranslations = Array();
|
|
|
|
|
|
$foreignTranslations = Array();
|
|
|
|
|
|
|
|
|
|
|
|
//if the default translations table doesn't exist we can't proceed
|
|
|
|
|
|
if( ! is_file(PATH_LANGUAGECONT . 'translation.en') )
|
|
|
|
|
|
return NULL;
|
|
|
|
|
|
|
|
|
|
|
|
//load the translations table
|
|
|
|
|
|
require_once ( PATH_LANGUAGECONT . 'translation.en' );
|
|
|
|
|
|
$defaultTranslations = $translation;
|
|
|
|
|
|
|
|
|
|
|
|
//if some foreign language was requested and its translation file exists
|
|
|
|
|
|
if( $lang != 'en' && file_exists(PATH_LANGUAGECONT . 'translation.' . $lang) ){
|
|
|
|
|
|
require_once ( PATH_LANGUAGECONT . 'translation.' . $lang ); //load the foreign translations table
|
|
|
|
|
|
$foreignTranslations = $translation;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
global $translation;
|
|
|
|
|
|
if( defined("SHOW_UNTRANSLATED_AS_TAG") && SHOW_UNTRANSLATED_AS_TAG != 0 )
|
|
|
|
|
|
$translation = $foreignTranslations;
|
|
|
|
|
|
else
|
|
|
|
|
|
$translation = array_merge($defaultTranslations, $foreignTranslations);
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Function LoadTranslation
|
|
|
|
|
|
* @author Aldo Mauricio Veliz Valenzuela. <mauricio@colosa.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @parameter string msgID
|
|
|
|
|
|
* @parameter string file
|
|
|
|
|
|
* @return string
|
|
|
|
|
|
*/
|
|
|
|
|
|
function LoadTranslation( $msgID , $lang = SYS_LANG )
|
|
|
|
|
|
{
|
|
|
|
|
|
global $translation;
|
|
|
|
|
|
if ( isset ( $translation[$msgID] ) ){
|
|
|
|
|
|
//return eregi_replace("[\n|\r|\n\r]", ' ', $translation[$msgID]);
|
|
|
|
|
|
return preg_replace("[\n|\r|\n\r]", ' ', $translation[$msgID]);
|
|
|
|
|
|
}else{
|
|
|
|
|
|
if(defined("UNTRANSLATED_MARK")){
|
|
|
|
|
|
$untranslatedMark = strip_tags(UNTRANSLATED_MARK);
|
|
|
|
|
|
}else{
|
|
|
|
|
|
$untranslatedMark = "**";
|
|
|
|
|
|
}
|
|
|
|
|
|
return $untranslatedMark . $msgID . $untranslatedMark;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Function getTranslations
|
|
|
|
|
|
* @author Erik Amaru O. <erik@colosa.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @parameter array msgIDs
|
|
|
|
|
|
* @parameter string file
|
|
|
|
|
|
* @return string
|
|
|
|
|
|
*/
|
|
|
|
|
|
function getTranslations($msgIDs , $lang = SYS_LANG)
|
|
|
|
|
|
{
|
|
|
|
|
|
if ( ! is_array($msgIDs) ) return null;
|
|
|
|
|
|
|
|
|
|
|
|
$translations = Array();
|
|
|
|
|
|
foreach( $msgIDs as $mID ) {
|
|
|
|
|
|
$translations[$mID] = self::LoadTranslation($mID , $lang);
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
return $translations;
|
|
|
|
|
|
}
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Load an array File Content
|
|
|
|
|
|
*
|
|
|
|
|
|
* @author Fernando Ontiveros Lira <fernando@colosa.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @param string $strFile
|
|
|
|
|
|
* @return void
|
|
|
|
|
|
*/
|
|
|
|
|
|
function LoadArrayFile( $strFile = '' )
|
|
|
|
|
|
{
|
|
|
|
|
|
$res = NULL;
|
|
|
|
|
|
if ( $strFile != '' )
|
|
|
|
|
|
{
|
|
|
|
|
|
$src = file( $strFile );
|
|
|
|
|
|
if( is_array( $src ) )
|
|
|
|
|
|
{
|
|
|
|
|
|
foreach( $src as $key => $val )
|
|
|
|
|
|
{
|
|
|
|
|
|
$res[$key] = trim( $val );
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
unset( $src );
|
|
|
|
|
|
return $res;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Expand an uri based in the current URI
|
|
|
|
|
|
*
|
|
|
|
|
|
* @author Fernando Ontiveros Lira <fernando@colosa.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @param string $methodPage the method directory and the page
|
|
|
|
|
|
* @return the expanded uri, later, will encryt the uri...
|
|
|
|
|
|
*/
|
|
|
|
|
|
function expandUri ( $methodPage ) {
|
|
|
|
|
|
$uri = explode ( '/', getenv ( 'REQUEST_URI' ) );
|
|
|
|
|
|
$sw = 0;
|
|
|
|
|
|
$newUri = '';
|
|
|
|
|
|
if ( !defined ( 'SYS_SKIN' ) ) {
|
|
|
|
|
|
for ( $i = 0; $i < count( $uri) ; $i++ ) {
|
|
|
|
|
|
if ( $sw == 0 ) $newUri .= $uri[ $i ] . PATH_SEP ;
|
|
|
|
|
|
if ( $uri[ $i ] == SYS_SKIN ) $sw = 1;
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
else {
|
|
|
|
|
|
for ( $i =0; $i < 4 ; $i++ ) {
|
|
|
|
|
|
if ( $sw == 0 ) $newUri .= $uri[ $i ] . PATH_SEP ;
|
|
|
|
|
|
if ( $uri[ $i ] == SYS_SKIN ) $sw = 1;
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
$newUri .= $methodPage;
|
|
|
|
|
|
return $newUri;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Forces login for generic applications
|
|
|
|
|
|
*
|
|
|
|
|
|
* @author Fernando Ontiveros Lira <fernando@colosa.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @param string $userid
|
|
|
|
|
|
* @param string $permission
|
|
|
|
|
|
* @param string $urlNoAccess
|
|
|
|
|
|
* @return void
|
|
|
|
|
|
*/
|
|
|
|
|
|
function genericForceLogin( $permission , $urlNoAccess, $urlLogin = 'login/login' ) {
|
|
|
|
|
|
global $RBAC;
|
|
|
|
|
|
|
|
|
|
|
|
//the session is expired, go to login page,
|
|
|
|
|
|
//the login page is login/login.html
|
|
|
|
|
|
if ( ! isset ( $_SESSION ) ) {
|
|
|
|
|
|
header ( 'location: ' . G::expandUri ( $urlLogin ) );
|
|
|
|
|
|
die ();
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
//$permission is an array, we'll verify all permission to allow access.
|
|
|
|
|
|
if ( is_array($permission) )
|
|
|
|
|
|
$aux = $permission;
|
|
|
|
|
|
else
|
|
|
|
|
|
$aux[0] = $permission;
|
|
|
|
|
|
|
|
|
|
|
|
$sw = 0;
|
|
|
|
|
|
for ($i = 0; $i < count ($aux); $i++ ) {
|
|
|
|
|
|
$res = $RBAC->userCanAccess($aux[$i]);
|
|
|
|
|
|
if ($res == 1) $sw = 1;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
//you don't have access to this page
|
|
|
|
|
|
if ($sw == 0) {
|
|
|
|
|
|
header ( 'location: ' . G::expandUri ( $urlNoAccess ) );
|
|
|
|
|
|
die;
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* capitalize
|
|
|
|
|
|
*
|
|
|
|
|
|
* @param string $string
|
|
|
|
|
|
*
|
|
|
|
|
|
* @return string $string
|
|
|
|
|
|
*/
|
|
|
|
|
|
function capitalize($string)
|
|
|
|
|
|
{
|
|
|
|
|
|
$capitalized = '';
|
|
|
|
|
|
$singleWords = preg_split( "/\W+/m" , $string );
|
|
|
|
|
|
for($r=0; $r < sizeof($singleWords) ; $r++ ) {
|
|
|
|
|
|
$string = substr($string , 0 , $singleWords[$r][1]) .
|
|
|
|
|
|
strtoupper( substr($singleWords[$r][0], 0,1) ) .
|
|
|
|
|
|
strtolower( substr($singleWords[$r][0], 1) ) .
|
|
|
|
|
|
substr( $string , $singleWords[$r][1] + strlen($singleWords[$r][0]) );
|
|
|
|
|
|
}
|
|
|
|
|
|
return $string;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* toUpper
|
|
|
|
|
|
*
|
|
|
|
|
|
* @param string $sText
|
|
|
|
|
|
*
|
|
|
|
|
|
* @return string strtoupper($sText)
|
|
|
|
|
|
*/
|
|
|
|
|
|
function toUpper($sText)
|
|
|
|
|
|
{
|
|
|
|
|
|
return strtoupper($sText);
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* toLower
|
|
|
|
|
|
*
|
|
|
|
|
|
* @param string $sText
|
|
|
|
|
|
* @return string strtolower($sText)
|
|
|
|
|
|
*/
|
|
|
|
|
|
function toLower($sText)
|
|
|
|
|
|
{
|
|
|
|
|
|
return strtolower($sText);
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* http_build_query
|
|
|
|
|
|
*
|
|
|
|
|
|
* @param string $formdata,
|
|
|
|
|
|
* @param string $numeric_prefix default value null,
|
|
|
|
|
|
* @param string $key default value null
|
|
|
|
|
|
*
|
|
|
|
|
|
* @return array $res
|
|
|
|
|
|
*/
|
|
|
|
|
|
function http_build_query( $formdata, $numeric_prefix = null, $key = null )
|
|
|
|
|
|
{
|
|
|
|
|
|
$res = array();
|
|
|
|
|
|
foreach ((array)$formdata as $k=>$v) {
|
|
|
|
|
|
$tmp_key = rawurlencode(is_int($k) ? $numeric_prefix.$k : $k);
|
|
|
|
|
|
if ($key) $tmp_key = $key.'['.$tmp_key.']';
|
|
|
|
|
|
if ( is_array($v) || is_object($v) ) {
|
|
|
|
|
|
$res[] = G::http_build_query($v, null /* or $numeric_prefix if you want to add numeric_prefix to all indexes in array*/, $tmp_key);
|
|
|
|
|
|
} else {
|
|
|
|
|
|
$res[] = $tmp_key."=".rawurlencode($v);
|
|
|
|
|
|
}
|
|
|
|
|
|
/*
|
|
|
|
|
|
If you want, you can write this as one string:
|
|
|
|
|
|
$res[] = ( ( is_array($v) || is_object($v) ) ? G::http_build_query($v, null, $tmp_key) : $tmp_key."=".urlencode($v) );
|
|
|
|
|
|
*/
|
|
|
|
|
|
}
|
|
|
|
|
|
$separator = ini_get('arg_separator.output');
|
|
|
|
|
|
return implode($separator, $res);
|
|
|
|
|
|
}
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Redirect URL
|
|
|
|
|
|
*
|
|
|
|
|
|
* @author Fernando Ontiveros Lira <fernando@colosa.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @param string $parameter
|
|
|
|
|
|
* @return string
|
|
|
|
|
|
*/
|
|
|
|
|
|
function header( $parameter ) {
|
|
|
|
|
|
if ( defined ('ENABLE_ENCRYPT' ) && (ENABLE_ENCRYPT == 'yes') && (substr ( $parameter, 0, 9) == 'location:')) {
|
|
|
|
|
|
$url = G::encryptUrl ( substr( $parameter, 10) , URL_KEY );
|
|
|
|
|
|
header ( 'location:' . $url );
|
|
|
|
|
|
}
|
|
|
|
|
|
else
|
|
|
|
|
|
header ( $parameter );
|
|
|
|
|
|
return ;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
*
|
|
|
|
|
|
* @author Fernando Ontiveros Lira <fernando@colosa.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @param string $permission
|
|
|
|
|
|
* @param string $urlNoAccess
|
|
|
|
|
|
* @return void
|
|
|
|
|
|
*/
|
|
|
|
|
|
function forceLogin( $permission = "", $urlNoAccess = "" ) {
|
|
|
|
|
|
global $RBAC;
|
|
|
|
|
|
|
|
|
|
|
|
if ( isset( $_SESSION['USER_LOGGED'] ) && $_SESSION['USER_LOGGED'] == '' ) {
|
|
|
|
|
|
$sys = (ENABLE_ENCRYPT=='yes'?SYS_SYS :"sys".SYS_SYS);
|
|
|
|
|
|
$lang = (ENABLE_ENCRYPT=='yes'?G::encrypt ( urldecode(SYS_LANG) , URL_KEY ):SYS_LANG);
|
|
|
|
|
|
$skin = (ENABLE_ENCRYPT=='yes'?G::encrypt ( urldecode(SYS_SKIN) , URL_KEY ):SYS_SKIN);
|
|
|
|
|
|
$login = (ENABLE_ENCRYPT=='yes'?G::encrypt ( urldecode('login') , URL_KEY ):'login');
|
|
|
|
|
|
$loginhtml = (ENABLE_ENCRYPT=='yes'?G::encrypt ( urldecode('login.html') , URL_KEY ):'login.html');
|
|
|
|
|
|
$direction = "/$sys/$lang/$skin/$login/$loginhtml";
|
|
|
|
|
|
die;
|
|
|
|
|
|
header ("location: $direction");
|
|
|
|
|
|
die;
|
|
|
|
|
|
return;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
$Connection = new DBConnection;
|
|
|
|
|
|
$ses = new DBSession($Connection);
|
|
|
|
|
|
$stQry = "SELECT LOG_STATUS FROM LOGIN WHERE LOG_SID = '" . session_id() . "'";
|
|
|
|
|
|
$dset = $ses->Execute ( $stQry );
|
|
|
|
|
|
$row = $dset->read();
|
|
|
|
|
|
$sessionPc = defined ( 'SESSION_PC' ) ? SESSION_PC : '' ;
|
|
|
|
|
|
$sessionBrowser = defined ( 'SESSION_BROWSER' ) ? SESSION_BROWSER : '' ;
|
|
|
|
|
|
if (($sessionPc == "1" ) or ( $sessionBrowser == "1"))
|
|
|
|
|
|
if($row['LOG_STATUS'] == 'X'){
|
|
|
|
|
|
$sys = (ENABLE_ENCRYPT=='yes'?SYS_SYS :"sys".SYS_SYS);
|
|
|
|
|
|
$lang = (ENABLE_ENCRYPT=='yes'?G::encrypt ( urldecode(SYS_LANG) , URL_KEY ):SYS_LANG);
|
|
|
|
|
|
$skin = (ENABLE_ENCRYPT=='yes'?G::encrypt ( urldecode(SYS_SKIN) , URL_KEY ):SYS_SKIN);
|
|
|
|
|
|
$login = (ENABLE_ENCRYPT=='yes'?G::encrypt ( urldecode('login') , URL_KEY ):'login');
|
|
|
|
|
|
$loginhtml = (ENABLE_ENCRYPT=='yes'?G::encrypt ( urldecode('login.html') , URL_KEY ):'login.html');
|
|
|
|
|
|
$direction = "/$sys/$lang/$skin/$login/$loginhtml";
|
|
|
|
|
|
G::SendMessageXml ('ID_CLOSE_SESSION', "warning");
|
|
|
|
|
|
header ("location: $direction");
|
|
|
|
|
|
die;
|
|
|
|
|
|
return;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
if ( defined( 'SIN_COMPATIBILIDAD_RBAC') and SIN_COMPATIBILIDAD_RBAC == 1 )
|
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
|
|
if ( $permission == "" ) {
|
|
|
|
|
|
return;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
if ( is_array($permission) )
|
|
|
|
|
|
$aux = $permission;
|
|
|
|
|
|
else
|
|
|
|
|
|
$aux[0] = $permission;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
$sw = 0;
|
|
|
|
|
|
for ($i = 0; $i < count ($aux); $i++ ) {
|
|
|
|
|
|
$res = $RBAC->userCanAccess($aux[$i]);
|
|
|
|
|
|
if ($res == 1) $sw = 1;
|
|
|
|
|
|
//print " $aux[$i] $res $sw <br>";
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
if ($sw == 0 && $urlNoAccess != "") {
|
|
|
|
|
|
$aux = explode ( '/', $urlNoAccess );
|
|
|
|
|
|
$sys = (ENABLE_ENCRYPT=='yes'?SYS_SYS :"/sys".SYS_LANG);
|
|
|
|
|
|
$lang = (ENABLE_ENCRYPT=='yes'?G::encrypt ( urldecode(SYS_LANG) , URL_KEY ):SYS_LANG);
|
|
|
|
|
|
$skin = (ENABLE_ENCRYPT=='yes'?G::encrypt ( urldecode(SYS_SKIN) , URL_KEY ):SYS_SKIN);
|
|
|
|
|
|
$login = (ENABLE_ENCRYPT=='yes'?G::encrypt ( urldecode($aux[0]) , URL_KEY ):$aux[0]);
|
|
|
|
|
|
$loginhtml = (ENABLE_ENCRYPT=='yes'?G::encrypt ( urldecode($aux[1]) , URL_KEY ):$aux[1]);
|
|
|
|
|
|
//header ("location: /$sys/$lang/$skin/$login/$loginhtml");
|
|
|
|
|
|
header ("location: /fluid/mNE/o9A/mNGm1aLiop3V4qU/dtij4J°gmaLPwKDU3qNn2qXanw");
|
|
|
|
|
|
die;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
if ($sw == 0) {
|
|
|
|
|
|
header ("location: /fluid/mNE/o9A/mNGm1aLiop3V4qU/dtij4J°gmaLPwKDU3qNn2qXanw");
|
|
|
|
|
|
//header ( "location: /sys/" . SYS_LANG . "/" . SYS_SKIN . "/login/noViewPage.html" );
|
|
|
|
|
|
die;
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Add slashes to a string
|
|
|
|
|
|
*
|
|
|
|
|
|
* @author Fernando Ontiveros Lira <fernando@colosa.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @param string $val_old
|
|
|
|
|
|
* @return string
|
|
|
|
|
|
*/
|
|
|
|
|
|
function add_slashes($val_old) {
|
|
|
|
|
|
|
|
|
|
|
|
if (!is_string ($val_old)) $val_old ="$val_old";
|
|
|
|
|
|
|
|
|
|
|
|
$tamano_cadena = strlen ($val_old);
|
|
|
|
|
|
$contador_cadena = 0;
|
|
|
|
|
|
$new_val = "";
|
|
|
|
|
|
|
|
|
|
|
|
for ($contador_cadena=0; $contador_cadena< $tamano_cadena; $contador_cadena ++)
|
|
|
|
|
|
{
|
|
|
|
|
|
$car = $val_old[$contador_cadena];
|
|
|
|
|
|
|
|
|
|
|
|
if ( $car != chr(34) && $car != chr(39) && $car != chr(92))
|
|
|
|
|
|
{
|
|
|
|
|
|
$new_val .= $car;
|
|
|
|
|
|
}
|
|
|
|
|
|
else
|
|
|
|
|
|
{
|
|
|
|
|
|
if ($car2 != chr (92) )
|
|
|
|
|
|
{
|
|
|
|
|
|
//print " xmlvar: $new_val -- $car -- $car2 <br>";
|
|
|
|
|
|
$new_val .= chr(92) . $car;
|
|
|
|
|
|
}
|
|
|
|
|
|
else
|
|
|
|
|
|
$new_val .= $car;
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
return $new_val;
|
|
|
|
|
|
}
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Upload a file and then copy to path+ nameToSave
|
|
|
|
|
|
*
|
|
|
|
|
|
* @author Mauricio Veliz <mauricio@colosa.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @param string $file
|
|
|
|
|
|
* @param string $path
|
|
|
|
|
|
* @param string $nameToSave
|
|
|
|
|
|
* @param integer $permission
|
|
|
|
|
|
* @return void
|
|
|
|
|
|
*/
|
|
|
|
|
|
function uploadFile($file, $path ,$nameToSave, $permission = 0666)
|
|
|
|
|
|
{
|
|
|
|
|
|
try {
|
|
|
|
|
|
if ($file == '') {
|
|
|
|
|
|
throw new Exception('The filename is empty!');
|
|
|
|
|
|
}
|
|
|
|
|
|
if (filesize($file) > ((((ini_get('upload_max_filesize') + 0)) * 1024) * 1024)) {
|
|
|
|
|
|
throw new Exception('The size of upload file exceeds the allowed by the server!');
|
|
|
|
|
|
}
|
|
|
|
|
|
$oldumask = umask(0);
|
|
|
|
|
|
if (!is_dir($path)) {
|
|
|
|
|
|
G::verifyPath($path, true);
|
|
|
|
|
|
}
|
|
|
|
|
|
move_uploaded_file($file , $path . "/" . $nameToSave);
|
|
|
|
|
|
chmod($path . "/" . $nameToSave , $permission);
|
|
|
|
|
|
umask($oldumask);
|
|
|
|
|
|
}
|
|
|
|
|
|
catch (Exception $oException) {
|
|
|
|
|
|
throw $oException;
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* resizeImage
|
|
|
|
|
|
*
|
|
|
|
|
|
* @param string $path,
|
|
|
|
|
|
* @param string $resWidth
|
|
|
|
|
|
* @param string $resHeight
|
|
|
|
|
|
* @param string $saveTo default value null
|
|
|
|
|
|
*
|
|
|
|
|
|
* @return void
|
|
|
|
|
|
*/
|
|
|
|
|
|
function resizeImage($path, $resWidth, $resHeight, $saveTo=null)
|
|
|
|
|
|
{
|
|
|
|
|
|
try {
|
|
|
|
|
|
list($width, $height) = getimagesize($path);
|
|
|
|
|
|
$percentHeight = $resHeight / $height;
|
|
|
|
|
|
$percentWidth = $resWidth / $width;
|
|
|
|
|
|
$percent = ($percentWidth < $percentHeight) ? $percentWidth : $percentHeight;
|
|
|
|
|
|
$resWidth = $width * $percent;
|
|
|
|
|
|
$resHeight = $height * $percent;
|
|
|
|
|
|
|
|
|
|
|
|
// Resample
|
|
|
|
|
|
$image_p = imagecreatetruecolor($resWidth, $resHeight);
|
|
|
|
|
|
|
|
|
|
|
|
//calculating memory needed for image
|
|
|
|
|
|
$imageInfo = GetImageSize($path);
|
|
|
|
|
|
$memoryNeeded = Round( ($imageInfo[0] * $imageInfo[1] * $imageInfo['bits'] * $imageInfo['channels'] + Pow(2, 16)) * 1.95) / (1024*1024);
|
|
|
|
|
|
if ( $memoryNeeded < 50 ) $memoryNeeded = 50;
|
|
|
|
|
|
ini_set('memory_limit', intval($memoryNeeded) . 'M');
|
|
|
|
|
|
if (strcasecmp(substr(strtolower($path),-4),'.jpg')===0) $image = imagecreatefromjpeg($path);
|
|
|
|
|
|
if (strcasecmp(substr(strtolower($path),-5),'.jpeg')===0)$image = imagecreatefromjpeg($path);
|
|
|
|
|
|
if (strcasecmp(substr(strtolower($path),-4),'.png')===0) $image = imagecreatefrompng($path);
|
|
|
|
|
|
if (strcasecmp(substr(strtolower($path),-4),'.gif')===0) $image = imagecreatefromgif($path);
|
|
|
|
|
|
imagecopyresampled($image_p, $image, 0, 0, 0, 0, $resWidth, $resHeight, $width, $height);
|
|
|
|
|
|
|
|
|
|
|
|
// Output
|
|
|
|
|
|
imagejpeg($image_p, $saveTo, 100);
|
|
|
|
|
|
chmod($saveTo, 0666);
|
|
|
|
|
|
}
|
|
|
|
|
|
catch (Exception $oException) {
|
|
|
|
|
|
throw $oException;
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Merge 2 arrays
|
|
|
|
|
|
*
|
|
|
|
|
|
* @author Fernando Ontiveros Lira <fernando@colosa.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @return array
|
|
|
|
|
|
*/
|
|
|
|
|
|
function array_merges() {
|
|
|
|
|
|
$array = array();
|
|
|
|
|
|
$arrays =& func_get_args();
|
|
|
|
|
|
foreach ($arrays as $array_i) {
|
|
|
|
|
|
if (is_array($array_i)) {
|
|
|
|
|
|
G::array_merge_2($array, $array_i);
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
return $array;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Merge 2 arrays
|
|
|
|
|
|
*
|
|
|
|
|
|
* @author Fernando Ontiveros Lira <fernando@colosa.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @param string $array
|
|
|
|
|
|
* @param string $array_i
|
|
|
|
|
|
* @return array
|
|
|
|
|
|
*/
|
|
|
|
|
|
function array_merge_2(&$array, &$array_i) {
|
|
|
|
|
|
foreach ($array_i as $k => $v) {
|
|
|
|
|
|
if (is_array($v)) {
|
|
|
|
|
|
if (!isset($array[$k])) {
|
|
|
|
|
|
$array[$k] = array();
|
|
|
|
|
|
}
|
|
|
|
|
|
G::array_merge_2($array[$k], $v);
|
|
|
|
|
|
} else {
|
|
|
|
|
|
if (isset($array[$k]) && is_array($array[$k])) {
|
|
|
|
|
|
$array[$k][0] = $v;
|
|
|
|
|
|
} else {
|
|
|
|
|
|
if (isset($array) && !is_array($array)) {
|
|
|
|
|
|
$temp = $array;
|
|
|
|
|
|
$array = array();
|
|
|
|
|
|
$array[0] = $temp;
|
|
|
|
|
|
}
|
|
|
|
|
|
$array[$k] = $v;
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Generate random number
|
|
|
|
|
|
*
|
|
|
|
|
|
* @author Fernando Ontiveros Lira <fernando@colosa.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @return int
|
|
|
|
|
|
*/
|
|
|
|
|
|
function generateUniqueID() {
|
|
|
|
|
|
do {
|
|
|
|
|
|
$sUID = str_replace('.', '0', uniqid(rand(0, 999999999), true));
|
|
|
|
|
|
} while (strlen($sUID) != 32);
|
|
|
|
|
|
return $sUID;
|
|
|
|
|
|
//return strtoupper(substr(uniqid(rand(0, 9), false),0,14));
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Generate a numeric or alphanumeric code
|
|
|
|
|
|
*
|
|
|
|
|
|
* @author Julio Cesar Laura Avenda𭞼juliocesar@colosa.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @return string
|
|
|
|
|
|
*/
|
|
|
|
|
|
function generateCode($iDigits = 4, $sType = 'NUMERIC') {
|
|
|
|
|
|
if (($iDigits < 4) || ($iDigits > 50)) {
|
|
|
|
|
|
$iDigits = 4;
|
|
|
|
|
|
}
|
|
|
|
|
|
if (($sType != 'NUMERIC') && ($sType != 'ALPHA') && ($sType != 'ALPHANUMERIC')) {
|
|
|
|
|
|
$sType = 'NUMERIC';
|
|
|
|
|
|
}
|
|
|
|
|
|
$aValidCharacters = array('0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
|
|
|
|
|
|
'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J',
|
|
|
|
|
|
'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T',
|
|
|
|
|
|
'U', 'V', 'W', 'X', 'Y', 'Z');
|
|
|
|
|
|
switch ($sType) {
|
|
|
|
|
|
case 'NUMERIC':
|
|
|
|
|
|
$iMin = 0;
|
|
|
|
|
|
$iMax = 9;
|
|
|
|
|
|
break;
|
|
|
|
|
|
case 'ALPHA':
|
|
|
|
|
|
$iMin = 10;
|
|
|
|
|
|
$iMax = 35;
|
|
|
|
|
|
break;
|
|
|
|
|
|
case 'ALPHANUMERIC':
|
|
|
|
|
|
$iMin = 0;
|
|
|
|
|
|
$iMax = 35;
|
|
|
|
|
|
break;
|
|
|
|
|
|
}
|
|
|
|
|
|
$sCode = '';
|
|
|
|
|
|
for ($i = 0; $i < $iDigits; $i++) {
|
|
|
|
|
|
$sCode .= $aValidCharacters[rand($iMin, $iMax)];
|
|
|
|
|
|
}
|
|
|
|
|
|
return $sCode;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Verify if the input string is a valid UID
|
|
|
|
|
|
*
|
|
|
|
|
|
* @author David Callizaya <davidsantos@colosa.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @return int
|
|
|
|
|
|
*/
|
|
|
|
|
|
function verifyUniqueID( $uid ) {
|
|
|
|
|
|
return (bool) preg_match('/^[0-9A-Za-z]{14,}/',$uid);
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* is_utf8
|
|
|
|
|
|
*
|
|
|
|
|
|
* @param string $string
|
|
|
|
|
|
*
|
|
|
|
|
|
* @return string utf8_encode()
|
|
|
|
|
|
*/
|
|
|
|
|
|
function is_utf8($string)
|
|
|
|
|
|
{
|
|
|
|
|
|
if (is_array($string))
|
|
|
|
|
|
{
|
|
|
|
|
|
$enc = implode('', $string);
|
|
|
|
|
|
return @!((ord($enc[0]) != 239) && (ord($enc[1]) != 187) && (ord($enc[2]) != 191));
|
|
|
|
|
|
}
|
|
|
|
|
|
else
|
|
|
|
|
|
{
|
|
|
|
|
|
return (utf8_encode(utf8_decode($string)) == $string);
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Return date in Y-m-d format
|
|
|
|
|
|
*
|
|
|
|
|
|
* @author Fernando Ontiveros Lira <fernando@colosa.com>
|
|
|
|
|
|
* @access public
|
|
|
|
|
|
* @return void
|
|
|
|
|
|
*/
|
|
|
|
|
|
function CurDate($sFormat = '')
|
|
|
|
|
|
{
|
|
|
|
|
|
$sFormat = ( $sFormat != '' )? $sFormat: 'Y-m-d H:i:s';
|
|
|
|
|
|
return date($sFormat);
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
|
* Return the System defined constants and Application variables
|
|
|
|
|
|
* Constants: SYS_*
|
|
|
|
|
|
* Sessions : USER_* , URS_*
|
|
|
|
|
|
*/
|
|
|
|
|
|
function getSystemConstants($params=NULL)
|
|
|
|
|
|
{
|
|
|
|
|
|
$t1 = G::microtime_float();
|
|
|
|
|
|
$sysCon = array();
|
|
|
|
|
|
if ( defined('SYS_LANG' )) $sysCon['SYS_LANG'] = SYS_LANG;
|
|
|
|
|
|
if ( defined('SYS_SKIN' )) $sysCon['SYS_SKIN'] = SYS_SKIN;
|
|
|
|
|
|
if ( defined('SYS_SYS' ) ) $sysCon['SYS_SYS'] = SYS_SYS;
|
|
|
|
|
|
|
|
|
|
|
|
if (isset($_SESSION['APPLICATION']) ) $sysCon['APPLICATION'] = $_SESSION['APPLICATION'];
|
|
|
|
|
|
if (isset($_SESSION['PROCESS']) ) $sysCon['PROCESS'] = $_SESSION['PROCESS'];
|
|
|
|
|
|
if (isset($_SESSION['TASK']) ) $sysCon['TASK'] = $_SESSION['TASK'];
|
|
|
|
|
|
if (isset($_SESSION['INDEX']) ) $sysCon['INDEX'] = $_SESSION['INDEX'];
|
|
|
|
|
|
if (isset($_SESSION['USER_LOGGED']) ) $sysCon['USER_LOGGED'] = $_SESSION['USER_LOGGED'];
|
|
|
|
|
|
if (isset($_SESSION['USR_USERNAME'])) $sysCon['USR_USERNAME']= $_SESSION['USR_USERNAME'];
|
|
|
|
|
|
|
|
|
|
|
|
################################################################################################
|
|
|
|
|
|
# Added for compatibility betweek aplication called from web Entry that uses just WS functions
|
|
|
|
|
|
# @By neyek
|
|
|
|
|
|
################################################################################################
|
|
|
|
|
|
|
|
|
|
|
|
if( $params != NULL ){
|
|
|
|
|
|
|
|
|
|
|
|
switch($params->option){
|
|
|
|
|
|
case 'STORED SESSION':
|
|
|
|
|
|
if( isset($params->SID) ){
|
|
|
|
|
|
G::LoadClass('sessions');
|
|
|
|
|
|
$oSessions = new Sessions($params->SID);
|
|
|
|
|
|
$sysCon = array_merge($sysCon, $oSessions->getGlobals());
|
|
|
|
|
|
}
|
|
|
|
|
|
break;
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
return $sysCon;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
|
* Return the Friendly Title for a string, capitalize every word and remove spaces
|
|
|
|
|
|
* param : text string
|
|
|
|
|
|
*/
|
|
|
|
|
|
function capitalizeWords( $text )
|
|
|
|
|
|
{
|
|
|
|
|
|
/*$result = '';
|
|
|
|
|
|
$space = true;
|
|
|
|
|
|
for ( $i = 0; $i < strlen ( $text); $i++ ) {
|
|
|
|
|
|
$car = strtolower ( $text[$i] );
|
|
|
|
|
|
if ( strpos( "abcdefghijklmnopqrstuvwxyz1234567890", $car ) !== false ) {
|
|
|
|
|
|
if ($space ) $car = strtoupper ( $car );
|
|
|
|
|
|
$result .= $car;
|
|
|
|
|
|
$space = false;
|
|
|
|
|
|
}
|
|
|
|
|
|
else
|
|
|
|
|
|
$space = true;
|
|
|
|
|
|
}
|
|
|
|
|
|
return $result;*/
|
|
|
|
|
|
if (function_exists('mb_detect_encoding')) {
|
|
|
|
|
|
if (strtoupper(mb_detect_encoding($text)) == 'UTF-8') {
|
|
|
|
|
|
$text = utf8_encode($text);
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
if(function_exists('mb_ucwords')) {
|
|
|
|
|
|
return mb_ucwords($text);
|
|
|
|
|
|
}
|
|
|
|
|
|
else {
|
|
|
|
|
|
return mb_convert_case($text, MB_CASE_TITLE, "UTF-8");
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* unhtmlentities
|
|
|
|
|
|
*
|
|
|
|
|
|
* @param string $string
|
|
|
|
|
|
*
|
|
|
|
|
|
* @return string substring
|
|
|
|
|
|
*/
|
|
|
|
|
|
function unhtmlentities ($string)
|
|
|
|
|
|
{
|
|
|
|
|
|
$trans_tbl = get_html_translation_table (HTML_ENTITIES);
|
|
|
|
|
|
foreach($trans_tbl as $k => $v)
|
|
|
|
|
|
{
|
|
|
|
|
|
$ttr[$v] = utf8_encode($k);
|
|
|
|
|
|
}
|
|
|
|
|
|
return strtr ($string, $ttr);
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/*************************************** init **********************************************
|
|
|
|
|
|
* Xml parse collection functions
|
|
|
|
|
|
* Returns a associative array within the xml structure and data
|
|
|
|
|
|
*
|
|
|
|
|
|
* @Author Erik Amaru Ortiz <erik@colosa.com>
|
|
|
|
|
|
* @Date Aug 24th, 2009
|
|
|
|
|
|
*/
|
|
|
|
|
|
function xmlParser(&$string) {
|
|
|
|
|
|
$parser = xml_parser_create();
|
|
|
|
|
|
xml_parser_set_option($parser, XML_OPTION_CASE_FOLDING, 0);
|
|
|
|
|
|
xml_parse_into_struct($parser, $string, $vals, $index);
|
|
|
|
|
|
|
|
|
|
|
|
$mnary = array();
|
|
|
|
|
|
$ary =&$mnary;
|
|
|
|
|
|
foreach ($vals as $r) {
|
|
|
|
|
|
$t=$r['tag'];
|
|
|
|
|
|
if ($r['type']=='open') {
|
|
|
|
|
|
if (isset($ary[$t])) {
|
|
|
|
|
|
if (isset($ary[$t][0]))
|
|
|
|
|
|
$ary[$t][]=array();
|
|
|
|
|
|
else
|
|
|
|
|
|
$ary[$t]=array($ary[$t], array());
|
|
|
|
|
|
$cv=&$ary[$t][count($ary[$t])-1];
|
|
|
|
|
|
} else $cv=&$ary[$t];
|
|
|
|
|
|
if (isset($r['attributes'])) {
|
|
|
|
|
|
foreach ($r['attributes'] as $k=>$v) $cv['__ATTRIBUTES__'][$k]=$v;
|
|
|
|
|
|
}
|
|
|
|
|
|
// note by gustavo cruz gustavo[at]colosa[dot]com
|
|
|
|
|
|
// minor adjustments to validate if an open node have a value attribute.
|
|
|
|
|
|
// for example a dropdown has many childs, but also can have a value attribute.
|
|
|
|
|
|
if (isset($r['value']) && trim($r['value'])!=''){
|
|
|
|
|
|
$cv['__VALUE__'] = $r['value'];
|
|
|
|
|
|
}
|
|
|
|
|
|
// end added code
|
|
|
|
|
|
$cv['__CONTENT__'] = array();
|
|
|
|
|
|
$cv['__CONTENT__']['_p'] =&$ary;
|
|
|
|
|
|
$ary =&$cv['__CONTENT__'];
|
|
|
|
|
|
|
|
|
|
|
|
} elseif ($r['type']=='complete') {
|
|
|
|
|
|
if (isset($ary[$t])) { // same as open
|
|
|
|
|
|
if (isset($ary[$t][0])) $ary[$t][]=array();
|
|
|
|
|
|
else $ary[$t]=array($ary[$t], array());
|
|
|
|
|
|
$cv=&$ary[$t][count($ary[$t])-1];
|
|
|
|
|
|
} else $cv=&$ary[$t];
|
|
|
|
|
|
if (isset($r['attributes'])) {
|
|
|
|
|
|
foreach ($r['attributes'] as $k=>$v) $cv['__ATTRIBUTES__'][$k]=$v;
|
|
|
|
|
|
}
|
|
|
|
|
|
$cv['__VALUE__']=(isset($r['value']) ? $r['value'] : '');
|
|
|
|
|
|
|
|
|
|
|
|
} elseif ($r['type']=='close') {
|
|
|
|
|
|
$ary=&$ary['_p'];
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
self::_del_p($mnary);
|
|
|
|
|
|
|
|
|
|
|
|
$obj_resp->code = xml_get_error_code($parser);
|
|
|
|
|
|
$obj_resp->message = xml_error_string($obj_resp->code);
|
|
|
|
|
|
$obj_resp->result = $mnary;
|
|
|
|
|
|
xml_parser_free($parser);
|
|
|
|
|
|
|
|
|
|
|
|
return $obj_resp;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* _del_p
|
|
|
|
|
|
*
|
|
|
|
|
|
* @param string &$ary
|
|
|
|
|
|
*
|
|
|
|
|
|
* @return void
|
|
|
|
|
|
*/
|
|
|
|
|
|
// _Internal: Remove recursion in result array
|
|
|
|
|
|
function _del_p(&$ary) {
|
|
|
|
|
|
foreach ($ary as $k=>$v) {
|
|
|
|
|
|
if ($k==='_p') unset($ary[$k]);
|
|
|
|
|
|
elseif (is_array($ary[$k])) self::_del_p($ary[$k]);
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* ary2xml
|
|
|
|
|
|
*
|
|
|
|
|
|
* Array to XML
|
|
|
|
|
|
*
|
|
|
|
|
|
* @param string $cary
|
|
|
|
|
|
* @param string $d=0
|
|
|
|
|
|
* @param string $forcetag default value ''
|
|
|
|
|
|
*
|
|
|
|
|
|
* @return void
|
|
|
|
|
|
*/
|
|
|
|
|
|
// Array to XML
|
|
|
|
|
|
function ary2xml($cary, $d=0, $forcetag='') {
|
|
|
|
|
|
$res = array();
|
|
|
|
|
|
foreach ($cary as $tag=>$r) {
|
|
|
|
|
|
if (isset($r[0])) {
|
|
|
|
|
|
$res[]=self::ary2xml($r, $d, $tag);
|
|
|
|
|
|
} else {
|
|
|
|
|
|
if ($forcetag) $tag=$forcetag;
|
|
|
|
|
|
$sp = str_repeat("\t", $d);
|
|
|
|
|
|
$res[] = "$sp<$tag";
|
|
|
|
|
|
if (isset($r['_a'])) {foreach ($r['_a'] as $at=>$av) $res[]=" $at=\"$av\"";}
|
|
|
|
|
|
$res[] = ">".((isset($r['_c'])) ? "\n" : '');
|
|
|
|
|
|
if (isset($r['_c'])) $res[]=ary2xml($r['_c'], $d+1);
|
|
|
|
|
|
elseif (isset($r['_v'])) $res[]=$r['_v'];
|
|
|
|
|
|
$res[] = (isset($r['_c']) ? $sp : '')."</$tag>\n";
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
return implode('', $res);
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* ins2ary
|
|
|
|
|
|
*
|
|
|
|
|
|
* Insert element into array
|
|
|
|
|
|
*
|
|
|
|
|
|
* @param string &$ary
|
|
|
|
|
|
* @param string $element
|
|
|
|
|
|
* @param string $pos
|
|
|
|
|
|
*
|
|
|
|
|
|
* @return void
|
|
|
|
|
|
*/
|
|
|
|
|
|
// Insert element into array
|
|
|
|
|
|
function ins2ary(&$ary, $element, $pos)
|
|
|
|
|
|
{
|
|
|
|
|
|
$ar1=array_slice($ary, 0, $pos); $ar1[]=$element;
|
|
|
|
|
|
$ary=array_merge($ar1, array_slice($ary, $pos));
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
|
* Xml parse collection functions
|
|
|
|
|
|
*************************************** end **********************************************/
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* evalJScript
|
|
|
|
|
|
*
|
|
|
|
|
|
* @param string $c
|
|
|
|
|
|
*
|
|
|
|
|
|
* @return void
|
|
|
|
|
|
*/
|
|
|
|
|
|
function evalJScript($c){
|
|
|
|
|
|
print("<script language=\"javascript\">{$c}</script>");
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Inflects a string with accented characters and other characteres not suitable for file names, by defaul replace with undescore
|
|
|
|
|
|
*
|
|
|
|
|
|
* @Author Erik Amaru Ortiz <erik@colosa.com, aortiz.erik@gamil.com>
|
|
|
|
|
|
* @Param (string) string to convert
|
|
|
|
|
|
* @Param (string) character for replace
|
|
|
|
|
|
* @Param (array) additional characteres map
|
|
|
|
|
|
*
|
|
|
|
|
|
*/
|
|
|
|
|
|
function inflect($string, $replacement = '_', $map = array()) {
|
|
|
|
|
|
if (is_array($replacement)) {
|
|
|
|
|
|
$map = $replacement;
|
|
|
|
|
|
$replacement = '_';
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
$quotedReplacement = preg_quote($replacement, '/');
|
|
|
|
|
|
|
|
|
|
|
|
$default = array(
|
|
|
|
|
|
'/à|á|å|â/' => 'a',
|
|
|
|
|
|
'/è|é|ê|ẽ|ë/' => 'e',
|
|
|
|
|
|
'/ì|í|î/' => 'i',
|
|
|
|
|
|
'/ò|ó|ô|ø/' => 'o',
|
|
|
|
|
|
'/ù|ú|ů|û/' => 'u',
|
|
|
|
|
|
'/ç/' => 'c',
|
|
|
|
|
|
'/ñ/' => 'n',
|
|
|
|
|
|
'/ä|æ/' => 'ae',
|
|
|
|
|
|
'/ö/' => 'oe',
|
|
|
|
|
|
'/ü/' => 'ue',
|
|
|
|
|
|
'/Ä/' => 'Ae',
|
|
|
|
|
|
'/Ü/' => 'Ue',
|
|
|
|
|
|
'/Ö/' => 'Oe',
|
|
|
|
|
|
'/ß/' => 'ss',
|
|
|
|
|
|
'/\.|\,|\:|\-|\\|\//' => " ",
|
|
|
|
|
|
'/\\s+/' => $replacement
|
|
|
|
|
|
);
|
|
|
|
|
|
|
|
|
|
|
|
$map = array_merge($default, $map);
|
|
|
|
|
|
return preg_replace(array_keys($map), array_values($map), $string);
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* pr
|
|
|
|
|
|
*
|
|
|
|
|
|
* @param string $var
|
|
|
|
|
|
*
|
|
|
|
|
|
* @return void
|
|
|
|
|
|
*/
|
|
|
|
|
|
function pr($var)
|
|
|
|
|
|
{
|
|
|
|
|
|
print("<pre>");
|
|
|
|
|
|
print_r($var);
|
|
|
|
|
|
print("</pre>");
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* dump
|
|
|
|
|
|
*
|
|
|
|
|
|
* @param string $var
|
|
|
|
|
|
*
|
|
|
|
|
|
* @return void
|
|
|
|
|
|
*/
|
|
|
|
|
|
function dump($var){
|
|
|
|
|
|
print("<pre>");
|
|
|
|
|
|
var_dump($var);
|
|
|
|
|
|
print("</pre>");
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* stripCDATA
|
|
|
|
|
|
*
|
|
|
|
|
|
* @param string $string
|
|
|
|
|
|
*
|
|
|
|
|
|
* @return string str_replace
|
|
|
|
|
|
*/
|
|
|
|
|
|
function stripCDATA($string){
|
|
|
|
|
|
preg_match_all('/<!\[cdata\[(.*?)\]\]>/is', $string, $matches);
|
|
|
|
|
|
return str_replace($matches[0], $matches[1], $string);
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Get the temporal directory path on differents O.S. i.e. /temp -> linux, C:/Temp -> win
|
|
|
|
|
|
* @By <erik@colosa.com>
|
|
|
|
|
|
*/
|
|
|
|
|
|
function getSysTemDir() {
|
|
|
|
|
|
if ( !function_exists('sys_get_temp_dir') ){
|
|
|
|
|
|
// Based on http://www.phpit.net/
|
|
|
|
|
|
// article/creating-zip-tar-archives-dynamically-php/2/
|
|
|
|
|
|
// Try to get from environment variable
|
|
|
|
|
|
if ( !empty($_ENV['TMP']) ){
|
|
|
|
|
|
return realpath( $_ENV['TMP'] );
|
|
|
|
|
|
} else if ( !empty($_ENV['TMPDIR']) ){
|
|
|
|
|
|
return realpath( $_ENV['TMPDIR'] );
|
|
|
|
|
|
} else if ( !empty($_ENV['TEMP']) ){
|
|
|
|
|
|
return realpath( $_ENV['TEMP'] );
|
|
|
|
|
|
} else {// Detect by creating a temporary file
|
|
|
|
|
|
// Try to use system's temporary directory
|
|
|
|
|
|
// as random name shouldn't exist
|
|
|
|
|
|
$temp_file = tempnam( md5(uniqid(rand(), TRUE)), '' );
|
|
|
|
|
|
if ( $temp_file ){
|
|
|
|
|
|
$temp_dir = realpath( dirname($temp_file) );
|
|
|
|
|
|
unlink( $temp_file );
|
|
|
|
|
|
return $temp_dir;
|
|
|
|
|
|
} else {
|
|
|
|
|
|
return FALSE;
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
} else {
|
|
|
|
|
|
return sys_get_temp_dir();
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Get the content of a compose pmos web service response
|
|
|
|
|
|
* Returns an array when has a valid reponse, if the response is invalid returns an object containing a status_code and message properties.
|
|
|
|
|
|
*
|
|
|
|
|
|
* @By <erik@colosa.com>
|
|
|
|
|
|
*/
|
|
|
|
|
|
function PMWSCompositeResponse($oResp, $prop) {
|
|
|
|
|
|
$Resp = new stdClass();
|
|
|
|
|
|
|
|
|
|
|
|
if( is_object($oResp) && isset($oResp->{$prop}) ){
|
|
|
|
|
|
$list = $oResp->{$prop};
|
|
|
|
|
|
|
|
|
|
|
|
if( is_object($list) ){
|
|
|
|
|
|
$aList[0] = $list;
|
|
|
|
|
|
} else {
|
|
|
|
|
|
$aList = $list;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
$result = true;
|
|
|
|
|
|
if( is_array($aList) ){
|
|
|
|
|
|
foreach($aList as $item){
|
|
|
|
|
|
if( !isset($item->guid) ){
|
|
|
|
|
|
$result = false;
|
|
|
|
|
|
break;
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
} else {
|
|
|
|
|
|
$Resp->status_code = -1;
|
|
|
|
|
|
$Resp->message = "Bad respose type for ({$prop})";
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
if( $result ){
|
|
|
|
|
|
//verifing if the response has a composite response into a guid value of the first row.
|
|
|
|
|
|
$tmp = explode(' ', trim($aList[0]->guid));
|
|
|
|
|
|
if( sizeof($tmp) >= 2 ){ //the guid can't has a space, so this should be a ws response
|
|
|
|
|
|
$Resp->status_code = $tmp[0];
|
|
|
|
|
|
$Resp->message = substr($aList[0]->guid, strpos($aList[0]->guid, ' ') + 1);
|
|
|
|
|
|
} else {
|
|
|
|
|
|
return $aList;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
} else {
|
|
|
|
|
|
$Resp->status_code = -2;
|
|
|
|
|
|
$Resp->message = "Bad respose, the response has not a uniform struct.";
|
|
|
|
|
|
}
|
|
|
|
|
|
} else if( is_object($oResp) ){
|
|
|
|
|
|
return Array();
|
|
|
|
|
|
} else {
|
|
|
|
|
|
$Resp->status_code = -1;
|
|
|
|
|
|
$Resp->message = "1 Bad respose type for ({$prop})";
|
|
|
|
|
|
}
|
|
|
|
|
|
return $Resp;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Validate and emai address in complete forms,
|
|
|
|
|
|
*
|
|
|
|
|
|
* @author Erik A.O. <erik@gmail.com, aortiz.erik@gmail.com>
|
|
|
|
|
|
* @date Apr 29th, 2010
|
|
|
|
|
|
* i.e. if the param. is 'erik a.o. <erik@colosa.com>'
|
|
|
|
|
|
* -> returns a object within $o->email => erik@colosa.com and $o->name => erik A.O. in other case returns false
|
|
|
|
|
|
*
|
|
|
|
|
|
*/
|
|
|
|
|
|
function emailAddress($sEmail){
|
|
|
|
|
|
$o = new stdClass();
|
|
|
|
|
|
if( strpos($sEmail, '<') !== false ) {
|
|
|
|
|
|
preg_match('/([\"\w@\.-_\s]*\s*)?(<(\w+[\.-]?\w+]*@\w+([\.-]?\w+)*\.\w{2,3})+>)/', $sEmail, $matches);
|
|
|
|
|
|
g::pr($matches);
|
|
|
|
|
|
if( isset($matches[1]) && $matches[3]){
|
|
|
|
|
|
$o->email = $matches[3];
|
|
|
|
|
|
$o->name = $matches[1];
|
|
|
|
|
|
return $o;
|
|
|
|
|
|
}
|
|
|
|
|
|
return false;
|
|
|
|
|
|
} else {
|
|
|
|
|
|
preg_match('/\w+[\.-]?\w+]*@\w+([\.-]?\w+)*\.\w{2,3}+/', $sEmail, $matches);
|
|
|
|
|
|
if( isset($matches[0]) ){
|
|
|
|
|
|
$o->email = $matches[0];
|
|
|
|
|
|
$o->name = '';
|
|
|
|
|
|
return $o;
|
|
|
|
|
|
}
|
|
|
|
|
|
return false;
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* JSON encode
|
|
|
|
|
|
*
|
|
|
|
|
|
* @author Erik A.O. <erik@gmail.com, aortiz.erik@gmail.com>
|
|
|
|
|
|
* @date Apr 29th, 2010
|
|
|
|
|
|
*/
|
|
|
|
|
|
function json_encode($Json){
|
|
|
|
|
|
if( function_exists('json_encode') ){
|
|
|
|
|
|
return json_encode($Json);
|
|
|
|
|
|
} else {
|
|
|
|
|
|
G::LoadThirdParty('pear/json', 'class.json');
|
|
|
|
|
|
$oJSON = new Services_JSON();
|
|
|
|
|
|
return $oJSON->encode($Json);
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* JSON decode
|
|
|
|
|
|
*
|
|
|
|
|
|
* @author Erik A.O. <erik@gmail.com, aortiz.erik@gmail.com>
|
|
|
|
|
|
* @date Apr 29th, 2010
|
|
|
|
|
|
*/
|
|
|
|
|
|
function json_decode($Json){
|
|
|
|
|
|
if( function_exists('json_decode') ){
|
|
|
|
|
|
return json_decode($Json);
|
|
|
|
|
|
} else {
|
|
|
|
|
|
G::LoadThirdParty('pear/json', 'class.json');
|
|
|
|
|
|
$oJSON = new Services_JSON();
|
|
|
|
|
|
return $oJSON->decode($Json);
|
|
|
|
|
|
}
|
2010-12-22 14:21:52 +00:00
|
|
|
|
}
|
2010-12-02 23:34:41 +00:00
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Get the type of a variable
|
|
|
|
|
|
* Returns the type of the PHP variable var.
|
|
|
|
|
|
*
|
|
|
|
|
|
* @author Erik A. Ortiz. <erik@colosa.com>
|
|
|
|
|
|
* @return (string) type of variable
|
|
|
|
|
|
*/
|
|
|
|
|
|
public function gettype($var) {
|
|
|
|
|
|
switch ($var) {
|
|
|
|
|
|
case is_null($var):
|
|
|
|
|
|
$type='NULL';
|
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
|
|
case is_bool($var):
|
|
|
|
|
|
$type='boolean';
|
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
|
|
case is_float($var):
|
|
|
|
|
|
$type='double';
|
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
|
|
case is_int($var):
|
|
|
|
|
|
$type='integer';
|
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
|
|
case is_string($var):
|
|
|
|
|
|
$type='string';
|
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
|
|
case is_array($var):
|
|
|
|
|
|
$type='array';
|
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
|
|
case is_object($var):
|
|
|
|
|
|
$type='object';
|
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
|
|
case is_resource($var):
|
|
|
|
|
|
$type='resource';
|
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
|
|
default:
|
|
|
|
|
|
$type='unknown type';
|
|
|
|
|
|
break;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
return $type;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
function removeComments($buffer)
|
|
|
|
|
|
{
|
|
|
|
|
|
/* remove comments */
|
|
|
|
|
|
$buffer = preg_replace('!/\*[^*]*\*+([^/][^*]*\*+)*/!', '', $buffer);
|
|
|
|
|
|
/* remove tabs, spaces, newlines, etc. */
|
|
|
|
|
|
$buffer = str_replace(array("\r\n", "\r", "\n", "\t", ' ', ' ', ' '), '', $buffer);
|
|
|
|
|
|
return $buffer;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
function getMemoryUsage(){
|
|
|
|
|
|
$size = memory_get_usage(true);
|
|
|
|
|
|
$unit=array('B','Kb','Mb','Gb','Tb','Pb');
|
|
|
|
|
|
return @round($size/pow(1024,($i=floor(log($size,1024)))),2).' '.$unit[$i];
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
function getFormatUserList($format, $aUserInfo){
|
|
|
|
|
|
|
|
|
|
|
|
switch($format){
|
|
|
|
|
|
case '@firstName @lastName':
|
2010-12-06 15:12:37 +00:00
|
|
|
|
$infoUser = str_replace('@firstName', $aUserInfo['USR_FIRSTNAME'], $format);
|
|
|
|
|
|
$infoUser = str_replace('@lastName', $aUserInfo['USR_LASTNAME'], $infoUser);
|
2010-12-02 23:34:41 +00:00
|
|
|
|
break;
|
|
|
|
|
|
case '@firstName @lastName (@userName)':
|
2010-12-06 15:12:37 +00:00
|
|
|
|
$infoUser = str_replace('@firstName', $aUserInfo['USR_FIRSTNAME'], $format);
|
|
|
|
|
|
$infoUser = str_replace('@lastName', $aUserInfo['USR_LASTNAME'], $infoUser);
|
|
|
|
|
|
$infoUser = str_replace('@userName', $aUserInfo['USR_USERNAME'], $infoUser);
|
2010-12-02 23:34:41 +00:00
|
|
|
|
break;
|
|
|
|
|
|
case '@userName':
|
2010-12-06 15:12:37 +00:00
|
|
|
|
$infoUser = str_replace('@userName', $aUserInfo['USR_USERNAME'], $format);
|
2010-12-02 23:34:41 +00:00
|
|
|
|
break;
|
|
|
|
|
|
case '@userName (@firstName @lastName)':
|
2010-12-06 15:12:37 +00:00
|
|
|
|
$infoUser = str_replace('@userName', $aUserInfo['USR_USERNAME'], $format);
|
|
|
|
|
|
$infoUser = str_replace('@firstName', $aUserInfo['USR_FIRSTNAME'], $infoUser);
|
|
|
|
|
|
$infoUser = str_replace('@lastName', $aUserInfo['USR_LASTNAME'], $infoUser);
|
2010-12-02 23:34:41 +00:00
|
|
|
|
break;
|
|
|
|
|
|
case '@lastName @firstName':
|
2010-12-06 15:12:37 +00:00
|
|
|
|
$infoUser = str_replace('@lastName', $aUserInfo['USR_LASTNAME'], $format);
|
|
|
|
|
|
$infoUser = str_replace('@firstName', $aUserInfo['USR_FIRSTNAME'], $infoUser);
|
2010-12-02 23:34:41 +00:00
|
|
|
|
break;
|
|
|
|
|
|
case '@lastName, @firstName':
|
2010-12-06 15:12:37 +00:00
|
|
|
|
$infoUser = str_replace('@lastName', $aUserInfo['USR_LASTNAME'], $format);
|
|
|
|
|
|
$infoUser = str_replace('@firstName', $aUserInfo['USR_FIRSTNAME'], $infoUser);
|
2010-12-02 23:34:41 +00:00
|
|
|
|
break;
|
|
|
|
|
|
case '@lastName, @firstName (@userName)':
|
2010-12-06 15:12:37 +00:00
|
|
|
|
$infoUser = str_replace('@lastName', $aUserInfo['USR_LASTNAME'], $format);
|
|
|
|
|
|
$infoUser = str_replace('@firstName', $aUserInfo['USR_FIRSTNAME'], $infoUser);
|
|
|
|
|
|
$infoUser = str_replace('@userName', $aUserInfo['USR_USERNAME'], $infoUser);
|
2010-12-02 23:34:41 +00:00
|
|
|
|
break;
|
|
|
|
|
|
default :
|
2010-12-06 15:12:37 +00:00
|
|
|
|
$infoUser = str_replace('@userName', $aUserInfo['USR_USERNAME'], '@userName');
|
2010-12-02 23:34:41 +00:00
|
|
|
|
break;
|
|
|
|
|
|
}
|
|
|
|
|
|
return $infoUser;
|
|
|
|
|
|
}
|
2010-12-23 22:30:39 +00:00
|
|
|
|
|
|
|
|
|
|
function getModel($model){
|
|
|
|
|
|
require_once "classes/model/$model.php";
|
|
|
|
|
|
return new $model();
|
|
|
|
|
|
}
|
2011-01-14 14:41:15 +00:00
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Recursive Is writeable function
|
|
|
|
|
|
*
|
|
|
|
|
|
* @author Erik Amaru Ortiz <erik@colosa.com>
|
|
|
|
|
|
*
|
|
|
|
|
|
* @param $path path to scan recursively the write permission
|
|
|
|
|
|
* @param $pattern pattern to filter some especified files
|
|
|
|
|
|
* @return <boolean> if the $path, assuming that is a directory -> all files in it are writeables or not
|
|
|
|
|
|
*/
|
|
|
|
|
|
function is_rwritable($path, $pattern='*')
|
|
|
|
|
|
{
|
|
|
|
|
|
$files = G::rglob($pattern, 0, $path);
|
|
|
|
|
|
foreach ($files as $file) {
|
|
|
|
|
|
if( ! is_writable($file) )
|
|
|
|
|
|
return false;
|
|
|
|
|
|
}
|
|
|
|
|
|
return true;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* Recursive version of glob php standard function
|
|
|
|
|
|
*
|
|
|
|
|
|
* @author Erik Amaru Ortiz <erik@colosa.com>
|
|
|
|
|
|
*
|
|
|
|
|
|
* @param $path path to scan recursively the write permission
|
|
|
|
|
|
* @param $flags to notive glob function
|
|
|
|
|
|
* @param $pattern pattern to filter some especified files
|
|
|
|
|
|
* @return <array> array containing the recursive glob results
|
|
|
|
|
|
*/
|
|
|
|
|
|
function rglob($pattern='*', $flags = 0, $path='')
|
|
|
|
|
|
{
|
|
|
|
|
|
$paths = glob($path.'*', GLOB_MARK|GLOB_ONLYDIR|GLOB_NOSORT);
|
|
|
|
|
|
$files = glob($path.$pattern, $flags);
|
|
|
|
|
|
foreach ($paths as $path) {
|
|
|
|
|
|
$files = array_merge($files, G::rglob($pattern, $flags, $path));
|
|
|
|
|
|
}
|
|
|
|
|
|
return $files;
|
|
|
|
|
|
}
|
2010-12-02 23:34:41 +00:00
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* eprint
|
|
|
|
|
|
*
|
|
|
|
|
|
* @param string $s default value ''
|
|
|
|
|
|
* @param string $c default value null
|
|
|
|
|
|
*
|
|
|
|
|
|
* @return void
|
|
|
|
|
|
*/
|
|
|
|
|
|
function eprint($s = "", $c = null){
|
|
|
|
|
|
if( G::isHttpRequest() ){
|
|
|
|
|
|
if(isset($c)){
|
|
|
|
|
|
echo "<pre style='color:$c'>$s</pre>";
|
|
|
|
|
|
} else
|
|
|
|
|
|
echo "<pre>$s</pre>";
|
|
|
|
|
|
} else {
|
|
|
|
|
|
if(isset($c)){
|
|
|
|
|
|
switch($c){
|
|
|
|
|
|
case 'green':
|
|
|
|
|
|
printf("\033[0;35;32m$s\033[0m");
|
|
|
|
|
|
return;
|
|
|
|
|
|
case 'red':
|
|
|
|
|
|
printf("\033[0;35;31m$s\033[0m");
|
|
|
|
|
|
return;
|
|
|
|
|
|
case 'blue':
|
|
|
|
|
|
printf("\033[0;35;34m$s\033[0m");
|
|
|
|
|
|
return;
|
|
|
|
|
|
default: print "$s";
|
|
|
|
|
|
}
|
|
|
|
|
|
} else
|
|
|
|
|
|
print "$s";
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* println
|
|
|
|
|
|
*
|
|
|
|
|
|
* @param string $s
|
|
|
|
|
|
*
|
|
|
|
|
|
* @return eprintln($s)
|
|
|
|
|
|
*/
|
|
|
|
|
|
function println($s){
|
|
|
|
|
|
return eprintln($s);
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
|
* eprintln
|
|
|
|
|
|
*
|
|
|
|
|
|
* @param string $s
|
|
|
|
|
|
* @param string $c
|
|
|
|
|
|
*
|
|
|
|
|
|
* @return void
|
|
|
|
|
|
*/
|
|
|
|
|
|
function eprintln($s="", $c=null){
|
|
|
|
|
|
if( G::isHttpRequest() ){
|
|
|
|
|
|
if(isset($c)){
|
|
|
|
|
|
echo "<pre style='color:$c'>$s</pre>";
|
|
|
|
|
|
} else
|
|
|
|
|
|
echo "<pre>$s</pre>";
|
|
|
|
|
|
} else {
|
|
|
|
|
|
if(isset($c)){
|
|
|
|
|
|
switch($c){
|
|
|
|
|
|
case 'green':
|
|
|
|
|
|
printf("\033[0;35;32m$s\033[0m\n");
|
|
|
|
|
|
return;
|
|
|
|
|
|
case 'red':
|
|
|
|
|
|
printf("\033[0;35;31m$s\033[0m\n");
|
|
|
|
|
|
return;
|
|
|
|
|
|
case 'blue':
|
|
|
|
|
|
printf("\033[0;35;34m$s\033[0m\n");
|
|
|
|
|
|
return;
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
print "$s\n";
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
