@verb #116:"tell_www_body" this none this rxdo #789
@program #116:"tell_www_body" this none this
"Copied from Generic Letter (#155):tell_www_body by Hacker (#60)Jul 21 12:04:02 2002"
caller == this && player:isa($webber) || raise(E_PERM)
if ($www:parse_GET("burn"))
  player:tell("<B>")
  $msg:mtell(this:do_burn() ? "burn_succeeded" | "burn_failed")
  player:tell("</B><P>Back to ", $www:link(this.location), ".")
else
  pass(@args)
  if (this:can_burn(player.user))
    player:tell("<P><FORM ACTION='/", toint(this), "'><INPUT TYPE='submit' NAME='burn' VALUE='Burn!'></FORM></P>")
  endif
endif
"Last modified by Dax (#789) on Tue May  3 14:09:31 2005 MDT."
.