summaryrefslogtreecommitdiff
path: root/gemini
diff options
context:
space:
mode:
Diffstat (limited to 'gemini')
-rw-r--r--gemini/geminiTransaction.ml6
-rw-r--r--gemini/geminiTransaction.mli1
2 files changed, 7 insertions, 0 deletions
diff --git a/gemini/geminiTransaction.ml b/gemini/geminiTransaction.ml
index 1a73a93..77f1206 100644
--- a/gemini/geminiTransaction.ml
+++ b/gemini/geminiTransaction.ml
@@ -10,6 +10,7 @@ sig
type response =
| INPUT
+ | SENSITIVE_INPUT
| SUCCESS of mime_type * string
| SUCCESS_EOCSS of mime_type * string
| REDIR_TEMP of string
@@ -66,6 +67,7 @@ struct
type response =
| INPUT
+ | SENSITIVE_INPUT
| SUCCESS of mime_type * string
| SUCCESS_EOCSS of mime_type * string
| REDIR_TEMP of string
@@ -120,6 +122,7 @@ struct
let int_of_response = function
| INPUT -> 10
+ | SENSITIVE_INPUT -> 11
| SUCCESS _ -> 20
| SUCCESS_EOCSS _ -> 21
| REDIR_TEMP _ -> 30
@@ -143,6 +146,7 @@ struct
let name_of_response = function
| INPUT -> "10 INPUT"
+ | SENSITIVE_INPUT -> "11 SENSITIVE INPUT"
| SUCCESS _ -> "20 SUCCESS"
| SUCCESS_EOCSS _ -> "21 SUCCESS - END OF CLIENT CERTIFICATE SESSION"
| REDIR_TEMP _ -> "30 REDIRECT - TEMPORARY"
@@ -166,6 +170,7 @@ struct
let header_of_response = function
| INPUT -> "10 "
+ | SENSITIVE_INPUT -> "11 "
| SUCCESS (m, _) -> "20 " ^ (M.to_canonical m)
| SUCCESS_EOCSS (m, _) -> "21 " ^ (M.to_canonical m)
| REDIR_TEMP u -> "30 " ^ u
@@ -191,6 +196,7 @@ struct
let open Angstrom in
let open ParseCommon.ParseCommon in
(string "10 " *> return INPUT)
+ <|> (string "11 " *> return SENSITIVE_INPUT)
<|> lift2 (fun m -> fun b -> SUCCESS (M.from_string m, b))
(string "20 " *> take_till_cr)
(take_while (fun _ -> true) <* end_of_input)
diff --git a/gemini/geminiTransaction.mli b/gemini/geminiTransaction.mli
index cc209d0..4a89ab1 100644
--- a/gemini/geminiTransaction.mli
+++ b/gemini/geminiTransaction.mli
@@ -10,6 +10,7 @@ sig
type response =
| INPUT
+ | SENSITIVE_INPUT
| SUCCESS of mime_type * string
| SUCCESS_EOCSS of mime_type * string
| REDIR_TEMP of string