popfile-commit

[<ssc...@us...>]

Update of /cvsroot/popfile/engine/Proxy
In directory sc8-pr-cvs1:/tmp/cvs-serv8000

Modified Files:
	SMTP.pm 
Log Message:
some cleanup

Index: SMTP.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Proxy/SMTP.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** SMTP.pm	15 Apr 2003 14:48:09 -0000	1.10
--- SMTP.pm	22 May 2003 09:25:03 -0000	1.11
***************
*** 165,174 ****
                  $count += 1;
  
! 		my $class = $self->{classifier__}->classify_and_modify( $client, $mail, $download_count, $count, 0, '' );
  
! 		# Tell the parent that we just handled a mail
! 		print $pipe "$class$eol";
  
! 		my $response = <$mail>;
                  $self->tee_( $client, $response );
                  $self->flush_extra_( $mail, $client, 0 );
--- 165,174 ----
                  $count += 1;
  
!                 my $class = $self->{classifier__}->classify_and_modify( $client, $mail, $download_count, $count, 0, '' );
  
!                 # Tell the parent that we just handled a mail
!                 print $pipe "$class$eol";
  
!                 my $response = <$mail>;
                  $self->tee_( $client, $response );
                  $self->flush_extra_( $mail, $client, 0 );
***************
*** 176,180 ****
              }
          }
! 
          # The mail client wants to stop using the server, so send that message through to the
          # real mail server, echo the response back up to the client and exit the while.  We will
--- 176,180 ----
              }
          }
! 
          # The mail client wants to stop using the server, so send that message through to the
          # real mail server, echo the response back up to the client and exit the while.  We will
***************
*** 227,231 ****
      my $response = $self->get_response_( $mail, $client, $command );
  
!     if ( $response =~ /^[23]\d\d-/ ) {
          $self->echo_to_regexp_($mail, $client, qr/^\d\d\d /, 1);
      }
--- 227,231 ----
      my $response = $self->get_response_( $mail, $client, $command );
  
!     if ( $response =~ /^\d\d\d-/ ) {
          $self->echo_to_regexp_($mail, $client, qr/^\d\d\d /, 1);
      }