put incoming req_body in process dict

(there is really no other decent way to allow more than one call to wrq:req_body in the same resource fun anymore)
basho · Dec 21, 2009 · f9c882e · f9c882e
1 parent a9cdc36
commit f9c882e
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/src/webmachine_request.erl b/src/webmachine_request.erl
@@ -130,9 +130,15 @@ call({req_body, MaxRecvBody}) ->
             {ReqState#wm_reqstate.reqbody, ReqState};
         undefined ->
             RD=(ReqState#wm_reqstate.reqdata)#wm_reqdata{
-                                      max_recv_body=MaxRecvBody},
+                 max_recv_body=MaxRecvBody},
             NewReqState=ReqState#wm_reqstate{reqdata=RD},
-            NewBody = do_recv_body(NewReqState),
+            NewBody = case get(req_body) of
+                undefined ->
+                    NewB = do_recv_body(NewReqState),
+                    put(req_body, NewB),
+                    NewB;
+                B -> B
+            end,
             NewRD = RD#wm_reqdata{req_body=NewBody},
             {NewBody, NewReqState#wm_reqstate{
                         bodyfetch=standard,reqdata=NewRD,reqbody=NewBody}}