on *:SOCKOPEN:princess: {
  if ($sockerr) return
  sockwrite -n $sockname GET /public/radioprincesas HTTP/1.1
  sockwrite -n $sockname Host: iradio.ircservices.cloud +443
  sockwrite -n $sockname $crlf
}
on 1:sockread:princess: {
  if ( $sockerr > 0 ) return
  :nextread
  sockread %temp
  write $+($PUBLIC_FOLDER,web.txt) %temp
  msg #danny %temp
  if ( $sockbr == 0 ) return
  if ( %temp == $null ) %temp = -
  set %listeners $gettok($read($+($PUBLIC_FOLDER,web.txt),57),57-64,34)
  goto nextread
  if (%listeners) {
    msg # %listeners
  }
}

alias princess {
  window -d @princess
  sockopen -e princess iradio.ircservices.cloud +443
}