3ef
@verb #7788:"tell_www_page" this none this rxdo #8084
@program #7788:"tell_www_page" this none this
if (player:isa($webber) && player.user in {#7788, #8084, #8371})
  if (listassoc("clear", dobj))
    this.web_hear = {tostr("Output buffer cleared at ", ctime(), ".")}
  endif
  if (iobjstr != "")
    text = listassoc("do", iobj)[2]
    this:tell("<strong>&gt;</strong> <font color=\"red\">", text, "</font>")
    force_input(this, text)
  endif
  suspend(2)
  player:tell("<tt>")
  idx = 1
  while (idx < length(this.web_hear))
    end = min(idx + 100, length(this.web_hear))
    player:tell($su:from_list(this.web_hear[idx..end], "<br>"))
    idx = end
  endwhile
  player:tell("</TT>")
  player:tell("<form method='post'><input type='text' size='80' name='do'><input type='submit' value='Go!'></form>")
  player:tell(" <form method='get'><input type='submit' name='clear' value='Clear Output'></form>")
endif
"Last modified by Lao-Tzu (#8084) on Mon May 31 07:12:16 2004 MDT."
.

0