Commit 09ae493c authored by Stephane Glondu's avatar Stephane Glondu Committed by Stéphane Glondu

Bugfix: allow multiple authentications in a row

parent bedb9b5d
Pipeline #98355 passed with stages
in 24 minutes and 57 seconds
...@@ -38,8 +38,8 @@ let run_post_login_handler auth_system f = ...@@ -38,8 +38,8 @@ let run_post_login_handler auth_system f =
match%lwt Eliom_reference.get auth_env with match%lwt Eliom_reference.get auth_env with
| None -> Printf.ksprintf failwith "%s handler was invoked without environment" auth_system | None -> Printf.ksprintf failwith "%s handler was invoked without environment" auth_system
| Some (uuid, a, cont) -> | Some (uuid, a, cont) ->
let%lwt () = Eliom_reference.unset auth_env in
let authenticate name = let authenticate name =
let%lwt () = Eliom_reference.unset auth_env in
let user = { user_domain = a.auth_instance; user_name = name } in let user = { user_domain = a.auth_instance; user_name = name } in
match uuid with match uuid with
| None -> Eliom_reference.set Web_state.site_user (Some user) | None -> Eliom_reference.set Web_state.site_user (Some user)
......
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