ON *:sockopen:lenta.news.*:{
  if ($sockerr > 0) return
  sockwrite -nt $sockname GET $sock($sockname).mark HTTP/1.0
  sockwrite -nt $sockname HOST: $lenta.config(server)
  sockwrite -nt $sockname Accept: text/xml
  sockwrite -nt $sockname $crlf $+ $crlf
}

on *:sockread:lenta.news.*:{
  if ($sockerr > 0) { echo 4 -s socket $sockname error | .remove $+(lenta\, $gettok($sockname,3,$asc(.)),.txt)) | return }
  :nextread
  sockread %temp
  if ($sockbr == 0) return
  if (%temp == $null) %temp = -
  ;//тут обработка
  goto nextread
}