272
@verb #12:"do_out_of_band_command" this none this rxdo #8084
@program #12:"do_out_of_band_command" this none this
caller == $login || raise(E_PERM)
{command, @arguments} = args
oob = "#$#"
if (length(command) != length(oob))
  arguments = {command[length(oob) + 1..$], @arguments}
endif
if (arguments[1] == "authentication-key")
  this.mcp_key = arguments[2][1] == "<" ? arguments[2][2..$ - 1] | arguments[2]
elseif (arguments[1] = "client-options" && arguments[2] == "mcp-edit")
  this.edit_options = setadd(this.edit_options, "mcp_edit")
endif
"Last modified by Dax (#789) on Sat May 12 11:35:03 2001 MDT."
.

0