@verb #756:"www_speak" this none this rxdo #789
@program #756:"www_speak" this none this
"Add the 'Tell Moderator' functionality"
caller == this || raise(E_PERM)
{id, text, style, ungaged} = args
if (style == strsub(this.tellmod, "%1", this.users[1][1]))
  sent = 0
  for user in (this.users[1][4])
    if (user:isa($webber))
      user:sub_tell($code_utils:verb_or_property(this, "msg_page_origin"), id, text)
      user:tell("-<BR>")
      sent = 1
    endif
  endfor
  fork (0)
    "Ugly hack: Wait until header tags for page have been printed."
    $msg:mtell(sent ? "page_echo" | "page_absent", this.users[1][1])
  endfork
else
  pass(@args)
endif
"Last modified by Dax (#789) on Thu May 13 07:42:07 1999 MDT."
.