egghelp/eggheads community

Repair horoscope tcl

2011-11-12T01:01:43-04:00

Any solution?

Statistics: Posted by Exedore — Sat Nov 12, 2011 1:01 am

Repair horoscope tcl

2008-02-28T22:18:49-04:00

Sorry for spam

Statistics: Posted by Chino — Thu Feb 28, 2008 10:18 pm

Re: TCL Horoscopo Spanish

2008-02-28T03:23:39-04:00

Code:

#Requiere http.tcl       ;# incorrectpackage require http 2.5 ;# correct

This is the exact type of scripting that is causing confusion lately. http is a tcl provided package. It should never be required to be sourced (require http.tcl) or you will see conflicting version errors pop up. It's better to go with whats packaged, than to source from outside the box (if you know what I mean) ...

Code:

  regexp {
(.*)} $html horoscopo  regsub -all "
" $horoscopo "" horoscopo  regsub -all "
" $horoscopo "" horoscopo

And you can trim all that above down to just one regexp

Code:

  regexp {.*?
(.+?)
} $html - horoscopo

... and was this your script, or did you just rip it off (aka, spam your channel) with your putlog at the end denying any credit to the original author?

Code:

putlog "Cargado horoscopo.tcl  #Ayuda-Eggdrop"

Now sure, you ported it to http package or someone did (as originally it was socketed), but really now.. why add putlog spam advertising a channel?

Statistics: Posted by speechles — Thu Feb 28, 2008 3:23 am

TCL Horoscopo Spanish

2008-02-28T01:26:33-04:00

Code:

#Requiere http.tclbind pub - !signo pub:horoscopoproc pub:horoscopo {nick host hand chan arg} {  set arg [lindex $arg 0]  if {$arg==""} {    putserv "NOTICE $nick :Usa: !signo "    return 0  }  switch [string tolower $arg] {    "aries" {      set pagina "www.terra.cl/astrologia/include/pop_h_diario.cfm?signo=2"    } "tauro" {      set pagina "www.terra.cl/astrologia/include/pop_h_diario.cfm?signo=19"    } "geminis" {      set pagina "www.terra.cl/astrologia/include/pop_h_diario.cfm?signo=7"    } "cancer" {      set pagina "www.terra.cl/astrologia/include/pop_h_diario.cfm?signo=3"    } "leo" {      set pagina "www.terra.cl/astrologia/include/pop_h_diario.cfm?signo=10"    } "virgo" {      set pagina "www.terra.cl/astrologia/include/pop_h_diario.cfm?signo=22"    } "libra" {      set pagina "www.terra.cl/astrologia/include/pop_h_diario.cfm?signo=11"    } "escorpion" {      set pagina "www.terra.cl/astrologia/include/pop_h_diario.cfm?signo=6"    } "sagitario" {      set pagina "www.terra.cl/astrologia/include/pop_h_diario.cfm?signo=16"    } "capricornio" {      set pagina "www.terra.cl/astrologia/include/pop_h_diario.cfm?signo=4"    } "acuario" {      set pagina "www.terra.cl/astrologia/include/pop_h_diario.cfm?signo=1"    } "piscis" {      set pagina "www.terra.cl/astrologia/include/pop_h_diario.cfm?signo=14"    } default {      putserv "PRIVMSG $chan :Signos existentes: aries, tauro, geminis, cancer, leo, virgo,\              libra, escorpion, sagitario, capricornio, acuario y piscis."    }  }  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 horoscopo  regsub -all "
" $horoscopo "" horoscopo  regsub -all "
" $horoscopo "" horoscopo  putserv "PRIVMSG $nick :[string toupper $arg]: $horoscopo"}putlog "Cargado horoscopo.tcl  #Ayuda-Eggdrop"

Use this TCL horoscopo.tcl

Usa este TCl que tal queda...

Chino - Chino_^
#Ayuda-Eggdrop

Statistics: Posted by Chino — Thu Feb 28, 2008 1:26 am

Repair horoscope tcl

2007-03-04T18:30:08-04:00

