caldav 0.1.0 · OCaml Package

Parameters

module R : Mirage_random.S

module Clock : Mirage_clock.PCLOCK

module Fs : Webdav_fs.S

Signature

type state = Fs.t

val mkcol : 
  state ->
  Webdav_config.config ->
  path:string ->
  user:string ->
  Cohttp.Code.meth ->
  Ptime.t ->
  data:string ->
  (unit, [ `Bad_request | `Conflict | `Forbidden of string ]) result Lwt.t

val propfind : 
  state ->
  Webdav_config.config ->
  path:string ->
  user:string ->
  depth:string option ->
  data:string ->
  (string, [> `Bad_request | `Forbidden of string | `Property_not_found ])
    result
    Lwt.t

val proppatch : 
  state ->
  Webdav_config.config ->
  path:string ->
  user:string ->
  data:string ->
  (string, [> `Bad_request ]) result Lwt.t

val report : 
  state ->
  Webdav_config.config ->
  path:string ->
  user:string ->
  data:string ->
  (string, [> `Bad_request ]) result Lwt.t

val write_component : 
  state ->
  Webdav_config.config ->
  path:string ->
  user:string ->
  Ptime.t ->
  content_type:content_type ->
  data:string ->
  (string, [> `Bad_request | `Conflict | `Forbidden | `Internal_server_error ])
    result
    Lwt.t

val delete : state -> path:string -> Ptime.t -> bool Lwt.t

val read : 
  state ->
  path:string ->
  is_mozilla:bool ->
  (string * content_type, [> `Not_found ]) result Lwt.t

val access_granted_for_acl : 
  state ->
  Webdav_config.config ->
  Cohttp.Code.meth ->
  path:string ->
  user:string ->
  bool Lwt.t

val last_modified : state -> path:string -> string option Lwt.t

val compute_etag : state -> path:string -> string option Lwt.t

val verify_auth_header : 
  state ->
  Webdav_config.config ->
  string ->
  (string, [> `Msg of string | `Unknown_user of string * string ]) result Lwt.t

val make_user : 
  ?props:(Webdav_xml.fqname * Properties.property) list ->
  state ->
  Ptime.t ->
  Webdav_config.config ->
  name:string ->
  password:string ->
  salt:Cstruct.t ->
  Uri.t Lwt.t

val change_user_password : 
  state ->
  Webdav_config.config ->
  name:string ->
  password:string ->
  salt:Cstruct.t ->
  (unit, [> `Internal_server_error ]) result Lwt.t

val delete_user : 
  state ->
  Webdav_config.config ->
  string ->
  (unit, [> `Internal_server_error | `Not_found ]) result Lwt.t

val make_group : 
  state ->
  Ptime.t ->
  Webdav_config.config ->
  string ->
  string list ->
  Uri.t Lwt.t

val enroll : 
  state ->
  Webdav_config.config ->
  member:string ->
  group:string ->
  unit Lwt.t

val resign : 
  state ->
  Webdav_config.config ->
  member:string ->
  group:string ->
  unit Lwt.t

val replace_group_members : 
  state ->
  Webdav_config.config ->
  string ->
  string list ->
  unit Lwt.t

val delete_group : 
  state ->
  Webdav_config.config ->
  string ->
  (unit, [> `Internal_server_error | `Not_found ]) result Lwt.t

val initialize_fs : state -> Ptime.t -> Webdav_config.config -> unit Lwt.t

val initialize_fs_for_apple_testsuite : 
  state ->
  Ptime.t ->
  Webdav_config.config ->
  unit Lwt.t

val generate_salt : unit -> Cstruct.t

val connect : state -> Webdav_config.config -> string option -> state Lwt.t

package caldav

Parameters

Signature