Mercurial > hg > egg-tcls

comparison urllog.tcl @ 235:059660980388

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
urllog: Enable TLS, fixes annoying issues where https fails.
author Matti Hamalainen <ccr@tnsp.org>
date Fri, 09 Jan 2015 15:40:54 +0200
parents 3e3756b113a1
children 302faa300510
comparison
equal deleted inserted replaced
234:dda0a236e8cf 235:059660980388
188 ::http::config -proxyhost $http_proxy_host -proxyport $http_proxy_port 188 ::http::config -proxyhost $http_proxy_host -proxyport $http_proxy_port
189 } 189 }
190 190
191 if {$http_tls_support != 0} { 191 if {$http_tls_support != 0} {
192 package require tls 192 package require tls
193 ::http::register https 443 [list ::tls::socket -request 1 -require 1 -cadir $http_tls_cadir] 193 ::http::register https 443 [list ::tls::socket -request 1 -require 1 -tls1 1 -cadir $http_tls_cadir]
194 } 194 }
195 195
196 ### SQLite database initialization 196 ### SQLite database initialization
197 if {[catch {sqlite3 urldb $urllog_db_file} uerrmsg]} { 197 if {[catch {sqlite3 urldb $urllog_db_file} uerrmsg]} {
198 putlog " Could not open SQLite3 database '$urllog_db_file': $uerrmsg" 198 putlog " Could not open SQLite3 database '$urllog_db_file': $uerrmsg"