I'd like to have courier-analog do a little more grouping by error type.
The attached patch works fine for me, perhaps someone should test the
regex for blocklist matching with some more blocklists.
--
juergen walch
__________________________________________________________________
plumsoft systemhaus gmbh
roritzerstr. 12 d-93047 regensburg
fon +49-941-7979777 fax +49-941-7994421
PGP 0x2A077751 - 123D 3FF1 BF2B 373B E3C3 7F6E 5802 C5CA 2A07 7751
*** courier-analog.in.orig Fri Sep 17 09:10:26 2004
--- courier-analog.in Fri Sep 17 10:14:43 2004
***************
*** 242,247 ****
--- 242,262 ----
$msgtype="551 DNS lookup failure"
if $msgtype =~ /DNS lookup failure|rfc1035/;
+ $msgtype="554 Syntax error - your mail software violates RFC 821"
+ if $msgtype =~ /RFC 821/i;
+
+ $msgtype="502 ESMTP command error"
+ if $msgtype =~ /^502 ESMTP command error/;
+
+ $msgtype="535 Authentication required"
+ if $msgtype =~ /^535 Authentication required/;
+
+ # take care of 511 errors generated by blocklists
+
+ if ($msgtype =~ /^(511) ([\w\s]+) (- see |See:
)?http:\/\/([\w\d\.\-]+)\/?/) {
+ $msgtype = "$1 Blocked by $4 : $2" ;
+ }
+
my $errmsghash=$$hash{"msg"};
$$errmsghash{$msgtype}=[] unless defined $$errmsghash{$msgtype};
push @{$$errmsghash{$msgtype}}, $record;