312
@verb #8045:"do_Command" this none this rxdo #8045
@program #8045:"do_Command" this none this
"Copied from Lao-Tzu (#8084):do_command Mar 10 17:55:26 1998"
caller == $login && caller_perms().wizard || raise(E_PERM)
try
  return !this.cmd_aliases ? 0 | ((stuff = listassoc((explode = $su:explode(argstr, " "))[1], this.cmd_aliases)) ? force_input(this, tostr(stuff[2], " ", $su:from_list(`explode[2..$] ! E_RANGE => {}', " "))) || 1 | 0)
except q (ANY)
  this:tell("There has been an error in your do_command. For your safety, your do_command has been disarmed.")
  if (this.programmer)
    this:tell({"This is the traceback:", @#166:custom_tb(q)})
  endif
  set_verb_info(this, verb, {this, "rdo"})
endtry
"Last modified by Dax (#789) on Tue May 12 00:25:12 1998 EDT."
.

0