From 469c01a1f4eda536d28a2e2fd5e525d853d734be Mon Sep 17 00:00:00 2001
From: "Peter J. Holzer" <hjp@hjp.at>
Date: Sat, 16 Dec 2006 10:01:50 +0000
Subject: [PATCH] Increased log level of SMTP commands and responses to
 LOGINFO. These may be useful during normal operations.

git-svn-id: https://svn.perl.org/qpsmtpd/branches/0.3x@685 958fd67b-6ff1-0310-b445-bb7760255be9
---
 lib/Qpsmtpd/TcpServer.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/Qpsmtpd/TcpServer.pm b/lib/Qpsmtpd/TcpServer.pm
index 4841614..d79423f 100644
--- a/lib/Qpsmtpd/TcpServer.pm
+++ b/lib/Qpsmtpd/TcpServer.pm
@@ -75,7 +75,7 @@ sub read_input {
   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 / +/, $_, 2)
       or $self->respond(502, "command unrecognized: '$_'");
@@ -89,7 +89,7 @@ sub respond {
   my $buf = '';
   while (my $msg = shift @messages) {
     my $line = $code . (@messages?"-":" ").$msg;
-    $self->log(LOGDEBUG, $line);
+    $self->log(LOGINFO, $line);
     $buf .= "$line\r\n";
   }
   print $buf or ($self->log(LOGERROR, "Could not print [$buf]: $!"), return 0);
@@ -98,7 +98,7 @@ sub respond {
 
 sub disconnect {
   my $self = shift;
-  $self->log(LOGDEBUG,"click, disconnecting");
+  $self->log(LOGINFO,"click, disconnecting");
   $self->SUPER::disconnect(@_);
   $self->run_hooks("post-connection");
   exit;