safe recv-key in direct mode

Checks the key's size and checksum. This is sorta expensive, but it avoids
needing to add another round-trip to the protocol.

1 files changed, 3 insertions, 0 deletions

diff --git a/Fields.hs b/Fields.hs
index 145a8adca..ffd273be6 100644
--- a/Fields.hs
+++ b/Fields.hs
@@ -30,3 +30,6 @@ associatedFile :: Field
 associatedFile = Field "associatedfile" $ \f ->
 	-- is the file a safe relative filename?
 	not (isAbsolute f) && not ("../" `isPrefixOf` f)
+
+direct :: Field
+direct = Field "direct" $ \f -> f == "1"