Module AccesscontrolSource

Accesscontrol: Conditional access to some sites

If you want to use this extension with Ocsigen Server's configuration file,

  1. have a look at the <<a_manual chapter="accesscontrol"|manual page>>.
  2. If you are using Ocsigen Server as a library, use the interface described
  3. here. Each of these functions behaves exactly as its configuration file counterpart.

This module belongs to ocamlfind package ocsigenserver.ext.accesscontrol.

Example of use (with <<a_manual chapter="redirectmod"|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")
                  () ]
              [ ... ]) ]
    ]
Sourcetype condition
Sourceval ip : string -> condition
Sourceval port : int -> condition
Sourceval ssl : condition
Sourceval header : name:string -> regexp:string -> condition
Sourceval method_ : Cohttp.Code.meth -> condition
Sourceval protocol : Cohttp.Code.version -> condition
Sourceval path : regexp:string -> condition
Sourceval and_ : condition list -> condition
Sourceval or_ : condition list -> condition
Sourceval not_ : condition -> condition
Sourceval if_ : condition -> Ocsigen_server.instruction list -> Ocsigen_server.instruction list -> Ocsigen_server.instruction
Sourceval ifnotfound : ?code:string -> Ocsigen_server.instruction list -> Ocsigen_server.instruction
Sourceval allow_forward_for : ?check_equal_ip:bool -> unit -> Ocsigen_server.instruction
Sourceval allow_forward_proto : unit -> Ocsigen_server.instruction
Sourceval section : Lwt_log_core.section

Use Lwt_log.Section.set_level in order to change the log level