Tcl Radio

################################
### Radio.tcl
### Version 1.0
### edit By Arch_fajri
### arch_fajri@yahoo.co.id
### http://lampunghacker.blogspot.com
### Google@allnetwork
### Desember @ 2010
################################

set url "http://46.102.252.141:8000"

set playlist "http://kelakar.server.or.id:8000/listen.pls"

set djch "#lampung #google"

package require http

bind pub -|- .radio streamstats

proc streamstats {nick uhost hand chan arg} {

global url playlist

::http::config -useragent "Mozilla/5.0; Shoutinfo"

set http_req [::http::geturl $url -timeout 2000]

if {[::http::status $http_req] != "ok"} {

puthelp "PRIVMSG $chan :Hmm....";

}

set data [::http::data $http_req]

::http::cleanup $http_req

if {[regexp {B>([^<]+) of} $data x listener]} {

regexp {Current Song: ([^<]+)} $data x nowplaying

regexp {Stream Title: ([^<]+)} $data x streamtitle

regexp {Stream Genre: ([^<]+)} $data x genre

regexp { of ([^<]+) listeners} $data x maxlistener

regexp {listeners ([^<]+)} $data x unique

regexp {Stream is up at ([^<]+) kbps} $data x bitrate

puthelp "PRIVMSG $chan : 9,2 | 0 Now Playing : 8 $nowplaying 9 | 0 Genre : 8 $genre 9 | 0 $streamtitle 9| 0 ( 08$listener 0/ 08$maxlistener 0) listeners 08$unique 0at 08 $bitrate 0kbps 9 | 00 Website: 08 http://lampunghacker.blogspot.com 9 | 0 PlayList: 8 $playlist 9 | "

Download di sini