module Netcgi_env:sig..end
typeinput_mode =[ `Standard ]
typeinput_state =[ `Received_body
| `Received_header
| `Receiving_body
| `Receiving_header
| `Start ]
#set_input_state as such, we prefer not to
allow the user to have access to it at the first
place...typeoutput_mode =[ `Standard ]
typeoutput_state =[ `End
| `Sending_body
| `Sending_header
| `Sending_part_body
| `Sending_part_header
| `Sent_body
| `Sent_header
| `Sent_part_body
| `Sent_part_header
| `Start ]
typeprotocol_version =Nethttp.protocol_version
typeprotocol_attribute =Nethttp.protocol_attribute
typeprotocol =Nethttp.protocol
typeworkaround =[ `Work_around_MSIE_Content_type_bug | `Work_around_backslash_bug ]
Work_around_ part has been dropped as it is clear at
the spot of use.type cgi_config = {
|
tmp_directory : |
|||
|
tmp_prefix : |
|||
|
permitted_http_methods : |
(* |
Now has type
[`GET | `HEAD | `POST | `DELETE | `PUT] list
for coherence with Netcgi.cgi#request_method. | *) |
|
permitted_input_content_types : |
|||
|
input_content_length_limit : |
|||
|
workarounds : |
Netcgi.config.val default_config : cgi_config
val of_compat_config : cgi_config -> Netcgi.configof_compat_config c transform the old configuration c
into one suitable for the new interface.val to_compat_config : Netcgi.config -> cgi_configto_compat_config c transform the new configuration c
into one suitable for the old interface.class type cgi_environment =object..end
val to_compat_environment : Netcgi.cgi_environment -> cgi_environmentto_compat_environment e converts the new environment
e to the old interface.val of_compat_environment : cgi_environment -> Netcgi.cgi_environmentof_compat_environment e converts the old environment
e to the new interface.