[popfile-commit] engine/Proxy NNTP.pm,1.19,1.20 POP3.pm,1.76,1.77 SMTP.pm,1.20,1.21

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

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

Modified Files:
	NNTP.pm POP3.pm SMTP.pm 
Log Message:
Remove calls to flush_extra_ for speed and also because they are not needed

Index: NNTP.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Proxy/NNTP.pm,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -d -r1.19 -r1.20
*** NNTP.pm	11 Sep 2003 20:51:57 -0000	1.19
--- NNTP.pm	11 Sep 2003 20:55:10 -0000	1.20
***************
*** 257,261 ****
                  }
  
-                 $self->flush_extra_( $news, $client, 0 );
                  next;
              }
--- 257,260 ----
***************
*** 269,273 ****
  
                  $self->echo_to_dot_( $news, $client, 0 ) if ( $response =~ /^2\d\d/ );
-                 $self->flush_extra_( $news, $client, 0 );
                  next;
              }
--- 268,271 ----
***************
*** 278,282 ****
                  my $response = $self->get_response_( $news, $client, $command);
                  $self->echo_to_dot_( $news, $client, 0 ) if ( $response =~ /^1\d\d/ );
-                 $self->flush_extra_( $news, $client, 0 );
                  next;
              }
--- 276,279 ----
***************
*** 286,290 ****
              if ( $command =~ /^ *(GROUP|STAT|IHAVE|LAST|NEXT|SLAVE|MODE|XPATH)/i ) {
                  $self->get_response_( $news, $client, $command );
-                 $self->flush_extra_( $news, $client, 0 );
                  next;
              }
--- 283,286 ----
***************
*** 306,310 ****
  
                      $self->get_response_( $news, $client, "$eol" );
-                     $self->flush_extra_( $news, $client, 0 );
                  }
                  next;
--- 302,305 ----
***************
*** 317,321 ****
              if ( $news && $news->connected ) {
                  $self->get_response_($news, $client, $command, 1);
-                 $self->flush_extra_( $news, $client, 0 );
                  next;
              }
--- 312,315 ----
***************
*** 326,330 ****
          if ( $news && $news->connected)  {
              $self->echo_response_($news, $client, $command );
-             $self->flush_extra_( $news, $client, 0 );
              next;
          } else {
--- 320,323 ----

Index: POP3.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Proxy/POP3.pm,v
retrieving revision 1.76
retrieving revision 1.77
diff -C2 -d -r1.76 -r1.77
*** POP3.pm	11 Sep 2003 20:51:57 -0000	1.76
--- POP3.pm	11 Sep 2003 20:55:10 -0000	1.77
***************
*** 195,199 ****
              }
  
-             $self->flush_extra_( $mail, $client, 0 );
              next;
          }
--- 195,198 ----
***************
*** 212,216 ****
              }
  
-             $self->flush_extra_( $mail, $client, 0 );
              next;
          }
--- 211,214 ----
***************
*** 236,241 ****
                      next;
                  }
- 
-                 $self->flush_extra_( $mail, $client, 0 );
              } else {
                  $self->tee_(  $client, "-ERR No secure server specified$eol" );
--- 234,237 ----
***************
*** 254,259 ****
                      next;
                  }
- 
-                 $self->flush_extra_( $mail, $client, 0 );
              } else {
                  $self->tee_(  $client, "-ERR No secure server specified$eol" );
--- 250,253 ----
***************
*** 271,275 ****
              }
  
-             $self->flush_extra_( $mail, $client, 0 );
              next;
          }
--- 265,268 ----
***************
*** 346,350 ****
                      $self->echo_to_dot_( $mail, $client ) if ( $self->echo_response_($mail, $client, $command ) );
                  }
!                 $self->flush_extra_( $mail, $client, 0 );
                  next;
              }
--- 339,343 ----
                      $self->echo_to_dot_( $mail, $client ) if ( $self->echo_response_($mail, $client, $command ) );
                  }
! 
                  next;
              }
***************
*** 367,371 ****
              }
  
-             $self->flush_extra_( $mail, $client, 0 );
              next;
          }
--- 360,363 ----
***************
*** 389,393 ****
               ( $command =~ /RSET/i ) ) {                         # PROFILE BLOCK STOP
              $self->echo_response_($mail, $client, $command );
-             $self->flush_extra_( $mail, $client, 0 );
              next;
          }
--- 381,384 ----
***************
*** 465,470 ****
  
                      $downloaded{$count} = 1;
- 
-                     $self->flush_extra_( $mail, $client, 0 );
                  }
              }
--- 456,459 ----
***************
*** 491,495 ****
          if ( $mail && $mail->connected )  {
              $self->echo_response_($mail, $client, $command );
-             $self->flush_extra_( $mail, $client, 0 );
              next;
          } else {
--- 480,483 ----

Index: SMTP.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Proxy/SMTP.pm,v
retrieving revision 1.20
retrieving revision 1.21
diff -C2 -d -r1.20 -r1.21
*** SMTP.pm	11 Sep 2003 20:51:57 -0000	1.20
--- SMTP.pm	11 Sep 2003 20:55:10 -0000	1.21
***************
*** 158,163 ****
                      last;
                  }
- 
-                 $self->flush_extra_( $mail, $client, 0 );
              } else {
                  $self->tee_(  $client, "421 service not available$eol" );
--- 158,161 ----
***************
*** 199,204 ****
                      last;
                  }
- 
-                 $self->flush_extra_( $mail, $client, 0 );
              } else {
                  $self->tee_(  $client, "421 service not available$eol" );
--- 197,200 ----
***************
*** 216,220 ****
               ( $command =~ /RSET/i ) ) {
              $self->smtp_echo_response_( $mail, $client, $command );
-             $self->flush_extra_( $mail, $client, 0 );
              next;
          }
--- 212,215 ----
***************
*** 236,240 ****
                  my $response = <$mail>;
                  $self->tee_( $client, $response );
-                 $self->flush_extra_( $mail, $client, 0 );
                  next;
              }
--- 231,234 ----
***************
*** 257,261 ****
          if ( $mail && $mail->connected )  {
              $self->smtp_echo_response_( $mail, $client, $command );
-             $self->flush_extra_( $mail, $client, 0 );
              next;
          } else {
--- 251,254 ----