|
@@ -2,9 +2,7 @@
|
|
|
-export([escape/1, unescape/1]).
|
|
-export([escape/1, unescape/1]).
|
|
|
|
|
|
|
|
escape(Path) -> R = reserved(), lists:append([char_encode(Char, R) || Char <- Path]).
|
|
escape(Path) -> R = reserved(), lists:append([char_encode(Char, R) || Char <- Path]).
|
|
|
-unescape(Str) -> http_uri:decode(Str).
|
|
|
|
|
-% todo: Warning: http_uri:decode/1 is deprecated and will be removed in OTP 25;
|
|
|
|
|
-% use uri_string functions instead
|
|
|
|
|
|
|
+unescape(Str) -> uri_string:percent_decode(Str).
|
|
|
reserved() -> sets:from_list([$/, $\\, $:, $%]).
|
|
reserved() -> sets:from_list([$/, $\\, $:, $%]).
|
|
|
char_encode(Char, Reserved) ->
|
|
char_encode(Char, Reserved) ->
|
|
|
case sets:is_element(Char, Reserved) of
|
|
case sets:is_element(Char, Reserved) of
|
221V