Disable old SSL ciphers

nugget · Dec 4, 2014 · 7a594ff · 7a594ff
1 parent 297b405
commit 7a594ff
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/packages/ergkeeper/oauth.tcl b/packages/ergkeeper/oauth.tcl
@@ -12,6 +12,7 @@ proc get_oauth_token_from_code {code} {
 	set details	""
 
 	::http::register https 443 ::tls::socket
+	::tls::init -ssl2 0 -ssl3 0 -tls1 1
 
 	set query [::http::formatQuery grant_type authorization_code code $code client_id $::config(rkapi_client_id) client_secret $::config(rkapi_client_secret) redirect_uri "$::config(base_url)login"]
 

diff --git a/packages/ergkeeper/runkeeper.tcl b/packages/ergkeeper/runkeeper.tcl
@@ -46,6 +46,7 @@ proc runkeeper_request {method {token ""} {body ""}} {
 
 	::http::config -useragent "ErgKeeper/1.0"
 	::http::register https 443 ::tls::socket
+	::tls::init -ssl2 0 -ssl3 0 -tls1 1
 
 	if {$body != ""} {
     	set fp [::http::geturl $uri -timeout 15000 -headers $headers -query $body -type [runkeeper_content_type $method]]