--- a/urllog.tcl	Tue Jan 27 08:22:36 2015 +0200
+++ b/urllog.tcl	Tue Jan 27 08:23:22 2015 +0200
@@ -38,7 +38,7 @@
 set urllog_name "URLLog"
 set urllog_version "2.4.0"
 
-set urllog_tlds [split $urllog_tlds ","]
+set urllog_tld_list [split $urllog_tld_list ","]
 set urllog_httprep [split "\@|%40|{|%7B|}|%7D|\[|%5B|\]|%5D" "|"] 
 
 
@@ -62,6 +62,10 @@
   putlog " (Additional URL validity checks enabled)"
 }
 
+if {$urllog_check_tld != 0} {
+  putlog " (Check TLD)"
+}
+
 if {$urllog_verbose != 0} {
   putlog " (Verbose mode enabled)"
 }
@@ -283,8 +287,8 @@
 
 #-------------------------------------------------------------------------
 proc urllog_validate_url { urlNick urlChan urlMStr urlMProto } {
-  global urllog_tlds urllog_extra_checks urlmsg_nosuchhost urllog_httprep
-  global urllog_shorturl_prefix urllog_shorturl
+  global urllog_tld_list urlmsg_nosuchhost urllog_httprep
+  global urllog_shorturl_prefix urllog_shorturl urllog_check_tld
   upvar 1 $urlMStr urlStr
   upvar 1 $urlMProto urlProto
 
@@ -340,7 +344,7 @@
   }
 
   ### Check the Top Level Domain (TLD) validity
-  if {$u_checktld != 0} {
+  if {$urllog_check_tld != 0 && $u_checktld != 0} {
     set u_sane [lindex [split $u_hostname "."] end]
     set u_tld [lindex [split $u_sane ":"] 0]
     set u_found 0
@@ -350,7 +354,7 @@
       set u_found 1
     } else {
       # Check our list of known TLDs
-      foreach itld $urllog_tlds {
+      foreach itld $urllog_tld_list {
         if {[string match $itld $u_tld]} {
           set u_found 1
         }