@verb #1:"filesetaccess file_set_access" this none this rxdo #55
@program #1:"filesetaccess file_set_access" this none this
"There are two levels of security implemented in the file system."
"'r': Any MOO programmer or WWW user can access it via <object>:fileread(<name>) or a url such as http://files.moo.ca/6/0/5/2/ca.gif"
"'': Only the owner of the object or a wizard has permission to read it."
{file, access} = args
if (!(access in {"r", ""}))
  raise(E_INVARG, "Invalid permissions flags.")
elseif (!caller_perms():controls(this))
  raise(E_PERM)
endif
fs = $file_utils:filespec(this, file)
permcode = access ? "644" | "600"
if (!this:file_exists(file))
  raise(E_INVARG, "File not found", file)
endif
file_chmod(fs, permcode)
"Last modified by Lao-Tzu (#8084) on Tue Aug 24 20:45:50 1999 MDT."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:50:04 2002 MDT."
.