summaryrefslogtreecommitdiff
path: root/src/web/ejabberd_http.erl
diff options
context:
space:
mode:
authorEvgeniy Khramtsov <ekhramtsov@process-one.net>2013-03-29 19:23:52 +1000
committerEvgeniy Khramtsov <ekhramtsov@process-one.net>2013-03-29 19:23:52 +1000
commit299a0f823aa7e239fcd32c6d1ba5a061d21e01a4 (patch)
tree0ea90ee98e0821be0af26e554b3e2c3505c52b78 /src/web/ejabberd_http.erl
parentAdd mod_carboncopy that implements XEP-0280 v0.8 (diff)
Fix several refactoring related bugs
Diffstat (limited to '')
-rw-r--r--src/web/ejabberd_http.erl20
1 files changed, 0 insertions, 20 deletions
diff --git a/src/web/ejabberd_http.erl b/src/web/ejabberd_http.erl
index be0af415..25928c0a 100644
--- a/src/web/ejabberd_http.erl
+++ b/src/web/ejabberd_http.erl
@@ -822,25 +822,5 @@ old_integer_to_hex(I) when I >= 16 ->
N = trunc(I / 16),
old_integer_to_hex(N) ++ old_integer_to_hex(I rem 16).
-% The following code is mostly taken from yaws_ssl.erl
-
-toupper(C) when C >= $a andalso C =< $z -> C - 32;
-toupper(C) -> C.
-
-tolower(C) when C >= $A andalso C =< $Z -> C + 32;
-tolower(C) -> C.
-
-normalize_header_name(Name) ->
- normalize_header_name(Name, [], true).
-
-normalize_header_name(<<"">>, Acc, _) ->
- iolist_to_binary(Acc);
-normalize_header_name(<<"-", Rest/binary>>, Acc, _) ->
- normalize_header_name(Rest, [Acc, "-"], true);
-normalize_header_name(<<C:8, Rest/binary>>, Acc, true) ->
- normalize_header_name(Rest, [Acc, toupper(C)], false);
-normalize_header_name(<<C:8, Rest/binary>>, Acc, false) ->
- normalize_header_name(Rest, [Acc, tolower(C)], false).
-
%% strip_spaces(String, left) ->
%% drop_spaces(String);