egghelp.org community Forum Index
[ egghelp.org home | forum home ]
egghelp.org community
Discussion of eggdrop bots, shell accounts and tcl scripts.
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

covid-19.tcl by blackshadow
Goto page Previous  1, 2
 
Post new topic   Reply to topic    egghelp.org community Forum Index -> Scripting Help
View previous topic :: View next topic  
Author Message
abah
Halfop


Joined: 01 Dec 2013
Posts: 61
Location: Indonesia

PostPosted: Thu Apr 02, 2020 9:31 am    Post subject: Reply with quote

ubuntu covid work fine but openbsd not working
Back to top
View user's profile Send private message
caesar
Mint Rubber


Joined: 14 Oct 2001
Posts: 3741
Location: Mint Factory

PostPosted: Thu Apr 02, 2020 10:11 am    Post subject: Reply with quote

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
View user's profile Send private message
abah
Halfop


Joined: 01 Dec 2013
Posts: 61
Location: Indonesia

PostPosted: Thu Apr 02, 2020 10:20 am    Post subject: Reply with quote

caesar wrote:
Did you check to see if you got the tls package there?

Code:
% package require tls
1.6.7
%
Back to top
View user's profile Send private message
caesar
Mint Rubber


Joined: 14 Oct 2001
Posts: 3741
Location: Mint Factory

PostPosted: Fri Apr 03, 2020 12:47 am    Post subject: Reply with quote

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
View user's profile Send private message
abah
Halfop


Joined: 01 Dec 2013
Posts: 61
Location: Indonesia

PostPosted: Fri Apr 03, 2020 6:00 am    Post subject: Reply with quote

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
View user's profile Send private message
Ezekiel
Voice


Joined: 16 Dec 2014
Posts: 21

PostPosted: Fri Apr 03, 2020 11:49 am    Post subject: Reply with quote

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
View user's profile Send private message
abah
Halfop


Joined: 01 Dec 2013
Posts: 61
Location: Indonesia

PostPosted: Sat Apr 04, 2020 11:15 am    Post subject: Reply with quote

using shell user not root
Back to top
View user's profile Send private message
sysusr
Voice


Joined: 13 Dec 2016
Posts: 7

PostPosted: Sun Apr 12, 2020 2:32 am    Post subject: Reply with quote

cool script but is there any way you could do states/provinces?
Back to top
View user's profile Send private message
abah
Halfop


Joined: 01 Dec 2013
Posts: 61
Location: Indonesia

PostPosted: Mon Apr 13, 2020 9:53 am    Post subject: Reply with quote

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
View user's profile Send private message
blameshift
Voice


Joined: 27 Mar 2017
Posts: 12

PostPosted: Fri Jun 05, 2020 10:19 am    Post subject: Reply with quote

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 Smile

100% working thank you so much Very Happy
Back to top
View user's profile Send private message
nix
Voice


Joined: 01 Aug 2021
Posts: 1

PostPosted: Sun Aug 01, 2021 12:40 am    Post subject: Covid script Reply with quote

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
View user's profile Send private message
BLaCkShaDoW
Op


Joined: 11 Jan 2009
Posts: 115
Location: Romania

PostPosted: Mon Aug 16, 2021 7:55 am    Post subject: Re: Covid script Reply with quote

Download it from here : https://tclscripts.net/downloads/covid19-tcl/
_________________
BLaCkShaDoW Production @ WwW.TclScripts.Net
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic    egghelp.org community Forum Index -> Scripting Help All times are GMT - 4 Hours
Goto page Previous  1, 2
Page 2 of 2

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Forum hosting provided by Reverse.net

Powered by phpBB © 2001, 2005 phpBB Group
subGreen style by ktauber