@verb #1:"fileaccess file_access" this none this rxdo #55
@program #1:"fileaccess file_access" this none this
"There are two levels of security implemented in the file system."
"'r': Any MOO programmer can access it via <object>:fileread(<name>), and web users can access it directly."
"'': Only the owner of the object or a wizard has permission to read it, no direct web access."
fs = $file_utils:filespec(this, args[1])
raw_access = file_mode(fs)
if (toint(raw_access[3]) >= 4)
  "world readable, assume it's meant to be public (afterall, it already is..)"
  if (raw_access != "664")
    `call_function("filechmod", fs, "664") ! ANY'
  endif
  return "r"
else
  if (raw_access != "660")
    `call_function("filechmod", fs, "660") ! ANY'
  endif
  return ""
endif
"Last modified by Lao-Tzu (#8084) on Tue Aug 24 20:50:54 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 Tue May  3 14:11:53 2005 MDT."
.