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
|
