| View previous topic :: View next topic |
| Author |
Message |
abah Halfop
Joined: 01 Dec 2013 Posts: 61 Location: Indonesia
|
Posted: Thu Apr 02, 2020 9:31 am Post subject: |
|
|
| ubuntu covid work fine but openbsd not working |
|
| Back to top |
|
 |
caesar Mint Rubber

Joined: 14 Oct 2001 Posts: 3741 Location: Mint Factory
|
Posted: Thu Apr 02, 2020 10:11 am Post subject: |
|
|
Did you check to see if you got the tls package there? _________________ Once the game is over, the king and the pawn go back in the same box. |
|
| Back to top |
|
 |
abah Halfop
Joined: 01 Dec 2013 Posts: 61 Location: Indonesia
|
Posted: Thu Apr 02, 2020 10:20 am Post subject: |
|
|
| caesar wrote: | | Did you check to see if you got the tls package there? |
| Code: | % package require tls
1.6.7
% |
|
|
| Back to top |
|
 |
caesar Mint Rubber

Joined: 14 Oct 2001 Posts: 3741 Location: Mint Factory
|
Posted: Fri Apr 03, 2020 12:47 am Post subject: |
|
|
You tried with the change i suggested and still get the same error? _________________ Once the game is over, the king and the pawn go back in the same box. |
|
| Back to top |
|
 |
abah Halfop
Joined: 01 Dec 2013 Posts: 61 Location: Indonesia
|
Posted: Fri Apr 03, 2020 6:00 am Post subject: |
|
|
| Code: | proc corona:getdata {} {
set link "https://www.worldometers.info/coronavirus/"
::http::register https 443 tls:socket
set ipq [http::config -useragent "lynx"]
set ipq [::http::geturl "$link" -timeout 5000]
set status [::http::status $ipq]
if {$status != "ok"} {
::http::cleanup $ipq
return
} |
| Code: | package require http
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: | | Tcl error [corona:pub]: wrong # args: should be "tls::socket ?options? host port" |
|
|
| Back to top |
|
 |
Ezekiel Voice

Joined: 16 Dec 2014 Posts: 21
|
Posted: Fri Apr 03, 2020 11:49 am Post subject: |
|
|
you need this:
| Code: | cd /tmp
wget https://core.tcl-lang.org/tcltls/uv/tcltls-1.7.20.tar.gz
tar -xzf tcltls-1.7.20.tar.gz
cd tcltls-1.7.20
./configure
make (ca root)
make install |
restart the bot then and should work.. _________________ http://tclscripts.net - home of BlackTools.tcl the most complete channel management script who can manage channels from all the IRC networks. |
|
| Back to top |
|
 |
abah Halfop
Joined: 01 Dec 2013 Posts: 61 Location: Indonesia
|
Posted: Sat Apr 04, 2020 11:15 am Post subject: |
|
|
| using shell user not root |
|
| Back to top |
|
 |
sysusr Voice
Joined: 13 Dec 2016 Posts: 7
|
Posted: Sun Apr 12, 2020 2:32 am Post subject: |
|
|
| cool script but is there any way you could do states/provinces? |
|
| Back to top |
|
 |
abah Halfop
Joined: 01 Dec 2013 Posts: 61 Location: Indonesia
|
Posted: Mon Apr 13, 2020 9:53 am Post subject: |
|
|
thanks my problem solved but i get one problem again.
I am used latest version but i want to autocovid show random country not only global contry |
|
| Back to top |
|
 |
blameshift Voice
Joined: 27 Mar 2017 Posts: 12
|
Posted: Fri Jun 05, 2020 10:19 am Post subject: |
|
|
| caesar wrote: | Locate this line:
| Code: |
http::register https 443 [list ::tls::socket -autoservername true]
|
and replace it with:
| Code: |
::http::register https 443 tls:socket
|
and under the 'package require http' line add this code:
| Code: |
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
}
|
|
Thank you sir this helped me on debian 9
100% working thank you so much  |
|
| Back to top |
|
 |
nix Voice
Joined: 01 Aug 2021 Posts: 1
|
Posted: Sun Aug 01, 2021 12:40 am Post subject: Covid script |
|
|
Hi,
Is this script still works?
Because I can't get it to work. The bot return replies with no data/statistics included.
p/s I got all the package updated |
|
| Back to top |
|
 |
BLaCkShaDoW Op

Joined: 11 Jan 2009 Posts: 115 Location: Romania
|
|
| Back to top |
|
 |
|