@verb #16:"@net-who @@who @whence" any any any rdo #55
@program #16:"@net-who @@who @whence" any any any
"Copied from Generic Wizard (#58):@@who by Astro_Smurf (#153) Aug  3 12:30:34 1996"
"@net-who prints all connected users and hosts."
"@net-who player player player prints specified users and current or most recent connected host."
"@net-who from hoststring prints all players who have connected from that host or host substring.  Substring can include *'s, e.g. @net-who from *.foo.edu."
if (this != player)
  return player:tell(E_PERM)
endif
su = $string_utils
if (prepstr == "from" && dobjstr)
  player:tell("Usage:  ", verb, " from <host string>")
elseif (prepstr != "from" || dobjstr || !iobjstr)
  "Not parsing 'from' here...  Instead printing connected/recent users."
  if (!(pstrs = args))
    unsorted = connected_players(1)
  else
    unsorted = listdelete($command_utils:player_match_result(su:match_local_player(pstrs), pstrs), 1)
  endif
  if (!unsorted)
    return
  endif
  $wiz_utils:show_netwho_listing(unsorted)
else
  $wiz_utils:show_netwho_from_listing(iobjstr)
endif
"Last modified by Dax (#789) on Sat Mar 16 14:57:36 2002 MST."
"This verb previously owned by whiz (#3135), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:02 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:50:02 2002 MDT."
.