egghelp/eggheads community

Re: [SOLVED] horoscop tcl

2024-12-19T16:03:02-04:00

try this one https://www.tclscripts.net/product/horoscop-tcl/

Statistics: Posted by BLaCkShaDoW — Thu Dec 19, 2024 4:03 pm

Re: [SOLVED] horoscop tcl

2024-12-13T03:10:19-04:00

That's what I said previously.
If the site template has changed (and I'm sure it does) or if you try with another site, the html parsing system in the script must be redone.

Statistics: Posted by CrazyCat — Fri Dec 13, 2024 3:10 am

Re: Re:

2024-12-12T21:50:23-04:00

script script

package require tls::http::register https 443 [list ::tls::socket -autoservername true]

script

thanks crazy but the error is back

Tcl error [check_zodie]: can't read "horoscopo": no such variable

Statistics: Posted by abah — Thu Dec 12, 2024 9:50 pm

Re: Re:

2024-12-12T10:45:46-04:00

can i change website to indinesian website ?

Probably but the script won't work just with an url modification, the regexp and other datas' parsing system must be corrected.

Code:

Tcl error [check_zodie]: Unsupported URL type "https"

script script

package require tls::http::register https 443 [list ::tls::socket -autoservername true]

script

Statistics: Posted by CrazyCat — Thu Dec 12, 2024 10:45 am

Re: Re:

2024-12-12T05:26:19-04:00

You're trying to use a script which is older than 10 years, I think the site has changed its template so the regexp used don't work anymore.

can i change website to indinesian website ?

Code:

Tcl error [check_zodie]: Unsupported URL type "https"

Statistics: Posted by abah — Thu Dec 12, 2024 5:26 am

Re: Re:

2024-12-12T05:15:02-04:00

thank you very much.
error from side me
Code:
Tcl error [check_zodie]: can't read "horoscopo": no such variable

You're trying to use a script which is older than 10 years, I think the site has changed its template so the regexp used don't work anymore.

Statistics: Posted by CrazyCat — Thu Dec 12, 2024 5:15 am

Re:

2024-12-12T04:59:44-04:00

thank you very much.

error from side me

Code:

Tcl error [check_zodie]: can't read "horoscopo": no such variable

Statistics: Posted by abah — Thu Dec 12, 2024 4:59 am

[SOLVED] horoscop tcl

2014-05-18T10:44:38-04:00

thank you very much.

Statistics: Posted by while — Sun May 18, 2014 10:44 am

[SOLVED] horoscop tcl

2014-05-15T12:18:38-04:00

Code:

package require httpsetudef flag horoscop bind pub -|- !horoscop check_zodie  proc check_zodie {nick uhost hand chan arg} {     if {![channel get $chan horoscop]} { return 0 }         set target [lindex [split [string tolower $arg]] 0]    if {$target eq "" || ![regexp {^(berbec|taur|gemeni|rac|leu|fecioara|balanta|scorpion|sagetator|capricorn|varsator|pesti)$} $target]} {         putserv "NOTICE $nick :Foloseste: !horoscop "         return 0         }         set pagina "http://www.zodii.ro/zodiac/$target*zodie_$target-horoscop_zilnic.html"         set http [http::config -useragent "Mozilla/4.0 (compatible; MSIE 4.01; Windows CE; PPC; 240x320)"]        set http [http::geturl $pagina -timeout [expr {1000*5}]]         set html [http::data $http]         http::cleanup $http  regsub -all -- "\n" $html "" html        regexp {
(.*?)

} $html a horoscopo        putserv "NOTICE $nick :[string toupper $target]: $horoscopo"return 0 }   putlog "Horoscop loaded sucessfully. Created by Costin"

!horoscop balanta
bot- BALANTA: Doresti sa faci cat mai multe dar exista riscul sa gresesti. Oboseala acumulata in ultimul timp te-ar putea face sa fii mai putin eficient. O persoana mai putin cunoscuta incearca sa traga niste sfori pentru a-ti face rau, dar se va gasi cineva care sa te protejeze. Orienteaza-te spre activitati de rutina mai ales in prima parte a zilei.
> !horoscop scorpion
bot- SCORPION: Cineva din anturajul de la serviciu ti-ar putea face unele reprosuri, dar nu este cazul sa te enervezi. Traversezi o perioada in care daca doresti sa ai succes trebuie sa fii atent la toate detaliile. Colegii te vor sprijini, dar va trebui sa faci destul de multe de unul singur.Din punct de vedere financiar nu se poate spune ca nu sunt sanse de succes, dar ceva mai multa prudenta nu are ce sa-ti strice.
> !horoscop leu
bot- LEU: Nu vei fi intr-o forma prea buna si ar fi de dorit sa nu te implici in activitati care sa te suprasolicite. Obosesti mai repede decat in mod obisnuit, asa ca excesul de activitati te va face mai putin eficient. Consumul excesiv de cafea si tutun nu va face decat sa-ti accentueze sarea oboseala. Vei avea ocazia sa petreci o dupa-amiaza placuta in compania prietenilor.

Statistics: Posted by heartbroken — Thu May 15, 2014 12:18 pm

[SOLVED] horoscop tcl

2014-05-18T10:45:07-04:00

hello. i have this tcl but it seems that it stopped working.. i think the site from which it grabbed the data change.
here it is:

Code:

package require httpbind pub -|- !horoscop check:zodieproc check:zodie {nick host hand chan arg} {global check:zodieif {![channel get $chan horoscop]} {puthelp "NOTICE $nick :FAILED: Horoscop isn`t set. Try !chanset +horoscop"; return}set arg [lindex $arg 0]if {$arg == "" || ![regexp {^(berbec|taur|gemeni|rac|leu|fecioara|balanta|scorpion|sagetator|capricorn|varsator|pesti)$} $arg]} {putserv "NOTICE $nick :Foloseste: !horoscop "return 0}set pagina "http://www.zodii.ro/zodiac/$arg*zodie_$arg-horoscop_zilnic.html"set http [http::config -useragent mozilla]set http [http::geturl $pagina -timeout [expr 1000 * 10]]set html [http::data $http]http::cleanup $http ;regexp {(.*)} $html horoscoporegsub -all "" $horoscopo "" horoscoporegsub -all "
" $horoscopo "" horoscopoputserv "PRIVMSG $nick :[string toupper $arg]: $horoscopo"}putlog "Horoscop loaded sucessfully. Created by Costin"

when i do !horoscop berbec for example all i get is BERBEC:
and nothing more. thanks

Statistics: Posted by while — Thu May 15, 2014 7:15 am