@verb #7407:"www_audit do_www_audit" this none this rxdo #7407
@program #7407:"www_audit do_www_audit" this none this
"...Code for putting your @audit on the web..."
if (!args)
  dobj = this
else
  dobj = args[1]
endif
itemlist = {}
for item in (dobj.owned_objects)
  itemlink = $web:link(item, $string_utils:nn(item))
  loclink = `$web:link(item.location, item.location:title()) ! ANY'
  itemlist = {@itemlist, tostr("<TD>", toliteral(`length(verbs(item)) ! ANY'), "<TD>", itemlink, "<TD>", item:object_bytes(), "<TD>", loclink, "<TR>")}
endfor
player:tell("The following is a list of ", $www:link(dobj, $su:nn(dobj, player.language)), "'s objects.  It is their 'audit'. If you wish to audit someone else, enter their name below:<P>")
player:tell("<FORM ACTION=\"7407\">")
player:tell("<INPUT NAME=\"audit\" TYPE=\"text\" VALUE=\"", dobj.name, "\" LENGTH=32><INPUT TYPE=\"submit\" VALUE=\"@audit\"><P>")
player:tell("</FORM>")
player:tell("<TABLE BORDER>")
player:tell("<TD>Verbs<TD>Object Name<TD>Size<TD>Location<TR>")
for x in (itemlist)
  player:tell(x)
endfor
player:tell("</TABLE>")
"Last modified by Dax (#789) on Mon May 10 08:45:50 1999 MDT."
.