qpsmtpd/sme9/qpsmtpd-0.96-uribl_validate_domains.patch

diff -Nur qpsmtpd-0.96/plugins/uribl qpsmtpd-0.96_bz9467/plugins/uribl
--- qpsmtpd-0.96/plugins/uribl  2016-07-11 22:28:55.105488861 +0200
+++ qpsmtpd-0.96_bz9467/plugins/uribl   2016-07-11 22:32:14.607442677 +0200
@@ -96,6 +96,9 @@
 
 use Time::HiRes qw(time);
 use IO::Select;
+use Data::Validate::Domain;
+
+my $v = Data::Validate::Domain->new;
 
 # ccTLDs that allocate domain names within a strict two-level hierarchy,
 # as in *.co.uk
@@ -348,7 +351,7 @@
                 museum|name|net|org|pro|tel|travel|
                 [a-zA-Z]{2})
             )(?!\w)        
-            }gix
+            }gix && $v->is_domain($1)
               )
         {
             my $host = lc $1;
@@ -393,7 +396,7 @@
                 museum|name|net|org|pro|tel|travel|
                 [a-zA-Z]{2})
             )
-            }gix
+            }gix && $v->is_domain($1)
               )
         {
             my $host = lc $1;
1	diff -Nur qpsmtpd-0.96/plugins/uribl qpsmtpd-0.96_bz9467/plugins/uribl
2	--- qpsmtpd-0.96/plugins/uribl 2016-07-11 22:28:55.105488861 +0200
3	+++ qpsmtpd-0.96_bz9467/plugins/uribl 2016-07-11 22:32:14.607442677 +0200
4	@@ -96,6 +96,9 @@
5
6	use Time::HiRes qw(time);
7	use IO::Select;
8	+use Data::Validate::Domain;
9	+
10	+my $v = Data::Validate::Domain->new;
11
12	# ccTLDs that allocate domain names within a strict two-level hierarchy,
13	# as in *.co.uk
14	@@ -348,7 +351,7 @@
15	museum\|name\|net\|org\|pro\|tel\|travel\|
16	[a-zA-Z]{2})
17	)(?!\w)
18	- }gix
19	+ }gix && $v->is_domain($1)
20	)
21	{
22	my $host = lc $1;
23	@@ -393,7 +396,7 @@
24	museum\|name\|net\|org\|pro\|tel\|travel\|
25	[a-zA-Z]{2})
26	)
27	- }gix
28	+ }gix && $v->is_domain($1)
29	)
30	{
31	my $host = lc $1;