@verb #5505:"tell_www_page" this none this rxdo #7921
@program #5505:"tell_www_page" this none this
if (prepstr == "/who")
  lines = {}
  idles = itimes = {}
  for p in (connected_players())
    idles[1..0] = {p}
    itimes[1..0] = {p:idle_seconds()}
  endfor
  if (idles)
    idles = $list_utils:sort(idles, itimes)
    lines = {}
    for i in (idles)
      $cmd_utils:suspend_if_needed()
      where = i.location:nn()
      idle = $string_utils:from_seconds(i:idle_seconds())
      connected = $string_utils:from_seconds(connected_seconds(i))
      lines = {@lines, {i:nn(), connected, idle, where}}
    endfor
    player:tell($string_utils:left("Name", 18), " Connected ", $string_utils:left("Idle", 9), " ", $string_utils:left("Location", 30))
    for line in (lines)
      "Not using player:tellcolumns on purpose. - Catsy"
      player:tell($string_utils:left(line[1], 18), " ", $string_utils:left(line[2], 9), " ", $string_utils:left(line[3], 9), " ", $string_utils:left(line[4], 30))
    endfor
  endif
else
  return pass(@args)
endif
.