ソースを参照

Update wiki.tcl

adding proper tls/https support so this works again. 

thanks for the original software, it works good so far.
genewitch 9 年 前
コミット
ef7fdf560e
1 ファイル変更6 行追加0 行削除
  1. 6 0
      wiki.tcl

+ 6 - 0
wiki.tcl

@@ -1,4 +1,6 @@
 #
+# edited Jun 27 2017 for https by genewitch
+#
 # Mar 30 2010
 # by horgh
 #
@@ -13,6 +15,9 @@
 
 package require http
 package require htmlparse
+package require tls
+::http::register https 443 ::tls::socket
+
 
 namespace eval wiki {
 	variable max_lines 1
@@ -29,6 +34,7 @@ namespace eval wiki {
 	setudef flag wiki
 }
 
+
 proc wiki::fetch {term {url {}}} {
 	if {$url != ""} {
 		set token [http::geturl $url -timeout 10000]