@verb #84:"verb_table" this none this rxdo #789
@program #84:"verb_table" this none this
caller == this || raise(E_PERM)
set_task_perms(player.user)
{object, host, verbs} = args
info = {}
url = tostr("<A HREF=\"/", $www:find_ref(host), index(player.user_agent, "Mozilla") && !index(player.user_agent, "MSIE") ? ":" | "%3A")
for verb in [1..length(verbs)]
  v_info = `verb_info(host, verb) ! E_PERM => {"", "", ""}'
  if (v_info[1] == "")
    v_args = "<I>unreadable</I>"
    v_link = ":" + verbs[verb]
  else
    v_args = verb_args(host, verb)
    v_info[1] = $su:nn(v_info[1])
    v_info[2] = (index(v_info[2], "r") ? "r" | "&nbsp;") + (index(v_info[2], "x") ? "x" | "&nbsp;") + (index(v_info[2], "d") ? "d" | "&nbsp;") + (index(v_info[2], "o") ? "o" | "&nbsp;") + (index(v_info[2], "w") ? "w" | "")
    v_link = tostr(url, $su:subst(v_info[3], $www.desubst_single), "\">:", $html_utils:literal_text(v_info[3]), "</A>")
    v_args = tostr(v_args[1], " ", v_args[2], " ", v_args[3])
  endif
  info = {@info, {v_link, v_info[1], v_info[2], v_args}}
  $command_utils:suspend_if_needed()
endfor
return {{25, 20, 5, 25}, {"Name", "Owner", "Mods", "Args"}, @info}
"Last modified by Dax (#789) on Tue May  3 13:18:37 2005 MDT."
.