module Streamlist:sig
..end
(stream_creator_list, content_type)
. See also Eliom_registration.String
for
another kind of service that returns "byte" contents.
Streams are created by calling the functions in the list and
is called at the end of the stream. If something goes wrong while
processing a stream, the current stream is closed and the
following streams are not created.
val register : ?scope:[< Eliom_common.scope ] ->
?options:unit ->
?charset:string ->
?code:int ->
?content_type:string ->
?headers:Http_headers.t ->
?secure_session:bool ->
service:('get, 'post, [< Eliom_service.internal_service_kind ],
[< Eliom_service.suff ], 'gn, 'pn, [ `Registrable ],
Eliom_registration.http_service)
Eliom_service.service ->
?error_handler:((string * exn) list ->
((unit -> string Ocsigen_stream.t Lwt.t) list * string) Lwt.t) ->
('get ->
'post -> ((unit -> string Ocsigen_stream.t Lwt.t) list * string) Lwt.t) ->
unit
register service handler
will associate the
service
to the function handler
. The handler
function take
two parameters, the GET and POST parameters of the current HTTP
request, and should returns the corresponding page.
The optional parameter ~scope
is Eliom_common.global
by
default, see the Eliom manual for detailled description .
The optional parameter ~options
is specific to each output
module, see the type description for more information.
The optional parameters ?charset
, ?code
, ?content_type
and
?headers
can be used to modify the HTTP answer sent by
Eliom. Use this with care.
The optional parameter ~secure_session
has no effect for scope
Eliom_common.global
. With other scopes, the parameter is used
to force the session service table in which the handler
will be
registered. By default, the service is registred in the unsecure
session if the current request's protocol is http
, or in the
secure session if the protocol is https
. If set to false
(resp. true
) the handler
will be stored in the unsecure
(resp. secure) session. See the Eliom manual for an introduction
to .
The optional parameter ~error_handler
is used to specialize the
error page when actual parameters aren't compatible with the
expected type. The default error handler is
fun l -> raise (
Eliom_common.Eliom_Typing_Error
l)
.
val register_service : ?scope:[< Eliom_common.scope ] ->
?options:unit ->
?charset:string ->
?code:int ->
?content_type:string ->
?headers:Http_headers.t ->
?secure_session:bool ->
?https:bool ->
?priority:int ->
path:Eliom_lib.Url.path ->
get_params:('get, [< Eliom_service.suff ] as 'a, 'gn)
Eliom_parameter.params_type ->
?error_handler:((string * exn) list ->
((unit -> string Ocsigen_stream.t Lwt.t) list * string) Lwt.t) ->
('get ->
unit -> ((unit -> string Ocsigen_stream.t Lwt.t) list * string) Lwt.t) ->
('get, unit,
[> `Attached of
([> `Internal of [> `Service ] ], [> `Get ]) Eliom_service.a_s ],
'a, 'gn, unit, [< Eliom_service.registrable > `Registrable ],
Eliom_registration.http_service)
Eliom_service.service
val register_coservice : ?scope:[< Eliom_common.scope ] ->
?options:unit ->
?charset:string ->
?code:int ->
?content_type:string ->
?headers:Http_headers.t ->
?secure_session:bool ->
?name:string ->
?csrf_safe:bool ->
?csrf_scope:[< Eliom_common.user_scope ] ->
?csrf_secure:bool ->
?max_use:int ->
?timeout:float ->
?https:bool ->
fallback:(unit, unit,
[ `Attached of
([ `Internal of [ `Service ] ], [ `Get ]) Eliom_service.a_s ],
[ `WithoutSuffix ], unit, unit, [< Eliom_service.registrable ],
Eliom_registration.http_service)
Eliom_service.service ->
get_params:('get, [ `WithoutSuffix ], 'gn) Eliom_parameter.params_type ->
?error_handler:((string * exn) list ->
((unit -> string Ocsigen_stream.t Lwt.t) list * string) Lwt.t) ->
('get ->
unit -> ((unit -> string Ocsigen_stream.t Lwt.t) list * string) Lwt.t) ->
('get, unit,
[> `Attached of
([> `Internal of [> `Coservice ] ], [> `Get ]) Eliom_service.a_s ],
[ `WithoutSuffix ], 'gn, unit,
[< Eliom_service.registrable > `Registrable ],
Eliom_registration.http_service)
Eliom_service.service
val register_coservice' : ?scope:[< Eliom_common.scope ] ->
?options:unit ->
?charset:string ->
?code:int ->
?content_type:string ->
?headers:Http_headers.t ->
?secure_session:bool ->
?name:string ->
?csrf_safe:bool ->
?csrf_scope:[< Eliom_common.user_scope ] ->
?csrf_secure:bool ->
?max_use:int ->
?timeout:float ->
?https:bool ->
get_params:('get, [ `WithoutSuffix ], 'gn) Eliom_parameter.params_type ->
?error_handler:((string * exn) list ->
((unit -> string Ocsigen_stream.t Lwt.t) list * string) Lwt.t) ->
('get ->
unit -> ((unit -> string Ocsigen_stream.t Lwt.t) list * string) Lwt.t) ->
('get, unit, [> `Nonattached of [> `Get ] Eliom_service.na_s ],
[ `WithoutSuffix ], 'gn, unit,
[< Eliom_service.registrable > `Registrable ],
Eliom_registration.http_service)
Eliom_service.service
val register_post_service : ?scope:[< Eliom_common.scope ] ->
?options:unit ->
?charset:string ->
?code:int ->
?content_type:string ->
?headers:Http_headers.t ->
?secure_session:bool ->
?https:bool ->
?priority:int ->
fallback:('get, unit,
[ `Attached of
([ `Internal of [ `Coservice | `Service ] ], [ `Get ])
Eliom_service.a_s ],
[< Eliom_service.suff ] as 'a, 'gn, unit, [< `Registrable ],
'return2)
Eliom_service.service ->
post_params:('post, [ `WithoutSuffix ], 'pn) Eliom_parameter.params_type ->
?error_handler:((string * exn) list ->
((unit -> string Ocsigen_stream.t Lwt.t) list * string) Lwt.t) ->
('get ->
'post -> ((unit -> string Ocsigen_stream.t Lwt.t) list * string) Lwt.t) ->
('get, 'post,
[> `Attached of
([> `Internal of [ `Coservice | `Service ] ], [> `Post ])
Eliom_service.a_s ],
'a, 'gn, 'pn, [< Eliom_service.registrable > `Registrable ],
Eliom_registration.http_service)
Eliom_service.service
val register_post_coservice : ?scope:[< Eliom_common.scope ] ->
?options:unit ->
?charset:string ->
?code:int ->
?content_type:string ->
?headers:Http_headers.t ->
?secure_session:bool ->
?name:string ->
?csrf_safe:bool ->
?csrf_scope:[< Eliom_common.user_scope ] ->
?csrf_secure:bool ->
?max_use:int ->
?timeout:float ->
?https:bool ->
fallback:('get, unit,
[ `Attached of
([ `Internal of [< `Coservice | `Service ] ], [ `Get ])
Eliom_service.a_s ],
[< Eliom_service.suff ] as 'a, 'gn, unit, [< `Registrable ],
Eliom_registration.http_service)
Eliom_service.service ->
post_params:('post, [ `WithoutSuffix ], 'pn) Eliom_parameter.params_type ->
?error_handler:((string * exn) list ->
((unit -> string Ocsigen_stream.t Lwt.t) list * string) Lwt.t) ->
('get ->
'post -> ((unit -> string Ocsigen_stream.t Lwt.t) list * string) Lwt.t) ->
('get, 'post,
[> `Attached of
([> `Internal of [> `Coservice ] ], [> `Post ]) Eliom_service.a_s ],
'a, 'gn, 'pn, [< Eliom_service.registrable > `Registrable ],
Eliom_registration.http_service)
Eliom_service.service
val register_post_coservice' : ?scope:[< Eliom_common.scope ] ->
?options:unit ->
?charset:string ->
?code:int ->
?content_type:string ->
?headers:Http_headers.t ->
?secure_session:bool ->
?name:string ->
?csrf_safe:bool ->
?csrf_scope:[< Eliom_common.user_scope ] ->
?csrf_secure:bool ->
?max_use:int ->
?timeout:float ->
?keep_get_na_params:bool ->
?https:bool ->
post_params:('post, [ `WithoutSuffix ], 'pn) Eliom_parameter.params_type ->
?error_handler:((string * exn) list ->
((unit -> string Ocsigen_stream.t Lwt.t) list * string) Lwt.t) ->
(unit ->
'post -> ((unit -> string Ocsigen_stream.t Lwt.t) list * string) Lwt.t) ->
(unit, 'post, [> `Nonattached of [> `Post ] Eliom_service.na_s ],
[ `WithoutSuffix ], unit, 'pn,
[< Eliom_service.registrable > `Registrable ],
Eliom_registration.http_service)
Eliom_service.service
val send : ?options:unit ->
?charset:string ->
?code:int ->
?content_type:string ->
?headers:Http_headers.t ->
(unit -> string Ocsigen_stream.t Lwt.t) list * string ->
(Eliom_registration.unknown_content, Eliom_registration.http_service)
Eliom_registration.kind Lwt.t
send page
build the HTTP frame corresponding to
page
. This may be used for example in an service handler
registered with Eliom_registration.Any.register
or when building a
custom output module.