cvs commit: qpsmtpd/lib Qpsmtpd.pm

cvsuser     04/11/26 22:46:22

  Modified:    lib      Qpsmtpd.pm
  Log:
  - logging tweaks..
     - move some things to more appropriate levels
     - make 'running plugin' more interesting
  
  Revision  Changes    Path
  1.46      +2 -3      qpsmtpd/lib/Qpsmtpd.pm
  
  Index: Qpsmtpd.pm
  ===================================================================
  RCS file: /cvs/public/qpsmtpd/lib/Qpsmtpd.pm,v
  retrieving revision 1.45
  retrieving revision 1.46
  diff -u -r1.45 -r1.46
  --- Qpsmtpd.pm	18 Nov 2004 19:47:09 -0000	1.45
  +++ Qpsmtpd.pm	27 Nov 2004 06:46:21 -0000	1.46
  @@ -34,7 +34,6 @@
       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 @@
   
     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 @@
     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;