@verb #24:"do_command" this none this rxdo #55
@program #24:"do_command" this none this
"Copied from Catspaw (#7921):do_command May 11 21:31:24 2001"
if (caller != $login && caller != this && !`caller_perms():controls(this) ! ANY')
  return 0
elseif (!this.output_more_buffer)
  this.output_more_linesleft = this.output_more_pagelength
endif
if (argstr == "rest")
  temp = this.output_more_pagelength
  this.output_more_pagelength = $maxint
  this:notify()
  this.output_more_pagelength = temp
  this.output_more_linesleft = this.output_more_pagelength
  return 1
elseif (argstr == "flush")
  this.output_more_linesleft = this.output_more_pagelength
  n = length(this.output_more_buffer)
  this.output_more_buffer = {}
  this:notify(tostr("--- ", n, " lines flushed ---"))
  return 1
endif
if (this.input_escape_XML)
  return $html_utils:literal_text2(argstr)
else
  return 0
endif
"Last modified by Dax (#789) on Thu May  5 15:30:31 2005 MDT."
.