Display caller for a no-debug message
This commit is contained in:
parent
ad0ebc182e
commit
65985c304f
@ -81,25 +81,34 @@ sub rparam {
|
|||||||
# @param $level Level (debug|info|notice|error)
|
# @param $level Level (debug|info|notice|error)
|
||||||
sub lmLog {
|
sub lmLog {
|
||||||
my ( $self, $mess, $level ) = @_;
|
my ( $self, $mess, $level ) = @_;
|
||||||
$mess = ( ref($self) ? ref($self) : $self ) . ": $mess"
|
my $call;
|
||||||
if ( $level eq 'debug' );
|
if ( $level eq 'debug' ) {
|
||||||
|
$mess = ( ref($self) ? ref($self) : $self ) . ": $mess";
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
my @tmp = caller();
|
||||||
|
$call = "$tmp[1] $tmp[2]:";
|
||||||
|
}
|
||||||
if ( $self->r and MP() ) {
|
if ( $self->r and MP() ) {
|
||||||
$self->abort( "Level is required",
|
$self->abort( "Level is required",
|
||||||
'the parameter "level" is required when lmLog() is used' )
|
'the parameter "level" is required when lmLog() is used' )
|
||||||
unless ($level);
|
unless ($level);
|
||||||
if ( MP() == 2 ) {
|
if ( MP() == 2 ) {
|
||||||
require Apache2::Log;
|
require Apache2::Log;
|
||||||
|
Apache2::ServerRec->log->debug($call) if ($call);
|
||||||
Apache2::ServerRec->log->$level($mess);
|
Apache2::ServerRec->log->$level($mess);
|
||||||
}
|
}
|
||||||
else {
|
else {
|
||||||
|
Apache->server->log->debug($call) if ($call);
|
||||||
Apache->server->log->$level($mess);
|
Apache->server->log->$level($mess);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
else {
|
else {
|
||||||
$self->{hideLogLevels} = 'debug|info'
|
$self->{hideLogLevels} = 'debug|info'
|
||||||
unless defined( $self->{hideLogLevels} );
|
unless defined( $self->{hideLogLevels} );
|
||||||
print STDERR "[$level] $mess\n"
|
my $re = qr/^(?:$self->{hideLogLevels})$/;
|
||||||
unless ( $level =~ /^(?:$self->{hideLogLevels})$/ );
|
print STDERR "$call\n" if ( $call and 'debug' !~ $re );
|
||||||
|
print STDERR "[$level] $mess\n" unless ( $level =~ $re );
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user