Merged mochiweb branch back into trunk.

git-svn-id: https://svn.apache.org/repos/asf/incubator/couchdb/trunk@648222 13f79535-47bb-0310-9956-ffa450edef68

1 files changed, 0 insertions, 171 deletions

diff --git a/src/couch_inets/http_util.erl b/src/couch_inets/http_util.erl
deleted file mode 100644
index 7396fec6..00000000
--- a/src/couch_inets/http_util.erl
+++ /dev/null
@@ -1,171 +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(http_util).
-
--export([key1search/2, key1search/3,
-	 to_upper/1, to_lower/1, convert_netscapecookie_date/1,
-	 hexlist_to_integer/1, integer_to_hexlist/1, 
-	 convert_month/1, is_hostname/1]).
-
-%%%=========================================================================
-%%%  Internal application API
-%%%=========================================================================
-key1search(TupleList,Key) ->
-    key1search(TupleList,Key,undefined).
-
-key1search(TupleList,Key,Undefined) ->
-    case lists:keysearch(Key,1,TupleList) of
-	{value,{Key,Value}} ->
-	    Value;
-	false ->
-	    Undefined
-    end.
-
-to_upper(Str) ->
-    to_upper(Str, []).
-
-to_upper([C|Cs], Acc) when C >= $a, C =< $z ->
-    to_upper(Cs, [C-($a-$A)| Acc]);
-to_upper([C|Cs], Acc) ->
-    to_upper(Cs, [C | Acc]);
-to_upper([], Acc) ->
-    lists:reverse(Acc).
-
-to_lower(Str) ->
-    to_lower(Str, []).
-to_lower([C|Cs], Acc) when C >= $A, C =< $Z ->
-    to_lower(Cs, [C+($a-$A)| Acc]);
-to_lower([C|Cs], Acc) ->
-    to_lower(Cs, [C| Acc]);
-to_lower([], Acc) ->
-    lists:reverse(Acc).
-
-convert_netscapecookie_date([_D,_A,_Y, $,, _SP,
-			     D1,D2,_DA,
-			     M,O,N,_DA,
-			     Y1,Y2,Y3,Y4,_SP,
-			     H1,H2,_Col,
-			     M1,M2,_Col,
-			     S1,S2|_Rest]) -> 
-    Year=list_to_integer([Y1,Y2,Y3,Y4]),
-    Day=list_to_integer([D1,D2]),
-    Month=convert_month([M,O,N]),
-    Hour=list_to_integer([H1,H2]),
-    Min=list_to_integer([M1,M2]),
-    Sec=list_to_integer([S1,S2]),
-    {{Year,Month,Day},{Hour,Min,Sec}};
-
-convert_netscapecookie_date([_D,_A,_Y, _SP,
-			     D1,D2,_DA,
-			     M,O,N,_DA,
-			     Y1,Y2,Y3,Y4,_SP,
-			     H1,H2,_Col,
-			     M1,M2,_Col,
-			     S1,S2|_Rest]) -> 
-    Year=list_to_integer([Y1,Y2,Y3,Y4]),
-    Day=list_to_integer([D1,D2]),
-    Month=convert_month([M,O,N]),
-    Hour=list_to_integer([H1,H2]),
-    Min=list_to_integer([M1,M2]),
-    Sec=list_to_integer([S1,S2]),
-    {{Year,Month,Day},{Hour,Min,Sec}}.
-
-hexlist_to_integer([])->
-    empty;
-%%When the string only contains one value its eaasy done.
-%% 0-9
-hexlist_to_integer([Size]) when Size >= 48 , Size =< 57 ->
-   Size - 48;
-%% A-F
-hexlist_to_integer([Size]) when Size >= 65 , Size =< 70 ->
-    Size - 55;
-%% a-f
-hexlist_to_integer([Size]) when Size >= 97 , Size =< 102 ->
-    Size - 87;
-hexlist_to_integer([_Size]) ->
-    not_a_num;
-
-hexlist_to_integer(Size) ->
-    Len = string:span(Size, "1234567890abcdefABCDEF"),
-    hexlist_to_integer2(Size, 16 bsl (4 *(Len-2)),0).
-
-integer_to_hexlist(Num)->
-    integer_to_hexlist(Num, get_size(Num), []).
-
-convert_month("Jan") -> 1;
-convert_month("Feb") -> 2;
-convert_month("Mar") -> 3; 
-convert_month("Apr") -> 4;
-convert_month("May") -> 5;
-convert_month("Jun") -> 6;
-convert_month("Jul") -> 7;
-convert_month("Aug") -> 8;
-convert_month("Sep") -> 9;
-convert_month("Oct") -> 10;
-convert_month("Nov") -> 11;
-convert_month("Dec") -> 12.
-
-is_hostname(Dest) ->
-    inet_parse:domain(Dest).
-
-%%%========================================================================
-%%% Internal functions
-%%%========================================================================
-hexlist_to_integer2([],_Pos,Sum)->
-    Sum;
-hexlist_to_integer2([HexVal | HexString], Pos, Sum) 
-  when HexVal >= 48, HexVal =< 57 ->
-    hexlist_to_integer2(HexString, Pos bsr 4, Sum + ((HexVal-48) * Pos));
-
-hexlist_to_integer2([HexVal | HexString], Pos, Sum) 
-  when HexVal >= 65, HexVal =<70 ->
-    hexlist_to_integer2(HexString, Pos bsr 4, Sum + ((HexVal-55) * Pos));
-
-hexlist_to_integer2([HexVal | HexString], Pos, Sum)
-  when HexVal>=97, HexVal=<102 ->
-    hexlist_to_integer2(HexString, Pos bsr 4, Sum + ((HexVal-87) * Pos));
-
-hexlist_to_integer2(_AfterHexString, _Pos, Sum)->
-    Sum.
-
-integer_to_hexlist(Num, Pot, Res) when Pot<0 ->
-    convert_to_ascii([Num | Res]);
-
-integer_to_hexlist(Num,Pot,Res) ->
-    Position = (16 bsl (Pot*4)),
-    PosVal = Num div Position,
-    integer_to_hexlist(Num - (PosVal*Position), Pot-1, [PosVal | Res]).
-
-get_size(Num)->
-    get_size(Num, 0).
-
-get_size(Num, Pot) when Num < (16 bsl(Pot *4))  ->
-    Pot-1;
-
-get_size(Num, Pot) ->
-    get_size(Num, Pot+1).
-
-convert_to_ascii(RevesedNum) ->
-    convert_to_ascii(RevesedNum, []).
-
-convert_to_ascii([], Num)->
-    Num;
-convert_to_ascii([Num | Reversed], Number) when Num > -1, Num < 10 ->
-    convert_to_ascii(Reversed, [Num + 48 | Number]);
-convert_to_ascii([Num | Reversed], Number) when Num > 9, Num < 16 ->
-    convert_to_ascii(Reversed, [Num + 55 | Number]).