@verb #12:"tell_www_body" this none this rxdo #789
@program #12:"tell_www_body" this none this
pass(@args)
if (!this.ignore_www && !(#-1 in this.gaglist) && !(player.user in this.gaglist))
  this:tell(player.user == $no_one ? "Somebody from " + $su:connection_hostname(connection_name(player)) | player.user:nn(), " looks at you from the web.")
endif
player:tell("<P>")
if (!$object_utils:connected(this, 0))
  if ($wiz_utils:isnewt(this))
    player:sub_tell(this.nologin[2], this, $string_utils:from_seconds(this.nologin[1] - time()))
  else
    $msg:mtell("sleeping")
  endif
elseif ((idle = idle_seconds(this)) < 60)
  $msg:mtell(#-1 in this.gaglist ? "deaf" | "awake")
else
  $msg:mtell("idle", $string_utils:from_seconds(idle))
endif
player:tell("<BR>")
things = {}
for x in (this:contents())
  things = {@things, $web:link(x)}
  $command_utils:suspend_if_needed()
endfor
if (length(things) > 1)
  things = $www:format_list(this.www_list_type, things)
endif
this:tell_contents(things)
if (is_player(this))
  player:tell("<P><FORM ACTION='/audit'><INPUT TYPE='hidden' NAME='isindex' VALUE='", toint(this), "'><INPUT TYPE='submit' VALUE='Audit ", $html_utils:literal_text(this.name), "'> List everything ", this.name, " owns.</FORM>")
  player:tell("<P><FORM ACTION='/mailer/send'><INPUT TYPE='hidden' NAME='to' VALUE='", $html_utils:literal_text(this:nn()), "'><INPUT TYPE='submit' VALUE='Mail ", $html_utils:literal_text(this.name), "'> Send mail to ", this.name, ".</FORM>")
endif
"Last modified by Dax (#789) on Tue May  3 14:09:29 2005 MDT."
.