Revision 072caebf
Von Moritz Bunkus vor etwa 8 Jahren hinzugefügt
| SL/LXDebug.pm | ||
|---|---|---|
|
use constant REQUEST => 1 << 7;
|
||
|
use constant WARN => 1 << 8;
|
||
|
use constant TRACE2 => 1 << 9;
|
||
|
use constant ALL => (1 << 10) - 1;
|
||
|
use constant SHOW_CALLER => 1 << 10;
|
||
|
use constant ALL => (1 << 11) - 1;
|
||
|
use constant DEVEL => INFO | DEBUG1 | QUERY | TRACE | BACKTRACE_ON_ERROR | REQUEST_TIMER;
|
||
|
|
||
|
use constant FILE_TARGET => 0;
|
||
| ... | ... | |
|
no warnings;
|
||
|
my ($self, $level, $message) = @_;
|
||
|
|
||
|
$self->_write(level2string($level), $message) if (($self->{"level"} | $global_level) & $level || !$level);
|
||
|
my $show_caller = ($level | $global_level) & SHOW_CALLER();
|
||
|
$level &= ~SHOW_CALLER();
|
||
|
|
||
|
$self->_write(level2string($level), $message, show_caller => $show_caller) if (($self->{"level"} | $global_level) & $level || !$level);
|
||
|
}
|
||
|
sub warn {
|
||
|
no warnings;
|
||
| ... | ... | |
|
|
||
|
sub _write {
|
||
|
no warnings;
|
||
|
my ($self, $prefix, $message) = @_;
|
||
|
my ($self, $prefix, $message, %options) = @_;
|
||
|
|
||
|
my @prefixes = ($prefix);
|
||
|
|
||
|
if ($options{show_caller}) {
|
||
|
my ($package, $filename, $line, $subroutine) = caller(1);
|
||
|
push @prefixes, "${filename}:${line}";
|
||
|
}
|
||
|
|
||
|
$prefix = join ' ', grep { $_ } @prefixes;
|
||
|
|
||
|
my @now = gettimeofday();
|
||
|
my $date = strftime("%Y-%m-%d %H:%M:%S." . sprintf('%03d', int($now[1] / 1000)) . " $$ [" . getpid() . "] ${prefix}: ", localtime($now[0]));
|
||
|
local *FILE;
|
||
| config/kivitendo.conf.default | ||
|---|---|---|
|
# REQUEST - Log each request. Careful! Passwords get filtered, but
|
||
|
# there may be confidential information being logged here
|
||
|
# WARN - warnings
|
||
|
# SHOW_CALLER - include the file name & line number from where a call
|
||
|
# to "message" or "dump" was called
|
||
|
# ALL - all possible debug messages
|
||
|
#
|
||
|
# DEVEL - sames as "INFO QUERY TRACE BACKTRACE_ON_ERROR REQUEST_TIMER"
|
||
Auch abrufbar als: Unified diff
LXDebug: Flag SHOW_CALLER für Ausgabe Dateiname:Zeilennummer bei message() & dump()