qpsmtpd/sme10/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	vip-ire	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;