Revision 633cdffb
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| SL/LXDebug.pm | ||
|---|---|---|
| 4 | 4 |
use constant INFO => 1; |
| 5 | 5 |
use constant DEBUG1 => 2; |
| 6 | 6 |
use constant DEBUG2 => 3; |
| 7 |
use constant QUERY => 4; |
|
| 7 | 8 |
|
| 8 | 9 |
use constant FILE_TARGET => 0; |
| 9 | 10 |
use constant STDERR_TARGET => 1; |
| ... | ... | |
| 109 | 110 |
} |
| 110 | 111 |
|
| 111 | 112 |
if ($log_level >= $level) {
|
| 112 |
$self->_write(INFO == $level |
|
| 113 |
? "info" |
|
| 114 |
: DEBUG1 == $level ? "debug1" : "debug2", |
|
| 115 |
$message); |
|
| 113 |
$self->_write(INFO == $level ? "info" |
|
| 114 |
: DEBUG1 == $level ? "debug1" |
|
| 115 |
: DEBUG2 == $level ? "debug2" |
|
| 116 |
: QUERY == $level ? "query":"", |
|
| 117 |
$message ); |
|
| 116 | 118 |
} |
| 117 | 119 |
} |
| 118 | 120 |
|
| ... | ... | |
| 135 | 137 |
|
| 136 | 138 |
sub disable_sub_tracing {
|
| 137 | 139 |
my ($self) = @_; |
| 138 |
$self->{"trace_subs"} = 1;
|
|
| 140 |
$self->{"trace_subs"} = 0;
|
|
| 139 | 141 |
} |
| 140 | 142 |
|
| 141 | 143 |
sub _write {
|
Auch abrufbar als: Unified diff
Recommit von r993:995 von udo_spallek: Weiteren Debuglevel hinzugefuegt: LXDebug::QUERY. Damit koennen dann zur Analyse ausgegeben werden. QUERY steht hinter DEBUG2 als letzter Debuglevel, weil die query Variablen einen erheblichen Ouput erzeugen. Kommentar in der lx-erp.conf ergaenzt.