[popfile-commit] engine/Proxy NNTP.pm,1.1,1.2

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

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 );