@verb #3028:"www_new" this none this rxdo #55
@program #3028:"www_new" this none this
if (!player:isa($webber) || !(caller in {$www, this, this.owner}))
  raise(E_PERM)
endif
if (player.user != $no_one && time() - player.user.first_connect_time > 10368000)
  new = $www:parse_POST("que", "ans")
  a = {}
  ans = $html_utils:detag(new[2])
  for m in (ans)
    a = {@a, {m, {}}}
  endfor
  this.questions = {{$html_utils:detag(new[1]), a, {}, time() + 604803}, @this.questions}
  player:tell("New question added.<br>")
endif
prepstr = ""
this:tell_www_body()
"Last modified by MadHatter (#8371) on Mon Sep 30 13:44:40 2002 MDT."
.