|
|
|
@ -1,4 +1,18 @@ |
|
|
|
<?php |
|
|
|
// This file is part of Moodle - http://moodle.org/ |
|
|
|
// |
|
|
|
// Moodle is free software: you can redistribute it and/or modify |
|
|
|
// it under the terms of the GNU General Public License as published by |
|
|
|
// the Free Software Foundation, either version 3 of the License, or |
|
|
|
// (at your option) any later version. |
|
|
|
// |
|
|
|
// Moodle is distributed in the hope that it will be useful, |
|
|
|
// but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
|
|
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
|
|
// GNU General Public License for more details. |
|
|
|
// |
|
|
|
// You should have received a copy of the GNU General Public License |
|
|
|
// along with Moodle. If not, see <http://www.gnu.org/licenses/>. |
|
|
|
|
|
|
|
/** |
|
|
|
* Dump structured data, i.e., Objects and Arrays, in either plain text or |
|
|
|
@ -43,453 +57,364 @@ |
|
|
|
// Add a function to generate "newlines". |
|
|
|
// |
|
|
|
|
|
|
|
class SDD |
|
|
|
{ |
|
|
|
/** |
|
|
|
* HTML to be generated flag. |
|
|
|
*/ |
|
|
|
|
|
|
|
var $m_htmlFlag ; |
|
|
|
|
|
|
|
/** |
|
|
|
* logging flag. |
|
|
|
*/ |
|
|
|
|
|
|
|
var $m_logging = false ; |
|
|
|
|
|
|
|
/** |
|
|
|
* In memory log file. |
|
|
|
*/ |
|
|
|
|
|
|
|
var $m_log = array() ; |
|
|
|
|
|
|
|
/** |
|
|
|
* Constructor. |
|
|
|
* |
|
|
|
* @access public |
|
|
|
* @param boolean $theHTMLFlag [optional] True if HTML is to be generated. |
|
|
|
* If omitted, $_SERVER is used to "guess" the state of |
|
|
|
* the HTML flag. Be default, HTML is generated when |
|
|
|
* accessed by a web server. |
|
|
|
* @param boolean $theLoggingFlag [optional] the state of logging for |
|
|
|
* this object. By default, logging is off. |
|
|
|
*/ |
|
|
|
|
|
|
|
function SDD($theHtmlFlag=null, $theLoggingFlag=false) |
|
|
|
{ |
|
|
|
if ($theHtmlFlag === null) |
|
|
|
{ |
|
|
|
$theHtmlFlag = (!empty($_SERVER['DOCUMENT_ROOT'])) ; |
|
|
|
class sdd { |
|
|
|
/* |
|
|
|
* HTML to be generated flag. |
|
|
|
*/ |
|
|
|
|
|
|
|
protected $m_htmlflag; |
|
|
|
|
|
|
|
/* |
|
|
|
* logging flag. |
|
|
|
*/ |
|
|
|
|
|
|
|
protected $m_logging = false; |
|
|
|
|
|
|
|
/* |
|
|
|
* In memory log file. |
|
|
|
*/ |
|
|
|
|
|
|
|
protected $m_log = array(); |
|
|
|
|
|
|
|
/* |
|
|
|
* Constructor. |
|
|
|
* |
|
|
|
* @access public |
|
|
|
* @param boolean $theHTMLFlag [optional] True if HTML is to be generated. |
|
|
|
* If omitted, $_SERVER is used to "guess" the state of |
|
|
|
* the HTML flag. Be default, HTML is generated when |
|
|
|
* accessed by a web server. |
|
|
|
* @param boolean $theLoggingFlag [optional] the state of logging for |
|
|
|
* this object. By default, logging is off. |
|
|
|
*/ |
|
|
|
|
|
|
|
public function sdd($thehtmlflag = null, $theloggingflag = false) { |
|
|
|
if ($thehtmlflag === null) { |
|
|
|
$thehtmlflag = (!empty($_SERVER['DOCUMENT_ROOT'])); |
|
|
|
} |
|
|
|
|
|
|
|
$this->m_htmlFlag = $theHtmlFlag ; |
|
|
|
$this->m_logging = $theLoggingFlag ; |
|
|
|
$this->m_htmlflag = $thehtmlflag; |
|
|
|
$this->m_logging = $theloggingflag; |
|
|
|
} |
|
|
|
|
|
|
|
/** |
|
|
|
* Close the log file. |
|
|
|
* |
|
|
|
* @access public |
|
|
|
* @abstract |
|
|
|
*/ |
|
|
|
/* |
|
|
|
* Close the log file. |
|
|
|
* |
|
|
|
* @access public |
|
|
|
* @abstract |
|
|
|
*/ |
|
|
|
|
|
|
|
function close() |
|
|
|
{ |
|
|
|
public function close() { |
|
|
|
} |
|
|
|
|
|
|
|
/** |
|
|
|
* Dump a structured variable. |
|
|
|
* |
|
|
|
* @static |
|
|
|
* @param mixed $theVariable the variable to be dumped. |
|
|
|
* @param boolean $theHtmlFlag [optional] true if HTML is to be generated, |
|
|
|
* false if plain text is to be generated, null (default) if |
|
|
|
* dump is to guess which to display. |
|
|
|
* @return string The data to be displayed. |
|
|
|
* @link http://www.php.net/manual/en/reserved.variables.php#reserved.variables.server Uses $_SERVER |
|
|
|
*/ |
|
|
|
|
|
|
|
function dump(&$theVariable, $theHtmlFlag=null) |
|
|
|
{ |
|
|
|
if ($theHtmlFlag === null) |
|
|
|
{ |
|
|
|
if (empty($this)) |
|
|
|
{ |
|
|
|
$theHtmlFlag = (!empty($_SERVER['DOCUMENT_ROOT'])) ; |
|
|
|
} |
|
|
|
else |
|
|
|
{ |
|
|
|
if (is_subclass_of($this, "sdd")) |
|
|
|
{ |
|
|
|
$theHtmlFlag = $this->m_htmlFlag ; |
|
|
|
} |
|
|
|
else |
|
|
|
{ |
|
|
|
$theHtmlFlag = (!empty($_SERVER['DOCUMENT_ROOT'])) ; |
|
|
|
} |
|
|
|
/* |
|
|
|
* Dump a structured variable. |
|
|
|
* |
|
|
|
* @static |
|
|
|
* @param mixed $theVariable the variable to be dumped. |
|
|
|
* @param boolean $theHtmlFlag [optional] true if HTML is to be generated, |
|
|
|
* false if plain text is to be generated, null (default) if |
|
|
|
* dump is to guess which to display. |
|
|
|
* @return string The data to be displayed. |
|
|
|
* @link http://www.php.net/manual/en/reserved.variables.php#reserved.variables.server Uses $_SERVER |
|
|
|
*/ |
|
|
|
public function dump(&$thevariable, $thehtmlflag = null) { |
|
|
|
if ($thehtmlflag === null) { |
|
|
|
if (empty($this)) { |
|
|
|
$thehtmlflag = (!empty($_SERVER['DOCUMENT_ROOT'])); |
|
|
|
} else { |
|
|
|
if (is_subclass_of($this, "sdd")) { |
|
|
|
$thehtmlflag = $this->m_htmlflag; |
|
|
|
} else { |
|
|
|
$thehtmlflag = (!empty($_SERVER['DOCUMENT_ROOT'])); |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
switch (gettype($theVariable)) |
|
|
|
{ |
|
|
|
case 'array': |
|
|
|
{ |
|
|
|
return SDD::dArray($theVariable, $theHtmlFlag) ; |
|
|
|
} |
|
|
|
|
|
|
|
case 'object': |
|
|
|
{ |
|
|
|
return SDD::dObject($theVariable, $theHtmlFlag) ; |
|
|
|
} |
|
|
|
|
|
|
|
default: |
|
|
|
{ |
|
|
|
return SDD::scalar($theVariable, $theHtmlFlag) ; |
|
|
|
} |
|
|
|
switch (gettype($thevariable)) { |
|
|
|
case 'array': |
|
|
|
return SDD::dArray($thevariable, $thehtmlflag); |
|
|
|
case 'object': |
|
|
|
return SDD::dObject($thevariable, $thehtmlflag); |
|
|
|
default: |
|
|
|
return SDD::scalar($thevariable, $thehtmlflag); |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
/** |
|
|
|
* Dump the contents of an array. |
|
|
|
* |
|
|
|
* @param array $theArray the array whose contents are to be displayed. |
|
|
|
* @param boolean $theHTMLFlag True if an HTML table is to be generated, |
|
|
|
* false otherwise. |
|
|
|
* @param string $theIndent [optional] Used by SDD::dArray during recursion |
|
|
|
* to get indenting right. |
|
|
|
* @return string The display form of the array. |
|
|
|
*/ |
|
|
|
|
|
|
|
function dArray(&$theArray, $theHTMLFlag, $theIndent = "") |
|
|
|
{ |
|
|
|
$theOutput = array() ; |
|
|
|
|
|
|
|
foreach($theArray as $theIndex => $theValue) |
|
|
|
{ |
|
|
|
if (is_array($theValue)) |
|
|
|
{ |
|
|
|
$theString = SDD::dArray($theValue, $theHTMLFlag, $theIndent . " ") ; |
|
|
|
$theOutput[$theIndex] = substr($theString, 0, strlen($theString) - 1) ; |
|
|
|
} |
|
|
|
else if (is_object($theValue)) |
|
|
|
{ |
|
|
|
$theOutput[$theIndex] = SDD::dObject($theValue, $theHTMLFlag) ; |
|
|
|
} |
|
|
|
else |
|
|
|
{ |
|
|
|
$theOutput[$theIndex] = ($theHTMLFlag ? |
|
|
|
preg_replace('|<|s', '<', var_export($theValue, true)) : |
|
|
|
var_export($theValue, true)) ; |
|
|
|
/* |
|
|
|
* Dump the contents of an array. |
|
|
|
* |
|
|
|
* @param array $theArray the array whose contents are to be displayed. |
|
|
|
* @param boolean $theHTMLFlag True if an HTML table is to be generated, |
|
|
|
* false otherwise. |
|
|
|
* @param string $theIndent [optional] Used by SDD::dArray during recursion |
|
|
|
* to get indenting right. |
|
|
|
* @return string The display form of the array. |
|
|
|
*/ |
|
|
|
|
|
|
|
public function darray(&$thearray, $thehtmlflag, $theindent = "") { |
|
|
|
$theoutput = array(); |
|
|
|
|
|
|
|
foreach ($thearray as $theindex => $thevalue) { |
|
|
|
if (is_array($thevalue)) { |
|
|
|
$thestring = ssd::dArray($thevalue, $thehtmlflag, $theindent . " "); |
|
|
|
$theoutput[$theindex] = substr($thestring, 0, strlen($thestring) - 1); |
|
|
|
} else if (is_object($thevalue)) { |
|
|
|
$theoutput[$theindex] = sdd::dobject($thevalue, $thehtmlflag); |
|
|
|
} else { |
|
|
|
$theoutput[$theindex] = ($thehtmlflag ? preg_replace('|<|s', '<', |
|
|
|
var_export($thevalue, true)) : var_export($thevalue, true)); |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
if ($theHTMLFlag) |
|
|
|
{ |
|
|
|
$theString = "<table border=1>\n" ; |
|
|
|
$theString .= "<tr><td align=left>Array (</td></tr>\n" ; |
|
|
|
if ($thehtmlflag) { |
|
|
|
$thestring = "<table border=1>\n"; |
|
|
|
$thestring .= "<tr><td align=left>Array (</td></tr>\n"; |
|
|
|
|
|
|
|
foreach ($theOutput as $theIndex => $theVariableOutput) |
|
|
|
{ |
|
|
|
$theString .= "<tr>\n<td align=right>$theIndex = ></td><td align=left>\n$theVariableOutput\n</td>\n</tr>\n" ; |
|
|
|
foreach ($theoutput as $theindex => $thevariableoutput) { |
|
|
|
$thestring .= "<tr>\n<td align=right>$theindex = ></td><td align=left>\n$thevariableoutput\n</td>\n</tr>\n"; |
|
|
|
} |
|
|
|
|
|
|
|
$theString .= "<tr><td align=left>)</td></tr>\n" ; |
|
|
|
$theString .= "</table>\n" ; |
|
|
|
} |
|
|
|
else |
|
|
|
{ |
|
|
|
$theString = "Array\n$theIndent(\n" ; |
|
|
|
$thestring .= "<tr><td align=left>)</td></tr>\n"; |
|
|
|
$thestring .= "</table>\n"; |
|
|
|
} else { |
|
|
|
$thestring = "Array\n$theindent(\n"; |
|
|
|
|
|
|
|
foreach ($theOutput as $theIndex => $theVariableOutput) |
|
|
|
{ |
|
|
|
$theString .= "$theIndent [$theIndex] => " . $theVariableOutput . "\n" ; |
|
|
|
foreach ($theoutput as $theindex => $thevariableoutput) { |
|
|
|
$thestring .= "$theindent [$theindex] => " . $thevariableoutput . "\n"; |
|
|
|
} |
|
|
|
|
|
|
|
$theString .= "$theIndent)\n" ; |
|
|
|
$thestring .= "$theindent)\n"; |
|
|
|
} |
|
|
|
|
|
|
|
return $theString ; |
|
|
|
return $thestring; |
|
|
|
} |
|
|
|
|
|
|
|
/** |
|
|
|
* Dump the contents of an object. |
|
|
|
* |
|
|
|
* Provide a structured display of an object and all the |
|
|
|
* classes from which it was derived. The contents of |
|
|
|
* the object is displayed from most derived to the base |
|
|
|
* class, in order. |
|
|
|
* |
|
|
|
* @param object $theObject the object to be dumped. |
|
|
|
* @param boolean $theHTMLFlag true if HTML is to be generated. |
|
|
|
* @return string the display form of the object. |
|
|
|
*/ |
|
|
|
|
|
|
|
function dObject(&$theObject, $theHTMLFlag) |
|
|
|
{ |
|
|
|
$theObjectVars = get_object_vars($theObject) ; |
|
|
|
|
|
|
|
// |
|
|
|
// Get the inheritance tree starting with the object and going |
|
|
|
// through all the parent classes from there. |
|
|
|
// |
|
|
|
|
|
|
|
$theClass = get_class($theObject) ; |
|
|
|
|
|
|
|
$theClasses[] = $theClass ; |
|
|
|
|
|
|
|
while ($theClass = get_parent_class($theClass)) |
|
|
|
{ |
|
|
|
$theClasses[] = $theClass ; |
|
|
|
/* |
|
|
|
* Dump the contents of an object. |
|
|
|
* |
|
|
|
* Provide a structured display of an object and all the |
|
|
|
* classes from which it was derived. The contents of |
|
|
|
* the object is displayed from most derived to the base |
|
|
|
* class, in order. |
|
|
|
* |
|
|
|
* @param object $theObject the object to be dumped. |
|
|
|
* @param boolean $theHTMLFlag true if HTML is to be generated. |
|
|
|
* @return string the display form of the object. |
|
|
|
*/ |
|
|
|
|
|
|
|
public function dobject(&$theobject, $thehtmlflag) { |
|
|
|
$theobjectvars = get_object_vars($theobject); |
|
|
|
|
|
|
|
/* Get the inheritance tree starting with the object and going |
|
|
|
* through all the parent classes from there. |
|
|
|
*/ |
|
|
|
|
|
|
|
$theclass = get_class($theobject); |
|
|
|
|
|
|
|
$theclasses[] = $theclass; |
|
|
|
|
|
|
|
while ($theclass = get_parent_class($theclass)) { |
|
|
|
$theclasses[] = $theclass; |
|
|
|
} |
|
|
|
|
|
|
|
// |
|
|
|
// Get all the class variables for each class in the inheritance |
|
|
|
// tree. There will be some duplication, but we'll sort that out |
|
|
|
// in the output process. |
|
|
|
// |
|
|
|
/* Get all the class variables for each class in the inheritance |
|
|
|
* tree. There will be some duplication, but we'll sort that out |
|
|
|
* in the output process. |
|
|
|
*/ |
|
|
|
|
|
|
|
foreach($theClasses as $theClass) |
|
|
|
{ |
|
|
|
$theClassVars[$theClass] = get_class_vars($theClass) ; |
|
|
|
foreach ($theclasses as $theclass) { |
|
|
|
$theclassvars[$theclass] = get_class_vars($theclass); |
|
|
|
} |
|
|
|
|
|
|
|
// |
|
|
|
// Put the inheritance tree from base class to most derived order |
|
|
|
// (this is how we get rid of duplication of the variable names) |
|
|
|
// Go through the object variables starting with the base class, |
|
|
|
// capture the output and delete the variable from the object |
|
|
|
// variables. |
|
|
|
// |
|
|
|
|
|
|
|
$theClasses = array_reverse($theClasses) ; |
|
|
|
|
|
|
|
$theOutput = array() ; |
|
|
|
|
|
|
|
foreach ($theClasses as $theClass) |
|
|
|
{ |
|
|
|
$theOutput[$theClass] = array() ; |
|
|
|
|
|
|
|
foreach ($theClassVars[$theClass] as $theVariable => $value) |
|
|
|
{ |
|
|
|
if (array_key_exists($theVariable, $theObjectVars)) |
|
|
|
{ |
|
|
|
if (is_array($theObjectVars[$theVariable])) |
|
|
|
{ |
|
|
|
$theOutput[$theClass][] = $theVariable . " = " . SDD::dArray($theObjectVars[$theVariable], $theHTMLFlag) ; |
|
|
|
} |
|
|
|
else if (is_object($theObjectVars[$theVariable])) |
|
|
|
{ |
|
|
|
$theOutput[$theClass][] = $theVariable . " = " . SDD::dObject($theObjectVars[$theVariable], $theHTMLFlag) ; |
|
|
|
} |
|
|
|
else |
|
|
|
{ |
|
|
|
$theOutput[$theClass][] = |
|
|
|
$theVariable . " = " . |
|
|
|
($theHTMLFlag ? |
|
|
|
preg_replace('|<|s', '<', var_export($theObjectVars[$theVariable], true)) : |
|
|
|
var_export($theObjectVars[$theVariable], true)) ; |
|
|
|
/* Put the inheritance tree from base class to most derived order |
|
|
|
* (this is how we get rid of duplication of the variable names) |
|
|
|
* Go through the object variables starting with the base class, |
|
|
|
* capture the output and delete the variable from the object |
|
|
|
* variables. |
|
|
|
*/ |
|
|
|
|
|
|
|
$theclasses = array_reverse($theclasses); |
|
|
|
|
|
|
|
$theoutput = array(); |
|
|
|
|
|
|
|
foreach ($theclasses as $theclass) { |
|
|
|
$theoutput[$theclass] = array(); |
|
|
|
|
|
|
|
foreach ($theclassvars[$theclass] as $thevariable => $value) { |
|
|
|
if (array_key_exists($thevariable, $theobjectvars)) { |
|
|
|
if (is_array($theobjectvars[$thevariable])) { |
|
|
|
$theoutput[$theclass][] = $thevariable . " = " . sdd::darray($theobjectvars[$thevariable], $thehtmlflag); |
|
|
|
} else if (is_object($theobjectvars[$thevariable])) { |
|
|
|
$theoutput[$theclass][] = $thevariable . " = " . sdd::dobject($theobjectvars[$thevariable], $thehtmlflag); |
|
|
|
} else { |
|
|
|
$theotput[$theclass][] = $thevariable . " = " . |
|
|
|
($thehtmlflag ? preg_replace('|<|s', '<', var_export( |
|
|
|
$theobjectvars[$thevariable], true)) : var_export($theobjectvars[$thevariable], true)); |
|
|
|
} |
|
|
|
|
|
|
|
unset($theObjectVars[$theVariable]) ; |
|
|
|
unset($theobjectvars[$thevariable]); |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
// |
|
|
|
// Put the classes back in most derived order for generating printable |
|
|
|
// output. |
|
|
|
// |
|
|
|
/* Put the classes back in most derived order for generating printable |
|
|
|
* output. |
|
|
|
*/ |
|
|
|
$theclasses = array_reverse($theclasses); |
|
|
|
|
|
|
|
$theClasses = array_reverse($theClasses) ; |
|
|
|
if ($thehtmlflag) { |
|
|
|
$thestring = "<table>\n<thead>\n"; |
|
|
|
|
|
|
|
if ($theHTMLFlag) |
|
|
|
{ |
|
|
|
$theString = "<table>\n<thead>\n" ; |
|
|
|
|
|
|
|
foreach ($theClasses as $theClass) |
|
|
|
{ |
|
|
|
$theString .= "<th>\n$theClass\n</th>\n" ; |
|
|
|
foreach ($theclasses as $theclass) { |
|
|
|
$thestring .= "<th>\n$theclass\n</th>\n"; |
|
|
|
} |
|
|
|
|
|
|
|
$theString .= "</thead>\n<tr valign=top>\n" ; |
|
|
|
$thestring .= "</thead>\n<tr valign=top>\n"; |
|
|
|
|
|
|
|
foreach ($theClasses as $theClass) |
|
|
|
{ |
|
|
|
$theString .= "<td>\n<table border=1>\n" ; |
|
|
|
foreach ($theclasses as $theclass) { |
|
|
|
$thestring .= "<td>\n<table border=1>\n"; |
|
|
|
|
|
|
|
foreach ($theOutput[$theClass] as $theVariableOutput) |
|
|
|
{ |
|
|
|
$theString .= "<tr>\n<td>\n$theVariableOutput\n</td>\n</tr>\n" ; |
|
|
|
foreach ($theoutput[$theclass] as $thevariableoutput) { |
|
|
|
$thestring .= "<tr>\n<td>\n$thevariableoutput\n</td>\n</tr>\n"; |
|
|
|
} |
|
|
|
|
|
|
|
$theString .= "</table>\n</td>\n" ; |
|
|
|
$thestring .= "</table>\n</td>\n"; |
|
|
|
} |
|
|
|
|
|
|
|
$theString .= "</tr>\n</table>\n" ; |
|
|
|
} |
|
|
|
else |
|
|
|
{ |
|
|
|
$thestring .= "</tr>\n</table>\n"; |
|
|
|
} else { |
|
|
|
$classindent = ""; |
|
|
|
|
|
|
|
$classIndent = "" ; |
|
|
|
$classdataindent = " "; |
|
|
|
|
|
|
|
$classDataIndent = " " ; |
|
|
|
$thestring = ""; |
|
|
|
|
|
|
|
$theString = "" ; |
|
|
|
foreach ($theclasses as $theclass) { |
|
|
|
$thestring .= "{$classindent}class $theclass\n\n"; |
|
|
|
|
|
|
|
foreach ($theClasses as $theClass) |
|
|
|
{ |
|
|
|
$theString .= "{$classIndent}class $theClass\n\n" ; |
|
|
|
|
|
|
|
foreach ($theOutput[$theClass] as $theVariableOutput) |
|
|
|
{ |
|
|
|
$theString .= "$classDataIndent$theVariableOutput\n" ; |
|
|
|
foreach ($theoutput[$theclass] as $thevariableoutput) { |
|
|
|
$thestring .= "$classdataindent$thevariableoutput\n"; |
|
|
|
} |
|
|
|
|
|
|
|
$theString .= "\n" ; |
|
|
|
$thestring .= "\n"; |
|
|
|
|
|
|
|
$classIndent .= " " ; |
|
|
|
$classindent .= " "; |
|
|
|
|
|
|
|
$classDataIndent .= " " ; |
|
|
|
$classdataindent .= " "; |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
return $theString ; |
|
|
|
return $thestring; |
|
|
|
} |
|
|
|
|
|
|
|
/** |
|
|
|
* Write a debugging value to a log file. |
|
|
|
* |
|
|
|
* @access public |
|
|
|
* @abstract |
|
|
|
* @param mixed Data to be logged. |
|
|
|
* @param string $theHeader [optional] string to be emitted prior to |
|
|
|
* logging the data. By default it is a date/time |
|
|
|
* stamp. |
|
|
|
*/ |
|
|
|
|
|
|
|
function log(&$theData, $theHeader=null) |
|
|
|
{ |
|
|
|
$theHeader = date('[Y-m-d H:i:s]: ') . $theHeader ; |
|
|
|
|
|
|
|
if ($this->m_logging) |
|
|
|
{ |
|
|
|
if ($this->m_htmlFlag) |
|
|
|
{ |
|
|
|
$xxx = $this->dump($theData) ; |
|
|
|
if (substr($xxx, 0, 5) == '<pre>') |
|
|
|
{ |
|
|
|
$xxx = '<pre>' . $theHeader . substr($xxx, 5) ; |
|
|
|
} |
|
|
|
else |
|
|
|
{ |
|
|
|
$xxx = $theHeader . $xxx ; |
|
|
|
/* |
|
|
|
* Write a debugging value to a log file. |
|
|
|
* |
|
|
|
* @access public |
|
|
|
* @abstract |
|
|
|
* @param mixed Data to be logged. |
|
|
|
* @param string $theHeader [optional] string to be emitted prior to |
|
|
|
* logging the data. By default it is a date/time |
|
|
|
* stamp. |
|
|
|
*/ |
|
|
|
|
|
|
|
public function log(&$thedata, $theheader = null) { |
|
|
|
$theheader = date('[Y-m-d H:i:s]: ') . $theheader; |
|
|
|
|
|
|
|
if ($this->m_logging) { |
|
|
|
if ($this->m_htmlflag) { |
|
|
|
$xxx = $this->dump($thedata); |
|
|
|
if (substr($xxx, 0, 5) == '<pre>') { |
|
|
|
$xxx = '<pre>' . $theheader . substr($xxx, 5); |
|
|
|
} else { |
|
|
|
$xxx = $theheader . $xxx; |
|
|
|
} |
|
|
|
|
|
|
|
$this->writeLog($xxx) ; |
|
|
|
} |
|
|
|
else |
|
|
|
{ |
|
|
|
$xxx = $theHeader . $this->dump($theData) ; |
|
|
|
$this->writeLog($xxx) ; |
|
|
|
$this->writeLog($xxx); |
|
|
|
} else { |
|
|
|
$xxx = $theheader . $this->dump($thedata); |
|
|
|
$this->writelog($xxx); |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
/** |
|
|
|
* @desc Generate context specific new line equivalents. |
|
|
|
* @param integer [optional] the number of newlines. |
|
|
|
* @param boolean [optional] true if generating html newlines. |
|
|
|
* @return string newlines. |
|
|
|
* @access public |
|
|
|
*/ |
|
|
|
|
|
|
|
function newline($theCount=1, $theHtmlFlag=null) |
|
|
|
{ |
|
|
|
if ($theHtmlFlag === null) |
|
|
|
{ |
|
|
|
if (empty($this)) |
|
|
|
{ |
|
|
|
$theHtmlFlag = (!empty($_SERVER['DOCUMENT_ROOT'])) ; |
|
|
|
} |
|
|
|
else |
|
|
|
{ |
|
|
|
if (is_subclass_of($this, "sdd")) |
|
|
|
{ |
|
|
|
$theHtmlFlag = $this->m_htmlFlag ; |
|
|
|
} |
|
|
|
else |
|
|
|
{ |
|
|
|
$theHtmlFlag = (!empty($_SERVER['DOCUMENT_ROOT'])) ; |
|
|
|
} |
|
|
|
/* |
|
|
|
* @desc Generate context specific new line equivalents. |
|
|
|
* @param integer [optional] the number of newlines. |
|
|
|
* @param boolean [optional] true if generating html newlines. |
|
|
|
* @return string newlines. |
|
|
|
* @access public |
|
|
|
*/ |
|
|
|
|
|
|
|
public function newline($thecount = 1, $thehtmlflag = null) { |
|
|
|
if ($thehtmlflag === null) { |
|
|
|
if (empty($this)) { |
|
|
|
$thehtmlflag = (!empty($_SERVER['DOCUMENT_ROOT'])); |
|
|
|
} else { |
|
|
|
if (is_subclass_of($this, "sdd")) { |
|
|
|
$thehtmlflag = $this->m_htmlflag; |
|
|
|
} else { |
|
|
|
$thehtmlflag = (!empty($_SERVER['DOCUMENT_ROOT'])); |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
if ($theHtmlFlag) |
|
|
|
{ |
|
|
|
return str_repeat("<br />", max($theCount, 0)) . "\n" ; |
|
|
|
} |
|
|
|
else |
|
|
|
{ |
|
|
|
return str_repeat("\n", max($theCount, 0)) ; |
|
|
|
if ($thehtmlflag) { |
|
|
|
return str_repeat("<br />", max($thecount, 0)) . "\n"; |
|
|
|
} else { |
|
|
|
return str_repeat("\n", max($thecount, 0)); |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
/** |
|
|
|
* Dump any scalar value |
|
|
|
* |
|
|
|
* @param mixed $theVariable the variable to be dumped. |
|
|
|
* @param boolean $theHtmlFlag true if html is to be generated. |
|
|
|
*/ |
|
|
|
|
|
|
|
function scalar(&$theVariable, $theHtmlFlag) |
|
|
|
{ |
|
|
|
if ($theHtmlFlag) |
|
|
|
{ |
|
|
|
return "<pre>" . preg_replace('|<|s', '<', var_export($theVariable, true)) . "</pre>" ; |
|
|
|
} |
|
|
|
else |
|
|
|
{ |
|
|
|
return var_export($theVariable, true) ; |
|
|
|
/* |
|
|
|
* Dump any scalar value |
|
|
|
* |
|
|
|
* @param mixed $theVariable the variable to be dumped. |
|
|
|
* @param boolean $theHtmlFlag true if html is to be generated. |
|
|
|
*/ |
|
|
|
|
|
|
|
public function scalar(&$thevariable, $thehtmlflag) { |
|
|
|
if ($thehtmlflag) { |
|
|
|
return "<pre>" . preg_replace('|<|s', '<', var_export($thevariable, true)) . "</pre>"; |
|
|
|
} else { |
|
|
|
return var_export($thevariable, true); |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
/** |
|
|
|
* Write data to the log file. |
|
|
|
* |
|
|
|
* @access public |
|
|
|
* @abstract |
|
|
|
* @parameter string $theData [by reference] the data to be written |
|
|
|
* into the log file. |
|
|
|
* @return integer the number of bytes written into the log file. |
|
|
|
*/ |
|
|
|
|
|
|
|
function writeLog(&$theData) |
|
|
|
{ |
|
|
|
return strlen($this->m_log[] = $theData) ; |
|
|
|
/* |
|
|
|
* Write data to the log file. |
|
|
|
* |
|
|
|
* @access public |
|
|
|
* @abstract |
|
|
|
* @parameter string $theData [by reference] the data to be written |
|
|
|
* into the log file. |
|
|
|
* @return integer the number of bytes written into the log file. |
|
|
|
*/ |
|
|
|
|
|
|
|
public function writelog(&$thedata) { |
|
|
|
return strlen($this->m_log[] = $thedata); |
|
|
|
} |
|
|
|
|
|
|
|
/** |
|
|
|
* Return the state of the logging flag. |
|
|
|
* |
|
|
|
* @access public |
|
|
|
* @return boolean |
|
|
|
*/ |
|
|
|
/* |
|
|
|
* Return the state of the logging flag. |
|
|
|
* |
|
|
|
* @access public |
|
|
|
* @return boolean |
|
|
|
*/ |
|
|
|
|
|
|
|
function getLogging() |
|
|
|
{ |
|
|
|
return $this->m_logging ; |
|
|
|
public function getlogging() { |
|
|
|
return $this->m_logging; |
|
|
|
} |
|
|
|
|
|
|
|
/** |
|
|
|
* Set the state of the logging flag. |
|
|
|
* |
|
|
|
* @access public |
|
|
|
* @return boolean |
|
|
|
*/ |
|
|
|
/* |
|
|
|
* Set the state of the logging flag. |
|
|
|
* |
|
|
|
* @access public |
|
|
|
* @return boolean |
|
|
|
*/ |
|
|
|
|
|
|
|
function setLogging($theLogging=false) |
|
|
|
{ |
|
|
|
$this->m_logging = $theLogging ; |
|
|
|
public function setlogging($thelogging=false) { |
|
|
|
$this->m_logging = $thelogging; |
|
|
|
} |
|
|
|
} |
|
|
|
?> |
Vasilis Daloukas
9 years ago