Unnamed

alias get_data { 



  ;http://www.tfl.gov.uk/tfl/livetravelnews/realtime/tube/default.html
  if ($sock(_data)) return
  sockopen _data www.tfl.gov.uk 80
  sockmark _data $1


}

on *:sockopen:_data: { 
  if ($sockerr) { return }
  sockwrite -n $sockname GET /tfl/livetravelnews/realtime/tube/default.html HTTP/1.1
  sockwrite -n $sockname CONNECTION: Close
  sockwrite -n $sockname HOST: www.tfl.gov.uk
  sockwrite -n $sockname $crlf
}


on *:sockread:_data: { 
  if ($sockerr) { return }
  sockread %temp
  while ($sockbr) { 

    if ($regex(%temp,/<a class="([^"]+)" title=".*?\1\sline[^>]+>\1</a>/i)) { 

      set %_data.name $regml(1)
    }
    elseif (%_data.name && $regex(%temp,/<dd>(.*)?<\/dd>/gi))  {
      msg $sock($sockname).mark %_data.name $regsubex($regml(1),/<[^>]+>/g,)
      unset %_data.name

    }

    sockread %temp
  }

}