bind PUB -|- ".charts" pub:mtv:charts
setudef flag charts
proc pub:mtv:charts { nickname hostname handle channel arguments } {
if { [info exists ::chartsdone($channel)] || ![channel get $channel charts] } {
return 0
}
package require http
set x [http::config -useragent "Mozilla"]
set x [http::geturl "
http://www.mtv.de/hitlistgermany/index.php" -timeout 2000]
set y [http::data $x]
http::cleanup $x
unset x
set chartcurrent 0
set chartlist ""
foreach element [split $y \n] {
if { ![info exists preline] } {
if { [regexp {width=\"160\"} $element chartline] } {
set preline 1
regsub -all -- {\<(.*?)>} $element "" element
append chartlist "$element "
continue
}
}
if { [info exists preline] } {
if { [regexp {width=\"163\"} $element chartline] } {
unset preline
incr chartcurrent
regsub -all -- {\<(.*?)>} $element "" element
append chartlist "- $element|"
if { $chartcurrent == 5 } {
break
}
continue
}
}
}
bind pub - test proctest
proc proctest {nick uhost hand chan text} {
set x 0
set chartlist "foo | bar | biz | baz"
if { $chartlist != "" } {
foreach chart [split $chartlist "|"] {
if {$chart != ""} {
incr x
if {$x == 1} {
puthelp "PRIVMSG $chan :GERMAN TOP5: $x\. $chart"
} else {
puthelp "PRIVMSG $chan :$x\. $chart"
continue
}
}
}
}
}
set ::chartsdone($channel) 1
utimer 10 [list unset ::chartsdone($channel)]
}
)