Mercurial > hg > egg-tcls

comparison urllog.tcl @ 654:10ea2c1101b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
urllog: Cleanup.
author Matti Hamalainen <ccr@tnsp.org>
date Wed, 17 Feb 2021 12:10:14 +0200
parents ecd8fb2b9ad3
children eddf0ff17fbd
comparison
equal deleted inserted replaced
653:96a659f66be9 654:10ea2c1101b3
656 656
657 ### HTTP module initialization 657 ### HTTP module initialization
658 if {[info exists http_user_agent] && $http_user_agent != ""} { 658 if {[info exists http_user_agent] && $http_user_agent != ""} {
659 ::http::config -useragent $http_user_agent 659 ::http::config -useragent $http_user_agent
660 } else { 660 } else {
661 ::http::config -useragent "$urllog_name/$urllog_version" 661 ::http::config -useragent "${urllog_name}/${urllog_version}"
662 } 662 }
663 663
664 if {[info exists http_use_proxy] && $http_use_proxy != 0} { 664 if {[info exists http_use_proxy] && $http_use_proxy != 0} {
665 ::http::config -proxyhost $http_proxy_host -proxyport $http_proxy_port 665 ::http::config -proxyhost $http_proxy_host -proxyport $http_proxy_port
666 putlog " - Using proxy $http_proxy_host:$http_proxy_port" 666 putlog " - Using proxy ${http_proxy_host}:${http_proxy_port}"
667 } 667 }
668 668
669 if {[info exists http_tls_support] && $http_tls_support != 0} { 669 if {[info exists http_tls_support] && $http_tls_support != 0} {
670 package require tls 670 package require tls
671 ::http::register https 443 [list ::tls::socket -request true -require true -ssl2 false -ssl3 false -tls1 true -tls1.1 true -tls1.2 true -cadir $http_tls_cadir -autoservername true] 671 ::http::register https 443 [list ::tls::socket -request true -require true -ssl2 false -ssl3 false -tls1 true -tls1.1 true -tls1.2 true -cadir $http_tls_cadir -autoservername true]