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

Hostnames come in lowercase and longer than 8 characters too.

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@911 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Robert Spier 2008-05-17 03:55:18 +00:00 committed by Ask Bjørn Hansen
parent 7169c9f0bc
commit fed6fe0311
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
plugins/uribl
View File

@ -323,11 +323,11 @@ sub data_handler {
} }
} }
while ($l =~ m{ while ($l =~ m{
([Ww]{3,3}\.[\w\-.]+\.[a-zA-Z]{2,8}| # www.hostname ([Ww]{3,3}\.[\w\-.]+\.[a-zA-Z]{2,32}| # www.hostname
[a-zA-Z0-9][a-zA-Z0-9\-.]+\. # hostname. ... [a-zA-Z0-9][a-zA-Z0-9\-.]+\. # hostname. ...
(?:com|net|org|biz|info|[a-zA-Z]{2,2}))(?!\w) # (cc)TLD (?:com|net|org|biz|info|[a-zA-Z]{2,2}))(?!\w) # (cc)TLD
}gx) { }gix) {
my $host = $1; my $host = lc $1;
my @host_domains = split /\./, $host; my @host_domains = split /\./, $host;
$self->log(LOGDEBUG, "uribl: matched 'www.' hostname $host"); $self->log(LOGDEBUG, "uribl: matched 'www.' hostname $host");
@ -352,9 +352,9 @@ sub data_handler {
while ($l =~ m{ while ($l =~ m{
\w{3,16}:/+ # protocol \w{3,16}:/+ # protocol
(?:\S+@)? # user/pass (?:\S+@)? # user/pass
([\w\-.]+\.[a-zA-Z]{2,8}) # hostname ([\w\-.]+\.[a-zA-Z]{2,32}) # hostname
}gx) { }gx) {
my $host = $1; my $host = lc $1;
my @host_domains = split /\./, $host; my @host_domains = split /\./, $host;
$self->log(LOGDEBUG, "uribl: matched full URI hostname $host"); $self->log(LOGDEBUG, "uribl: matched full URI hostname $host");