diff options
| author | Linus Nordberg <linus@nordu.net> | 2017-03-08 12:49:37 +0100 |
|---|---|---|
| committer | Linus Nordberg <linus@nordu.net> | 2017-03-08 12:53:27 +0100 |
| commit | 8579acaece04a06cd05fc628e8737abda3836330 (patch) | |
| tree | ea542b2b98318ff4f33b39766677e1e465ada984 /src | |
| parent | 6d6d7a1a67fc7e810122e0942f422190c975b45f (diff) | |
Allow 10MB of POST body.CATLFISH-98
Diffstat (limited to 'src')
| -rw-r--r-- | src/catlfish_web.erl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/catlfish_web.erl b/src/catlfish_web.erl index 52441fc..8cf3092 100644 --- a/src/catlfish_web.erl +++ b/src/catlfish_web.erl @@ -4,6 +4,9 @@ -module(catlfish_web). -export([start/3, loop/2]). +%% Max size of POST body, in octets. +-define(MAX_RECV_BODY, 10*1024*1024). % 10MB. + start(Options, Module, Name) -> lager:debug("Starting catlfish web server: ~p", [Module]), Loop = fun (Req) -> @@ -62,7 +65,7 @@ loop(Req, Module) -> Req:respond(Result) end; 'POST' -> - Body = Req:recv_body(), + Body = Req:recv_body(?MAX_RECV_BODY), Result = case http_auth:verify_auth(AuthHeader, "POST", Path, Body) of failure -> |