Mercurial > hg > egg-tcls

comparison fetch_feeds.tcl @ 460:dbe249968591

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fetch_feeds: Add support for SNI in TLS and make note about requiring tcl-tls 1.7.13+
author Matti Hamalainen <ccr@tnsp.org>
date Mon, 30 Oct 2017 15:46:50 +0200
parents e5810c52d376
children 057e399d86f6
comparison
equal deleted inserted replaced
459:6acd372d36da 460:dbe249968591
6 # 6 #
7 # FeedCheck fetcher v1.1 by Matti 'ccr' Hamalainen <ccr@tnsp.org> 7 # FeedCheck fetcher v1.1 by Matti 'ccr' Hamalainen <ccr@tnsp.org>
8 # (C) Copyright 2008-2017 Tecnic Software productions (TNSP) 8 # (C) Copyright 2008-2017 Tecnic Software productions (TNSP)
9 # 9 #
10 # This script is freely distributable under GNU GPL (version 2) license. 10 # This script is freely distributable under GNU GPL (version 2) license.
11 #
12 # NOTICE! NOTICE! This script REQUIRES tcl-tls 1.7.13+ if you wish to
13 # support SSL/TLS https for URL checking. And you probably do.
11 # 14 #
12 ############################################################################## 15 ##############################################################################
13 16
14 ### The configuration should be in config.feeds in same directory 17 ### The configuration should be in config.feeds in same directory
15 ### as this script. Or change the line below to point where ever 18 ### as this script. Or change the line below to point where ever
35 ::http::config -proxyhost $http_proxy_host -proxyport $http_proxy_port 38 ::http::config -proxyhost $http_proxy_host -proxyport $http_proxy_port
36 } 39 }
37 40
38 if {[info exists http_tls_support] && $http_tls_support != 0} { 41 if {[info exists http_tls_support] && $http_tls_support != 0} {
39 package require tls 42 package require tls
40 ::http::register https 443 [list ::tls::socket -request 1 -require 1 -tls1 1 -cadir $http_tls_cadir] 43 ::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]
41 } 44 }
42 45
43 46
44 ############################################################################## 47 ##############################################################################
45 48