** Filename......: debuglib.php(s)
** Last changed..: 16. July 2003
** License.......: Free to use. Postcardware ;)
**
*************************************************
**
** Functions in this library:
**
** print_a( array array [,int mode] )
** prints arrays in a readable, understandable form.
** if mode is defined the function returns the output instead of
** printing it to the browser
**
**
** show_vars([int mode])
** use this function on the bottom of your script to see all
** superglobals and global variables in your script in a nice
** formated way
**
** show_vars() without parameter shows $_GET, $_POST, $_SESSION,
** $_FILES and all global variables you've defined in your script
**
** show_vars(1) shows $_SERVER and $_ENV in addition
**
**
**
** print_result( result_handle )
** prints a mysql_result set returned by mysql_query() as a table
** this function is work in progress! use at your own risk
**
**
**
**
** Happy debugging and feel free to email me your comments.
**
**
**
** History: (starting with version 0.5.3 at 2003-02-24)
**
** - added tooltips to the td's showing the type of keys and values (thanks Itomic)
** 2003-07-16
** - pre() function now trims trailing tabs
************************************************/
# This file must be the first include on your page.
/* used for tracking of generation-time */
{
$MICROTIME_START = microtime();
@$GLOBALS_initial_count = count($GLOBALS);
}
/************************************************
** print_a class and helper function
** prints out an array in a more readable way
** than print_r()
**
** based on the print_a() function from
** Stephan Pirson (Saibot)
************************************************/
class Print_a_class {
# this can be changed to FALSE if you don't like the fancy string formatting
var $look_for_leading_tabs = TRUE;
var $output;
var $iterations;
var $key_bg_color = '1E32C8';
var $value_bg_color = 'DDDDEE';
var $fontsize = '8pt';
var $keyalign = 'center';
var $fontfamily = 'Verdana';
var $export_flag;
var $show_object_vars;
var $export_dumper_path = 'http://tools.www.mdc.xmc.de/print_a_dumper/print_a_dumper.php';
# i'm still working on the dumper! don't use it now
# put the next line into the print_a_dumper.php file (optional)
# print htmlspecialchars( stripslashes ( $_POST['array'] ) );
var $export_hash;
function Print_a_class() {
$this->export_hash = uniqid('');
}
# recursive function!
function print_a($array, $iteration = FALSE, $key_bg_color = FALSE) {
$key_bg_color or $key_bg_color = $this->key_bg_color;
# if print_a() was called with a fourth parameter (1 or 2)
# and you click on the table a window opens with only the output of print_a() in it
# 1 = serialized array
# 2 = normal print_a() display
/* put the following code on the page defined with $export_dumper_path;
--->%---- snip --->%----
if($_GET['mode'] == 1) {
print htmlspecialchars( stripslashes ( $_POST['array'] ) );
} elseif($_GET['mode'] == 2) {
print_a(unserialize( stripslashes($_POST['array'])) );
}
---%<---- snip ---%<----
*/
if( !$iteration && isset($this->export_flag) ) {
$this->output .= '';
}
# lighten up the background color for the key td's =)
if( $iteration ) {
for($i=0; $i<6; $i+=2) {
$c = substr( $key_bg_color, $i, 2 );
$c = hexdec( $c );
( $c += 15 ) > 255 and $c = 255;
isset($tmp_key_bg_color) or $tmp_key_bg_color = '';
$tmp_key_bg_color .= sprintf( "%02X", $c );
}
$key_bg_color = $tmp_key_bg_color;
}
# build a single table ... may be nested
$this->output .= 'export_flag ? 'onClick="document.getElementById(\'pa_form_'.$this->export_hash.'\').submit();" )' : '' ).'>';
foreach( $array as $key => $value ) {
$value_style = 'color:black;';
$key_style = 'color:white;';
$type = gettype( $value );
# print $type.'
';
# change the color and format of the value
switch( $type ) {
case 'array':
break;
case 'object':
$key_style = 'color:#FF9B2F;';
break;
case 'integer':
$value_style = 'color:green;';
break;
case 'double':
$value_style = 'color:red;';
break;
case 'bool':
$value_style = 'color:blue;';
break;
case 'resource':
$value_style = 'color:darkblue;';
break;
case 'string':
if( $this->look_for_leading_tabs && preg_match('/^\t/m', $value) ) {
$search = array('/\t/', "/\n/");
$replace = array(' ','
');
$value = preg_replace( $search, $replace, htmlspecialchars( $value ) );
$value_style = 'color:black;border:1px gray dotted;';
} else {
$value_style = 'color:black;';
$value = nl2br( htmlspecialchars( $value ) );
}
break;
}
$this->output .= '';
$this->output .= '| ';
$this->output .= $key;
$this->output .= ' | ';
$this->output .= '';
# value output
if($type == 'array') {
$this->print_a( $value, TRUE, $key_bg_color );
} elseif($type == 'object') {
if( $this->show_object_vars ) {
$this->print_a( get_object_vars( $value ), TRUE, $key_bg_color );
} else {
$this->output .= ' OBJECT ';
}
} else {
$this->output .= ''.$value.' ';
}
$this->output .= ' | ';
$this->output .= '
';
}
$this->output .= '
';
}
}
# helper function.. calls print_a() inside the print_a_class
function print_a( $array, $return_mode = FALSE, $show_object_vars = FALSE, $export_flag = FALSE ) {
$e= error_reporting (0);
if( is_array( $array ) or is_object( $array ) ) {
$pa = new Print_a_class;
$show_object_vars and $pa->show_object_vars = TRUE;
$export_flag and $pa->export_flag = $export_flag;
$pa->print_a( $array );
# $output = $pa->output; unset($pa);
$output = &$pa->output;
} else {
$output = 'print_a( '.gettype( $array ).' )';
}
error_reporting ($e);
if($return_mode) {
return $output;
} else {
print $output;
return TRUE;
}
}
// shows mysql-result as a table.. # not ready yet :(
function print_result($RESULT) {
if(!$RESULT) return;
$fieldcount = mysql_num_fields($RESULT);
for($i=0; $i<$fieldcount; $i++) {
$tables[mysql_field_table($RESULT, $i)]++;
}
print '
';
print '';
print '';
foreach($tables as $tableName => $tableCount) {
$col == '0054A6' ? $col = '003471' : $col = '0054A6';
print '| '.$tableName.' | ';
}
print '
';
print '';
for($i=0;$i < mysql_num_fields($RESULT);$i++) {
$FIELD = mysql_field_name($RESULT, $i);
$col == '0054A6' ? $col = '003471' : $col = '0054A6';
print '| '.$FIELD.' | ';
}
print '
';
mysql_data_seek($RESULT, 0);
while($DB_ROW = mysql_fetch_array($RESULT, MYSQL_NUM)) {
$pointer++;
if($toggle) {
$col1 = "E6E6E6";
$col2 = "DADADA";
} else {
$col1 = "E1F0FF";
$col2 = "DAE8F7";
}
$toggle = !$toggle;
print '';
foreach($DB_ROW as $value) {
$col == $col1 ? $col = $col2 : $col = $col1;
print '| '.nl2br($value).' | ';
}
print '
';
}
print '
';
mysql_data_seek($RESULT, 0);
}
function _script_globals() {
global $GLOBALS_initial_count;
$varcount = 0;
foreach($GLOBALS as $GLOBALS_current_key => $GLOBALS_current_value) {
if(++$varcount > $GLOBALS_initial_count) {
/* die wollen wir nicht! */
if ($GLOBALS_current_key != 'HTTP_SESSION_VARS' && $GLOBALS_current_key != '_SESSION') {
$script_GLOBALS[$GLOBALS_current_key] = $GLOBALS_current_value;
}
}
}
unset($script_GLOBALS['GLOBALS_initial_count']);
return $script_GLOBALS;
}
function show_runtime() {
$MICROTIME_END = microtime();
$MICROTIME_START = explode(' ', $GLOBALS['MICROTIME_START']);
$MICROTIME_END = explode(' ', $MICROTIME_END);
$GENERATIONSEC = $MICROTIME_END[1] - $MICROTIME_START[1];
$GENERATIONMSEC = $MICROTIME_END[0] - $MICROTIME_START[0];
$GENERATIONTIME = substr($GENERATIONSEC + $GENERATIONMSEC, 0, 8);
return '(runtime: '.$GENERATIONTIME.' sec)';
}
######################
# function shows all superglobals and script defined global variables
# show_vars() without the first parameter shows all superglobals except $_ENV and $_SERVER
# show_vars(1) shows all
# show_vars(,1) shows object properties in addition
#
function show_vars($show_all_vars = FALSE, $show_object_vars = FALSE) {
if(isset($GLOBALS['no_vars'])) return;
$script_globals = _script_globals();
print '
';
print '
DEBUG '.show_runtime().'
';
$vars_arr['script_globals'] = array('global script variables', '#7ACCC8');
$vars_arr['_GET'] = array('$_GET', '#7DA7D9');
$vars_arr['_POST'] = array('$_POST', '#F49AC1');
$vars_arr['_FILES'] = array('$_POST FILES', '#82CA9C');
$vars_arr['_SESSION'] = array('$_SESSION', '#FCDB26');
$vars_arr['_COOKIE'] = array('$_COOKIE', '#A67C52');
if($show_all_vars) {
$vars_arr['_SERVER'] = array('SERVER', '#A186BE');
$vars_arr['_ENV'] = array('ENV', '#7ACCC8');
}
foreach($vars_arr as $vars_name => $vars_data) {
if($vars_name != 'script_globals') global $$vars_name;
if($$vars_name) {
print '
'.$vars_data[0].'
';
print_a($$vars_name, FALSE, $show_object_vars, FALSE );
print '
';
}
}
print '
'.$sql_string.'
';
}
function print_array($array, $sort=true) {
$result= "";
if($array && is_array($array) && array_count_values($array) > 0) {
if($sort) {
sort($array);
}
$size= count($array);
foreach($array as $value) {
$result.= $value;
if($size > 1) {
$result.= ", ";
}
$size--;
}
}
return $result;
}
/**
* parse php modules from phpinfo
* taken from user comments on php-net site
*/
function parsePHPModules() {
ob_start();
phpinfo(INFO_MODULES);
$s = ob_get_contents();
ob_end_clean();
$s = strip_tags($s,' | ');
$s = preg_replace('/]*>([^<]+)<\/th>/',"\\1",$s);
$s = preg_replace('/]*>([^<]+)<\/td>/',"\\1",$s);
$vTmp = preg_split('/([^<]+<\/h2>)/',$s,-1,PREG_SPLIT_DELIM_CAPTURE);
$vModules = array();
for ($i=1;$i([^<]+)<\/h2>/',$vTmp[$i],$vMat)) {
$vName = trim($vMat[1]);
$vTmp2 = explode("\n",$vTmp[$i+1]);
foreach ($vTmp2 AS $vOne) {
$vPat = '([^<]+)<\/info>';
$vPat3 = "/$vPat\s*$vPat\s*$vPat/";
$vPat2 = "/$vPat\s*$vPat/";
if (preg_match($vPat3,$vOne,$vMat)) { // 3cols
$vModules[$vName][trim($vMat[1])] = array(trim($vMat[2]),trim($vMat[3]));
} elseif (preg_match($vPat2,$vOne,$vMat)) { // 2cols
$vModules[$vName][trim($vMat[1])] = trim($vMat[2]);
}
}
}
}
return $vModules;
}
function get_module_setting($pModuleName, $pSetting) {
$vModules= parsePHPModules();
return $vModules[$pModuleName][$pSetting];
}
?>
|