diff options
author | Evgeniy Khramtsov <ekhramtsov@process-one.net> | 2013-03-29 19:23:52 +1000 |
---|---|---|
committer | Evgeniy Khramtsov <ekhramtsov@process-one.net> | 2013-03-29 19:23:52 +1000 |
commit | 299a0f823aa7e239fcd32c6d1ba5a061d21e01a4 (patch) | |
tree | 0ea90ee98e0821be0af26e554b3e2c3505c52b78 /src/web/ejabberd_http.erl | |
parent | Add mod_carboncopy that implements XEP-0280 v0.8 (diff) |
Fix several refactoring related bugs
Diffstat (limited to '')
-rw-r--r-- | src/web/ejabberd_http.erl | 20 |
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); |