Albie at 19:33, 27 November 2005

2005-11-27T19:33:21Z

New page

Do you have an aspiring web-radio? You can use this script to tell your listeners what song they're currently listening to and how many other users are enjoying your show.

; Using this on TEXT event we can react to users who
; write !status in your channel. Do not forget to replace #your-channel
; with your actual channel
on *:[[on_text|text]]:!status:#your-channel:{
; We store the channel's name in a variable so we know where to send
; the replies to.
[[set]] %radiochan $chan

; Open a connection to the radio's web-server.
; Replace 'your-radio.example.org' with your radio's host
; and 8000 with its actual port.
[[sockopen]] getsong your-radio.example.org 8000
}

; The webserver has accepted our connection attempt.
on *:[[on_sockopen|SOCKOPEN]]:getsong: {
; We will now send a simple HTTP request to collect statistics about the radio.
[[sockwrite]] -n [[$sockname]] GET /7 HTTP/1.0
sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8a2) Gecko
sockwrite -n $sockname
}

; This gets triggered when the webserver replies to our HTTP request.
on *:[[on_sockread|SOCKREAD]]:getsong: {
; Read a single line from the response and store it in %sctext
[[sockread]] %sctext

; While there's still remaining data in the response...
[[while]] ([[$sockbr]]) {
; ... read it ...
sockread -f %sctext
; and append it to %a
[[var]] %a = %a %sctext
}

; Check whether we've found the right line in the response
; The line should be like <html><body>information about the stream</body></html>
[[If-Then-Else|if]] (<body> [[isin]] %a) {
; Extract the information from %a
; .echo -q will tell mirc not to show the result of $regex
.[[echo]] -q [[$regex]](%a, /<body>(.*)</body>/)

; Use /msg to tell the users about the stream's status.
if (%radiochan) { [[msg]] %radiochan [[$regml]](1) }
}
}
[[Category:Script Archive]]

Shoutcast status script - Revision history

Albie at 19:33, 27 November 2005