@verb #5455:"insert" this none this rxdo #9988
@program #5455:"insert" this none this
"$archive_db:insert(player, name)"
"  => 0"
"Insert an entry for 'player' denoting that they have a new name, 'name'."
{player, name} = args
if (!caller_perms():controls(this))
  return raise(E_PERM)
endif
filename = tostr(toint(player))
info = {tostr(name), ctime()}
infoline = toliteral(info)
if (!this:fileexists(filename))
  this:filewrite(filename, {infoline})
else
  lastline = this:fileread(filename)[$]
  lastinfo = $no_one:eval(lastline)[2]
  if (lastinfo[1] != info[1])
    this:fileappend(filename, {infoline})
  endif
endif
"Last modified by Dax (#789) on Tue May  3 14:11:58 2005 MDT."
.