Pasteb


Alias getusr { sockopen ls stream.xtradio.org 8181 }
On *:SockOpen:ls:{
  SockWrite -n $sockname GET / HTTP/1.1
  SockWrite -n $sockname Host: stream.xtradio.org $+ $crlf $+ $crlf
}
On *:SockRead:ls:{
  var %x
  sockread -f %x
  if (*class="streamdata">*</td>* iswm $1-) {
    sockread -f %x
    echo -a $replace($1-,<,$+($chr(32),<),>,$+($chr(32),>))
    sockclose $sockname
  }
}