From 199179eddc66ac95dd6763b4ce0795ca3dafb8af Mon Sep 17 00:00:00 2001
From: Matt Sergeant <matt@sergeant.org>
Date: Sun, 2 Nov 2003 17:34:33 +0000
Subject: [PATCH] Cleanup logging

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@187 958fd67b-6ff1-0310-b445-bb7760255be9
---
 lib/Qpsmtpd/SelectServer.pm | 13 +------------
 1 file changed, 1 insertion(+), 12 deletions(-)

diff --git a/lib/Qpsmtpd/SelectServer.pm b/lib/Qpsmtpd/SelectServer.pm
index e38680a..dcce633 100644
--- a/lib/Qpsmtpd/SelectServer.pm
+++ b/lib/Qpsmtpd/SelectServer.pm
@@ -104,7 +104,7 @@ sub main {
                     $qp->data_line($req . CRLF);
                 }
                 else {
-                    $qp->log(1, "dispatching $req to $qp");
+                    $qp->log(1, "dispatching $req");
                     defined $qp->dispatch(split / +/, $req)
                         or $qp->respond(502, "command unrecognized: '$req'");
                 }
@@ -189,16 +189,6 @@ sub nonblock {
 sub read_input {
   my $self = shift;
   die "read_input is disabled in SelectServer";
-  my $timeout = $self->config('timeout');
-  alarm $timeout;
-  while (<STDIN>) {
-    alarm 0;
-    $_ =~ s/\r?\n$//s; # advanced chomp
-    $self->log(1, "dispatching $_");
-    defined $self->dispatch(split / +/, $_)
-      or $self->respond(502, "command unrecognized: '$_'");
-    alarm $timeout;
-  }
 }
 
 sub respond {
@@ -208,7 +198,6 @@ sub respond {
     my $line = $code . (@messages?"-":" ").$msg;
     $self->log(1, ">$line");
     $outbuffer{$client} .= "$line\r\n";
-    # print "$line\r\n" or ($self->log(1, "Could not print [$line]: $!"), return 0);
   }
   return 1;
 }