cvs commit: qpsmtpd/lib/Qpsmtpd SelectServer.pm

cvsuser     03/11/02 09:34:34

  Modified:    lib/Qpsmtpd SelectServer.pm
  Log:
  Cleanup logging
  
  Revision  Changes    Path
  1.2       +1 -12     qpsmtpd/lib/Qpsmtpd/SelectServer.pm
  
  Index: SelectServer.pm
  ===================================================================
  RCS file: /cvs/public/qpsmtpd/lib/Qpsmtpd/SelectServer.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -w -r1.1 -r1.2
  --- SelectServer.pm	2 Nov 2003 11:15:39 -0000	1.1
  +++ SelectServer.pm	2 Nov 2003 17:34:33 -0000	1.2
  @@ -104,7 +104,7 @@
                       $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 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 @@
       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;
   }