From fed6fe0311878dbae4bb24045f2fa076656a795e Mon Sep 17 00:00:00 2001
From: Robert Spier <robert@perl.org>
Date: Sat, 17 May 2008 03:55:18 +0000
Subject: [PATCH] Hostnames come in lowercase and longer than 8 characters too.

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@911 958fd67b-6ff1-0310-b445-bb7760255be9
---
 plugins/uribl | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

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