egghelp/eggheads community

horoscop.tcl

2017-09-02T08:21:20-04:00

Hi tried the script and i got this error

RAC: http://www.sentimente.ro/horoscop/index ... ">>

Website changed i guess but i don`t know how to fix the script to work again.If someone can take a look at the script and make that change. Thank You.

Here is the script:

Code:

namespace eval zodiac {    package require http    setudef flag horoscop    bind pub -|- !horoscop [namespace current]::fetch    proc fetch {nick uhost hand chan text} {       if {![channel get $chan horoscop]} return       if {[scan $text {%s} sign] != 1} {          putserv "NOTICE $nick :Syntax: !horoscop "          return       }       set signs [list "berbec" "taur" "gemeni" "rac" "leu" "fecioara" "balanta" "scorpion" "sagetator" "capricorn" "varsator" "pesti"]       set sign [string tolower $sign]       if {[lsearch $signs $sign] == -1} {          putserv "NOTICE $nick :Error, $sign is a uknown sign. Pick another."          return       }       set http [::http::geturl "http://www.zodii.ro/zodiac/$sign*zodie_$sign-horoscop_zilnic.html"]       set data [::http::data $http]       ::http::cleanup $http       regexp -nocase {(.*?)
} $data text       set result [lrange $text 2 end-1]       putserv "NOTICE $nick :[string toupper $sign]: $result"    } }

Statistics: Posted by SamSun — Sat Sep 02, 2017 8:21 am

Error on script

2016-06-20T18:48:50-04:00

hi caesar
It is possible that your tcl
You can modify and read from :

>>> http://www.horoscope.com/

thanks

Statistics: Posted by Arnold_X-P — Mon Jun 20, 2016 6:48 pm

Error on script

2016-06-20T16:26:25-04:00

I don`t want to open a new topic so i will write here, i have a new problem with a code that worked fine untill the shell went down. I`ve re-uploaded but give`s me an error. This is the code:

if {![info exists anuntpublic:show_running]} {
timer $black(anunttime) anuntpublic:show
set anuntpublic:show_running 1

Error: can't read "black(anunt_time)": no such element in array
while executing
"timer $black(anunt_time) anuntpublic_show "

Statistics: Posted by XtremeSeb — Mon Jun 20, 2016 4:26 pm

Error on script

2016-06-20T16:20:22-04:00

Yes juanamores, this time

Statistics: Posted by XtremeSeb — Mon Jun 20, 2016 4:20 pm

Error on script

2016-06-18T00:56:51-04:00

Yes! Its working great. Thank you for your help caesar

You did it, XtremeSeb !
I 'll make a post to see if anyone help me with sockets.

Statistics: Posted by juanamores — Sat Jun 18, 2016 12:56 am

Error on script

2016-06-12T10:08:05-04:00

Yes! Its working great. Thank you for your help caesar

Statistics: Posted by XtremeSeb — Sun Jun 12, 2016 10:08 am

Error on script

2016-06-12T05:39:34-04:00

As for the other script I take it the check:N:gl, check:n:gl and checkgl is a proc that basically is checking if the user has the global N, n or m flag.

Easy to change things so instead of check:N:gl $hand can dirrectly use matchattr $hand N and for the other two matchattr $hand n and matchattr $hand m.

Oh and instead of:

Code:

if {[string equal -nocase $nick $botnick]} {return}

I would actually use:

Code:

if {[isbotnick $nick]} return

Statistics: Posted by caesar — Sun Jun 12, 2016 5:39 am

Error on script

2016-06-12T03:29:31-04:00

Done! Its working great. Thanks again.

Statistics: Posted by XtremeSeb — Sun Jun 12, 2016 3:29 am

Error on script

2016-06-12T03:06:26-04:00

Yees its working fine, thank you so much caesar. But he answers to the user with notice. Can he reply on main?

Statistics: Posted by XtremeSeb — Sun Jun 12, 2016 3:06 am

Error on script

2016-06-12T02:34:34-04:00

As I was testing stuff mixed variables and now should work fine. Replace:

Code:

regexp -nocase {(.*?)
} $html text

with:

Code:

regexp -nocase {(.*?)
} $data text

Statistics: Posted by caesar — Sun Jun 12, 2016 2:34 am

Error on script

2016-06-11T19:41:20-04:00

The same script works fine on another eggdrop. But the owner is offline for a lot of time..

Statistics: Posted by XtremeSeb — Sat Jun 11, 2016 7:41 pm

Error on script

2016-06-11T19:29:26-04:00

If anyone has a horoscope tcl that works , please post it.

The problem with all scripts who use sockets is that web pages change and the code stops working.
I have tried several but none worked.
I hope you have luck and someone shares one that works.

Statistics: Posted by juanamores — Sat Jun 11, 2016 7:29 pm

Error on script

2016-06-11T12:57:01-04:00

If anyone has a horoscope tcl that works , please post it.

Statistics: Posted by XtremeSeb — Sat Jun 11, 2016 12:57 pm

Error on script

2016-06-11T12:25:10-04:00

I get this error now - Tcl error [::zodiac::fetch]: can't read "html": no such variable

Statistics: Posted by XtremeSeb — Sat Jun 11, 2016 12:25 pm

Error on script

2016-06-12T02:31:52-04:00

You get that error on first cos the regexp doesn't match anything and thus he doesn't create the horoscopo and gives you an error when trying to use something hasn't been defined.

Haven't tested so give a try to:

Code:

namespace eval zodiac {package require httpsetudef flag horoscopbind pub -|- !horoscop [namespace current]::fetchproc fetch {nick uhost hand chan text} {if {![channel get $chan horoscop]} returnif {[scan $text {%s} sign] != 1} {putserv "NOTICE $nick :Syntax: !horoscop "return}set signs [list "berbec" "taur" "gemeni" "rac" "leu" "fecioara" "balanta" "scorpion" "sagetator" "capricorn" "varsator" "pesti"]set sign [string tolower $sign]if {[lsearch $signs $sign] == -1} {putserv "NOTICE $nick :Error, $sign is a uknown sign. Pick another."return}set http [::http::geturl "http://www.zodii.ro/zodiac/$sign*zodie_$sign-horoscop_zilnic.html"]set data [::http::data $http]::http::cleanup $httpregexp -nocase {(.*?)
} $data textset result [lrange $text 2 end-1]putserv "NOTICE $nick :[string toupper $sign]: $result"} }

I'm not a regexp guru so I bet someone will come with a better solution than mine.

As for the second, you are missing a chunk of that script cos it's not finding the checkgl function (proc).

Edit: Fixed typo.

Statistics: Posted by caesar — Sat Jun 11, 2016 12:14 pm