@verb #210:"@convert" this at/to any rdo #789
@program #210:"@convert" this at/to any
"Converts from a $db to a $flatdb or vice versa.  Preserves data."
if (!$perm_utils:controls(player, this) || !this:is_writable_by(player))
  player:tell(E_PERM)
elseif (!(iobj in {$db, $dbflat}))
  player:tell("Cannot convert database to ", iobjstr)
else
  player:tell("Converting ", this:nn(), " to ", iobj:nn(), "...")
  data = this:listify()
  player:tell("Read ", length(data), " records...")
  this:clearall()
  player:tell("Purged all records...")
  chparent(this, iobj)
  player:tell("Chparent complete...")
  for pair in (data)
    this:insert(@pair)
    $command_utils:suspend_if_needed()
  endfor
  player:tell("Restored ", length(data), " records...")
  player:tell("Done.")
endif
"Last modified by Dax (#789) on Sat May 21 03:04:51 2005 MDT."
.