--- a/config.urllog.example	Tue Jan 27 08:24:13 2015 +0200
+++ b/config.urllog.example	Tue Jan 27 08:39:21 2015 +0200
@@ -33,7 +33,9 @@
 # (You probably want this enabled.)
 set urllog_extra_checks 1
 
-### Check if the TLD (top level domain) looks sane
+### Check if the TLD (top level domain) looks sane. You might want to disable
+### this, because lately (as of 2013+) ICANN has allowed addition of loads
+### and loads of new TLDs which would be impossible to keep list of here ..
 set urllog_check_tld 1
 
 # The valid known Top Level Domains (TLDs), but not the country code TLDs
@@ -113,6 +115,9 @@
 # No match was found when searched with !urlfind or other command
 set urlmsg_nomatch "Ei osumia."
 
+# Message for "unknown top level domain", see urllog_check_tld setting
+set urlmsg_unknown_tld "Tuntematon TLD!"
+
 
 ###
 ### HTTP options

--- a/urllog.tcl	Tue Jan 27 08:24:13 2015 +0200
+++ b/urllog.tcl	Tue Jan 27 08:39:21 2015 +0200
@@ -287,7 +287,7 @@
 
 #-------------------------------------------------------------------------
 proc urllog_validate_url { urlNick urlChan urlMStr urlMProto } {
-  global urllog_tld_list urlmsg_nosuchhost urllog_httprep
+  global urllog_tld_list urlmsg_nosuchhost urllog_httprep urlmsg_unknown_tld
   global urllog_shorturl_prefix urllog_shorturl urllog_check_tld
   upvar 1 $urlMStr urlStr
   upvar 1 $urlMProto urlProto
@@ -362,7 +362,8 @@
     }
 
     if {$u_found == 0} {
-      urllog_log "Broken URL from $urlNick: ($urlStr) illegal TLD: $u_tld."
+      urllog_log "Broken URL from $urlNick: ($urlStr) unknown TLD: ${u_tld}."
+      urllog_verb_msg $urlNick $urlChan $urlmsg_unknown_tld
       return 0
     }
   }