View/Edit #2:www_setup

Switch to edit mode.

1:  caller == this && player:isa($webber) || raise(E_PERM)
2:  if (prepstr == "/setup/children")
3:    return $www.exam:tell_children(this)
4:  elseif (prepstr == "/setup/contents")
5:    return $www.exam:tell_contents(this)
6:  endif
7:  if (!dobjstr && !iobjstr)
8:    "Don't bother."
9:  elseif (player.referer && $www:previous_object() != this)
10:   "We have an unknown form refering a command to us..."
11:   $msg:mtell("www_error", "Warning!  Previous page doesn't appear to be this one!")
12:   player:tell("For security reasons the setup won't be changed.  Refering page: [", player.referer, "] <HR>")
13: elseif (!`this:www_setup_permission(player) ! ANY => player.user:controls(this)')
14:   $msg:mtell("www_error", "You do not have permission to change the setup of this object.")
15: else
16:   this:do_www_setup(@args)
17: endif
18: this:tell_www_setup(@args)
19: player:tell("<SCRIPT LANGUAGE='JavaScript1.2' SRC='", $www.fileURL, "/8/4/expand.js'></SCRIPT>")
20: player:tell("<HR><P><FORM ACTION=\"/", $www:find_ref(this), "/setup\" METHOD='post'><INPUT TYPE='submit' NAME='kick' VALUE='Kick!'> Update and repair this object.</FORM>")
21: player:tell("<P><FORM ACTION='http://validator.w3.org/check'><INPUT TYPE='hidden' NAME='uri' VALUE='", $www.url + tostr(toint(this)), "'><INPUT TYPE='submit' VALUE='Validate!'> Check this object's web page with the W3 HTML 4.0 validator.</FORM>")
22: player:tell("<P><FORM ACTION='/recycler'><INPUT TYPE='hidden' NAME='recycle' VALUE='", toint(this), "'><INPUT TYPE='submit' VALUE='Recycle!'> Destroy this object utterly and irretrievably.</FORM>")
23: "Last modified by Dax (#789) on Tue May  3 14:11:53 2005 MDT."

[home | help | who | search | setup | code]