Can't help ya then, it works for me and everyone else who's tested it.

Statistics: Posted by rosc2112 — Sun Mar 04, 2007 6:30 pm

Repair horoscope tcl

2007-03-04T18:25:33-04:00

i remove this from your script:

if {([lsearch -exact $::shorochans $chan] == -1) && ($chan != "privmsg")} {return}

and now, save, rehash. and:

.shoro Libra
-> *Alaska^* shoro Libra
-> *Alaska^* shoro libra
.shoro libra

nothing =/

Statistics: Posted by Nor7on — Sun Mar 04, 2007 6:25 pm

Repair horoscope tcl

2007-03-04T18:07:48-04:00

Remove this line from my script:

if {([lsearch -exact $::shorochans $chan] == -1) && ($chan != "privmsg")} {return}

Then it'll work with all channels and won't bother checking if you configured it.

Statistics: Posted by rosc2112 — Sun Mar 04, 2007 6:07 pm

Repair horoscope tcl

2007-03-04T18:00:49-04:00

No.

Statistics: Posted by rosc2112 — Sun Mar 04, 2007 6:00 pm

Repair horoscope tcl

2007-03-04T17:58:13-04:00

[15:50] spanish horoscopes 1.0.1a by rosc loaded.
[15:50] Horoscopo.tcl
[15:50] Userfile loaded, unpacking...

.shoro cancer

nothing my friend...

i have one question... what is the problem in this tcl edited for me, but no found xDDD you can check this?

##############################################################

bind pub - !horoscopo signo

