View/Edit #142:ReadResponse

Name(s): ReadResponse

1:  if (caller != this)
2:    raise(E_PERM)
3:  endif
4:  {con} = args
5:  fork killtask (this.Timeout)
6:    this:debug("Timeout. Booting connection.")
7:    boot_player(con)
8:  endfork
9:  try
10:   response = decode_binary(read(con), 1)
11:   len = response[1] * 256 + response[1]
12:   response[1..2] = {}
13:   while (length(response) < len)
14:     response = {@response, @decode_binary(read(con), 1)}
15:   endwhile
16: except (E_INVARG)
17: endtry
18: return encode_binary(@response)
19: "Last modified by manta (#7165) on Mon Feb 28 01:38:17 2000 MST."
20: "This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:06 2002 MDT)."
21: "Last modified by Dax (#789) on Sat Aug 17 14:50:06 2002 MDT."

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Slacker (#55)

You are not logged in.