Mercurial > hg > egg-tcls
diff urllog.tcl @ 302:f487cc166714
urllog: Add message for unknown TLDs.
| author | Matti Hamalainen <ccr@tnsp.org> |
|---|---|
| date | Tue, 27 Jan 2015 08:39:21 +0200 |
| parents | 2a9ee3f68225 |
| children | f1589fe20732 |
line wrap: on
line diff
--- 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 } }