byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

only log config stuff if trace level is 8 or 10 ... (or higher)

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@69 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Ask Bjørn Hansen 2002-09-10 13:45:25 +00:00
parent 1cea2f9449
commit d02760090a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/Qpsmtpd.pm
View File

@ -252,7 +252,7 @@ sub rcpt {
sub get_qmail_config { sub get_qmail_config {
my ($self, $config) = (shift, shift); my ($self, $config) = (shift, shift);
$self->log(6, "trying to get config for $config"); $self->log(8, "trying to get config for $config");
if ($self->{_config_cache}->{$config}) { if ($self->{_config_cache}->{$config}) {
return wantarray ? @{$self->{_config_cache}->{$config}} : $self->{_config_cache}->{$config}->[0]; return wantarray ? @{$self->{_config_cache}->{$config}} : $self->{_config_cache}->{$config}->[0];
} }
@ -264,7 +264,7 @@ sub get_qmail_config {
chomp @config; chomp @config;
@config = grep { $_ and $_ !~ m/^\s*#/ and $_ =~ m/\S/} @config; @config = grep { $_ and $_ !~ m/^\s*#/ and $_ =~ m/\S/} @config;
close CF; close CF;
$self->log(8, "returning get_config for $config ",Data::Dumper->Dump([\@config], [qw(config)])); $self->log(10, "returning get_config for $config ",Data::Dumper->Dump([\@config], [qw(config)]));
$self->{_config_cache}->{$config} = \@config; $self->{_config_cache}->{$config} = \@config;
return wantarray ? @config : $config[0]; return wantarray ? @config : $config[0];
} }