PATCH: log SMTP dialog at level LOGINFO

[Peter J. Holzer]

This patch increases the log level of the SMTP dialog from LOGDEBUG to
LOGINFO. My log analysis scripts use the SMTP dialog as input and the
debug files really grow too fast at log level 8. OTOH, quite a few
messages at level LOGINFO or higher could IMHO be demoted to LOGDEBUG. 

Maybe this is obsolete now that we have logging plugins - I haven't
looked at them yet.

        hp

-- 
   _  | Peter J. Holzer    | Ich sehe nun ein, dass Computer wenig
|_|_) | Sysadmin WSR       | geeignet sind, um sich was zu merken.
| |   | [EMAIL PROTECTED]         |
__/   | http://www.hjp.at/ |    -- Holger Lembke in dan-am

--- lib/Qpsmtpd/TcpServer.pm.smtp-loginfo       Thu May 19 13:16:33 2005
+++ lib/Qpsmtpd/TcpServer.pm    Thu May 19 13:17:46 2005
@@ -58,7 +58,7 @@
   while (<STDIN>) {
     alarm 0;
     $_ =~ s/\r?\n$//s; # advanced chomp
-    $self->log(LOGDEBUG, "dispatching $_");
+    $self->log(LOGINFO, "dispatching $_");
     $self->connection->notes('original_string', $_);
     defined $self->dispatch(split / +/, $_)
       or $self->respond(502, "command unrecognized: '$_'");
@@ -71,7 +71,7 @@
   my ($self, $code, @messages) = @_;
   while (my $msg = shift @messages) {
     my $line = $code . (@messages?"-":" ").$msg;
-    $self->log(LOGDEBUG, $line);
+    $self->log(LOGINFO, $line);
     print "$line\r\n" or ($self->log(LOGERROR, "Could not print [$line]: $!"), 
return 0);
   }
   return 1;
@@ -79,7 +79,7 @@
 
 sub disconnect {
   my $self = shift;
-  $self->log(LOGDEBUG,"click, disconnecting");
+  $self->log(LOGINFO,"click, disconnecting");
   $self->SUPER::disconnect(@_);
   exit;
 }

pgpWZhMYscws8.pgp
Description: PGP signature