| View previous topic :: View next topic |
| Author |
Message |
Shadowless
Voice
Joined: 04 Aug 2014
Posts: 1
|
 Posted: Mon Aug 04, 2014 2:02 pm Post subject: Please Help Repair |
 |
|
Please Help Repair international horoscope script of #@homer version 0.8
release date 26/02/2006
seems the webpage is not aviable
help me repair it
http://www.egghelp.org/cgi-bin/tcl_archive.tcl?mode=download&id=1286
| Code: |
package require http
#international horoscope script 0.8 (now public) (1h 21m 20s)
#horoscope script by #@homer in irc.quakenet.org (homer^im^bett)
#easy to use just load and type !horoscope <zodiac> (without the <>)
#contact: fkhg1@web.de
#Aries (Mar. 21 - Apr. 19)
#Taurus (Apr. 20 - May 20)
#Gemini (May 21 - Jun. 21)
#Cancer (Jun. 22 - July 22)
#Leo (July 23 - Aug. 22)
#Virgo (Aug. 23 - Sep. 22)
#Libra (Sep. 23 - Oct. 23)
#Scorpio (Oct. 24 - Nov. 21)
#Sagittarius (Nov. 22 - Dec. 21)
#Capricorn (Dec. 22 - Jan. 19 )
#Aquarius (Jan. 20 - Feb. 18)
#Pisces (Feb. 19 - Mar. 20)
bind pub - !horoscope horoscope
proc horoscope { nick host hand chan text } {
set d [http::geturl http://www.astrologers-online.com/[string tolower [lindex $text 0]].php]
set r [split [http::data $d] \n]
http::cleanup $d
set c 0
set bool 0
foreach x $r {
if {($bool) && ($c < 5)} {
if {$c == 0} { set line [lindex [split $x {<|>}] 2] }
if {$c == 2} { set line [lappend line "Love: [string repeat @ [lindex [split $x {.|_}] 1]]"] }
if {$c == 3} { set line [lappend line "Work: [string repeat @ [lindex [split $x {.|_}] 1]]"] }
if {$c == 4} { set line [lappend line "Communication: [string repeat @ [lindex [split $x {.|_}] 1]]"] }
incr c
}
if {$x == "</form>"} {
set bool 1
}
}
putserv "PRIVMSG $chan :[join $line]"
}
|
|
|
| Back to top |
|
 |
Fire-Fox
Master
Joined: 23 Sep 2006
Posts: 270
Location: /dev/null
|
|
| Back to top |
|
|
heartbroken
Op
Joined: 23 Jun 2011
Posts: 106
Location: somewhere out there
|
| Posted: Tue Aug 05, 2014 7:44 am Post subject: |
|
|
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...
_________________
Life iS Just a dReaM oN tHE wAy to DeaTh |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
