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_actions.erl | 92 -----------------------------------------
 1 file changed, 92 deletions(-)
 delete mode 100644 src/couch_inets/mod_actions.erl

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

diff --git a/src/couch_inets/mod_actions.erl b/src/couch_inets/mod_actions.erl
deleted file mode 100644
index 3447196c..00000000
--- a/src/couch_inets/mod_actions.erl
+++ /dev/null
@@ -1,92 +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_actions).
--export([do/1,load/2]).
-
--include("httpd.hrl").
-
-%% do
-
-do(Info) ->
-  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 ->
-	  Path = mod_alias:path(Info#mod.data,Info#mod.config_db,
-			      Info#mod.request_uri),
-	  Suffix = httpd_util:suffix(Path),
-	  MimeType = httpd_util:lookup_mime(Info#mod.config_db,Suffix,
-					  "text/plain"),
-	  Actions = httpd_util:multi_lookup(Info#mod.config_db,action),
-	  case action(Info#mod.request_uri,MimeType,Actions) of
-	    {yes, RequestURI} ->
-	      {proceed, [{new_request_uri, RequestURI} | Info#mod.data]};
-	    no ->
-	      Scripts = httpd_util:multi_lookup(Info#mod.config_db, script),
-	      case script(Info#mod.request_uri, Info#mod.method, Scripts) of
-		{yes, RequestURI} ->
-		  {proceed,[{new_request_uri, RequestURI} | Info#mod.data]};
-		no ->
-		  {proceed, Info#mod.data} 
-	      end
-	  end;
-	%% A response has been generated or sent!
-	_Response ->
-	  {proceed, Info#mod.data}
-      end
-  end.
-
-action(_RequestURI, _MimeType, []) ->
-  no;
-action(RequestURI, MimeType, [{MimeType, CGIScript} | _Rest]) ->
-  {yes, CGIScript ++ RequestURI};
-action(RequestURI, MimeType, [_ | Rest]) ->
-  action(RequestURI, MimeType, Rest).
-
-script(_RequestURI, _Method, []) ->
-  no;
-script(RequestURI, Method, [{Method, CGIScript} | _Rest]) ->
-  {yes, CGIScript ++ RequestURI};
-script(RequestURI, Method, [_ | Rest]) ->
-  script(RequestURI, Method, Rest).
-
-%%
-%% Configuration
-%%
-
-%% load
-
-load("Action "++  Action, []) ->
-  case regexp:split(Action, " ") of
-    {ok,[MimeType, CGIScript]} ->
-      {ok,[],{action, {MimeType, CGIScript}}};
-    {ok,_} ->
-      {error,?NICE(httpd_conf:clean(Action)++" is an invalid Action")}
-  end;
-load("Script " ++ Script,[]) ->
-  case regexp:split(Script, " ") of
-    {ok,[Method, CGIScript]} ->
-      {ok,[],{script, {Method, CGIScript}}};
-    {ok,_} ->
-      {error,?NICE(httpd_conf:clean(Script)++" is an invalid Script")}
-  end.
-- 
cgit v1.2.3