local Luan = require "luan:Luan.luan"
local error = Luan.error
local ipairs = Luan.ipairs or error()
local Time = require "luan:Time.luan"
local time_now = Time.now or error()
local Table = require "luan:Table.luan"
local sort = Table.sort or error()
local Html = require "luan:Html.luan"
local html_encode = Html.encode or error()
local Io = require "luan:Io.luan"
local Http = require "luan:http/Http.luan"
local Shared = require "site:/lib/Shared.luan"
local head = Shared.head or error()
local header = Shared.private_header or error()
local User = require "site:/lib/User.luan"
local Online = require "site:/lib/Online.luan"
local get_online = Online.get_user or error()
local Logging = require "luan:logging/Logging.luan"
local logger = Logging.logger "tools/users.html"
local function sorter(u1,u2)
local o1 = u1.online
local o2 = u2.online
if o1 == nil then
return false
elseif o2 == nil then
return true
else
return o1 > o2
end
end
return function()
local users = User.search("type:user")
for _, user in ipairs(users) do
user.online = get_online(user)
end
sort(users,sorter)
local now = time_now()
Io.stdout = Http.response.text_writer()
%>
<% head() %>
<% header() %>
users
ID
name (open incognito)
last seen
email
password
<%
for _, user in ipairs(users) do
local online = user.online
local ago
if online == nil then
ago = ""
else
ago = `%><%`
end
%>