Mercurial > hg > egg-tcls

comparison urllog.tcl @ 136:76eefceb2b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix additional checks for HTTPS urls.
author Matti Hamalainen <ccr@tnsp.org>
date Tue, 04 Jun 2013 13:23:52 +0300
parents 9f290e1ee738
children 52350ed97775
comparison
equal deleted inserted replaced
135:50bf17f1ba39 136:76eefceb2b90
466 if {![urllog_exists $urlStr $urlNick $urlHost $urlChan]} { 466 if {![urllog_exists $urlStr $urlNick $urlHost $urlChan]} {
467 return 1 467 return 1
468 } 468 }
469 469
470 ### Do we perform additional optional checks? 470 ### Do we perform additional optional checks?
471 if {$urllog_check == 0 || ($http_tls_support == 0 && $u_proto == "https") || $u_proto != "http"} { 471 if {$urllog_check != 0 && (($http_tls_support != 0 && $u_proto == "https") || $u_proto == "http")} {
472 # Ok
473 } else {
472 # No optional checks, just add the URL, if it does not exist already 474 # No optional checks, just add the URL, if it does not exist already
473 urllog_addurl $urlStr $urlNick $urlHost $urlChan "" 475 urllog_addurl $urlStr $urlNick $urlHost $urlChan ""
474 return 1 476 return 1
475 } 477 }
476 478