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