ArmannY
Founder
Data inscrierii: 04/Iun/2008
Mesaje: 17
|
 Trimis: 08/04/2009 10:12 Titlul subiectului: horoscop |
 |
|
| Cod: | package require http
setudef flag horoscop
bind pub -|- !horoscop check:zodie
proc check:zodie {nick host hand chan args} {
if {![channel get $chan horoscop]} {puthelp "NOTICE $nick :FAILED: Horoscop isn`t set. Try !chanset +horoscop"; return}
set zodie [string tolower [lindex $args 0]]
if {![regexp {^(berbec|taur|gemeni|rac|leu|fecioara|balanta|scorpion|sagetator|capricorn|varsator|pesti)$} $zodie]} {
puthelp "NOTICE $nick :Foloseste: !horoscop <semn zodiacal>"
return
}
set pagina "http://www.zodii.ro/zodiac/$zodie*zodie_$zodie-horoscop_zilnic.html"
set http [http::config -useragent mozilla]
set page [http::data [http::geturl $pagina -timeout 3000]]
http::cleanup $http
regexp -line {<div class="textArticol">(.*)</div>} $page -> textzodie
puthelp "PRIVMSG $nick :$textzodie"
}
putlog "Horoscop loaded sucessfully. Created by ArmannY" |
_________________
aM fost Invatat de mic sa am totu sau nimic !    |
|
