@verb #84:"file_table" this none this rxdo #789
@program #84:"file_table" this none this
caller == this || raise(E_PERM)
set_task_perms(player.user)
{object, files} = args
info = {}
url = tostr("<A HREF=\"/", $www:find_ref(object), "!")
fileurl = "<A HREF=\"" + $www:fileurl(object, "")
for file in (files)
  f_access = object:fileaccess(file)
  f_size = `tostr(object:filesize(file)) ! E_PERM => ""'
  f_link = f_size ? tostr(url, $su:subst(file, $www.desubst_single), "\">", $html_utils:literal_text(file), "</A>") | file
  f_dl_url = f_access == "r" ? tostr(fileurl, $file_utils:trans_to(file), "\">Download") | "<S>Download</S>"
  f_access = f_access == "r" ? "public" | "private"
  info = {@info, {f_link, f_size, f_access, f_dl_url}}
  $command_utils:suspend_if_needed()
endfor
return {"lrll", {25, 5, 10, 10}, {"Name", "Size", "Access", "URL"}, @info}
"Last modified by Dax (#789) on Tue May  3 13:18:37 2005 MDT."
.