diff options
| author | Ryan Kavanagh <rak@rak.ac> | 2020-06-07 20:23:33 -0400 |
|---|---|---|
| committer | Ryan Kavanagh <rak@rak.ac> | 2020-06-07 20:23:33 -0400 |
| commit | c0661abb0c1d9f906f3f2416669f68d7be755b0d (patch) | |
| tree | 83341972a0964d4c5995aacf0f01dee8dd830e09 /gemini | |
| parent | Gracefully end curses after error (diff) | |
Added SENSITIVE_INPUT
Diffstat (limited to '')
| -rw-r--r-- | gemini/geminiTransaction.ml | 6 | ||||
| -rw-r--r-- | gemini/geminiTransaction.mli | 1 |
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 |