Mercurial > hg > egg-tcls
changeset 96:e5a6c27be365
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