@verb #300:"_set_description" this none this rxdo #789
@program #300:"_set_description" this none this
"When the description is changed, recompile the page."
$perm_utils:can_hack() || raise(E_PERM)
{code} = args
if (index(code ? code[$] | "", "<!-- Last modified by ", 1) == 1)
  code = listdelete(code, length(code))
endif
dude = player:isa($webber) ? player.user | player
code = {@code, tostr("<!-- Last modified by ", dude.name, " (", dude, ") on ", ctime(), ". -->")}
this:filewrite("description", code)
this:compile(code, "page")
"Last modified by Dax (#789) on Wed Jun  2 18:02:11 1999 MDT."
.