Switch to edit mode.
Name(s): tell_www_body1: if (this == $code_utils:verb_location())
2: "--- Don't read the generic newsgroup ---"
3: return pass(@args)
4: elseif (!player:isa($webber))
5: raise(E_PERM)
6: elseif (`prepstr[2..$] ! E_RANGE')
7: "--- Message page, show one message ---"
8: set_task_perms(player.user)
9: msgnum = prepstr[2..$]
10: if (match(msgnum, "^[0-9]+$"))
11: msgnum = toint(msgnum)
12: else
13: msgnum = this:get_msgnum_from_id("<" + msgnum + ">")
14: endif
15: msgtext = $mail_agent:www_read(this, msgnum)
16: if (typeof(msgtext) == $ERR)
17: $msg:mtell("www_error", tostr(msgtext))
18: else
19: player:tell(msgtext || "<I>Sorry, that message does not exist.</I>")
20: endif
21: else
22: "--- Main page, show newsgroup listings ---"
23: dobj = {@dobj, {"ng", tostr(toint(this))}}
24: $mail_agent:tell_www_body()
25: endif
26: "Last modified by Dax (#789) on Tue May 3 14:11:54 2005 MDT."