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";
-
[svn:qpsmtpd] r734 - trunk/lib/Qpsmtpd/TcpServer
by ask