@verb #5455:"remove" this none this rxdo #9988
@program #5455:"remove" this none this
"$archive_db:remove(player)"
"  => 0"
"Remove an entry for 'player'. Note that it does not actually remove them"
"from the database, just logs that that character ceased existing."
{player} = args
if (!caller_perms():controls(this))
  return raise(E_PERM)
endif
filename = tostr(toint(player))
if (!this:fileexists(filename))
  raise(E_INVARG)
else
  this:fileappend(filename, toliteral({E_NONE, ctime()}))
endif
"Last modified by Dax (#789) on Tue May  3 14:11:58 2005 MDT."
.