local Luan = require "luan:Luan.luan"
local error = Luan.error
local do_file = Luan.do_file or error()
local ipairs = Luan.ipairs or error()
local stringify = Luan.stringify or error()
local Io = require "luan:Io.luan"
local String = require "luan:String.luan"
local lower = String.lower or error()
local format = String.format or error()
local Binary = require "luan:Binary.luan"
local bytes = Binary.byte or error()
local Hosting = require "luan:host/Hosting.luan"

require "java"
local Base64 = require "java:java.util.Base64"
local MessageDigest = require "java:java.security.MessageDigest"


local Util = {}

function Util.read_password(domain)
	domain = lower(domain)
	return do_file(Hosting.sites_dir..domain.."/info.luan").password or error()
end

local function basic_authentication(dir,password)
	local sha1 = MessageDigest.getInstance("SHA1").digest(password.getBytes())
	local encoded = Base64.getEncoder().encodeToString(sha1)
	Io.schemes.file(dir.."/password.nginx").write_text( %>
admin:{SHA}<%=encoded%>
<%	)
end

local function digest_authentication(dir,password)
	local s = "admin:Restricted:"..password
	local md5 = MessageDigest.getInstance("MD5").digest(s.getBytes())
	md5 = {bytes(md5,1,#md5)}
	local encoded = ""
	for _, n in ipairs(md5) do
		encoded = encoded..format("%02x",n)
	end
	Io.schemes.file(dir.."/password.nginx").write_text( %>
admin:Restricted:<%=encoded%>
<%	)
end

function Util.write_password(domain,password)
	local dir = Hosting.sites_dir..lower(domain)
	Io.schemes.file(dir.."/info.luan").write_text( %>
return <%= stringify{password=password} %>
<%	)
	digest_authentication(dir,password)
end

return Util