From 8009a316c62d9f5215f76ad61f4e62bcc243b75a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ask=20Bj=C3=B8rn=20Hansen?= <ask@develooper.com>
Date: Fri, 11 May 2007 07:52:35 +0000
Subject: [PATCH] make loglevels here consistent with the TcpServer.pm changes
 (from who knows when)

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

diff --git a/lib/Qpsmtpd/TcpServer/Prefork.pm b/lib/Qpsmtpd/TcpServer/Prefork.pm
index 8d34099..71aa221 100644
--- a/lib/Qpsmtpd/TcpServer/Prefork.pm
+++ b/lib/Qpsmtpd/TcpServer/Prefork.pm
@@ -29,7 +29,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: '$_'");
@@ -48,7 +48,7 @@ sub respond {
   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;
@@ -56,7 +56,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");
   die "disconnect_tcpserver";