From 06274cd8abbf7d23150c3cef64e0d1eb052b9ed7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= <essen@dev-extend.eu>
Date: Tue, 22 Mar 2011 13:20:21 +0100
Subject: Introduce cowboy_http_req:body_qs/1 for automated urlencoded body
 parsing.

---
 src/cowboy_http_req.erl | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'src/cowboy_http_req.erl')

diff --git a/src/cowboy_http_req.erl b/src/cowboy_http_req.erl
index 69b6c08..5a1ec2b 100644
--- a/src/cowboy_http_req.erl
+++ b/src/cowboy_http_req.erl
@@ -25,7 +25,7 @@
 ]). %% Request API.
 
 -export([
-	body/1, body/2
+	body/1, body/2, body_qs/1
 ]). %% Request Body API.
 
 -export([
@@ -160,6 +160,12 @@ body(Length, Req=#http_req{socket=Socket, transport=Transport, body_state=waitin
 		{error, Reason} -> {error, Reason}
 	end.
 
+-spec body_qs(Req::#http_req{})
+	-> {list({Name::string(), Value::string()}), Req::#http_req{}}.
+body_qs(Req) ->
+	{ok, Body, Req2} = body(Req),
+	{parse_qs(binary_to_list(Body)), Req2}.
+
 %% Response API.
 
 -spec reply(Code::http_status(), Headers::http_headers(),
-- 
cgit v1.2.3