@verb #84:"prop_table" this none this rxdo #789
@program #84:"prop_table" this none this
caller == this || raise(E_PERM)
set_task_perms(player.user)
{object, host, props} = args
info = {}
url = tostr("<A HREF=\"/", $www:find_ref(object), ".")
for prop in (props)
  p_info = `property_info(object, prop) ! E_PERM => {"", ""}'
  if (p_info[1] == "")
    p_data = "<I>unreadable</I>"
    p_link = "." + prop
  else
    p_data = toliteral(object.(prop))
    p_data = length(p_data) > 255 ? $html_utils:literal_text(p_data[1..252]) + "<B>...</B>" | $html_utils:literal_text(p_data)
    p_info[1] = $su:nn(p_info[1])
    p_info[2] = (index(p_info[2], "r") ? "r" | "&nbsp;") + (index(p_info[2], "c") ? "c" | "&nbsp;") + (index(p_info[2], "w") ? "w" | "")
    p_link = tostr(url, $su:subst(prop, $www.desubst_single), "\">.", $html_utils:literal_text(prop), "</A>")
    is_clear_property(object, prop) || (p_link = "<B>" + p_link + "</B>")
  endif
  info = {@info, {p_link, @p_info, p_data}}
  $command_utils:suspend_if_needed()
endfor
return {{25, 20, 5, 25}, {"Name", "Owner", "Mods", "Data"}, @info}
"Last modified by Dax (#789) on Tue May  3 13:18:37 2005 MDT."
.