@verb #1:"filemove" this none this rxd #789
@program #1:"filemove" this none this
{oldname, dest, ?newname = oldname} = args
if (!this:fileexists(oldname))
  raise(E_INVIND, "File not found")
  "elseif (dest:file_exists(newname))"
  "  raise(E_INVARG, \"File already exists with that name\");"
elseif (!$perm_utils:controls(caller_perms(), this) || !$perm_utils:controls(caller_perms(), dest))
  raise(E_PERM)
elseif (dest in this.files_unwritable_by_owner && !caller_perms().wizard)
  raise(E_PERM)
else
  file_rename($file_utils:filespec(this, oldname), $file_utils:filespec(dest, newname))
endif
"Last modified by Dax (#789) on Sun Jan 11 12:21:09 2004 MST."
.