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 () { 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;