Mercurial Hosting > hghosting

comparison src/private/tools/users.html.luan @ 0:dfc36e7ed22c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
init
author Vadim Filimonov <fffilimonov@yandex.ru>
date Thu, 12 May 2022 13:51:59 +0400
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:dfc36e7ed22c
1 local Luan = require "luan:Luan.luan"
2 local error = Luan.error
3 local pairs = Luan.pairs or error()
4 local ipairs = Luan.ipairs or error()
5 local stringify = Luan.stringify or error()
6 local Io = require "luan:Io.luan"
7 local Http = require "luan:http/Http.luan"
8 local Shared = require "site:/lib/Shared.luan"
9 local head = Shared.head or error()
10 local header = Shared.private_header or error()
11 local text_to_list = Shared.text_to_list or error()
12 local config = Shared.config or error()
13 local get_raw_config = Shared.get_raw_config or error()
14 local save_raw_config = Shared.save_raw_config or error()
15 local Logging = require "luan:logging/Logging.luan"
16 local logger = Logging.logger "private-users.html"
17
18
19 local function response(content)
20 %>
21 <!doctype html>
22 <html>
23 <head>
24 <% head() %>
25 <title>Mercurial Private Users</title>
26 </head>
27 <body>
28 <% header() %>
29 <div content>
30 <h1>Private Users</h1>
31 <%=content%>
32 </div>
33 </body>
34 </html>
35 <%
36 end
37
38 local function posted()
39 local users = Http.request.parameters.users or error()
40 users = text_to_list(users)
41 if #users == 0 then
42 return "Users cannot be empty"
43 end
44 for _, user in ipairs(users) do
45 if config.users[user] == nil then
46 return "user "..user.." is not a registered user"
47 end
48 end
49 local raw_config = get_raw_config()
50 raw_config.private = users
51 save_raw_config(raw_config)
52 return nil
53 end
54
55 return function()
56 Io.stdout = Http.response.text_writer()
57 local error_msg = ""
58 if Http.request.method == "POST" then
59 local error_msg = posted()
60 if error_msg == nil then
61 response([[<p>Private updated</p>]])
62 else
63 response([[<p error>]]..error_msg..[[</p>]])
64 end
65 return
66 end
67 %>
68 <!doctype html>
69 <html>
70 <head>
71 <% head() %>
72 <title>Mercurial Private Users</title>
73 </head>
74 <body>
75 <% header() %>
76 <div content>
77 <h1>Private Users</h1>
78 <form method=post>
79 <p>
80 <label prompt>Users (one per line)</label>
81 <textarea name=users>
82 <% for user in pairs(config.private or {}) do %>
83 <%=user%>
84 <% end %>
85 </textarea>
86 <label prompt>Users who can access /private/</label>
87 </p>
88 <p>
89 <input type=submit value="Update Private">
90 </p>
91 </form>
92 </div>
93 </body>
94 </html>
95 <%
96 end