From c0661abb0c1d9f906f3f2416669f68d7be755b0d Mon Sep 17 00:00:00 2001
From: Ryan Kavanagh <rak@rak.ac>
Date: Sun, 7 Jun 2020 20:23:33 -0400
Subject: Added SENSITIVE_INPUT

---
 gemini/geminiTransaction.ml  | 6 ++++++
 gemini/geminiTransaction.mli | 1 +
 2 files changed, 7 insertions(+)

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
-- 
cgit v1.2.3