@verb #78:"do_huh" this none this rxdo #789
@program #78:"do_huh" this none this
"Process a finger request.  Fully RFC 1288 compliant."
caller == this.daemon || raise(E_PERM)
this.daemon:fileappend("in.log", tostr(connection_name(player), " fingered us with ", $string_utils:from_list(args, " "), " on ", ctime()))
this:tell(this.daemon:description())
verbose = args && args[1] == "/W"
user = {@args, ""}[verbose + 1]
if (index(user, "@"))
  player:tell(this.daemon.noproxy)
elseif (user)
  victim = $string_utils:match_player(user)
  if (valid(victim))
    victim:finger_player(verbose)
  elseif (victim == $ambiguous_match)
    text = $string_utils:english_list($list_utils:map_arg(2, $string_utils, "pronoun_sub", "%n (%#)", $player_db:find_all(user)))
    this:tell("\"", user, "\" could refer to any one of ", text, ".")
  else
    this:tell("\"", user, "\" does not exist.")
  endif
else
  this.daemon:finger_system(verbose)
endif
player:boot()
"Last modified by Dax (#789) on Wed Sep 19 18:50:07 2001 MDT."
.