Scott,
I would be interested in looking at your changes. It would help me to
understand more.
In the mean time here is the piece I am working on. Any thoughts would
be appreciated.
my $line;
while ($line = $client->getline) {
logmsg "check 1 $line : $_";
last if ($line =~ /^6021 /);
if ($line =~ /^TSpamAssassin/) {
print $client "QDONE\n";
$_ = $client->getline;
logmsg "check 2 $_";
unless (/^1000 /) {
protocol_error ($_);
return 1;
}
$client->close;
return;
}
push(@envelope, $line);
Here are the results of a mail coming through
Aug 12 14:36:15 scratchy spamd[9825]: check 1
Fli...@nm... - ^M :
Aug 12 14:36:15 scratchy spamd[9825]: check 1 A2533532544^M :
Aug 12 14:36:15 scratchy spamd[9825]: check 1 X1^M :
Aug 12 14:36:15 scratchy spamd[9825]: check 1 Lb...@cu...
rfc822;be...@cu... 8^M :
Aug 12 14:36:15 scratchy spamd[9825]: check 1 6021 Get busy!^M :
Aug 12 14:36:15 scratchy spamd[9829]: check 1
Fli...@nm... - ^M :
Aug 12 14:36:16 scratchy spamd[9829]: check 1 A2533532544^M :
Aug 12 14:36:16 scratchy spamd[9829]: check 1 X1^M :
Aug 12 14:36:16 scratchy spamd[9829]: check 1 TSpamAssassin^M :
Aug 12 14:36:16 scratchy spamd[9829]: check 2 Lb...@cu...
rfc822;be...@cu... 8^M
Aug 12 14:36:16 scratchy spamd[9829]: bad protocol: header error:
Lb...@cu... rfc822;be...@cu... 8^M
I don't understand why check2 Lben... is where it is at. To me it
should be after X1 and before TSpam... I am expecting the check2 value
to be a successful QDONE return of 1000. Any thoughts?
Also how about spam check values? Will most normal mail be a 0.0?
Thanks
Ben
|
