File

+
−function module.command(args)
+
−  local action = table.remove(args, 1);
+
−  if not action then -- Default, list registered users
+
−    local data_path = CFG_DATADIR or "data";
+
−    if not pcall(require, "luarocks.loader") then
+
−      pcall(require, "luarocks.require");
+
−    end
+
−    local lfs = require "lfs";
+
−    function decode(s)
+
−      return s:gsub("%%([a-fA-F0-9][a-fA-F0-9])", function (c)
+
−        return string.char(tonumber("0x"..c));
+
−      end);
+
−    end
+
−    for host in lfs.dir(data_path) do
+
−      local accounts = data_path.."/"..host.."/accounts";
+
−      if lfs.attributes(accounts, "mode") == "directory" then
+
−        for user in lfs.dir(accounts) do
+
−          if user:sub(1,1) ~= "." then
+
−            print(decode(user:gsub("%.dat$", "")).."@"..decode(host));
+
−          end
+
−        end
+
−      end
+
−    end
+
−  elseif action == "--connected" then -- List connected users
+
−    local socket = require "socket";
+
−    local default_local_interfaces = { };
+
−    if socket.tcp6 and config.get("*", "use_ipv6") ~= false then
+
−      table.insert(default_local_interfaces, "::1");
+
−    end
+
−    if config.get("*", "use_ipv4") ~= false then
+
−      table.insert(default_local_interfaces, "127.0.0.1");
+
−    end
+
−
+
−    local console_interfaces = config.get("*", "console_interfaces")
+
−      or config.get("*", "local_interfaces")
+
−      or default_local_interfaces
+
−    console_interfaces = type(console_interfaces)~="table"
+
−      and {console_interfaces} or console_interfaces;
+
−
+
−    local console_ports = config.get("*", "console_ports") or 5582
+
−    console_ports = type(console_ports) ~= "table" and { console_ports } or console_ports;
+
−
+
−    local st, conn = pcall(assert,socket.connect(console_interfaces[1], console_ports[1]));
+
−    if (not st) then print("Error"..(conn and ": "..conn or "")); return 1; end
+
−
+
−    local banner = config.get("*", "console_banner");
+
−    if (
+
−      (not banner) or
+
−      (
+
−        (type(banner) == "string") and
+
−        (banner:match("^|    (.+)$"))
+
−      )
+
−    ) then
+
−      repeat
+
−        local rec_banner = conn:receive()
+
−      until
+
−        rec_banner == "" or
+
−        rec_banner == nil; -- skip banner
+
−    end
+
−
+
−    conn:send("c2s:show()\n");
+
−    conn:settimeout(1); -- Only hit in case of failure
+
−
+
−    repeat local line = conn:receive()
+
−      if not line then break; end
+
−      local jid = line:match("^|    (.+)$");
+
−      if jid then
+
−        jid = jid:gsub(" %- (%w+%(%d+%))$", "\t%1");
+
−        print(jid);
+
−      elseif line:match("^| OK:") then
+
−        return 0;
+
−      end
+
−    until false;
+
−  end
+
−  return 0;
+
−end