@verb #755:"www_control" this none this rxdo #60
@program #755:"www_control" this none this
"Display the control section of the page."
caller == this || raise(E_PERM)
{id, pw, md, where, tx} = args[1]
actives = {}
for dude in ($list_utils:flatten(this:actives()))
  if (!(dude == id || dude in $su:explode(id, "|")))
    actives = setadd(actives, dude)
  endif
endfor
player:tell("You are ", id, ".")
player:tell($string_utils:english_list(actives, "You are the only person here at the moment.", " and ", ", ", ","))
length(actives) == 1 && player:tell("is active.")
length(actives) > 1 && player:tell("are active.")
if (valid(this.transcript))
  main_mode = md[1] == "C" ? "F" + md[2] | md
  transcript_url = tostr(toint(this.transcript), $www:integrate_cgi({{"ID", id}, {"PW", pw}, {"MD", main_mode}, {"SN", "0"}, {"TX", ""}}))
  $msg:mtell("transcript", transcript_url)
endif
player:tell("<FORM NAME=\"SpeakField\"", md == "CR" ? " TARGET=\"_top\"" | "", " ACTION=\"/", toint(this), "\">")
sn = random($maxint)
player:tell("<INPUT NAME=\"ID\" TYPE=\"hidden\" VALUE=\"", strsub(id, "\"", "&quot;"), "\"><INPUT NAME=\"PW\" TYPE=\"hidden\" VALUE=\"", pw, "\"><INPUT NAME=\"MD\" TYPE=\"hidden\" VALUE=\"", md == "CR" ? "FR" | md, "\"><INPUT NAME=\"SN\" TYPE=\"hidden\" VALUE=\"", sn, "\">")
player:tell("<INPUT NAME=\"TX\" TYPE=\"text\" VALUE=\"\" SIZE=\"80\" MAXLENGTH=\"200\"><P>")
url = tostr(toint(this)) + $www:integrate_cgi({{"ID", id}, {"PW", pw}})
try
  md == "cR" && (onclick = onclick[1..$ - 15] + "; open ('" + url + "&MD=BR&SN=0&TX=0', 'output', ''); return false;")
except (E_VARNF)
  "Who broke this???  -manta"
endtry
this.sayit && player:tell("<INPUT NAME=\"style\" TYPE=\"submit\" VALUE=\"", this.sayit, "\">")
this.doit && player:tell("<INPUT NAME=\"style\" TYPE=\"submit\" VALUE=\"", this.doit, "\">")
$msg:mtell("control_tail", $www:find_ref(this))
player:tell("</FORM>")
"Last modified by Dax (#789) on Tue May  3 14:11:55 2005 MDT."
.