309
@verb #5655:"tell_www_body" this none this rxdo #6319
@program #5655:"tell_www_body" this none this
!player:isa($webber) && raise(E_PERM)
if (`what = dobj[1][1] ! ANY')
  if ((who = toobj($www:parse_get(what))) != player.user)
    raise(E_PERM, "Entry doesn't match your login!!!")
  endif
  this:(what)(who)
endif
pass(@args)
if (player.user != $no_one)
  if ($list_utils:iassoc(player.user, this.signed))
    player:tell("Changed your mind?  <a href=\"", toint(this), $www:integrate_cgi({{"unsign", tostr(player.user)}}), "\">Un-Sign the book</a>.")
  else
    player:tell("<a href=\"", toint(this), $www:integrate_cgi({{"sign", tostr(player.user)}}), "\">Sign the book</a>.")
  endif
endif
"Last modified by Dax (#789) on Tue May  3 14:09:35 2005 MDT."
.

0