@verb #1518:"tell_www_setup" this none this rxdo #833
@program #1518:"tell_www_setup" this none this
"Prints a form allowing web-based setup of this room."
"This verb handles the outside name/description."
"Override to add more functionality.  Don't forget to pass."
caller == this || raise(E_PERM)
pass(@args)
hack = player.user:controls(this)
player:tell("<HR><H3>Movable Room setup.</H3>")
player:tell("<FORM ACTION=\"/", toint(this), "/setup\" METHOD=\"post\">")
outside_desc = this:_get_outside_description()
if (hack)
  player:tell("<B>Outside Name:</B> <INPUT TYPE=\"text\" NAME=\"outside_name\" SIZE=\"60\" VALUE=\"", $html_utils:literal_text(this.outside_name), "\"><BR>")
  player:tell("<B>Description:</B><BR>")
  text = `{tostr("<TEXTAREA NAME=\"outside_desc\" ROWS=\"", length({@outside_desc}) + 4, "\" COLS=\"75\" WRAP=\"virtual\">"), @$html_utils:literal_text(outside_desc), "</TEXTAREA><BR>"} ! E_TYPE => {"<TT>", @$html_utils:literal_text(toliteral(outside_desc)), "</TT><P>"}'
  text[1..2] = {text[1] + text[2]}
  length(text) > 1 && (text[$ - 1..$] = {text[$ - 1] + text[$]})
  player:tell(text)
  player:tell("<INPUT TYPE=\"submit\" VALUE=\"Change\"> <INPUT TYPE=\"reset\">")
else
  player:tell("<B>Outside Name:</B> <TT>", $html_utils:literal_text(this.name), "</TT><BR>")
  player:tell("<B>Outside Description:</B><BR><TT>", @`$html_utils:literal_text(outside_desc) ! E_TYPE => $html_utils:literal_text(toliteral(outside_desc))', "</TT>")
endif
player:tell("</FORM>")
"Last modified by Dax (#789) on Tue May  3 14:09:33 2005 MDT."
.