1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
|
<?php
/*
** $Id$
**
** Copyright (C) 1995-2007 by the ITools Authors.
** This file is part of ITools - the Internet Tools Library
**
** ITools 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.
**
** ITools 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 this program. If not, see <http://www.gnu.org/licenses/>.
**
** debug.class - Debug Functionality for ITools
*/
/**
* Debug functions
*/
class it_debug
{
var $level;
/**
* Constructor
* @param $level Debug level. All debug() calls with a level <= $level are shown.
*/
function it_debug($level=0)
{
$this->level = isset($GLOBALS['debug_level']) ? $GLOBALS['debug_level'] : $level;
}
/**
* Output a message if the global debug level is higher or the same as $level
* @param $text Message to display
* @param $level Debug level
*/
function debug($text, $level = 0)
{
if ($this->level >= $level)
{
echo (isset($_SERVER['REMOTE_ADDR']) ? nl2br("$level $text\n") : "$level $text")."\n";
flush();
}
}
/**
* Get source line of grandparent calling this function
* @param $stacksoffs go up an extra $stacksoffs levels
*/
function srcline($stackoffs = 0)
{
$stack = debug_backtrace(@constant('DEBUG_BACKTRACE_IGNORE_ARGS'));
$line = $stack[1 + $stackoffs]['line'];
$file = $stack[1 + $stackoffs]['file'];
if (!isset($GLOBALS['it_debug::dump source'][$file]))
$GLOBALS['it_debug::dump source'][$file] = file($file);
if (preg_match('/^#!/', $GLOBALS['it_debug::dump source'][$file][0]))
$line++;
return $GLOBALS['it_debug::dump source'][$file][$line-1];
}
/**
* Backend for functions D(), ED() and EDX() in functions.php
* @param Origargs Array containing original arguments do ED() etc
* @return String representation of dump
*/
function dump($args)
{
if (preg_match('/csv|txt|gif|jpg/', $_SERVER['PHP_SELF']) || preg_grep('#text/(calendar|css|javascript|json|plain|rfc822|xml)#', headers_list()))
$plain = 1;
else if ($_SERVER['REMOTE_ADDR'])
list($blue, $noblue) = array("<span style='color:#00c'>", "</span>");
else if (posix_isatty(STDOUT))
list($blue, $noblue, $red, $nored) = getenv('IT_ED_BRIGHT') ? array("\033[34m", "\033[m", "\033[33m", "\033[m") : array("\033[34m", "\033[m", "\033[31m", "\033[m");
@fseek(STDOUT, 0, SEEK_END); # Work around PHP bug 49819: posix_isatty seeks to start
$src = it_debug::srcline(1);
list($function, $paramlist) = it::match('\b(D|ED|EDC|EDX)\s*\((.*)', $src);
$paramtokens = token_get_all("<?php $paramlist");
array_shift($paramtokens);
$param = "";
$argnames = array();
foreach ($paramtokens as $token)
{
if ($token == "(")
$paramnesting++;
else if ($token == ")")
{
if (!$paramnesting--) # Found closing parens
{
$argnames[] = trim($param);
break;
}
}
if (($token == ",") && !$paramnesting)
{
$argnames[] = trim($param);
$param = "";
}
else
$param .= is_array($token) ? $token[1] : $token;
}
if (it::match('^EDC$', $function)) # First argument was removed by EDC
array_shift($argnames);
foreach ($args as $arg)
{
$var = array_shift($argnames);
$item = gettype($arg) == 'resource' || is_array($arg) && isset($arg['GLOBALS']) || is_object($arg) && is_a($arg, "SimpleXMLElement") ? trim(print_r($arg, true)) : trim(var_export($arg, true));
# Replace PHP 5 var_export object representation by old style
while (preg_match("#(.*\b)(\w+)::__set_state\(array\(([^()]+)\)\)(.*)#s", $item, $regs))
{
list (, $head, $classname, $values, $tail) = $regs;
$classname = strtolower($classname);
$values = preg_replace("#'(\w+)' =>\s*([^\n]+),#", 'var \$$1 = $2;', $values);
$item = $head . "class $classname { $values }$tail";
}
$item = preg_replace_callback('/\b(1[234]\d\d\d\d\d\d\d\d)\b(.*)/', function($m) { return $m[1] . $m[2] . " # " . date('Y-m-d H:i:s', $m[1]); }, $item);
$item = preg_replace("#(=>?)\s*\n\s*(array|class)#", '$1 $2', $item); # array( and class on same line as key
$item = preg_replace('#array \(\s+([^({,;]+),\s+\)#', 'array( $1 )', $item); # 1-element arrays on 1 line
$item = preg_replace('#class (\S+) \{\s+([^({,;]+;)?\s+\}#', 'class $1 { $2 }', $item); # 1-element objects on 1 line
#$item = preg_replace('#\{\s*var \$attr#', '{ var $attr', $item); # move $attr on same line
$item = preg_replace("#\\(\s*\n\s*\\)#", "()", $item); # empty arrays on 1 line
#$item = preg_replace('#\s+var \$_(.|\n)*?;\s*\n#', "", $item);
$item = "$red$item$nored";
if (isset($_SERVER['REMOTE_ADDR']) && !$plain) # html encode content and link any urls
$item = htmlspecialchars($item, ENT_COMPAT, "ISO-8859-1");
if (preg_match('/^[\'"]/', $var))
$r .= "$item ";
else {
$var = "$blue$var=$noblue";
$r .= $previtem && preg_match("/\n/", $item . $previtem) ? "\n$var$item " : "$var$item ";
$previtem = $item;
}
}
if ($GLOBALS['debug_indent'])
$r = str_repeat(" ", count(debug_backtrace(@constant('DEBUG_BACKTRACE_IGNORE_ARGS')))-3) . $r;
# not it_html::Q(); we dont wanna load it_html in ultraclassloader debugging
$title = htmlspecialchars(it_debug::backtrace(array('skiplevels' => 1)), ENT_COMPAT, "ISO-8859-1");
if (isset($_SERVER['REMOTE_ADDR']) && !$plain)
return "<pre title='$title' style='color:#c00; text-align:left; background-color:white; margin:0 0 0.4em; padding:0 0 0.4em 0; border-bottom:1px solid #ddd'>$r</pre>\n";
else
return "$r\n";
}
/**
* Return short stackdump
* @param $p['levels'] number of stack levels to return (default: 0 = all)
* @param $p['skiplevels'] number of stack levels to omit
* @param $p['skipfiles'] regular expression of filenames to omit
*/
function backtrace($p = array())
{
if (!is_array($p))
$p = array('skiplevels' => $p);
$p += array('levels' => 0, 'skiplevels'=> 0, 'skipfiles' => "###");
foreach (array_slice(debug_backtrace(@constant('DEBUG_BACKTRACE_IGNORE_ARGS')), $p['skiplevels'] + 1) as $call)
{
if (($fn = $call['file']) && !it::match($p['skipfiles'], $call['file']))
{
if (!it::match('\.class', $call['file']) && file_get_contents($call['file'], null, null, 0, 2) == "#!")
$call['line']++; # fix bug in php error line reporting
$fn = (it::match('auto_prepend', $fn) ? basename(dirname(dirname($fn))) . "/" : "") . basename($fn);
$result[] = $fn . ":" . $call['line'];
if (--$p['levels'] == 0)
break;
}
}
return join(" ", (array)$result);
}
}
?>
|