AccesscontrolSourceAccesscontrol: Conditional access to some sites
If you want to use this extension with Ocsigen Server's configuration file,
This module belongs to ocamlfind package ocsigenserver.ext.accesscontrol.
Example of use (with Redirectmod):
let _ =
Ocsigen.Server.start
[ Ocsigen.Server.host ~regexp:".*"
[ Accesscontrol.(
if_ (not_ ssl)
[ Redirectmod.run
~redirection:
(Redirectmod.create_redirection ~full_url:false
~regexp:"(.* )" "https://yourdomain.org/\\1")
() ]
[ ... ]) ]
]val if_ :
condition ->
Ocsigen.Server.instruction list ->
Ocsigen.Server.instruction list ->
Ocsigen.Server.instructionval ifnotfound :
?code:string ->
Ocsigen.Server.instruction list ->
Ocsigen.Server.instruction