https - 使用 TCL 请求 HTTPS 时出现问题

Question

我正在尝试使用 TCL (OpenACS) 执行以下请求

http::register https 443 tls::socket

set url "https://encrypted.google.com"

set token [http::geturl $url -timeout 30000]

set status [http::status $token]
set answer [http::data $token]

http::cleanup $token
http::unregister https

问题是，当我读取 $status 变量时，我得到“eof”并且 $answer 变量变为空。我尝试启用 tls V.1

http::register https 443 [list tls::socket -tls1 1]

并且它仅适用于网站 https://www.galileo.edu , 但不适用于 https://encrypted.google.com .

我要连接的站点是 https://graph.facebook.com/me/feed?access_token= ...但它不起作用。

我使用 curl 在 HTTPS 中检索页面内容并且它有效，我已经安装了 OpenSSL，所以我看不到问题，还有另一种方法可以与 TCL 建立 HTTPS 连接吗？

我看不出这是否是编码问题(也许我注册错误的 https 协议(protocol))或者可能是我的服务器配置错误。希望有人帮忙!!谢谢!

Answer 1

嗯，我无法重现。您使用的是哪个 Tcl 补丁级别，以及哪个版本的 tls 包？

我这样做了:

package require http
package require tls

# This is your code, cut-n-pasted with blank lines removed
http::register https 443 tls::socket
set url "https://encrypted.google.com"
set token [http::geturl $url -timeout 30000]
set status [http::status $token]
set answer [http::data $token]
http::cleanup $token
http::unregister https

puts $status

它生成“ok”作为输出，$status 的内容看起来也很可能(但太长无法粘贴到此处)。这是 Tcl 8.5.2(我知道我需要升级)、http 2.7 和 tls 1.6。