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