Mercurial > hg > egg-tcls

changeset 96:e5a6c27be365

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
urllog: Comments and cosmetics.
author Matti Hamalainen <ccr@tnsp.org>
date Mon, 12 Sep 2011 19:00:49 +0300
parents 687bdd74dfac
children 366e68ad94df
files urllog.tcl
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/urllog.tcl	Mon Sep 12 19:00:20 2011 +0300
+++ b/urllog.tcl	Mon Sep 12 19:00:49 2011 +0300
@@ -365,7 +365,7 @@
   global urllog_shorturl_prefix urllog_shorturl urllog_encoding
   global http_tls_support
 
-  ### Try to determine the URL protocol component (if it is missing)
+  ### Try to guess the URL protocol component (if it is missing)
   set u_checktld 1
   if {[string match "*www.*" $urlStr] && ![string match "http://*" $urlStr] && ![string match "https://*" $urlStr]} {
     set urlStr "http://$urlStr"
@@ -380,11 +380,11 @@
       urllog_log "URL pointing to local or invalid network, ignored ($urlStr)."
       return 0
     }
-
     # Skip TLD check for URLs with IP address
     set u_checktld 0
   }
 
+  ### Check now if we have an ShortURL here ...
   if {$urllog_shorturl != 0 && [string match "*$urllog_shorturl_prefix*" $urlStr]} {
     urllog_log "Ignoring ShortURL."
     return 0