2d7
@verb #16:"@check-site" any none none rdo #55
@program #16:"@check-site" any none none
if (player != this)
  return $msg:mtell("huh")
endif
player:tell("Checking for people connecting from `", site = args[1], "'...")
found = {}
for p in ($player:descendants())
  for s in (p:all_connect_places())
    sp = s[1..2] == "*." ? s[3..$] | s
    if ($string_utils:match_string(sp, site))
      found = {@found, {p:nn(), s}}
    endif
    $command_utils:suspend_if_needed()
  endfor
  $command_utils:suspend_if_needed()
endfor
player:tell("Found ", length(found), " matching connections:")
player:tellcolumns("ll", {1, 1}, {"Who", "Site"}, @found)
"Last modified by Dax (#789) on Mon Dec 10 21:09:39 2001 MST."
.

0