tiny_httpd 0.12 · OCaml Package

Serving static content from directories

This module provides the same functionality as the "http_of_dir" tool. It exposes a directory (and its subdirectories), with the optional ability to delete or upload files.

since 0.11

type dir_behavior =

| Index
(*
Redirect to index.html if present, else fails.
*)
| Lists
(*
Lists content of directory. Be careful of security implications.
*)
| Index_or_lists
(*
Redirect to index.html if present and lists content otherwise. This is useful for tilde ("~") directories and other per-user behavior, but be mindful of security implications
*)
| Forbidden
(*
Forbid access to directory. This is suited for serving assets, for example.
*)

behavior of static directory.

This controls what happens when the user requests the path to a directory rather than a file.

type hidden

Type used to prevent users from building a config directly. Use default_config or config instead.

type config = {

mutable download : bool;
(*
Is downloading files allowed?
*)
mutable dir_behavior : dir_behavior;
(*
Behavior when serving a directory and not a file
*)
mutable delete : bool;
(*
Is deleting a file allowed? (with method DELETE)
*)
mutable upload : bool;
(*
Is uploading a file allowed? (with method PUT)
*)
mutable max_upload_size : int;
(*
If upload is true, this is the maximum size in bytes for uploaded files.
*)
_rest : hidden;
(*
Just ignore this field.
*)

}

configuration for static file handlers. This might get more fields over time.

val default_config : unit -> config

default configuration: { download=true ; dir_behavior=Forbidden ; delete=false ; upload=false ; max_upload_size = 10 * 1024 * 1024 }

val config : 
  ?download:bool ->
  ?dir_behavior:dir_behavior ->
  ?delete:bool ->
  ?upload:bool ->
  ?max_upload_size:int ->
  unit ->
  config

Build a config from default_config.

since 0.12

val add_dir_path : 
  config:config ->
  dir:string ->
  prefix:string ->
  Tiny_httpd_server.t ->
  unit

add_dirpath ~config ~dir ~prefix server adds route handle to the server to serve static files in dir when url starts with prefix, using the given configuration config.

module type VFS = sig ... end

Virtual file system.

val vfs_of_dir : string -> (module VFS)

vfs_of_dir dir makes a virtual file system that reads from the disk.

since 0.12

val add_vfs : 
  config:config ->
  vfs:(module VFS) ->
  prefix:string ->
  Tiny_httpd_server.t ->
  unit

Similar to add_dir_path but using a virtual file system instead.

since 0.12

module Embedded_fs : sig ... end

An embedded file system, as a list of files with (relative) paths. This is useful in combination with the "tiny-httpd-mkfs" tool, which embeds the files it's given into a OCaml module.

package tiny_httpd