[Mimedefang] DNSWL

[Tilman Schmidt]

Am 30.10.2012 15:01, schrieb Steffen Kaiser:
> something like this - untested

Thanks, but that doesn't quite work:

>         elsif(defined($dnswl = relay_is_blacklisted($RelayAddr,
> 'list.dnswl.org')) && $dnswl =~ /\A127\.\0\.\d+\.[23]\z/) {

The pattern in the second term never seems to match.
If I remove it (thereby just checking for any DNSWL listing
no matter which rank), this ...

>             # Don't scan messages when whitelisted in DNSWL
>             md_graphdefang_log('dnswl ' . $dnswl);

prints things like

Oct 30 15:39:17 posthamster mimedefang.pl[9941]: q9UEdCWO010111:
MDLOG,q9UEdCWO010111,dnswl
%7F%00%05%00,,,<alf111 at s437660197.onlinehome.us>,<t.schmidt at phoenixsoftware.de>,=?iso-8859-1?Q?Kann_ich_einzahlen_10.000.000%2C00_WOHLT=C4TIGKEITSFONDS_=A3?=
=?iso-8859-1?Q?_in_Ihrem_Konto=3F?=

which (apart from being an example of obvious spam from a DNSWL
listed site :-) seems to show that relay_is_blacklisted(),
un-Perl-like, returns its result not as a string, but in some
sort of packed binary format. Any idea how to unpack that?

Thanks,
Tilman

-- 
Tilman Schmidt
Phoenix Software GmbH
Bonn, Germany