Untitled

on *:sockread:http:{
  if ($sockerr) { echo -a :HTTP: Sockread error: $sock($sockname).wsmsg | return }
  var %data
  :loop
  sockread %data
  if (!$sockbr) { return }
  if (<body> isin %data || $sock($sockname).mark) {
    sockmark $sockname true
    $iif($me ison $active,msg $active,echo -a) $remove(%data,<body>,</body>)
  }
  elseif (</body> isin %data) {
    sockclose $sockname
    return
  }
  goto loop
}

on *:SOCKWRITE:http:{ if ($sockerr) { echo -a :HTTP: Sockwrite error: $sock($sockname).wsmsg | return } }
on *:SOCKCLOSE:http:{
  if ($sockerr) { echo -a :HTTP: Sockclose error: $sock($sockname).wsmsg | return }
  echo -a :HTTP: Sockclosed unexpectedly.
}