develooper Front page | perl.cvs.qpsmtpd | Postings from May 2007

[svn:qpsmtpd] r734 - trunk/lib/Qpsmtpd/TcpServer

From:
ask
Date:
May 11, 2007 00:52
Subject:
[svn:qpsmtpd] r734 - trunk/lib/Qpsmtpd/TcpServer
Message ID:
20070511075235.EFAD0CB9B8@x12.develooper.com
Author: ask
Date: Fri May 11 00:52:35 2007
New Revision: 734

Modified:
   trunk/lib/Qpsmtpd/TcpServer/Prefork.pm

Log:
make loglevels here consistent with the TcpServer.pm changes (from who knows when)


Modified: trunk/lib/Qpsmtpd/TcpServer/Prefork.pm
==============================================================================
--- trunk/lib/Qpsmtpd/TcpServer/Prefork.pm	(original)
+++ trunk/lib/Qpsmtpd/TcpServer/Prefork.pm	Fri May 11 00:52:35 2007
@@ -29,7 +29,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 / +/, $_, 2)
         or $self->respond(502, "command unrecognized: '$_'");
@@ -48,7 +48,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;
@@ -56,7 +56,7 @@
 
 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";



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About