@verb #82:"forbidden" this none this rxdo #55
@program #82:"forbidden" this none this
if (!player:isa($webber))
raise(E_PERM)
"elseif (player.user == $no_one)"
" raise(E_PERM, \"Player has not logged in. Use $www.error:unauthorized() instead\");"
endif
player:notify("HTTP/1.0 403 Forbidden")
player:notify($www:server_name())
player:notify("")
player.header_issued = 1
if (args)
player:tell(@args)
else
player:tell("ForbiddenForbidden
Your player is not authorised to access this URL.")
endif
"Hard boot the player, the regular player:boot will wait for a while."
boot_player(player)
"Last modified by Dax (#789) on Sat Oct 20 16:30:15 2001 MDT."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:05 2002 MDT)."
"Last modified by Dax (#789) on Mon Jan 12 15:34:05 2004 MST."
.