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

- logging tweaks..

Browse Source 
- move some things to more appropriate levels
   - make 'running plugin' more interesting


git-svn-id: https://svn.perl.org/qpsmtpd/trunk@348 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Robert Spier 2004-11-27 06:46:21 +00:00
parent 1670530a1a
commit 0a2fc866de
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/Qpsmtpd.pm
View File

@ -34,7 +34,6 @@ sub log {
if $trace <= $level;
}
#
# method to get the configuration. It just calls get_qmail_config by
# default, but it could be overwritten to look configuration up in a
@ -143,7 +142,7 @@ sub _load_plugins {
my @ret;
for my $plugin (@plugins) {
$self->log(LOGINFO, "Loading $plugin");
$self->log(LOGDEBUG, "Loading $plugin");
($plugin, my @args) = split /\s+/, $plugin;
if (lc($plugin) eq '$include') {
@ -207,7 +206,7 @@ sub run_hooks {
if ($hooks->{$hook}) {
my @r;
for my $code (@{$hooks->{$hook}}) {
$self->log(LOGINFO, "running plugin ", $code->{name});
$self->log(LOGINFO, "running plugin ($hook):", $code->{name});
eval { (@r) = $code->{code}->($self, $self->transaction, @_); };
$@ and $self->log(LOGCRIT, "FATAL PLUGIN ERROR: ", $@) and next;