egghelp/eggheads community

Could you test this : http://paste.tclhelp.net/?id=6cfb Replace it with your own settings. and change http://www.pandorabots... links to https pandorabots urls redirecting http to https now and i couldn't see any lines about to check this redirected links and callback to 'new url' in the script. so ...

#Bot's Nickname to Respond to: ex. MyBot - Usage: MyBot, what's 1+1? set pandoraNick "MyBot" #Your Pandora Bot ID. (Feel free to use the existing one if you want, but the bot will think its name is AlphaBot set botid "a5cd504e4e342614" #STOP EDITING HERE package require http if ...

I don't even known where do you live and which timezone but these settings for GMT+3 , be sure env(TZ) line looks like this : set env(TZ) "$timezone$offset" in .conf and check : http://eggwiki.org/Eggdrop.conf#Basic_settings # If you don't want to use the timezone setting for scripting pur...

I made couple of tests to see how Works with other https sites whoever using cloudflare service. I found a list of websites at cloudflare's document pages. ( to be honest ,first i thought maybe this problem caused build link between your site to cloudflare. but...) in my tests i've seen that i can g...

I'm just tested on wish. it is works. http://i.imgur.com/tdaX17R.png I don't think this issue caused tls::socket looks working good with http::register https 443 [list ::tls::socket -tls1 1] ] or http::register https 443 ::tls::socket Must be something else , but I didn't understand what goes wrong...

actualy "mv" not a Tcl command. ( http://www.tcl.tk/man/tcl8.6/TclCmd/contents.htm ) you can use file rename : http://www.tcl.tk/man/tcl/TclCmd/file.htm - http://wiki.tcl.tk/10083

change : to

bind ctcp - ACTION reply:action proc reply:action {nick uhost hand dest key text} { if {![string match -nocase "*goes*sleep*" $text] || \ ![string match -nocase "*want*sleep*" $text] && $dest eq $::botnick} { return } if {[string equal -nocase "JaySon" $nick]} ...

bind ctcp - ACTION reply:action proc reply:action {nick uhost hand dest key text} { if {[string match -nocase "*goes*sleep*" $text] || \ [string match -nocase "*want*sleep*" $text] && $dest ne $::botnick} { puthelp "PRIVMSG $dest :$nick, don't fall asleep" } } ...

that astrologer.... url doesn't exists anymore, it redirects to another web site...

but if you still wants to get horoscopes from that link;
you can find it in -> http://forum.egghelp.org/viewtopic.php?t=19697 here...

well both are same actually... first one says" if $chan has that-flag,lets do this work..."

second one says " if we don't have that-flag ,won't do anything ..."

setudef flag not working because : there is only setudef flag ... line outside of the procs , it doesn't check if this defined channel flag activated on $chan in the procs... there are only checks that : if $spy(chan) equivalence to $channel .. in every proc -> https://www.tcl.tk/man/tcl8.6/TclCmd/s...

you need bind pub instead of pubm there... and you already have "global" line for "givechan" in give proc.. you have to choose one of : global givechan .. $givechan or remove "global" line and just use : .. $::givechan set givechan "#daigo" bind pub - !give pu...

i just check it once again and i follow it on partyline ,but i didn't get any err ... anyway i re-edit to , if that "houtput" thingy exists or not in this edit... should fixed the err with this way. package require http # to activate on a #channel : .chanset #channel +horo setudef flag hor...

package require http # to activate on a #channel : .chanset #channel +horo setudef flag horo bind pub - .horo horo_pub proc horo_pub {nick uhost hand chan text} { if {![channel get $chan horo]} { return 0 } set q [lindex [split [string tolower $text]] 0] set horos "Aries|Taurus|Gemini|Cancer|L...