From 39de3072bcf9fdeec6d3faeb125924c401242205 Mon Sep 17 00:00:00 2001
From: Christopher Lenz <cmlenz@apache.org>
Date: Tue, 15 Apr 2008 12:21:00 +0000
Subject: Merged mochiweb branch back into trunk.

git-svn-id: https://svn.apache.org/repos/asf/incubator/couchdb/trunk@648222 13f79535-47bb-0310-9956-ffa450edef68
---
 src/couch_inets/mod_head.erl | 73 --------------------------------------------
 1 file changed, 73 deletions(-)
 delete mode 100644 src/couch_inets/mod_head.erl

(limited to 'src/couch_inets/mod_head.erl')

diff --git a/src/couch_inets/mod_head.erl b/src/couch_inets/mod_head.erl
deleted file mode 100644
index 3b78ff42..00000000
--- a/src/couch_inets/mod_head.erl
+++ /dev/null
@@ -1,73 +0,0 @@
-%% ``The contents of this file are subject to the Erlang Public License,
-%% Version 1.1, (the "License"); you may not use this file except in
-%% compliance with the License. You should have received a copy of the
-%% Erlang Public License along with this software. If not, it can be
-%% retrieved via the world wide web at http://www.erlang.org/.
-%% 
-%% Software distributed under the License is distributed on an "AS IS"
-%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
-%% the License for the specific language governing rights and limitations
-%% under the License.
-%% 
-%% The Initial Developer of the Original Code is Ericsson Utvecklings AB.
-%% Portions created by Ericsson are Copyright 1999, Ericsson Utvecklings
-%% AB. All Rights Reserved.''
-%% 
-%%     $Id$
-%%
--module(mod_head).
--export([do/1]).
-
--include("httpd.hrl").
-
--define(VMODULE,"HEAD").
-
-%% do
-
-do(Info) ->
-    case Info#mod.method of
-	"HEAD" ->
-	    case httpd_util:key1search(Info#mod.data,status) of
-		%% A status code has been generated!
-		{_StatusCode, _PhraseArgs, _Reason} ->
-		    {proceed,Info#mod.data};
-		%% No status code has been generated!
-		_undefined ->
-		    case httpd_util:key1search(Info#mod.data,response) of
-			%% No response has been generated!
-			undefined ->
-			    do_head(Info);
-			%% A response has been sent! Nothing to do about it!
-			{already_sent, _StatusCode, _Size} ->
-			    {proceed,Info#mod.data};
-			%% A response has been generated!
-			{_StatusCode, _Response} ->
-			    {proceed,Info#mod.data}
-		    end
-	    end;
-	%% Not a HEAD method!
-	_ ->
-	    {proceed,Info#mod.data}
-    end.
-
-do_head(Info) -> 
-    Path = mod_alias:path(Info#mod.data,
-			  Info#mod.config_db,
-			  Info#mod.request_uri),
-    Suffix = httpd_util:suffix(Path),
-    %% Does the file exists?
-    case file:read_file_info(Path) of
-	{ok, FileInfo} ->
-	    MimeType = 
-		httpd_util:lookup_mime_default(Info#mod.config_db,
-					       Suffix,"text/plain"),
-	    Length = io_lib:write(FileInfo#file_info.size),
-	    Head = 
-		[{content_type, MimeType},
-		 {content_length, Length}, {code,200}],
-	    {proceed,[{response, {response, Head,  nobody}} | Info#mod.data]};
-	{error, Reason} ->
-	    Status = httpd_file:handle_error(Reason, "access", Info, Path),
-	    {proceed,
-	     [{status, Status} | Info#mod.data]}
-    end.
-- 
cgit v1.2.3