@verb #1:"filecopy" this none this rxd #789
@program #1:"filecopy" this none this
{oldname, dest, ?newname = oldname} = args
oldname = $file_utils:trans_to(oldname)
newname = $file_utils:trans_to($string_utils:lowercase(newname))
if (!this:fileexists(oldname))
  raise(E_INVIND, "File not found")
elseif (!$perm_utils:controls(caller_perms(), dest))
  raise(E_PERM)
elseif (this:fileaccess(oldname) == "" && !caller_perms():controls(this))
  raise(E_PERM)
else
  call_function("filerun", "filecopy", {}, {}, this:basedir()[2..$] + "/", oldname, dest:basedir()[2..$] + "/", newname)
endif
"Last modified by Slacker (#55) on Mon Jun 21 05:46:05 1999 MDT."
.