File Source for lensdebug.class.php

<?php
/**
* Zikula Application Framework
*
* @copyright (c) 2001, Zikula Development Team
* @link http://www.zikula.org
* @version $Id: lensdebug.class.php 24342 2008-06-06 12:03:14Z markwest $
* @license GNU/GPL - http://www.gnu.org/copyleft/gpl.html
*/
/**
* Debug Variables - show debugging results in another window using javascript.
*
* The original saved into a file then displayed it in a window
* and was written by Alter Gr <alt-gr@gmx.de>.
*
* The new version by John Lim <jlim@natsoft.com.my>
* 1. writes directly to the debug window without using an intermediate file
* 2. supports all types, including objects, floats and booleans
* 3. cleans up strings with < correctly using htmlspecialchars()
* 4. added msg()
* 5. added recursion check in v2()
*
* Tested with IE 5.5 and Netscape 4.77 and 6.
*
* usage:
* $D = new LensDebug();
* $D->v($var1,"var1"); // display a variable and its type
* $D->msg('Show a text message');
*
* second parameter is optional
*
* Original (c) by DATABAY AG 2001 - ay@databay.de
* Other portions (c) 2001 by John Lim
*
* This is free software. Use at your own risk.
*/
/**
* @package Zikula_Core
* @subpackage Zikula_Debug
*/
class LensDebug {
var $show = false;
var $depth = 0;
// destination of the results
// file - to a file named debug.html
// window - to the lens debug window
var $destination = "window";
// ------------------------------------------
// Format variable recursively based on type
function v2($V, $Name = "", $class = false)
{
global $depth;
if ($this->depth > 32) {
return 'Recursive Depth Exceeded';
}
$depth += 1;
$TYPE_COLOR = "RED";
$NAME_COLOR = "BLUE";
$VALUE_COLOR = "BLACK";
$D = "";
$Name = htmlspecialchars($Name);
$type = gettype($V);
if (is_string($V)) {
$V = htmlspecialchars($V);
$D = "$type: ";
if ($Name != "") {
$D .= "$Name = ";
}
$D .= ""$V"";
} else if (is_object($V)) {
$D .= $this->v2(get_object_vars($V), $Name, get_class($V));
$D = substr($D, 0, strlen($D)-4); // get rid of last BR
} else if (is_array($V)) {
if ($class) {
$t = "Class $class";
} else {
$t = 'Array';
}
$D = "$t: ";
if ($Name != "") {
$D .= " ($Name) ";
}
$D .= "<UL>";
foreach($V as $key => $val) {
$D .= $this->v2($val, $key);
}
// $D = substr($D,0,strlen($D)-4); // get rid of last BR
$D .= "</UL>";
} else {
if ($V === null) {
$V = 'null';
} else if ($V === false) {
$V = 'false';
} else if ($V === true) {
$V = 'true';
}
$D = "$type: ";
if ($Name != "") {
$D .= "$Name = ";
}
$D .= "$V";
}
$D .= " ";
$this->depth -= 1;
return($D);
}
function _show()
{
if (!$this->show) {
global $PHP_SELF;
$file = $PHP_SELF;
$D = "<TABLE SIZE=100% CELLSPACING=0 CELLPADDING=0 BORDER=0><TR><TD><HR SIZE=1></TD><TD WIDTH=1%>" . date("d.m.Y") . " " . date("H:i:s") . "</TD></TR></TABLE>";
if ($this->destination == "window") {
?>
<SCRIPT>
lensdebugw=window.open('',"DEBUGVAR","WIDTH=450,HEIGHT=500,scrollbars=yes,resizable=yes");
if (lensdebugw) {
lensdebugw.focus();
lensdebugw.document.write("<?php echo $D;
?>"+''+window.location.href+'');
}
</SCRIPT>
<?php
} else {
$fh = fopen('debug.htm', 'a');
fwrite($fh, $D);
fclose($fh);
}
$this->show = true;
}
}
// ---------------------------------
// display message in debug window
function msg($D, $encode = true)
{
$this->_show();
if ($encode) {
$D = htmlspecialchars($D) . '';
}
$D = str_replace('\\', '\\\\', $D);
$D = str_replace('"', '\"', $D);
$D = str_replace("\r", ' ', $D);
$D = str_replace("\n", ' ', $D);
if ($this->destination == "window") {
?>
<SCRIPT>
if (lensdebugw) {
lensdebugw.document.write("<?php echo $D;
?>");
lensdebugw.scrollBy(0,100000);
}
</SCRIPT>
<?php
} else {
$fh = fopen('debug.html', 'a');
fwrite($fh, $D);
fclose($fh);
}
}
// ---------------------------------
// display variable in debug window
function v($V, $Name = "")
{
$this->_show();
$D = $this->v2($V, $Name);
if (!is_object($V) and !is_array($V)) {
$D .= ' ';
}
$this->msg($D, false);
}
} // LensDebug class
?>

Source for file lensdebug.class.php