mirror of
https://github.com/YunoHost/SSOwat.git
synced 2024-09-03 20:06:27 +02:00
replace hige by lustache
This commit is contained in:
parent
23eb2fc3e4
commit
0d9f43967e
2 changed files with 0 additions and 974 deletions
917
helpers.lua.bak
917
helpers.lua.bak
|
@ -1,917 +0,0 @@
|
|||
--
|
||||
-- helpers.lua
|
||||
--
|
||||
-- This is a file called at every request by the `access.lua` file. It contains
|
||||
-- a set of useful functions related to HTTP and LDAP.
|
||||
--
|
||||
|
||||
module('helpers', package.seeall)
|
||||
|
||||
local cache = ngx.shared.cache
|
||||
local conf = config.get_config()
|
||||
|
||||
-- Read a FS stored file
|
||||
function read_file(file)
|
||||
local f = io.open(file, "rb")
|
||||
if not f then return false end
|
||||
local content = f:read("*all")
|
||||
f:close()
|
||||
return content
|
||||
end
|
||||
|
||||
|
||||
-- Lua has no sugar :D
|
||||
function is_in_table(t, v)
|
||||
for key, value in ipairs(t) do
|
||||
if value == v then return key end
|
||||
end
|
||||
end
|
||||
|
||||
|
||||
-- Get the index of a value in a table
|
||||
function index_of(t,val)
|
||||
for k,v in ipairs(t) do
|
||||
if v == val then return k end
|
||||
end
|
||||
end
|
||||
|
||||
|
||||
-- Test whether a string starts with another
|
||||
function string.starts(String, Start)
|
||||
return string.sub(String, 1, string.len(Start)) == Start
|
||||
end
|
||||
|
||||
|
||||
-- Test whether a string ends with another
|
||||
function string.ends(String, End)
|
||||
return End=='' or string.sub(String, -string.len(End)) == End
|
||||
end
|
||||
|
||||
|
||||
-- Find a string by its translate key in the right language
|
||||
function t(key)
|
||||
if conf.lang and i18n[conf.lang] and i18n[conf.lang][key] then
|
||||
return i18n[conf.lang][key]
|
||||
else
|
||||
return i18n[conf["default_language"]][key] or ""
|
||||
end
|
||||
end
|
||||
|
||||
|
||||
-- Store a message in the flash shared table in order to display it at the
|
||||
-- next response
|
||||
function flash(wat, message)
|
||||
if wat == "fail"
|
||||
or wat == "win"
|
||||
or wat == "info"
|
||||
then
|
||||
flashs[wat] = message
|
||||
end
|
||||
end
|
||||
|
||||
|
||||
-- Hash a string using hmac_sha512, return a hexa string
|
||||
function hmac_sha512(key, message)
|
||||
local cache_key = key..":"..message
|
||||
|
||||
if not cache:get(cache_key) then
|
||||
-- lua ecosystem is a disaster and it was not possible to find a good
|
||||
-- easily multiplatform integrable code for this
|
||||
--
|
||||
-- this is really dirty and probably leak the key and the message in the process list
|
||||
-- but if someone got there I guess we really have other problems so this is acceptable
|
||||
-- and also this is way better than the previous situation
|
||||
local pipe = io.popen("echo -n '" ..message:gsub("'", "'\\''").. "' | openssl sha512 -hmac '" ..key:gsub("'", "'\\''").. "'")
|
||||
|
||||
-- openssl returns something like this:
|
||||
-- root@yunohost:~# echo -n "qsd" | openssl sha512 -hmac "key"
|
||||
-- (stdin)= f1c2b1658fe64c5a3d16459f2f4eea213e4181905c190235b060ab2a4e7d6a41c15ea2c246828537a1e32ae524b7a7ed309e6d296089194c3e3e3efb98c1fbe3
|
||||
--
|
||||
-- so we need to remove the "(stdin)= " at the beginning
|
||||
local hash = pipe:read():sub(string.len("(stdin)= ") + 1)
|
||||
pipe:close()
|
||||
|
||||
cache:set(cache_key, hash, conf["session_timeout"])
|
||||
return hash
|
||||
else
|
||||
return cache:get(cache_key)
|
||||
end
|
||||
end
|
||||
|
||||
|
||||
-- Convert a table of arguments to an URI string
|
||||
function uri_args_string(args)
|
||||
if not args then
|
||||
args = ngx.req.get_uri_args()
|
||||
end
|
||||
String = "?"
|
||||
for k,v in pairs(args) do
|
||||
String = String..tostring(k).."="..tostring(v).."&"
|
||||
end
|
||||
return string.sub(String, 1, string.len(String) - 1)
|
||||
end
|
||||
|
||||
|
||||
-- Set the Cross-Domain-Authentication key for a specific user
|
||||
function set_cda_key()
|
||||
local cda_key = random_string()
|
||||
cache:set("CDA|"..cda_key, authUser, 10)
|
||||
return cda_key
|
||||
end
|
||||
|
||||
|
||||
-- Compute and set the authentication cookie
|
||||
--
|
||||
-- Sets 3 cookies containing:
|
||||
-- * The username
|
||||
-- * The expiration time
|
||||
-- * A hash of those information along with the client IP address and a unique
|
||||
-- session key
|
||||
--
|
||||
-- It enables the SSO to quickly retrieve the username and the session
|
||||
-- expiration time, and to prove their authenticity to avoid session hijacking.
|
||||
--
|
||||
function set_auth_cookie(user, domain)
|
||||
local maxAge = conf["session_max_timeout"]
|
||||
local expire = ngx.req.start_time() + maxAge
|
||||
local session_key = cache:get("session_"..user)
|
||||
if not session_key then
|
||||
session_key = random_string()
|
||||
cache:add("session_"..user, session_key, conf["session_max_timeout"])
|
||||
end
|
||||
local hash = hmac_sha512(srvkey,
|
||||
user..
|
||||
"|"..expire..
|
||||
"|"..session_key)
|
||||
local cookie_str = "; Domain=."..domain..
|
||||
"; Path=/"..
|
||||
"; Expires="..os.date("%a, %d %b %Y %X UTC;", expire)..
|
||||
"; Secure"
|
||||
|
||||
ngx.header["Set-Cookie"] = {
|
||||
"SSOwAuthUser="..user..cookie_str,
|
||||
"SSOwAuthHash="..hash..cookie_str,
|
||||
"SSOwAuthExpire="..expire..cookie_str
|
||||
}
|
||||
end
|
||||
|
||||
|
||||
-- Expires the 3 session cookies
|
||||
function delete_cookie()
|
||||
conf = config.get_config()
|
||||
|
||||
local expired_time = "Thu, 01 Jan 1970 00:00:00 UTC;"
|
||||
for _, domain in ipairs(conf["domains"]) do
|
||||
local cookie_str = "; Domain=."..domain..
|
||||
"; Path=/"..
|
||||
"; Expires="..expired_time..
|
||||
"; Secure"
|
||||
ngx.header["Set-Cookie"] = {
|
||||
"SSOwAuthUser="..cookie_str,
|
||||
"SSOwAuthHash="..cookie_str,
|
||||
"SSOwAuthExpire="..cookie_str
|
||||
}
|
||||
end
|
||||
end
|
||||
|
||||
|
||||
-- Expires the redirection cookie
|
||||
function delete_redirect_cookie()
|
||||
local expired_time = "Thu, 01 Jan 1970 00:00:00 UTC;"
|
||||
local cookie_str = "; Path="..conf["portal_path"]..
|
||||
"; Expires="..expired_time..
|
||||
"; Secure"
|
||||
ngx.header["Set-Cookie"] = "SSOwAuthRedirect=;" ..cookie_str
|
||||
end
|
||||
|
||||
|
||||
-- Validate authentification
|
||||
--
|
||||
-- Check if the session cookies are set, and rehash server + client information
|
||||
-- to match the session hash.
|
||||
--
|
||||
function is_logged_in()
|
||||
local expireTime = ngx.var.cookie_SSOwAuthExpire
|
||||
local user = ngx.var.cookie_SSOwAuthUser
|
||||
local authHash = ngx.var.cookie_SSOwAuthHash
|
||||
|
||||
if expireTime and expireTime ~= ""
|
||||
and authHash and authHash ~= ""
|
||||
and user and user ~= ""
|
||||
then
|
||||
-- Check expire time
|
||||
if (ngx.req.start_time() <= tonumber(expireTime)) then
|
||||
-- Check hash
|
||||
local session_key = cache:get("session_"..user)
|
||||
if session_key and session_key ~= "" then
|
||||
-- Check cache
|
||||
if cache:get(user.."-password") then
|
||||
authUser = user
|
||||
local hash = hmac_sha512(srvkey,
|
||||
authUser..
|
||||
"|"..expireTime..
|
||||
"|"..session_key)
|
||||
return hash == authHash
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
return false
|
||||
end
|
||||
|
||||
|
||||
-- Check whether a user is allowed to access a URL using the `users` directive
|
||||
-- of the configuration file
|
||||
function has_access(user, url)
|
||||
user = user or authUser
|
||||
url = url or ngx.var.host..ngx.var.uri
|
||||
|
||||
if not conf["users"][user] then
|
||||
conf = config.get_config()
|
||||
end
|
||||
|
||||
-- If there are no `users` directive, or if the user has no ACL set, he can
|
||||
-- access the URL by default
|
||||
if not conf["users"] or not conf["users"][user] then
|
||||
return true
|
||||
end
|
||||
|
||||
-- Loop through user's ACLs and return if the URL is authorized.
|
||||
for u, _ in pairs(conf["users"][user]) do
|
||||
|
||||
-- Replace the original domain by a local one if you are connected from
|
||||
-- a non-global domain name.
|
||||
if ngx.var.host == conf["local_portal_domain"] then
|
||||
u = string.gsub(u, conf["original_portal_domain"], conf["local_portal_domain"])
|
||||
end
|
||||
|
||||
if string.starts(url, string.sub(u, 1, -2)) then return true end
|
||||
end
|
||||
return false
|
||||
end
|
||||
|
||||
|
||||
-- Authenticate a user against the LDAP database using a username or an email
|
||||
-- address.
|
||||
-- Reminder: conf["ldap_identifier"] is "uid" by default
|
||||
function authenticate(user, password)
|
||||
conf = config.get_config()
|
||||
|
||||
-- Try to find the username from an email address by openning an anonymous
|
||||
-- LDAP connection and check if the email address exists
|
||||
if conf["allow_mail_authentication"] and string.find(user, "@") then
|
||||
ldap = lualdap.open_simple(conf["ldap_host"])
|
||||
for dn, attribs in ldap:search {
|
||||
base = conf["ldap_group"],
|
||||
scope = "onelevel",
|
||||
sizelimit = 1,
|
||||
filter = "(mail="..user..")",
|
||||
attrs = {conf["ldap_identifier"]}
|
||||
} do
|
||||
if attribs[conf["ldap_identifier"]] then
|
||||
ngx.log(ngx.NOTICE, "Use email: "..user)
|
||||
user = attribs[conf["ldap_identifier"]]
|
||||
else
|
||||
ngx.log(ngx.ERR, "Unknown email: "..user)
|
||||
return false
|
||||
end
|
||||
end
|
||||
ldap:close()
|
||||
end
|
||||
|
||||
-- Now that we have a username, we can try connecting to the LDAP base.
|
||||
connected = lualdap.open_simple (
|
||||
conf["ldap_host"],
|
||||
conf["ldap_identifier"].."=".. user ..","..conf["ldap_group"],
|
||||
password
|
||||
)
|
||||
|
||||
cache:flush_expired()
|
||||
|
||||
-- If we are connected, we can retrieve the password and put it in the
|
||||
-- cache shared table in order to eventually reuse it later when updating
|
||||
-- profile information or just passing credentials to an application.
|
||||
if connected then
|
||||
ensure_user_password_uses_strong_hash(connected, user, password)
|
||||
cache:add(user.."-password", password, conf["session_timeout"])
|
||||
ngx.log(ngx.NOTICE, "Connected as: "..user)
|
||||
return user
|
||||
|
||||
-- Else, the username/email or the password is wrong
|
||||
else
|
||||
ngx.log(ngx.ERR, "Connection failed for: "..user)
|
||||
return false
|
||||
end
|
||||
end
|
||||
|
||||
function delete_user_info_cache(user)
|
||||
cache:delete(user.."-"..conf["ldap_identifier"])
|
||||
local i = 2
|
||||
while cache:get(user.."-mail|"..i) do
|
||||
cache:delete(user.."-mail|"..i)
|
||||
i = i + 1
|
||||
end
|
||||
local i = 2
|
||||
while cache:get(user.."-maildrop|"..i) do
|
||||
cache:delete(user.."-maildrop|"..i)
|
||||
i = i + 1
|
||||
end
|
||||
end
|
||||
|
||||
-- Set the authentication headers in order to pass credentials to the
|
||||
-- application underneath.
|
||||
function set_headers(user)
|
||||
|
||||
-- We definitely don't want to pass credentials on a non-encrypted
|
||||
-- connection.
|
||||
if ngx.var.scheme ~= "https" then
|
||||
return redirect("https://"..ngx.var.host..ngx.var.uri..uri_args_string())
|
||||
end
|
||||
|
||||
local user = user or authUser
|
||||
|
||||
-- If the password is not in cache or if the cache has expired, ask for
|
||||
-- logging.
|
||||
if not cache:get(user.."-password") then
|
||||
flash("info", t("please_login"))
|
||||
local back_url = ngx.var.scheme .. "://" .. ngx.var.host .. ngx.var.uri .. uri_args_string()
|
||||
return redirect(conf.portal_url.."?r="..ngx.encode_base64(back_url))
|
||||
end
|
||||
|
||||
-- If the user information is not in cache, open an LDAP connection and
|
||||
-- fetch it.
|
||||
if not cache:get(user.."-"..conf["ldap_identifier"]) then
|
||||
ldap = lualdap.open_simple(
|
||||
conf["ldap_host"],
|
||||
conf["ldap_identifier"].."=".. user ..","..conf["ldap_group"],
|
||||
cache:get(user.."-password")
|
||||
)
|
||||
ngx.log(ngx.NOTICE, "Reloading LDAP values for: "..user)
|
||||
for dn, attribs in ldap:search {
|
||||
base = conf["ldap_identifier"].."=".. user ..","..conf["ldap_group"],
|
||||
scope = "base",
|
||||
sizelimit = 1,
|
||||
attrs = conf["ldap_attributes"]
|
||||
} do
|
||||
for k,v in pairs(attribs) do
|
||||
if type(v) == "table" then
|
||||
for k2,v2 in ipairs(v) do
|
||||
if k2 == 1 then cache:set(user.."-"..k, v2, conf["session_timeout"]) end
|
||||
cache:set(user.."-"..k.."|"..k2, v2, conf["session_max_timeout"])
|
||||
end
|
||||
else
|
||||
cache:set(user.."-"..k, v, conf["session_timeout"])
|
||||
end
|
||||
end
|
||||
end
|
||||
else
|
||||
-- Else, just revalidate session for another day by default
|
||||
password = cache:get(user.."-password")
|
||||
cache:set(user.."-password", password, conf["session_timeout"])
|
||||
end
|
||||
|
||||
-- Set `authorization` header to enable HTTP authentification
|
||||
ngx.req.set_header("Authorization", "Basic "..ngx.encode_base64(
|
||||
user..":"..cache:get(user.."-password")
|
||||
))
|
||||
|
||||
-- Set optionnal additional headers (typically to pass email address)
|
||||
for k, v in pairs(conf["additional_headers"]) do
|
||||
ngx.req.set_header(k, cache:get(user.."-"..v))
|
||||
end
|
||||
|
||||
end
|
||||
|
||||
|
||||
-- Summarize email, aliases and forwards in a table for a specific user
|
||||
function get_mails(user)
|
||||
local mails = { mail = "", mailalias = {}, maildrop = {} }
|
||||
|
||||
-- default mail
|
||||
mails["mail"] = cache:get(user.."-mail")
|
||||
|
||||
-- mail aliases
|
||||
if cache:get(user.."-mail|2") then
|
||||
local i = 2
|
||||
while cache:get(user.."-mail|"..i) do
|
||||
table.insert(mails["mailalias"], cache:get(user.."-mail|"..i))
|
||||
i = i + 1
|
||||
end
|
||||
end
|
||||
|
||||
-- mail forward
|
||||
if cache:get(user.."-maildrop|2") then
|
||||
local i = 2
|
||||
while cache:get(user.."-maildrop|"..i) do
|
||||
table.insert(mails["maildrop"], cache:get(user.."-maildrop|"..i))
|
||||
i = i + 1
|
||||
end
|
||||
end
|
||||
return mails
|
||||
end
|
||||
|
||||
|
||||
-- Yo dawg, this enables SSOwat to serve files in HTTP in an HTTP server
|
||||
-- Much reliable, very solid.
|
||||
--
|
||||
-- Takes an URI, and returns file content with the proper HTTP headers.
|
||||
-- It is used to render the SSOwat portal *only*.
|
||||
function serve(uri)
|
||||
rel_path = string.gsub(uri, conf["portal_path"], "/")
|
||||
|
||||
-- Load login.html as index
|
||||
if rel_path == "/" then
|
||||
if is_logged_in() then
|
||||
rel_path = "/info.html"
|
||||
else
|
||||
rel_path = "/login.html"
|
||||
end
|
||||
end
|
||||
|
||||
-- Access to directory root: forbidden
|
||||
if string.ends(rel_path, "/") then
|
||||
return ngx.exit(ngx.HTTP_FORBIDDEN)
|
||||
end
|
||||
|
||||
-- Try to get file content
|
||||
local content = read_file(script_path.."portal"..rel_path)
|
||||
if not content then
|
||||
return ngx.exit(ngx.HTTP_NOT_FOUND)
|
||||
end
|
||||
|
||||
-- Extract file extension
|
||||
_, file, ext = string.match(rel_path, "(.-)([^\\/]-%.?([^%.\\/]*))$")
|
||||
|
||||
-- Associate to MIME type
|
||||
mime_types = {
|
||||
html = "text/html",
|
||||
ms = "text/html",
|
||||
js = "text/javascript",
|
||||
map = "text/javascript",
|
||||
css = "text/css",
|
||||
gif = "image/gif",
|
||||
jpg = "image/jpeg",
|
||||
png = "image/png",
|
||||
svg = "image/svg+xml",
|
||||
ico = "image/vnd.microsoft.icon",
|
||||
woff = "application/x-font-woff",
|
||||
json = "application/json"
|
||||
}
|
||||
|
||||
-- Set Content-Type
|
||||
if mime_types[ext] then
|
||||
ngx.header["Content-Type"] = mime_types[ext]
|
||||
else
|
||||
ngx.header["Content-Type"] = "text/plain"
|
||||
end
|
||||
|
||||
-- Render as mustache
|
||||
if ext == "html" then
|
||||
local data = get_data_for(file)
|
||||
local rendered = hige.render(read_file(script_path.."portal/header.ms"), data)
|
||||
rendered = rendered..hige.render(content, data)
|
||||
content = rendered..hige.render(read_file(script_path.."portal/footer.ms"), data)
|
||||
elseif ext == "ms" then
|
||||
local data = get_data_for(file)
|
||||
content = hige.render(content, data)
|
||||
elseif ext == "json" then
|
||||
local data = get_data_for(file)
|
||||
content = json.encode(data)
|
||||
end
|
||||
|
||||
-- Reset flash messages
|
||||
flashs["fail"] = nil
|
||||
flashs["win"] = nil
|
||||
flashs["info"] = nil
|
||||
|
||||
-- Ain't nobody got time for cache
|
||||
ngx.header["Cache-Control"] = "no-cache"
|
||||
|
||||
-- Print file content
|
||||
ngx.say(content)
|
||||
|
||||
-- Return 200 :-)
|
||||
return ngx.exit(ngx.HTTP_OK)
|
||||
end
|
||||
|
||||
|
||||
-- Simple controller that computes a data table to populate a specific view.
|
||||
-- The resulting data table typically contains the user information, the page
|
||||
-- title, the flash notifications' content and the translated strings.
|
||||
function get_data_for(view)
|
||||
local user = authUser
|
||||
conf = config.get_config()
|
||||
|
||||
-- For the login page we only need the page title
|
||||
if view == "login.html" then
|
||||
data = {
|
||||
title = t("login"),
|
||||
connected = false
|
||||
}
|
||||
|
||||
-- For those views, we may need user information
|
||||
elseif view == "info.html"
|
||||
or view == "edit.html"
|
||||
or view == "password.html"
|
||||
or view == "ynhpanel.json" then
|
||||
|
||||
-- Invalidate cache before loading these views.
|
||||
-- Needed if the LDAP db is changed outside ssowat (from the cli for example).
|
||||
-- Not doing it for ynhpanel.json only for performance reasons,
|
||||
-- so the panel could show wrong first name, last name or main email address
|
||||
if view ~= "ynhpanel.json" then
|
||||
delete_user_info_cache(user)
|
||||
end
|
||||
|
||||
-- Be sure cache is loaded
|
||||
set_headers(user)
|
||||
|
||||
local mails = get_mails(user)
|
||||
data = {
|
||||
connected = true,
|
||||
portal_url = conf.portal_url,
|
||||
uid = user,
|
||||
cn = cache:get(user.."-cn"),
|
||||
sn = cache:get(user.."-sn"),
|
||||
givenName = cache:get(user.."-givenName"),
|
||||
mail = mails["mail"],
|
||||
mailalias = mails["mailalias"],
|
||||
maildrop = mails["maildrop"],
|
||||
app = {}
|
||||
}
|
||||
|
||||
local sorted_apps = {}
|
||||
|
||||
-- Add user's accessible URLs using the ACLs.
|
||||
-- It is typically used to build the app list.
|
||||
for url, name in pairs(conf["users"][user]) do
|
||||
|
||||
if ngx.var.host == conf["local_portal_domain"] then
|
||||
url = string.gsub(url, conf["original_portal_domain"], conf["local_portal_domain"])
|
||||
end
|
||||
table.insert(sorted_apps, name)
|
||||
table.sort(sorted_apps)
|
||||
table.insert(data["app"], index_of(sorted_apps, name), { url = url, name = name })
|
||||
end
|
||||
end
|
||||
|
||||
-- Pass all the translated strings to the view (to use with t_<key>)
|
||||
for k, v in pairs(i18n[conf["default_language"]]) do
|
||||
data["t_"..k] = (i18n[conf.lang] and i18n[conf.lang][k]) or v
|
||||
end
|
||||
|
||||
-- Pass flash notification content
|
||||
data['flash_fail'] = {flashs["fail"]}
|
||||
data['flash_win'] = {flashs["win"] }
|
||||
data['flash_info'] = {flashs["info"]}
|
||||
|
||||
return data
|
||||
end
|
||||
|
||||
-- this function is launched after a successful login
|
||||
-- it checked if the user password is stored using the most secure hashing
|
||||
-- algorithm available
|
||||
-- if it's not the case, it migrates the password to this new hash algorithm
|
||||
function ensure_user_password_uses_strong_hash(ldap, user, password)
|
||||
local current_hashed_password = nil
|
||||
|
||||
for dn, attrs in ldap:search {
|
||||
base = "ou=users,dc=yunohost,dc=org",
|
||||
scope = "onelevel",
|
||||
sizelimit = 1,
|
||||
filter = "(uid="..user..")",
|
||||
attrs = {"userPassword"}
|
||||
} do
|
||||
current_hashed_password = attrs["userPassword"]:sub(0, 10)
|
||||
end
|
||||
|
||||
-- if the password is not hashed using sha-512, which is the strongest
|
||||
-- available hash rehash it using that
|
||||
-- Here "{CRYPT}" means "uses linux auth system"
|
||||
-- "6" means "uses sha-512", any lower number mean a less strong algo (1 == md5)
|
||||
if current_hashed_password:sub(0, 10) ~= "{CRYPT}$6$" then
|
||||
local dn = conf["ldap_identifier"].."="..user..","..conf["ldap_group"]
|
||||
local hashed_password = hash_password(password)
|
||||
ldap:modify(dn, {'=', userPassword = hashed_password })
|
||||
end
|
||||
end
|
||||
|
||||
-- Compute the user modification POST request
|
||||
-- It has to update cached information and edit the LDAP user entry
|
||||
-- according to the changes detected.
|
||||
function edit_user()
|
||||
conf = config.get_config()
|
||||
|
||||
-- We need these calls since we are in a POST request
|
||||
ngx.req.read_body()
|
||||
local args = ngx.req.get_post_args()
|
||||
|
||||
-- Ensure that user is logged in and has passed information
|
||||
-- before continuing.
|
||||
if is_logged_in() and args
|
||||
then
|
||||
|
||||
-- Set HTTP status to 201
|
||||
ngx.status = ngx.HTTP_CREATED
|
||||
local user = authUser
|
||||
|
||||
-- In case of a password modification
|
||||
-- TODO: split this into a new function
|
||||
if string.ends(ngx.var.uri, "password.html") then
|
||||
|
||||
-- Check current password against the cached one
|
||||
if args.currentpassword
|
||||
and args.currentpassword == cache:get(user.."-password")
|
||||
then
|
||||
-- and the new password against the confirmation field's content
|
||||
if args.newpassword == args.confirm then
|
||||
local dn = conf["ldap_identifier"].."="..user..","..conf["ldap_group"]
|
||||
|
||||
-- Open the LDAP connection
|
||||
local ldap = lualdap.open_simple(conf["ldap_host"], dn, args.currentpassword)
|
||||
|
||||
local password = hash_password(args.newpassword)
|
||||
|
||||
-- Modify the LDAP information
|
||||
if ldap:modify(dn, {'=', userPassword = password }) then
|
||||
flash("win", t("password_changed"))
|
||||
|
||||
-- Reset the password cache
|
||||
cache:set(user.."-password", args.newpassword, conf["session_timeout"])
|
||||
return redirect(conf.portal_url.."info.html")
|
||||
else
|
||||
flash("fail", t("password_changed_error"))
|
||||
end
|
||||
else
|
||||
flash("fail", t("password_not_match"))
|
||||
end
|
||||
else
|
||||
flash("fail", t("wrong_current_password"))
|
||||
end
|
||||
return redirect(conf.portal_url.."password.html")
|
||||
|
||||
|
||||
-- In case of profile modification
|
||||
-- TODO: split this into a new function
|
||||
elseif string.ends(ngx.var.uri, "edit.html") then
|
||||
|
||||
-- Check that needed arguments exist
|
||||
if args.givenName and args.sn and args.mail then
|
||||
|
||||
-- Unstack mailaliases
|
||||
local mailalias = {}
|
||||
if args["mailalias[]"] then
|
||||
if type(args["mailalias[]"]) == "string" then
|
||||
args["mailalias[]"] = {args["mailalias[]"]}
|
||||
end
|
||||
mailalias = args["mailalias[]"]
|
||||
end
|
||||
|
||||
-- Unstack mail forwards
|
||||
local maildrop = {}
|
||||
if args["maildrop[]"] then
|
||||
if type(args["maildrop[]"]) == "string" then
|
||||
args["maildrop[]"] = {args["maildrop[]"]}
|
||||
end
|
||||
maildrop = args["maildrop[]"]
|
||||
end
|
||||
|
||||
-- Limit domains per user:
|
||||
-- This ensures that a user already has an email address or an
|
||||
-- aliases that ends with a specific domain to claim new aliases
|
||||
-- on this domain.
|
||||
--
|
||||
-- I.E. You need to have xxx@domain.org to claim a
|
||||
-- yyy@domain.org alias.
|
||||
--
|
||||
local domains = {}
|
||||
local ldap = lualdap.open_simple(conf["ldap_host"])
|
||||
for dn, attribs in ldap:search {
|
||||
base = conf["ldap_group"],
|
||||
scope = "onelevel",
|
||||
sizelimit = 1,
|
||||
filter = "(uid="..user..")",
|
||||
attrs = {"mail"}
|
||||
} do
|
||||
-- Construct proper emails array
|
||||
local mail_list = {}
|
||||
local mail_attr = attribs["mail"]
|
||||
if type(mail_attr) == "string" then
|
||||
mail_list = { mail_attr }
|
||||
elseif type(mail_attr) == "table" then
|
||||
mail_list = mail_attr
|
||||
end
|
||||
|
||||
-- Filter configuration's domain list to keep only
|
||||
-- "allowed" domains
|
||||
for _, domain in ipairs(conf["domains"]) do
|
||||
for k, mail in ipairs(mail_list) do
|
||||
if string.ends(mail, "@"..domain) then
|
||||
if not is_in_table(domains, domain) then
|
||||
table.insert(domains, domain)
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
ldap:close()
|
||||
|
||||
local rex = require "rex_pcre"
|
||||
local rex_flags = rex.flags()
|
||||
local mail_re = rex.new([[^[\w\.\-+%]+@([^\W_A-Z]+([\-]*[^\W_A-Z]+)*\.)+([^\W\d_]{2,})$]], rex_flags.UTF8 + rex_flags.UCP)
|
||||
|
||||
local mails = {}
|
||||
|
||||
-- Build an LDAP filter so that we can ensure that email
|
||||
-- addresses are used only once.
|
||||
local filter = "(|"
|
||||
table.insert(mailalias, 1, args.mail)
|
||||
|
||||
-- Loop through all the aliases
|
||||
for k, mail in ipairs(mailalias) do
|
||||
if mail ~= "" then
|
||||
-- Check the mail pattern
|
||||
if not mail_re:match(mail) then
|
||||
flash("fail", t("invalid_mail")..": "..mail)
|
||||
return redirect(conf.portal_url.."edit.html")
|
||||
|
||||
-- Check that the domain is known and allowed
|
||||
else
|
||||
local domain_valid = false
|
||||
for _, domain in ipairs(domains) do
|
||||
if string.ends(mail, "@"..domain) then
|
||||
domain_valid = true
|
||||
break
|
||||
end
|
||||
end
|
||||
if domain_valid then
|
||||
table.insert(mails, mail)
|
||||
filter = filter.."(mail="..mail..")"
|
||||
else
|
||||
flash("fail", t("invalid_domain").." "..mail)
|
||||
return redirect(conf.portal_url.."edit.html")
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
-- filter should look like "(|(mail=my@mail.tld)(mail=my@mail2.tld))"
|
||||
filter = filter..")"
|
||||
|
||||
|
||||
-- For email forwards, we only need to check that they look
|
||||
-- like actual emails
|
||||
local drops = {}
|
||||
for k, mail in ipairs(maildrop) do
|
||||
if mail ~= "" then
|
||||
if not mail_re:match(mail) then
|
||||
flash("fail", t("invalid_mailforward")..": "..mail)
|
||||
return redirect(conf.portal_url.."edit.html")
|
||||
end
|
||||
table.insert(drops, mail)
|
||||
end
|
||||
end
|
||||
table.insert(drops, 1, user)
|
||||
|
||||
|
||||
-- We now have a list of validated emails and forwards.
|
||||
-- We need to check if there is a user with a claimed email
|
||||
-- already before writing modifications to the LDAP.
|
||||
local dn = conf["ldap_identifier"].."="..user..","..conf["ldap_group"]
|
||||
local ldap = lualdap.open_simple(conf["ldap_host"], dn, cache:get(user.."-password"))
|
||||
local cn = args.givenName.." "..args.sn
|
||||
|
||||
for dn, attribs in ldap:search {
|
||||
base = conf["ldap_group"],
|
||||
scope = "onelevel",
|
||||
filter = filter,
|
||||
attrs = {conf["ldap_identifier"], "mail"}
|
||||
} do
|
||||
-- Another user with one of these emails has been found.
|
||||
if attribs[conf["ldap_identifier"]] and attribs[conf["ldap_identifier"]] ~= user then
|
||||
-- Construct proper emails array
|
||||
local mail_list = {}
|
||||
local mail_attr = attribs["mail"]
|
||||
if type(mail_attr) == "string" then
|
||||
mail_list = { mail_attr }
|
||||
elseif type(mail_attr) == "table" then
|
||||
mail_list = mail_attr
|
||||
end
|
||||
|
||||
for _, mail in ipairs(mail_list) do
|
||||
if is_in_table(mails, mail) then
|
||||
flash("fail", t("mail_already_used").." "..mail)
|
||||
end
|
||||
end
|
||||
return redirect(conf.portal_url.."edit.html")
|
||||
end
|
||||
end
|
||||
|
||||
-- No problem so far, we can write modifications to the LDAP
|
||||
if ldap:modify(dn, {'=', cn = cn,
|
||||
givenName = args.givenName,
|
||||
sn = args.sn,
|
||||
mail = mails,
|
||||
maildrop = drops })
|
||||
then
|
||||
delete_user_info_cache(user)
|
||||
-- Ugly trick to force cache reloading
|
||||
set_headers(user)
|
||||
flash("win", t("information_updated"))
|
||||
return redirect(conf.portal_url.."info.html")
|
||||
|
||||
else
|
||||
flash("fail", t("user_saving_fail"))
|
||||
end
|
||||
else
|
||||
flash("fail", t("missing_required_fields"))
|
||||
end
|
||||
return redirect(conf.portal_url.."edit.html")
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
-- hash the user password using sha-512 and using {CRYPT} to uses linux auth system
|
||||
-- because ldap doesn't support anything stronger than sha1
|
||||
function hash_password(password)
|
||||
-- TODO is the password checked by regex? we don't want to
|
||||
-- allow shell injection
|
||||
local mkpasswd = io.popen("mkpasswd --method=sha-512 '" ..password:gsub("'", "'\\''").."'")
|
||||
local hashed_password = "{CRYPT}"..mkpasswd:read()
|
||||
mkpasswd:close()
|
||||
return hashed_password
|
||||
end
|
||||
|
||||
-- Compute the user login POST request
|
||||
-- It authenticates the user against the LDAP base then redirects to the portal
|
||||
function login()
|
||||
|
||||
-- We need these calls since we are in a POST request
|
||||
ngx.req.read_body()
|
||||
local args = ngx.req.get_post_args()
|
||||
local uri_args = ngx.req.get_uri_args()
|
||||
|
||||
args.user = string.lower(args.user)
|
||||
|
||||
local user = authenticate(args.user, args.password)
|
||||
if user then
|
||||
ngx.status = ngx.HTTP_CREATED
|
||||
set_auth_cookie(user, ngx.var.host)
|
||||
else
|
||||
ngx.status = ngx.HTTP_UNAUTHORIZED
|
||||
flash("fail", t("wrong_username_password"))
|
||||
end
|
||||
|
||||
-- Forward the `r` URI argument if it exists to redirect
|
||||
-- the user properly after a successful login.
|
||||
if uri_args.r then
|
||||
return redirect(conf.portal_url.."?r="..uri_args.r)
|
||||
else
|
||||
return redirect(conf.portal_url)
|
||||
end
|
||||
end
|
||||
|
||||
|
||||
-- Compute the user logout request
|
||||
-- It deletes session cached information to invalidate client side cookie
|
||||
-- information.
|
||||
function logout()
|
||||
|
||||
-- We need this call since we are in a POST request
|
||||
local args = ngx.req.get_uri_args()
|
||||
|
||||
-- Delete user cookie if logged in (that should always be the case)
|
||||
if is_logged_in() then
|
||||
delete_cookie()
|
||||
cache:delete("session_"..authUser)
|
||||
cache:delete(authUser.."-"..conf["ldap_identifier"]) -- Ugly trick to reload cache
|
||||
flash("info", t("logged_out"))
|
||||
end
|
||||
|
||||
-- Redirect to portal anyway
|
||||
return redirect(conf.portal_url)
|
||||
end
|
||||
|
||||
|
||||
-- Set cookie and redirect (needed to properly set cookie)
|
||||
function redirect(url)
|
||||
ngx.log(ngx.NOTICE, "Redirect to: "..url)
|
||||
return ngx.redirect(url)
|
||||
end
|
||||
|
||||
|
||||
-- Set cookie and go on with the response (needed to properly set cookie)
|
||||
function pass()
|
||||
delete_redirect_cookie()
|
||||
|
||||
-- When we are in the SSOwat portal, we need a default `content-type`
|
||||
if string.ends(ngx.var.uri, "/")
|
||||
or string.ends(ngx.var.uri, ".html")
|
||||
or string.ends(ngx.var.uri, ".htm")
|
||||
then
|
||||
ngx.header["Content-Type"] = "text/html"
|
||||
end
|
||||
|
||||
return
|
||||
end
|
57
init.lua.bak
57
init.lua.bak
|
@ -1,57 +0,0 @@
|
|||
--
|
||||
-- init.lua
|
||||
--
|
||||
-- This is the initialization file of SSOwat. It is called once at the Nginx
|
||||
-- server's start.
|
||||
-- Consequently, all the variables declared (along with libraries and
|
||||
-- translations) in this file will be *persistent* from one HTTP request to
|
||||
-- another.
|
||||
--
|
||||
|
||||
-- Remove prepending '@' & trailing 'init.lua'
|
||||
script_path = string.sub(debug.getinfo(1).source, 2, -9)
|
||||
|
||||
-- Include local libs in package.path
|
||||
package.path = package.path .. ";"..script_path.."?.lua"
|
||||
|
||||
-- Load libraries
|
||||
local json = require "json"
|
||||
local lualdap = require "lualdap"
|
||||
local math = require "math"
|
||||
local hige = require "hige"
|
||||
local lfs = require "lfs"
|
||||
local socket = require "socket"
|
||||
local config = require "config"
|
||||
|
||||
-- Persistent shared table
|
||||
flashs = {}
|
||||
i18n = {}
|
||||
|
||||
-- convert a string to a hex
|
||||
function tohex(str)
|
||||
return (str:gsub('.', function (c)
|
||||
return string.format('%02X', string.byte(c))
|
||||
end))
|
||||
end
|
||||
|
||||
-- Efficient function to get a random string
|
||||
function random_string()
|
||||
local random_bytes = io.open("/dev/urandom"):read(64);
|
||||
return tohex(random_bytes);
|
||||
end
|
||||
|
||||
-- Load translations in the "i18n" above table
|
||||
local locale_dir = script_path.."portal/locales/"
|
||||
for file in lfs.dir(locale_dir) do
|
||||
if string.sub(file, -4) == "json" then
|
||||
local lang = string.sub(file, 1, 2)
|
||||
local locale_file = io.open(locale_dir..file, "r")
|
||||
i18n[lang] = json.decode(locale_file:read("*all"))
|
||||
end
|
||||
end
|
||||
|
||||
-- Path of the configuration
|
||||
conf_path = "/etc/ssowat/conf.json"
|
||||
|
||||
-- You should see that in your Nginx error logs by default
|
||||
ngx.log(ngx.INFO, "SSOwat ready")
|
Loading…
Reference in a new issue