guest598594 commented on a Page, Radio Script - Oct 28, 2008

Well now the on sockread is screwed up, it's trying to msg $chan when $chan is $null.

If you're using the on text, try:

on *:TEXT:!stats*:#:{ /radio $chan }

alias radio {
  if ($sock(radio)) sockclose $v1
  sockopen radio s8.viastreaming.net 7380
  sockmark radio $iif($1,msg $1,echo -a)
}
on *:sockopen:radio: {
  sockwrite -nt $sockname GET / HTTP/1.1
  sockwrite -nt $sockname Host: s8.viastreaming.net
  sockwrite -nt $sockname $crlf
}
on *:sockread:radio:{
  var %t
  sockread %t
  while ($sockbr) {
    sockread -f %t
    if ($regex(%t,/<body>(.*?)<\/body>/)) {
      tokenize 44 $regml(1)
      $sock($sockname).mark %radiochan 14,9 Titan Sounds: 4,9 Listners: 12,8 $1 4| 4,9 Nummer: 12,8 $7-  4| 4,9 Kbps: 12,8    $6 $+ kbps
    }
  }
}

Respond