@verb #322:":_read_packet" this none this rxdo #55
@program #322:":_read_packet" this none this
caller == this || raise(E_PERM)
d = $blob:read(this.con, 5)
len = ((d:index(1) * 256 + d:index(2)) * 256 + d:index(3)) * 256 + d:index(4)
p_len = d:index(5)
data_len = len - p_len - 1
data = $blob:read(this.con, data_len)
padding = $blob:read(this.con, p_len)
return data
"Last modified by manta (#7165) on Tue Mar 20 12:29:08 2001 MST."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:06 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:50:06 2002 MDT."
.