Attention une mise à jour du service Gitlab va être effectuée le mardi 30 novembre entre 17h30 et 18h00. Cette mise à jour va générer une interruption du service dont nous ne maîtrisons pas complètement la durée mais qui ne devrait pas excéder quelques minutes. Cette mise à jour intermédiaire en version 14.0.12 nous permettra de rapidement pouvoir mettre à votre disposition une version plus récente.

Commit 047b9c44 authored by Stephane Glondu's avatar Stephane Glondu
Browse files

Rework login/logout log messages

parent fb11e0bb
......@@ -71,8 +71,8 @@ module Make (N : CONFIG) = struct
let user_user = {user_domain; user_name} in
let logged_user = {user_user; user_handlers} in
security_log (fun () ->
Printf.sprintf "%s successfully logged into %s"
(string_of_user user_user) N.name
Printf.sprintf "[%s] %s logged in"
N.name (string_of_user user_user)
) >>
Eliom_reference.set user (Some logged_user) >>
cont () ()
......@@ -125,7 +125,8 @@ module Make (N : CONFIG) = struct
match_lwt Eliom_reference.get user with
| Some u ->
security_log (fun () ->
string_of_user u.user_user ^ " logged out"
Printf.sprintf "[%s] %s logged out"
N.name (string_of_user u.user_user)
) >>
Eliom_reference.unset user >>
let module A = (val u.user_handlers) in
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment