bump to 2.3.2, Case insensitive match for "Connection: close" (#81)

CHANGES.md

@@ -1,3 +1,7 @@
+Version 2.3.2 released 2012-07-27
+
+* Case insensitive match for "Connection: close" (#81)
+
 Version 2.3.1 released 2012-03-31
 
 * Fix edoc warnings (#63)

src/mochiweb.app.src

@@ -1,7 +1,7 @@
 %% This is generated from src/mochiweb.app.src
 {application, mochiweb,
  [{description, "MochiMedia Web Server"},
-  {vsn, "2.3.1"},
+  {vsn, "2.3.2"},
   {modules, []},
   {registered, []},
   {env, []},

src/mochiweb_request.erl

@@ -383,7 +383,7 @@ should_close() ->
     DidNotRecv = erlang:get(?SAVE_RECV) =:= undefined,
     ForceClose orelse Version < {1, 0}
         %% Connection: close
-        orelse get_header_value("connection") =:= "close"
+        orelse is_close(get_header_value("connection"))
         %% HTTP 1.0 requires Connection: Keep-Alive
         orelse (Version =:= {1, 0}
                 andalso get_header_value("connection") =/= "Keep-Alive")
@@ -394,6 +394,13 @@ should_close() ->
         orelse (DidNotRecv
                 andalso get_header_value("transfer-encoding") =:= "chunked").
 
+is_close("close") ->
+    true;
+is_close(S=[_C, _L, _O, _S, _E]) ->
+    string:to_lower(S) =:= "close";
+is_close(_) ->
+    false.
+
 %% @spec cleanup() -> ok
 %% @doc Clean up any junk in the process dictionary, required before continuing
 %%      a Keep-Alive request.

src/mochiweb_request_tests.erl

@@ -149,4 +149,34 @@ accepted_content_types_test() ->
     ?assertEqual(["application/json", "text/html"],
         Req9:accepted_content_types(["text/html", "application/json"])).
 
+should_close_test() ->
+    F = fun (V, H) ->
+                (mochiweb_request:new(
+                   nil, 'GET', "/", V,
+                   mochiweb_headers:make(H)
+                  )):should_close()
+        end,
+    ?assertEqual(
+       true,
+       F({1, 1}, [{"Connection", "close"}])),
+    ?assertEqual(
+       true,
+       F({1, 0}, [{"Connection", "close"}])),
+    ?assertEqual(
+       true,
+       F({1, 1}, [{"Connection", "ClOSe"}])),
+    ?assertEqual(
+       false,
+       F({1, 1}, [{"Connection", "closer"}])),
+    ?assertEqual(
+       false,
+       F({1, 1}, [])),
+    ?assertEqual(
+       true,
+       F({1, 0}, [])),
+    ?assertEqual(
+       false,
+       F({1, 0}, [{"Connection", "Keep-Alive"}])),
+    ok.
+
 -endif.