[popfile-commit] engine/Proxy POP3.pm,1.47,1.48 Proxy.pm,1.1,1.2 SMTP.pm,1.6,1.7

[<jgr...@us...>]

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

Modified Files:
	POP3.pm Proxy.pm SMTP.pm 
Log Message:
Forgot to have the pipe parameter for the SMTP child

Index: POP3.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Proxy/POP3.pm,v
retrieving revision 1.47
retrieving revision 1.48
diff -C2 -d -r1.47 -r1.48
*** POP3.pm	6 Mar 2003 21:25:54 -0000	1.47
--- POP3.pm	6 Mar 2003 23:10:19 -0000	1.48
***************
*** 328,335 ****
          if ( $command =~ /QUIT/i ) {
              if ( $mail )  {
!                 $self->echo_response_($mail, $client, $command );
                  close $mail;
              } else {
!                 $self->tee_(  $client, "+OK goodbye$eol" );
              }
              last;
--- 328,335 ----
          if ( $command =~ /QUIT/i ) {
              if ( $mail )  {
!                 $self->echo_response_( $mail, $client, $command );
                  close $mail;
              } else {
!                 $self->tee_( $client, "+OK goodbye$eol" );
              }
              last;

Index: Proxy.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Proxy/Proxy.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Proxy.pm	6 Mar 2003 22:39:02 -0000	1.1
--- Proxy.pm	6 Mar 2003 23:10:20 -0000	1.2
***************
*** 52,68 ****
      # This is the error message returned if the connection at any
      # time times out while handling a command
! 
!     $self->{connection_timeout_error_} = '';
  
      # This is the error returned (with the host and port appended)
      # if contacting the remote server fails
! 
!     $self->{connection_failed_error_}  = '';
  
      # This is a regular expression used by get_response_ to determine
      # if a response from the remote server is good or not (good being
      # that the last command succeeded)
! 
!     $self->{good_response_}            = '';
  
      return bless $self, $type;
--- 52,68 ----
      # This is the error message returned if the connection at any
      # time times out while handling a command
!     #
!     # $self->{connection_timeout_error_} = '';
  
      # This is the error returned (with the host and port appended)
      # if contacting the remote server fails
!     #
!     # $self->{connection_failed_error_}  = '';
  
      # This is a regular expression used by get_response_ to determine
      # if a response from the remote server is good or not (good being
      # that the last command succeeded)
!     #
!     # $self->{good_response_}            = '';
  
      return bless $self, $type;

Index: SMTP.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Proxy/SMTP.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** SMTP.pm	6 Mar 2003 21:30:31 -0000	1.6
--- SMTP.pm	6 Mar 2003 23:10:20 -0000	1.7
***************
*** 83,87 ****
  sub child__
  {
!     my ( $self, $client, $download_count ) = @_;
  
      # Number of messages downloaded in this session
--- 83,87 ----
  sub child__
  {
!     my ( $self, $client, $download_count, $pipe ) = @_;
  
      # Number of messages downloaded in this session