CShadowRun

alias get_data { 
  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))  {
      var %out = %out $+ $chr(91) $+(%_data.name,:) $regsubex($regml(1),/<[^>]+>/g,) $chr(93) $+ $chr(124)
      unset %_data.name

    }

    sockread %temp
  }
  if (%out != $null) {
    msg $active $left(%out,-1)
  }
}