Content filter not checked small messages

[Igor S Chencov <chs@aquilon.ru>]

Hello !

I have a problem with check small mail messages over contentfilter. :-(

Zmailer 2.99.55p1 on FreeBSD 4.3

=== contentfilter ===
#!/usr/bin/perl
select(STDOUT); $| = 1;
while (<>) {
  chomp;
  $rc = &filter($_);
  printf "%s\n", $rc;
}
exit 0;

sub filter {
  local($fname) = @_;
  local($rc) = '0 nothing set';
  open(SP, "< ".$fname) || return "0 Oops.. filter can't open file $fname";
  while (<SP>) {
    $rc= "0 scanning begin";
    goto DONEIT;
  }
  $rc = "0 not scaning";
DONEIT:
  close(SP);
  return $rc;
}

==== smtpserver.log ====
. . .
0KIB00394#	-- pipeline input exists 720 bytes
0KIB00394r	MAIL From:<chs@aquilon.ru> BODY=8BITMIME SIZE=613
0KIB00394w	250 2.1.0 Sender syntax Ok
0KIB00394#	-- pipeline input exists 643 bytes
0KIB00394r	RCPT To:<chs@chs.aquilon.ru> NOTIFY=FAILURE ORCPT=rfc822;chs@chs.aquilon.ru
0KIB00394w	250 2.1.5 Ok; can accomodate 613 byte message for <chs@chs.aquilon.ru>
0KIB00394#	-- pipeline input exists 628 bytes
0KIB00394r	BDAT 628 LAST
0KIB00394#	policyprogram said: 0 not scaning 

but -
. . .
0KNO00413r	MAIL From:<chs@aquilon.ru> BODY=8BITMIME SIZE=313928
0KNO00413w	250 2.1.0 Sender syntax Ok
0KNO00413r	RCPT To:<chs@chs.aquilon.ru> NOTIFY=FAILURE ORCPT=rfc822;chs@chs.aquilon.ru
0KNO00413w	250 2.1.5 Ok; can accomodate 313928 byte message for <chs@chs.aquilon.ru>
0KNO00413#	-- pipeline input exists 1448 bytes
0KNO00413r	BDAT 64000
0KNO00413w	250 2.6.0 Received 64000 bytes
0KNO00413#	-- pipeline input exists 216 bytes
. . .
0KNO00413r	BDAT 52778 LAST
0KNO00413#	policyprogram said: 0  scanning begin


What's the problem? Can you help me? 

Bye !
--
-= Igor S Chencov - NetWork Administrator   |				=-
-= E-mail chs@aquilon.ru		    |	      Aquilon		=-
-= Arkhangelsk city			    |	      Russia		=-
-
To unsubscribe from this list: send the line "unsubscribe zmailer" in
the body of a message to majordomo@nic.funet.fi