--- spam_check-0.2.5/spam_check.pl.orig	2006-08-01 14:49:28 +0600

+++ spam_check-0.2.5/spam_check.pl	2006-08-01 15:02:51 +0600

@@ -168,6 +168,13 @@

     use File::Tail;

 }

+my $sendmail_format;

+if ($cfg_log_format == 1) {

+    $sendmail_format='ERROR:';

+} else {

+    $sendmail_format='';

+}

+

 my %chk_cache;

 my $db_obj;

@@ -515,7 +522,7 @@

 	print BLOCKLIST "$cur_ip:127.0.0.2:$block_info\n";

     } else {

         # "Access file" формат

-        print BLOCKLIST "$cur_ip\t550 $block_info\n";

+        print BLOCKLIST "$cur_ip\t $sendmail_format 550 $block_info\n";

     }

     close(BLOCKLIST);

     return 0;