Mercurial Hosting > luan
annotate src/luan/host/Util.luan @ 1210:3db95cc00d09
luanhost - add digest authentication
author | Franklin Schmidt <fschmidt@gmail.com> |
---|---|
date | Fri, 09 Mar 2018 15:21:12 -0700 |
parents | db7d31f4089a |
children | 8d95711f6615 |
rev | line source |
---|---|
1181
51d1342e25ad
luanhost password handling
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
1 local Luan = require "luan:Luan.luan" |
51d1342e25ad
luanhost password handling
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
2 local error = Luan.error |
51d1342e25ad
luanhost password handling
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
3 local do_file = Luan.do_file or error() |
1210
3db95cc00d09
luanhost - add digest authentication
Franklin Schmidt <fschmidt@gmail.com>
parents:
1190
diff
changeset
|
4 local ipairs = Luan.ipairs or error() |
1190 | 5 local stringify = Luan.stringify or error() |
1181
51d1342e25ad
luanhost password handling
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
6 local Io = require "luan:Io.luan" |
51d1342e25ad
luanhost password handling
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
7 local String = require "luan:String.luan" |
51d1342e25ad
luanhost password handling
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
8 local lower = String.lower or error() |
1210
3db95cc00d09
luanhost - add digest authentication
Franklin Schmidt <fschmidt@gmail.com>
parents:
1190
diff
changeset
|
9 local format = String.format or error() |
3db95cc00d09
luanhost - add digest authentication
Franklin Schmidt <fschmidt@gmail.com>
parents:
1190
diff
changeset
|
10 local Binary = require "luan:Binary.luan" |
3db95cc00d09
luanhost - add digest authentication
Franklin Schmidt <fschmidt@gmail.com>
parents:
1190
diff
changeset
|
11 local bytes = Binary.byte or error() |
1181
51d1342e25ad
luanhost password handling
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
12 local Hosting = require "luan:host/Hosting.luan" |
51d1342e25ad
luanhost password handling
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
13 |
51d1342e25ad
luanhost password handling
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
14 java() |
51d1342e25ad
luanhost password handling
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
15 local Base64 = require "java:java.util.Base64" |
51d1342e25ad
luanhost password handling
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
16 local MessageDigest = require "java:java.security.MessageDigest" |
51d1342e25ad
luanhost password handling
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
17 |
51d1342e25ad
luanhost password handling
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
18 |
51d1342e25ad
luanhost password handling
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
19 local Util = {} |
51d1342e25ad
luanhost password handling
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
20 |
51d1342e25ad
luanhost password handling
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
21 function Util.read_password(domain) |
51d1342e25ad
luanhost password handling
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
22 domain = lower(domain) |
51d1342e25ad
luanhost password handling
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
23 return do_file(Hosting.sites_dir..domain.."/info.luan").password or error() |
51d1342e25ad
luanhost password handling
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
24 end |
51d1342e25ad
luanhost password handling
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
25 |
1210
3db95cc00d09
luanhost - add digest authentication
Franklin Schmidt <fschmidt@gmail.com>
parents:
1190
diff
changeset
|
26 local function basic_authentication(dir,password) |
1181
51d1342e25ad
luanhost password handling
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
27 local sha1 = MessageDigest.getInstance("SHA1").digest(password.getBytes()) |
51d1342e25ad
luanhost password handling
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
28 local encoded = Base64.getEncoder().encodeToString(sha1) |
51d1342e25ad
luanhost password handling
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
29 Io.schemes.file(dir.."/password.nginx").write_text( %> |
51d1342e25ad
luanhost password handling
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
30 admin:{SHA}<%=encoded%> |
51d1342e25ad
luanhost password handling
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
31 <% ) |
51d1342e25ad
luanhost password handling
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
32 end |
51d1342e25ad
luanhost password handling
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
33 |
1210
3db95cc00d09
luanhost - add digest authentication
Franklin Schmidt <fschmidt@gmail.com>
parents:
1190
diff
changeset
|
34 local function digest_authentication(dir,password) |
3db95cc00d09
luanhost - add digest authentication
Franklin Schmidt <fschmidt@gmail.com>
parents:
1190
diff
changeset
|
35 local s = "admin:Restricted:"..password |
3db95cc00d09
luanhost - add digest authentication
Franklin Schmidt <fschmidt@gmail.com>
parents:
1190
diff
changeset
|
36 local md5 = MessageDigest.getInstance("MD5").digest(s.getBytes()) |
3db95cc00d09
luanhost - add digest authentication
Franklin Schmidt <fschmidt@gmail.com>
parents:
1190
diff
changeset
|
37 md5 = {bytes(md5,1,#md5)} |
3db95cc00d09
luanhost - add digest authentication
Franklin Schmidt <fschmidt@gmail.com>
parents:
1190
diff
changeset
|
38 local encoded = "" |
3db95cc00d09
luanhost - add digest authentication
Franklin Schmidt <fschmidt@gmail.com>
parents:
1190
diff
changeset
|
39 for _, n in ipairs(md5) do |
3db95cc00d09
luanhost - add digest authentication
Franklin Schmidt <fschmidt@gmail.com>
parents:
1190
diff
changeset
|
40 encoded = encoded..format("%02x",n) |
3db95cc00d09
luanhost - add digest authentication
Franklin Schmidt <fschmidt@gmail.com>
parents:
1190
diff
changeset
|
41 end |
3db95cc00d09
luanhost - add digest authentication
Franklin Schmidt <fschmidt@gmail.com>
parents:
1190
diff
changeset
|
42 Io.schemes.file(dir.."/password.nginx").write_text( %> |
3db95cc00d09
luanhost - add digest authentication
Franklin Schmidt <fschmidt@gmail.com>
parents:
1190
diff
changeset
|
43 admin:Restricted:<%=encoded%> |
3db95cc00d09
luanhost - add digest authentication
Franklin Schmidt <fschmidt@gmail.com>
parents:
1190
diff
changeset
|
44 <% ) |
3db95cc00d09
luanhost - add digest authentication
Franklin Schmidt <fschmidt@gmail.com>
parents:
1190
diff
changeset
|
45 end |
3db95cc00d09
luanhost - add digest authentication
Franklin Schmidt <fschmidt@gmail.com>
parents:
1190
diff
changeset
|
46 |
3db95cc00d09
luanhost - add digest authentication
Franklin Schmidt <fschmidt@gmail.com>
parents:
1190
diff
changeset
|
47 function Util.write_password(domain,password) |
3db95cc00d09
luanhost - add digest authentication
Franklin Schmidt <fschmidt@gmail.com>
parents:
1190
diff
changeset
|
48 local dir = Hosting.sites_dir..lower(domain) |
3db95cc00d09
luanhost - add digest authentication
Franklin Schmidt <fschmidt@gmail.com>
parents:
1190
diff
changeset
|
49 Io.schemes.file(dir.."/info.luan").write_text( %> |
3db95cc00d09
luanhost - add digest authentication
Franklin Schmidt <fschmidt@gmail.com>
parents:
1190
diff
changeset
|
50 return <%= stringify{password=password} %> |
3db95cc00d09
luanhost - add digest authentication
Franklin Schmidt <fschmidt@gmail.com>
parents:
1190
diff
changeset
|
51 <% ) |
3db95cc00d09
luanhost - add digest authentication
Franklin Schmidt <fschmidt@gmail.com>
parents:
1190
diff
changeset
|
52 digest_authentication(dir,password) |
3db95cc00d09
luanhost - add digest authentication
Franklin Schmidt <fschmidt@gmail.com>
parents:
1190
diff
changeset
|
53 end |
3db95cc00d09
luanhost - add digest authentication
Franklin Schmidt <fschmidt@gmail.com>
parents:
1190
diff
changeset
|
54 |
1181
51d1342e25ad
luanhost password handling
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff
changeset
|
55 return Util |