Code: Select all
replace:
::http::register https 443 [list ::tls::socket -tls1 1] ;# added: plat_ #
with:
::http::register https 443 ::tls::socket
Code: Select all
catch { set t [::http::geturl $::eqnews::ary(page) -timeout 30000] } error
Code: Select all
putlog "Earthquake error: $error"
Edit....caesar wrote:So you see a blank space like "Earthquake error:" ?
Code: Select all
proc tls:socket args {
set opts [lrange $args 0 end-2]
set host [lindex $args end-1]
set port [lindex $args end]
::tls::socket -servername $host {*}$opts $host $port
}
Code: Select all
::http::register https 443 [list ::tls::socket -tls1 1] ;# added: plat_ #
Code: Select all
::http::register https 443 tls:socket
Code: Select all
# Sept 10 added the following
proc tls:socket args {
set opts [lrange $args 0 end-2]
set host [lindex $args end-1]
set port [lindex $args end]
::tls::socket -servername $host {*}$opts $host $port
# ::tls::socket -ssl3 false -ssl2 false -tls1 true -servername $host {*}$opts $host $port
# ::tls::socket -ssl3 false -ssl2 false -tls1 true -tls1.2 false -tls1.1 false \
# -servername $host {*}$opts $host $port
}
Code: Select all
# ::http::register https 443 [list ::tls::socket -tls1 1] ;# added: plat_ #
::http::register https 443 ::tls::socket
And finally the error after I edited the script and do a rehash.Admin: evilbot <email: testbot@testbotnet.org>
Config file: testbot
OS: Linux 4.17.17-x86_64-linode116
Process ID: 22819 (parent 1)
Tcl library: /usr/share/tcltk/tcl8.6
Tcl version: 8.6.5 (header version 8.6.5)
Tcl is threaded.
TLS support is enabled.
TLS library: OpenSSL 1.0.2g 1 Mar 2016
IPv6 support is enabled.
Socket table: 20/100
Loaded module information:
Channels: #test (need ops)
Online as: testbot!testbot@Clk-E646DB59.org (Test Bot)
Server [irc.---------.ca]:+6669 (connected for 00:02)
#test : 2 members, enforcing "+tn" (greet)
Thanks again for trying.[17:05:51] #aa# rehash
Rehashing.
[17:05:51] Writing user file...
[17:05:51] Writing channel file...
[17:05:51] Rehashing ...
[17:05:51] Writing channel file...
[17:05:51] Listening at telnet port 8000 (all).
[17:05:51] Loading dccwhois.tcl...
[17:05:51] Loaded dccwhois.tcl
[17:05:51] m00nie::weather 2.6 loaded
[17:05:51] bseen1.4.2c: -- Bass's SEEN loaded --
[17:05:51] Earthquake Announcer v1.2 loaded.
[17:05:51] m00nie::news 1.0 loaded
[17:05:51] Userinfo TCL v1.07 loaded (URL BF GF IRL EMAIL DOB PHONE ICQ).
[17:05:51] use '.help userinfo' for commands.
[17:05:51] Writing channel file...
[17:05:51] Userfile loaded, unpacking...
[17:05:56] Earthquake error: error flushing "sock154d510": connection reset by peer
Code: Select all
::http::register https 443 tls:socket
Code: Select all
::http::register https 443 ::eqnews::tls:socket