Commit 45f8a1c8 authored by Stephane Glondu's avatar Stephane Glondu
Browse files

Invoke CAS with renew=true

parent 66b2498a
...@@ -40,7 +40,7 @@ module Make (C : CONFIG) (N : NAME) (T : LOGIN_TEMPLATES) : AUTH_HANDLERS = stru ...@@ -40,7 +40,7 @@ module Make (C : CONFIG) (N : NAME) (T : LOGIN_TEMPLATES) : AUTH_HANDLERS = stru
let cas_login = Eliom_service.external_service let cas_login = Eliom_service.external_service
~prefix:C.server ~prefix:C.server
~path:["login"] ~path:["login"]
~get_params:Eliom_parameter.(string "service") ~get_params:Eliom_parameter.(string "service" ** opt (bool "renew"))
() ()
let cas_logout = Eliom_service.external_service let cas_logout = Eliom_service.external_service
...@@ -112,7 +112,7 @@ module Make (C : CONFIG) (N : NAME) (T : LOGIN_TEMPLATES) : AUTH_HANDLERS = stru ...@@ -112,7 +112,7 @@ module Make (C : CONFIG) (N : NAME) (T : LOGIN_TEMPLATES) : AUTH_HANDLERS = stru
"user is trying to log in, redirecting to CAS [%s]" "user is trying to log in, redirecting to CAS [%s]"
C.server C.server
) in ) in
Eliom_service.preapply cas_login self |> Eliom_service.preapply cas_login (self, Some true) |>
Eliom_registration.Redirection.send Eliom_registration.Redirection.send
| Some cont -> | Some cont ->
Eliom_reference.unset logout_cont >> Eliom_reference.unset logout_cont >>
......
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