32 lines
920 B
Diff
32 lines
920 B
Diff
|
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;
|