This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.
For more information, see this announcement post . Click the X in the top right-corner of this box to dismiss this message.
Help for those learning Tcl or writing their own scripts.
abah
Halfop
Posts: 62 Joined: Sun Dec 01, 2013 3:04 am
Location: Indonesia
Post
by abah » Thu Apr 02, 2020 9:31 am
ubuntu covid work fine but openbsd not working
caesar
Mint Rubber
Posts: 3778 Joined: Sun Oct 14, 2001 8:00 pm
Location: Mint Factory
Post
by caesar » Thu Apr 02, 2020 10:11 am
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.
abah
Halfop
Posts: 62 Joined: Sun Dec 01, 2013 3:04 am
Location: Indonesia
Post
by abah » Thu Apr 02, 2020 10:20 am
caesar wrote: Did you check to see if you got the tls package there?
caesar
Mint Rubber
Posts: 3778 Joined: Sun Oct 14, 2001 8:00 pm
Location: Mint Factory
Post
by caesar » Fri Apr 03, 2020 12:47 am
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.
abah
Halfop
Posts: 62 Joined: Sun Dec 01, 2013 3:04 am
Location: Indonesia
Post
by abah » Fri Apr 03, 2020 6:00 am
Code: Select all
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: Select all
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: Select all
Tcl error [corona:pub]: wrong # args: should be "tls::socket ?options? host port"
Ezekiel
Voice
Posts: 21 Joined: Tue Dec 16, 2014 8:05 am
Post
by Ezekiel » Fri Apr 03, 2020 11:49 am
you need this:
Code: Select all
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.
abah
Halfop
Posts: 62 Joined: Sun Dec 01, 2013 3:04 am
Location: Indonesia
Post
by abah » Sat Apr 04, 2020 11:15 am
using shell user not root
sysusr
Voice
Posts: 7 Joined: Tue Dec 13, 2016 12:19 am
Post
by sysusr » Sun Apr 12, 2020 2:32 am
cool script but is there any way you could do states/provinces?
abah
Halfop
Posts: 62 Joined: Sun Dec 01, 2013 3:04 am
Location: Indonesia
Post
by abah » Mon Apr 13, 2020 9:53 am
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
blameshift
Voice
Posts: 12 Joined: Mon Mar 27, 2017 4:24 am
Post
by blameshift » Fri Jun 05, 2020 10:19 am
caesar wrote: Locate this line:
Code: Select all
http::register https 443 [list ::tls::socket -autoservername true]
and replace it with:
Code: Select all
::http::register https 443 tls:socket
and under the 'package require http' line add this code:
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
}
Thank you sir this helped me on debian 9
100% working thank you so much
nix
Voice
Posts: 1 Joined: Sun Aug 01, 2021 12:36 am
Post
by nix » Sun Aug 01, 2021 12:40 am
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