Mercurial > hg > egg-tcls
diff urllog.tcl @ 424:825cac46b1cb
Cosmetic / stray trailing whitespace cleanup.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Sun, 08 Jan 2017 03:55:55 +0200 |
parents | 880a07485275 |
children | e5810c52d376 |
line wrap: on
line diff
--- a/urllog.tcl Sun Jan 08 03:52:40 2017 +0200 +++ b/urllog.tcl Sun Jan 08 03:55:55 2017 +0200 @@ -39,7 +39,7 @@ set urllog_version "2.4.2" set urllog_tld_list [split $urllog_tld_list ","] -set urllog_httprep [split "\@|%40|{|%7B|}|%7D|\[|%5B|\]|%5D" "|"] +set urllog_httprep [split "\@|%40|{|%7B|}|%7D|\[|%5B|\]|%5D" "|"] ### Require packages @@ -120,7 +120,7 @@ if {$apublic == 1} { putserv "$urllog_preferredmsg $achan :$amsg" } else { - putserv "$urllog_preferredmsg $anick :$amsg" + putserv "$urllog_preferredmsg $anick :$amsg" } } @@ -190,7 +190,7 @@ } else { set qstr "$urlmsg_alreadyknown $qstr" } - + if {[utl_match_delim_list $urllog_msg_channels $uchan]} { urllog_verb_msg $urlNick $urlChan $qstr } @@ -373,7 +373,7 @@ if {![urllog_exists $urlStr $urlNick $urlHost $urlChan]} { return 1 } - + ### Validate URL compoments, etc. set urlProto "" set urlHostName "" @@ -471,7 +471,7 @@ if {$uencoding == "" && $uenc_doc2 != ""} { set uencoding $uenc_doc2 } elseif {$uencoding == ""} { - # If _NO_ known encoding of any kind, assume the default of iso8859-1 + # If _NO_ known encoding of any kind, assume the default of iso8859-1 set uencoding "iso8859-1" } @@ -610,7 +610,7 @@ } urllog_msg $upublic $unick $uchan "#$iresults: $shortURL ($uuser@[utl_ctime $utime])" } - + if {$iresults == 0} { # If no URLs were found urllog_msg $upublic $unick $uchan $urlmsg_nomatch