2c1
@verb #8084:"do_out_of_band_command" this none this rxdo #8084
@program #8084:"do_out_of_band_command" this none this
if (`args[2] ! E_RANGE => 0' == "spage")
  "Secure page. The client is asking us to find the public key ID of args[3]."
  target = $su:match_player(`args[3] ! E_RANGE => ""')
  if (!valid(target))
    return player:tell("#$# 200 - User lookup failed.")
  elseif (!target:has_property("public_key_id"))
    return player:tell("#$# 201 - User doesn't support encrypted communications.")
  else
    return player:tell("#$# 100 ", target.public_key_id[1], " (", target.public_key_id[2], ")")
  endif
endif
"Last modified by Lao-Tzu (#8084) on Mon Jul 30 13:27:44 2001 MDT."
.

0