local Luan = require "luan:Luan.luan"
local error = Luan.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 config = Shared.config or error()
local user_repos = Shared.user_repos or error()
local get_raw_config = Shared.get_raw_config or error()
local save_raw_config = Shared.save_raw_config or error()
local function handle()
local user = Http.request.parameters.user or error()
user_repos[user] and error "has repos"
local raw_config = get_raw_config()
raw_config.users[user] = nil
save_raw_config(raw_config)
return [[User ]]..user..[[ has been deleted
]]
end
return function()
Io.stdout = Http.response.text_writer()
%>
<% head() %>
Delete Mercurial User
<% header() %>
Delete User
<%=handle()%>
<%
end