Author: robert
Date: Sun Jun 15 21:52:59 2008
New Revision: 929
Modified:
trunk/plugins/uribl
Log:
- Fix duplication of com|net|org|biz|info
- Fix broken travel (missing |)
Thanks to Guy Hulbert for the catch.
Modified: trunk/plugins/uribl
==============================================================================
--- trunk/plugins/uribl (original)
+++ trunk/plugins/uribl Sun Jun 15 21:52:59 2008
@@ -340,8 +340,8 @@
[a-zA-Z0-9][a-zA-Z0-9\-.]+\. # hostname
(?:aero|arpa|asia|biz|cat|com|coop| # tld
edu|gov|info|int|jobs|mil|mobi|
- museum|name|net|org|pro|tel|travel
- com|net|org|biz|info|[a-zA-Z]{2})
+ museum|name|net|org|pro|tel|travel|
+ [a-zA-Z]{2})
)(?!\w)
}gix) {
my $host = lc $1;
@@ -372,8 +372,8 @@
[a-zA-Z0-9][a-zA-Z0-9\-.]+\. # hostname
(?:aero|arpa|asia|biz|cat|com|coop| # tld
edu|gov|info|int|jobs|mil|mobi|
- museum|name|net|org|pro|tel|travel
- com|net|org|biz|info|[a-zA-Z]{2})
+ museum|name|net|org|pro|tel|travel|
+ [a-zA-Z]{2})
}gix) {
my $host = lc $1;
my @host_domains = split /\./, $host;
