Commit c94fbdee authored by Stephane Glondu's avatar Stephane Glondu
Browse files

CAS: remove /cas/ from external service paths

This prefix is not in the CAS spec and seems specific to some
instances. People can add "/cas" to the server path in their config if
needed.
parent b0e97728
...@@ -187,19 +187,19 @@ module Register (C : AUTH_CONFIG) (S : ALL_SERVICES) (T : TEMPLATES) = struct ...@@ -187,19 +187,19 @@ module Register (C : AUTH_CONFIG) (S : ALL_SERVICES) (T : TEMPLATES) = struct
let () = if C.enable_cas then ( let () = if C.enable_cas then (
let cas_login = Eliom_service.external_service let cas_login = Eliom_service.external_service
~prefix:C.cas_server ~prefix:C.cas_server
~path:["cas"; "login"] ~path:["login"]
~get_params:Eliom_parameter.(string "service") ~get_params:Eliom_parameter.(string "service")
() ()
in in
let cas_logout = Eliom_service.external_service let cas_logout = Eliom_service.external_service
~prefix:C.cas_server ~prefix:C.cas_server
~path:["cas"; "logout"] ~path:["logout"]
~get_params:Eliom_parameter.(string "service") ~get_params:Eliom_parameter.(string "service")
() ()
in in
let cas_validate = Eliom_service.external_service let cas_validate = Eliom_service.external_service
~prefix:C.cas_server ~prefix:C.cas_server
~path:["cas"; "validate"] ~path:["validate"]
~get_params:Eliom_parameter.(string "service" ** string "ticket") ~get_params:Eliom_parameter.(string "service" ** string "ticket")
() ()
in 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