package ocsigenserver

You can search for identifiers within the package.

in-package search v0.2.0

ocsigenserver
ocsigenserver.baselib
- Dynlink_wrapper
- Ocsigen_cache
  - Dlist
  - Make
    
    A
    
    cache
- Ocsigen_config_static
- Ocsigen_lib
  - Clist
  - Filename
  - Int
  - Ip_address
  - List
  - Option
    
    Lwt
  - String
    
    Map
    
    Set
    
    Table
  - String_base
  - Tuple3
  - Url
  - Url_base
- Ocsigen_loader
- Ocsigen_stream
  - StringStream
ocsigenserver.baselib.base
- Ocsigen_lib_base
  - Clist
  - Int
  - List
  - Option
    
    Lwt
  - String_base
  - Tuple3
  - Url_base
ocsigenserver.cookies
- Ocsigen_cookie_map
  - Poly
ocsigenserver.ext.accesscontrol
- Accesscontrol
ocsigenserver.ext.authbasic
- Authbasic
ocsigenserver.ext.cors
- Cors
ocsigenserver.ext.deflatemod
- Deflatemod
ocsigenserver.ext.extendconfiguration
- Extendconfiguration
ocsigenserver.ext.outputfilter
- Outputfilter
ocsigenserver.ext.redirectmod
- Redirectmod
ocsigenserver.ext.revproxy
- Revproxy
ocsigenserver.ext.rewritemod
- Rewritemod
ocsigenserver.ext.staticmod
- Staticmod
ocsigenserver.ext.userconf
- Userconf
ocsigenserver.http
- Ocsigen_charset_mime
- Ocsigen_header
ocsigenserver.polytables
- Polytables

Legend:
Library
Module
Module type
Parameter
Class
Class type

Accesscontrol: Conditional access to some sites

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

have a look at the <<a_manual chapter="accesscontrol"|manual page>>.
If you are using Ocsigen Server as a library, use the interface described
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")
                  () ]
              [ ... ]) ]
    ]

type condition

val ip : string -> condition

val port : int -> condition

val ssl : condition

val header : name:string -> regexp:string -> condition

val method_ : Cohttp.Code.meth -> condition

val protocol : Cohttp.Code.version -> condition

val path : regexp:string -> condition

val and_ : condition list -> condition

val or_ : condition list -> condition

val not_ : condition -> condition

val if_ : 
  condition ->
  Ocsigen_server.instruction list ->
  Ocsigen_server.instruction list ->
  Ocsigen_server.instruction

val iffound : Ocsigen_server.instruction list -> Ocsigen_server.instruction

val ifnotfound : 
  ?code:string ->
  Ocsigen_server.instruction list ->
  Ocsigen_server.instruction

val notfound : Ocsigen_server.instruction

val nextsite : Ocsigen_server.instruction

val nexthost : Ocsigen_server.instruction

val stop : Ocsigen_server.instruction

val forbidden : Ocsigen_server.instruction

val allow_forward_for : 
  ?check_equal_ip:bool ->
  unit ->
  Ocsigen_server.instruction

val allow_forward_proto : unit -> Ocsigen_server.instruction

val section : Lwt_log_core.section

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