egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2008-04-24T19:38:22-04:00 https://forum.eggheads.org/app.php/feed/topic/15678 2008-04-24T19:38:22-04:00 2008-04-24T19:38:22-04:00 https://forum.eggheads.org/viewtopic.php?p=82527#p82527 <![CDATA[Quick question regaurding timers..]]>

Code: 

bind time - "?0 *" display:songbind time - "?5 *" display:songproc display:song args { global url streamch set streamch [string tolower $streamch] ::http::config -useragent "Mozilla/5.0; Shoutinfo" set http_req [::http::geturl $url -timeout 2000] if {[::http::status $http_req] != "ok"} {  puthelp "PRIVMSG $streamch :Stream is unavailable"; } set data [::http::data $http_req] ::http::cleanup $http_req if {[regexp {<font class=default>Current Song: </font></td><td><font class=default><b>([^<]+)</b>} $data x title]} {  puthelp "PRIVMSG $streamch :\002Current Song\002: $title" } else {  puthelp "PRIVMSG $streamch :Couldn't receive any information, checking server status..." } }

Statistics: Posted by Sir_Fz — Thu Apr 24, 2008 7:38 pm

]]> 2008-04-24T19:21:46-04:00 2008-04-24T19:21:46-04:00 https://forum.eggheads.org/viewtopic.php?p=82526#p82526 <![CDATA[Quick question regaurding timers..]]>
bind pub -|- !song get_shoutcast_song
bind pub -|- !np get_shoutcast_song
proc get_shoutcast_song {nick uhost hand chan arg} {
global url streamch
set streamch [string tolower $streamch]
::http::config -useragent "Mozilla/5.0; Shoutinfo"
if {[string tolower $chan] == "$streamch"} {
set http_req [::http::geturl $url -timeout 2000]
if {[::http::status $http_req] != "ok"} {
puthelp "PRIVMSG $chan :Stream is unavailable";
}
set data [::http::data $http_req]
::http::cleanup $http_req
if {[regexp {<font class=default>Current Song: </font></td><td><font class=default><b>([^<]+)</b>} $data x title]} {
puthelp "PRIVMSG $chan :\002Current Song\002: $title"
} else {
puthelp "PRIVMSG $chan :Couldn't receive any information, checking server status..."
get_shoutcast_server $nick $uhost $hand $chan $arg
}
}
}



Any help is appreciated :)

Statistics: Posted by rpope904 — Thu Apr 24, 2008 7:21 pm

]]>