proc signo {nick uhost hand chan text} {
set conexion [socket www.horoscopofree.com 80]
set flag 0
set encabezado "Host: www.horoscopofree.com"
set text [string toupper $text]
if {$text == ""} {
set flag 2
putserv "NOTICE $nick :Uso: !horoscopo , Ej: !horoscopo aries"}
if {$text == "ARIES"} {
set flag 1
puts $conexion "GET /misc/partnership/iframe/aries_st.html\r\n$encabezado"}
if {$text == "TAURO"} {
set flag 1
puts $conexion "GET /misc/partnership/iframe/taurus_st.html\r\n$encabezado"}
if {$text == "GEMINIS"} {
set flag 1
puts $conexion "GET /misc/partnership/iframe/gemini_st.html\r\n$encabezado"}
if {$text == "CANCER"} {
set flag 1
puts $conexion "GET /misc/partnership/iframe/cancer_st.html\r\n$encabezado"}
if {$text == "LEO"} {
set flag 1
puts $conexion "GET /misc/partnership/iframe/leo_st.html\r\n$encabezado"}
if {$text == "VIRGO"} {
set flag 1
puts $conexion "GET /misc/partnership/iframe/virgo_st.html\r\n$encabezado"}
if {$text == "LIBRA"} {
set flag 1
puts $conexion "GET /misc/partnership/iframe/libra_st.html\r\n$encabezado"}
if {$text == "ESCORPION"} {
set flag 1
puts $conexion "GET /misc/partnership/iframe/scorpio_st.html\r\n$encabezado"}
if {$text == "SAGITARIO"} {
set flag 1
puts $conexion "GET /misc/partnership/iframe/sagittarius_st.html\r\n$encabezado"}
if {$text == "CAPRICORNIO"} {
set flag 1
puts $conexion "GET /misc/partnership/iframe/capricorn_st.html\r\n$encabezado"}
if {$text == "ACUARIO"} {
set flag 1
puts $conexion "GET /misc/partnership/iframe/aquarius_st.html\r\n$encabezado"}
if {$text == "PISCIS"} {
set flag 1
puts $conexion "GET /misc/partnership/iframe/pisces_st.html\r\n$encabezado"}

if {$flag == 1} {

flush $conexion

while {![eof $conexion]} {
set linea [gets $conexion]
if {[string match "*txt_2_10*" $linea]} {
set largo [string length $linea]
set inicio [string range $linea 0 [expr $largo-13]]
set final [string range $linea 31 [expr $largo-13]]
set horoscopo [string map [list "" "."] $final]
set horoscopo [string map [list "
" " "] $horoscopo]
putserv "privmsg $chan :$text: $horoscopo"
}
}
}
if {$flag == 0} {
putserv "NOTICE $nick :SIGNO NO VÁLIDO!. Válidos: aries, tauro, geminis, cancer, leo, virgo, libra, escorpion, sagitario, capricornio, acuario y piscis."
}
}
putlog "Horoscopo.tcl"

i don't know hehehe.... can you check this? pls =((

Statistics: Posted by Nor7on — Sun Mar 04, 2007 5:58 pm

Repair horoscope tcl

2007-03-04T17:43:22-04:00

Does the script load? You should see the line in your eggdrop when the script loads:

spanish horoscopes 1.0.1b by rosc loaded.

Also, make the channel names lower case in the config and see if that makes a difference.

I made a very minor update in the script to rename some vars leftover from the funny horoscope script, although I doubt that would make the script not work for you. Same url as above.

Edit: Made channel configs case-insensitive too..

Statistics: Posted by rosc2112 — Sun Mar 04, 2007 5:43 pm

Repair horoscope tcl

2007-03-04T17:36:45-04:00

i cofig the tcl, channels, etc.

but when write in the channel: .shoro, my eggdrop no send me nothing.

In dcc chat.

*** Nor7on joined the party line.
.rehash
Rehashing.

in the channel:

.shoro Libra
-> *Alaska^* .shoro Libra
.shoro Scorpio
.shoro cancer

see no send me nothing... my cofig is this:

##############################################################################################################
#Configs:
##########

# Channels to allow public use in (Space-seperated list)
set shorochans "#Irclima"

# Out of the above channels, these will ONLY respond via PRIVMSG:
set shoroquiet "#Madrid"

# geturl timeout:
set shtout "30000"

see my config is OK, but no send me nothing =(, what's the problem?

Statistics: Posted by Nor7on — Sun Mar 04, 2007 5:36 pm

Repair horoscope tcl

2007-03-04T17:23:38-04:00

Worked for me. Did you configure the script for what channels you want it to work on? Does it say its loaded when you rehash the bot? etc.. Can't help you if you don't do the simple stuff.

Statistics: Posted by rosc2112 — Sun Mar 04, 2007 5:23 pm

Repair horoscope tcl

2007-03-04T17:15:45-04:00

epss rosc2112 =)

this tcl no found =( i tested with my bot, but no send nothing.

pls help me =(

Statistics: Posted by Nor7on — Sun Mar 04, 2007 5:15 pm

Repair horoscope tcl

2007-03-04T14:07:15-04:00

http://members.dandy.net/~fbn/spanish.horoscope.tcl.txt

Statistics: Posted by rosc2112 — Sun Mar 04, 2007 2:07 pm

Repair horoscope tcl

2007-03-03T10:07:33-04:00

and you can fix, but no with www.terra.cl. now with this website -> http://www.horoscopofree.com

Example from here.

http://www.horoscopofree.com/misc/partn ... es_st.html
http://www.horoscopofree.com/misc/partn ... us_st.html
http://www.horoscopofree.com/misc/partn ... ni_st.html
http://www.horoscopofree.com/misc/partn ... er_st.html
http://www.horoscopofree.com/misc/partn ... eo_st.html
http://www.horoscopofree.com/misc/partn ... go_st.html
http://www.horoscopofree.com/misc/partn ... ra_st.html
http://www.horoscopofree.com/misc/partn ... io_st.html
http://www.horoscopofree.com/misc/partn ... us_st.html
http://www.horoscopofree.com/misc/partn ... rn_st.html
http://www.horoscopofree.com/misc/partn ... us_st.html
http://www.horoscopofree.com/misc/partn ... es_st.html

but i want the eggdrop no read this line-> "¡Inscríbete al Horóscopo gratis en email!".

can change all this? pls..

Thxs. =)

Statistics: Posted by Nor7on — Sat Mar 03, 2007 10:07 am