1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
%% This Source Code Form is subject to the terms of the Mozilla Public
%% License, v. 2.0. If a copy of the MPL was not distributed with this
%% file, You can obtain one at https://mozilla.org/MPL/2.0/.
%%
%% Copyright (c) 2007-2020 VMware, Inc. or its affiliates. All rights reserved.
%%
-module(rabbit_web_dispatch_util).
-export([parse_auth_header/1]).
-export([relativise/2, unrelativise/2]).
%% @todo remove
parse_auth_header(Header) ->
case Header of
"Basic " ++ Base64 ->
Str = base64:mime_decode_to_string(Base64),
case string:chr(Str, $:) of
0 -> invalid;
N -> [list_to_binary(string:sub_string(Str, 1, N - 1)),
list_to_binary(string:sub_string(Str, N + 1))]
end;
_ ->
invalid
end.
relativise("/" ++ F, "/" ++ T) ->
From = string:tokens(F, "/"),
To = string:tokens(T, "/"),
string:join(relativise0(From, To), "/").
relativise0([H], [H|_] = To) ->
To;
relativise0([H|From], [H|To]) ->
relativise0(From, To);
relativise0(From, []) ->
lists:duplicate(length(From), "..");
relativise0([_|From], To) ->
lists:duplicate(length(From), "..") ++ To;
relativise0([], To) ->
To.
unrelativise(_, "/" ++ T) -> "/" ++ T;
unrelativise(F, "./" ++ T) -> unrelativise(F, T);
unrelativise(F, "../" ++ T) -> unrelativise(strip_tail(F), T);
unrelativise(F, T) -> case string:str(F, "/") of
0 -> T;
_ -> strip_tail(F) ++ "/" ++ T
end.
strip_tail("") -> exit(not_enough_to_strip);
strip_tail(S) -> case string:rstr(S, "/") of
0 -> "";
I -> string:left(S, I - 1)
end.
|