qpsmtpd/sme8/qpsmtpd-0.29-smtp-loginfo.patch

--- 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;
 }
1	slords	1.1	--- lib/Qpsmtpd/TcpServer.pm.smtp-loginfo Thu May 19 13:16:33 2005
2			+++ lib/Qpsmtpd/TcpServer.pm Thu May 19 13:17:46 2005
3			@@ -58,7 +58,7 @@
4			while (<STDIN>) {
5			alarm 0;
6			$_ =~ s/\r?\n$//s; # advanced chomp
7			- $self->log(LOGDEBUG, "dispatching $_");
8			+ $self->log(LOGINFO, "dispatching $_");
9			$self->connection->notes('original_string', $_);
10			defined $self->dispatch(split / +/, $_)
11			or $self->respond(502, "command unrecognized: '$_'");
12			@@ -71,7 +71,7 @@
13			my ($self, $code, @messages) = @_;
14			while (my $msg = shift @messages) {
15			my $line = $code . (@messages?"-":" ").$msg;
16			- $self->log(LOGDEBUG, $line);
17			+ $self->log(LOGINFO, $line);
18			print "$line\r\n" or ($self->log(LOGERROR, "Could not print [$line]: $!"), return 0);
19			}
20			return 1;
21			@@ -79,7 +79,7 @@
22
23			sub disconnect {
24			my $self = shift;
25			- $self->log(LOGDEBUG,"click, disconnecting");
26			+ $self->log(LOGINFO,"click, disconnecting");
27			$self->SUPER::disconnect(@_);
28			exit;
29			}