summaryrefslogtreecommitdiffstats
path: root/password-model.lua
blob: accab05c66275880d25aaa1caf6e1fae5740ca2b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
-- password model methods
module (..., package.seeall)

require ("fs")
require ("format")

read_password = function()
	pw = {}
	pw.user = cfe({ label="User Name" })
	pw.password = cfe({ label="Password" })
	pw.password_confirm = cfe({ label="Password (confirm)" })
	return cfe({ type="group", value=pw, label="System Password" })
end

--setup so that it will compare password input
update_password = function (pw) 
	local success = true
	if pw.value.password.value == "" or pw.value.password.value ~= pw.value.password_confirm.value then
		pw.value.password.errtxt = "Invalid or non matching password"
		success = false
	end
	local filecontent = "\n"..(fs.read_file("/etc/shadow") or "")
	if pw.value.user.value == "" or not string.find(filecontent, "\n"..pw.value.user.value..":") then
		pw.value.user.errtxt = "Unknown user"
		success = false
	end

	if success then
		local f = io.popen("/usr/bin/cryptpw " .. format.escapespecialcharacters(pw.value.password.value))
		local newpass = f:read("*l")
		f:close()
		local new = string.gsub(filecontent, "(\n"..pw.value.user.value..":)[^:]*", "%1"..newpass)
		fs.write_file("/etc/shadow", string.sub(new, 2))
	else
		pw.errtxt = "Failed to set password"
	end

	return pw
end