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.
This commit is contained in:
parent
043c9562f3
commit
18a6935e42
7 changed files with 71 additions and 34 deletions
|
@ -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"
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue