Switch to edit mode.
Name(s): tell_www_body1: caller == this && player:isa($webber) || raise(E_PERM)
2: if ($www:parse_GET("open"))
3: dobj = this
4: player:tell("<B>")
5: if (this.opened)
6: $msg:mtell("already_open")
7: elseif (this:is_openable_by(player.user))
8: this:set_opened(1)
9: $msg:mtell("open")
10: else
11: $msg:mtell("open_fail")
12: endif
13: player:tell("</B>")
14: elseif ($www:parse_GET("close"))
15: dobj = this
16: player:tell("<B>")
17: if (!this.opened)
18: $msg:mtell("already_closed")
19: else
20: this:set_opened(0)
21: $msg:mtell("close")
22: endif
23: player:tell("</B>")
24: endif
25: pass(@args)
26: if (!this.dark)
27: player:tell("<P>")
28: this:tell_www_contents(this:contents())
29: endif
30: if (this:is_openable_by(player.user))
31: player:tell("<P><FORM ACTION='/", toint(this), "'><INPUT TYPE='submit' NAME='", this.opened ? "close" | "open", "' VALUE='", this.opened ? "Close" | "Open", "!'></FORM></P>")
32: endif
33: "Last modified by Dax (#789) on Tue May 3 14:09:29 2005 MDT."