Update of /cvsroot/popfile/engine/Proxy
In directory sc8-pr-cvs1:/tmp/cvs-serv8157
Modified Files:
NNTP.pm
Log Message:
unfixed a fix of a non-bug in echo_to_dot_
Index: NNTP.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Proxy/NNTP.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** NNTP.pm 18 Mar 2003 00:04:51 -0000 1.1
--- NNTP.pm 18 Mar 2003 00:46:53 -0000 1.2
***************
*** 245,256 ****
# 3xx (300) series response indicates multi-line text should be sent, up to .crlf
if ($response =~ /^3\d\d/ ) {
$self->echo_to_dot_( $client, $news, 0 );
! # Echo to dot consumes the dot. We recreate it.
! $self->get_response_( $news, $client, ".$eol" );
# The client may have some cruft after the .crlf,
# the server will respond, the client may(?) echo something back
$self->flush_extra_( $client, $news, 0 );
$self->flush_extra_( $news, $client, 0 );
--- 245,260 ----
# 3xx (300) series response indicates multi-line text should be sent, up to .crlf
if ($response =~ /^3\d\d/ ) {
+
+ # Echo from the client to the server
+
$self->echo_to_dot_( $client, $news, 0 );
! # Echo to dot doesn't provoke a server response somehow, we add another CRLF
! $self->get_response_( $news, $client, "$eol" );
# The client may have some cruft after the .crlf,
# the server will respond, the client may(?) echo something back
+ $self->flush_extra_( $news, $client, 0 );
$self->flush_extra_( $client, $news, 0 );
$self->flush_extra_( $news, $client, 0 );
|
