;;;;;; ---- aurea title
on *:text:!aurea*:#: {
  if ($sock(aurea)) .sockclose aurea
  set %chan $chan
  set %nick $nick
  sockopen aurea radio.aureaworld.org 8000
}
on *:SOCKOPEN:aurea: {
  sockwrite -nt $sockname GET / HTTP/1.1
  sockwrite -nt $sockname Host: radio.aureaworld.org
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:aurea: {
  if ($sockerr) {
    msg %chan Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
    halt
  }
  else {
    var %sockreader
    sockread %sockreader
    if (*td*class*stream* iswm %sockreader ) {
      noop $regex(%sockreader,/<td class="streamdata">(.*?)</td>/Si)
      set %aurea $regml(1)
      msg %chan Canción: %aurea
      unset %chan
      unset %nick
      sockclose aurea
    }
  }
}