1f6
@verb #8084:"record_page" this none this rxdo #8084
@program #8084:"record_page" this none this
caller == this || raise(E_PERM)
{user, args} = args
$mail_agent:send_message(player, {this}, {tostr("Recorded Page from ", $su:nn(player)), {player}}, $msg:substitute(user, @args))
if (!this:connected() || idle_seconds(this) > 2 * 3600)
  fork (0)
    this:text_msg({tostr("page(", player, "): "), args[2]})
  endfork
endif
"Last modified by Lao-Tzu (#8084) on Sun Sep 24 20:55:30 2000 MDT."
.

0