on *:sockopen:token*: {
  var %data username=martfta&password=martinetsteve

  sockwrite -n $sockname POST /auth HTTP/1.1
  sockwrite -n $sockname Host: api.t411.ch
  sockwrite -n $sockname User-Agent: curl/7.45.0
  sockwrite -n $sockname Content-Type: application/x-www-form-urlencoded
  sockwrite -n $sockname Connection: keep-alive
  sockwrite -n $sockname Content-Length: $len(%data)
  sockwrite -n $sockname
  sockwrite $sockname %data
}
on 1:sockread:token*:{
  set %tclosed non
  var %rt 1
  if ($sockerr > 0) return
  :nextread
  inc %rt
  sockread %temp
  if ($sockbr == 0) return
  set %temp $remove(%temp,$chr(9))
  if token isin %temp {
    echo sockread %temp
  }
  if (%temp != $null) {
    goto nextread
  }
}