byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

- Fix duplication of com|net|org|biz|info - Fix broken travel (missing |)

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@929 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Guy Hulbert 2008-06-16 04:52:59 +00:00 committed by Ask Bjørn Hansen
parent f88c8abbd6
commit 1d10542af0
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
plugins/uribl
View File

@ -340,8 +340,8 @@ sub lookup_start {
[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 @@ sub lookup_start {
[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;