From: <jgr...@us...> - 2003-03-06 21:30:36
|
Update of /cvsroot/popfile/engine/Proxy In directory sc8-pr-cvs1:/tmp/cvs-serv17787/Proxy Modified Files: SMTP.pm Log Message: Send the classification statistics up to parent from SMTP module Index: SMTP.pm =================================================================== RCS file: /cvsroot/popfile/engine/Proxy/SMTP.pm,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** SMTP.pm 6 Mar 2003 21:25:55 -0000 1.5 --- SMTP.pm 6 Mar 2003 21:30:31 -0000 1.6 *************** *** 139,143 **** if ( $self->echo_response_( $mail, $client, $command ) ) { $count += 1; ! $self->{classifier__}->classify_and_modify( $client, $mail, $download_count, $count, 0, '' ); my $response = <$mail>; $self->tee_( $client, $response ); --- 139,148 ---- if ( $self->echo_response_( $mail, $client, $command ) ) { $count += 1; ! ! my $class = $self->{classifier__}->classify_and_modify( $client, $mail, $download_count, $count, 0, '' ); ! ! # Tell the parent that we just handled a mail ! print $pipe "$class$eol"; ! my $response = <$mail>; $self->tee_( $client, $response ); |