gudanglagu.tcl

######################################################################
# gudanglagu By JoJo - #LaLaLa Allnetwork
# hillzx@gmail.com
# Version 1.0
# 5 Juli 2010
######################################################################

package require http 2.0

bind pub - !gudanglagu pub:gudanglagu
set gdsite "http://gudanglagu.com"
set channel "#ciut"
set judul1 ""
set menitinfo 700

proc tampilkanlagubest { } {
global channel judul1 menitinfo

if { $judul1 != ""} {
putserv "PRIVMSG $channel :3Udah punya lagu terbaru 6$judul1 3belum? Ketik !gudanglagu untuk melihat daftar lagu ngetop terkini!"
} else {
putserv "PRIVMSG $channel :3Tau ga? Kamu bisa dapetin daftar lagu ngetop terkini lho.. Ketik !gudanglagu"
}

timer [expr $menitinfo] tampilkanlagubest
}

set init-server {
tampilkanlagubest
}


proc pub:gudanglagu {nick host hand chan arg} {
global gdsite judul1
putserv "PRIVMSG $nick :3Brb cari lagu ngetop di GudangLagu.."

set result [getsongs $gdsite]

set result1 [lindex $result 1]
set result1list [split $result1]
set judul1 [lindex $result1list 1]
set download1 "http:[lindex $result1list 0]"

set result2 [lindex $result 2]
set result2list [split $result2]
set judul2 [lindex $result2list 1]
set download2 "http:[lindex $result2list 0]"

set result3 [lindex $result 3]
set result3list [split $result3]
set judul3 [lindex $result3list 1]
set download3 "http:[lindex $result3list 0]"

puthelp "PRIVMSG $nick :9,1$judul1"
puthelp "PRIVMSG $nick :6Download di $download1"
puthelp "PRIVMSG $nick :9,1$judul2"
puthelp "PRIVMSG $nick :6Download di $download2"
puthelp "PRIVMSG $nick :9,1$judul3"
puthelp "PRIVMSG $nick :6Download di $download3"
}

proc getsongs {url} {
global channel

    set msg "Maaf fitur gudanglagu.com tidak bisa diakses utk saat ini."
    set http [http::config -useragent mozilla]
    set http [http::geturl $url -timeout [expr 1000 * 10]]
    set html [http::data $http]

    regexp {tllink(.*)</a></li>} $html msg

    regsub -all "</a></li><li>" $msg "" msg
    regsub -all "tllink" $msg "" msg
    regsub -all "href" $msg "" msg
    regsub -all "<a class=" $msg "" msg
    regsub -all " " $msg "" msg
    regsub -all "=" $msg "" msg
    regsub -all \x22 $msg "" msg
    regsub -all "http" $msg "" msg
    set test $msg
    set msg2 [split $test ":"]
 set msg3 [string map -nocase {">" " "} $msg2]
 set msg4 [string map -nocase {"&#8211;" "-"} $msg3]

   
    return "$msg4"

}

putlog "gudanglagu by JoJo"