diff --git a/deps/rabbitmq_aws/src/httpc_aws_xml.erl b/deps/rabbitmq_aws/src/httpc_aws_xml.erl new file mode 100644 index 0000000000..28bb0b26be --- /dev/null +++ b/deps/rabbitmq_aws/src/httpc_aws_xml.erl @@ -0,0 +1,26 @@ +%% ==================================================================== +%% @author Gavin M. Roy +%% @copyright 2016, Gavin M. Roy +%% @doc httpc_aws supervisor for the gen_server process +%% @end +%% ==================================================================== +-module(httpc_aws_xml). + +-export([parse/1]). + +-include_lib("xmerl/include/xmerl.hrl"). + +parse(Value) -> + {Element, _} = xmerl_scan:string(Value), + parse_node(Element). + +parse_node(#xmlElement{name=Name, content=Content}) -> + [{list_to_binary(atom_to_list(Name)), parse_content(Content, [])}]. + +parse_content([], Value) -> Value; +parse_content(#xmlElement{} = Element, Accum) -> + lists:append(parse_node(Element), Accum); +parse_content(#xmlText{value=Value}, _) -> + list_to_binary(Value); +parse_content([H|T], Accum) -> + parse_content(T, parse_content(H, Accum)). diff --git a/deps/rabbitmq_aws/test/httpc_aws_xml_tests.erl b/deps/rabbitmq_aws/test/httpc_aws_xml_tests.erl new file mode 100644 index 0000000000..3ee23a9aa0 --- /dev/null +++ b/deps/rabbitmq_aws/test/httpc_aws_xml_tests.erl @@ -0,0 +1,35 @@ +%%%------------------------------------------------------------------- +%%% @author gmr +%%% @copyright (C) 2016, +%%% @doc +%%% +%%% @end +%%% Created : 15. May 2016 11:44 PM +%%%------------------------------------------------------------------- +-module(httpc_aws_xml_tests). + +-include_lib("eunit/include/eunit.hrl"). + +-include("httpc_aws.hrl"). + +parse_test_() -> + [ + {"s3 error response", fun() -> + Response = "\nSignatureDoesNotMatchThe request signature we calculated does not match the signature you provided. Check your key and signing method.AKIAIPPU25E5RA4MIYKQAWS4-HMAC-SHA256\n20160516T041429Z\n20160516/us-east-1/s3/aws4_request\n7e908e36ea6c07e542ffac21ec3e11acc3baf022d9133d9764e1521b152586f7841d7b89150d246feee9bceb90f5cae91d0c45f44851742c73eb87dc8472748e41 57 53 34 2d 48 4d 41 43 2d 53 48 41 32 35 36 0a 32 30 31 36 30 35 31 36 54 30 34 31 34 32 39 5a 0a 32 30 31 36 30 35 31 36 2f 75 73 2d 65 61 73 74 2d 31 2f 73 33 2f 61 77 73 34 5f 72 65 71 75 65 73 74 0a 37 65 39 30 38 65 33 36 65 61 36 63 30 37 65 35 34 32 66 66 61 63 32 31 65 63 33 65 31 31 61 63 63 33 62 61 66 30 32 32 64 39 31 33 33 64 39 37 36 34 65 31 35 32 31 62 31 35 32 35 38 36 66 37GET\n/\nlist-type=2\ncontent-length:0\ndate:20160516T041429Z\nhost:s3.us-east-1.amazonaws.com\nx-amz-content-sha256:e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855\n\ncontent-length;date;host;x-amz-content-sha256\ne3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b85547 45 54 0a 2f 0a 6c 69 73 74 2d 74 79 70 65 3d 32 0a 63 6f 6e 74 65 6e 74 2d 6c 65 6e 67 74 68 3a 30 0a 64 61 74 65 3a 32 30 31 36 30 35 31 36 54 30 34 31 34 32 39 5a 0a 68 6f 73 74 3a 73 33 2e 75 73 2d 65 61 73 74 2d 31 2e 61 6d 61 7a 6f 6e 61 77 73 2e 63 6f 6d 0a 78 2d 61 6d 7a 2d 63 6f 6e 74 65 6e 74 2d 73 68 61 32 35 36 3a 65 33 62 30 63 34 34 32 39 38 66 63 31 63 31 34 39 61 66 62 66 34 63 38 39 39 36 66 62 39 32 34 32 37 61 65 34 31 65 34 36 34 39 62 39 33 34 63 61 34 39 35 39 39 31 62 37 38 35 32 62 38 35 35 0a 0a 63 6f 6e 74 65 6e 74 2d 6c 65 6e 67 74 68 3b 64 61 74 65 3b 68 6f 73 74 3b 78 2d 61 6d 7a 2d 63 6f 6e 74 65 6e 74 2d 73 68 61 32 35 36 0a 65 33 62 30 63 34 34 32 39 38 66 63 31 63 31 34 39 61 66 62 66 34 63 38 39 39 36 66 62 39 32 34 32 37 61 65 34 31 65 34 36 34 39 62 39 33 34 63 61 34 39 35 39 39 31 62 37 38 35 32 62 38 35 358EB36F450B78C45DIYXsnJ59yqGI/IzjGoPGUz7NGb/t0ETlWH4v5+l8EGWmHLbhB1b2MsjbSaY5A8M3g7Fn/Nliqpw=", + Value = httpc_aws_xml:parse(Response), + Expectation = [{<<"Error">>, [ + {<<"HostId">>, <<"IYXsnJ59yqGI/IzjGoPGUz7NGb/t0ETlWH4v5+l8EGWmHLbhB1b2MsjbSaY5A8M3g7Fn/Nliqpw=">>}, + {<<"RequestId">>,<<"8EB36F450B78C45D">>}, + {<<"CanonicalRequestBytes">>, <<"47 45 54 0a 2f 0a 6c 69 73 74 2d 74 79 70 65 3d 32 0a 63 6f 6e 74 65 6e 74 2d 6c 65 6e 67 74 68 3a 30 0a 64 61 74 65 3a 32 30 31 36 30 35 31 36 54 30 34 31 34 32 39 5a 0a 68 6f 73 74 3a 73 33 2e 75 73 2d 65 61 73 74 2d 31 2e 61 6d 61 7a 6f 6e 61 77 73 2e 63 6f 6d 0a 78 2d 61 6d 7a 2d 63 6f 6e 74 65 6e 74 2d 73 68 61 32 35 36 3a 65 33 62 30 63 34 34 32 39 38 66 63 31 63 31 34 39 61 66 62 66 34 63 38 39 39 36 66 62 39 32 34 32 37 61 65 34 31 65 34 36 34 39 62 39 33 34 63 61 34 39 35 39 39 31 62 37 38 35 32 62 38 35 35 0a 0a 63 6f 6e 74 65 6e 74 2d 6c 65 6e 67 74 68 3b 64 61 74 65 3b 68 6f 73 74 3b 78 2d 61 6d 7a 2d 63 6f 6e 74 65 6e 74 2d 73 68 61 32 35 36 0a 65 33 62 30 63 34 34 32 39 38 66 63 31 63 31 34 39 61 66 62 66 34 63 38 39 39 36 66 62 39 32 34 32 37 61 65 34 31 65 34 36 34 39 62 39 33 34 63 61 34 39 35 39 39 31 62 37 38 35 32 62 38 35 35">>}, + {<<"CanonicalRequest">>, <<"GET\n/\nlist-type=2\ncontent-length:0\ndate:20160516T041429Z\nhost:s3.us-east-1.amazonaws.com\nx-amz-content-sha256:e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855\n\ncontent-length;date;host;x-amz-content-sha256\ne3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855">>}, + {<<"StringToSignBytes">>, <<"41 57 53 34 2d 48 4d 41 43 2d 53 48 41 32 35 36 0a 32 30 31 36 30 35 31 36 54 30 34 31 34 32 39 5a 0a 32 30 31 36 30 35 31 36 2f 75 73 2d 65 61 73 74 2d 31 2f 73 33 2f 61 77 73 34 5f 72 65 71 75 65 73 74 0a 37 65 39 30 38 65 33 36 65 61 36 63 30 37 65 35 34 32 66 66 61 63 32 31 65 63 33 65 31 31 61 63 63 33 62 61 66 30 32 32 64 39 31 33 33 64 39 37 36 34 65 31 35 32 31 62 31 35 32 35 38 36 66 37">>}, + {<<"SignatureProvided">>, <<"841d7b89150d246feee9bceb90f5cae91d0c45f44851742c73eb87dc8472748e">>}, + {<<"StringToSign">>, <<"AWS4-HMAC-SHA256\n20160516T041429Z\n20160516/us-east-1/s3/aws4_request\n7e908e36ea6c07e542ffac21ec3e11acc3baf022d9133d9764e1521b152586f7">>}, + {<<"AWSAccessKeyId">>, <<"AKIAIPPU25E5RA4MIYKQ">>}, + {<<"Message">>, <<"The request signature we calculated does not match the signature you provided. Check your key and signing method.">>}, + {<<"Code">>, <<"SignatureDoesNotMatch">>} + ]}], + ?assertEqual(Expectation, Value) + end} + ]. +