[Netmail-support] RE: ? re: anti-spam agent

[Benjamin A. <be...@cu...>]

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