zydronium/internetee-epp_proxy
1
0
Fork 0
mirror of https://github.com/internetee/epp_proxy.git synced 2025-08-22 07:00:47 +02:00
Code Issues Projects Releases Packages Wiki Activity

Upgraded and created dockerfiles

Browse source
This commit is contained in:
tsoganov 2025-04-14 12:57:40 +03:00
parent 99b714676b
commit 1f40bbf3fb
18 changed files with 343 additions and 94 deletions
Download patch file Download diff file Expand all files Collapse all files

14
apps/epp_proxy/test/tcp_client_SUITE.erl
View file

@ -215,15 +215,21 @@ send_data(Message, Socket) ->
receive_data(Socket) ->
case gen_tcp:recv(Socket, 0, 1200) of
{error, Reason} -> {error, Reason};
{ok, Data } ->
{ok, Data} ->
EppEnvelope = binary:part(Data, {0, 4}),
ReportedLength = binary:decode_unsigned(EppEnvelope, big),
binary:part(Data, {byte_size(Data), 4 - ReportedLength})
end.
% Extract the actual data, skipping the 4-byte length header
binary:part(Data, {4, byte_size(Data) - 4})
end.
match_data(Data, Pattern) ->
{ok, MatchPattern} = re:compile(Pattern),
{match, _Captured} = re:run(Data, MatchPattern).
case re:run(Data, MatchPattern) of
{match, _Captured} -> {match, _Captured};
nomatch ->
ct:pal("Expected pattern '~s' not found in data:~n~p", [Pattern, Data]),
nomatch
end.
hello_command() ->
<<"<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"no\"?>",

14
apps/epp_proxy/test/tls_client_SUITE.erl
View file

@ -222,15 +222,21 @@ send_data(Message, Socket) ->
receive_data(Socket) ->
case ssl:recv(Socket, 0, 1200) of
{error, Reason} -> {error, Reason};
{ok, Data } ->
{ok, Data} ->
EppEnvelope = binary:part(Data, {0, 4}),
ReportedLength = binary:decode_unsigned(EppEnvelope, big),
binary:part(Data, {byte_size(Data), 4 - ReportedLength})
end.
% Extract the actual data, skipping the 4-byte length header
binary:part(Data, {4, byte_size(Data) - 4})
end.
match_data(Data, Pattern) ->
{ok, MatchPattern} = re:compile(Pattern),
{match, _Captured} = re:run(Data, MatchPattern).
case re:run(Data, MatchPattern) of
{match, _Captured} -> {match, _Captured};
nomatch ->
ct:pal("Expected pattern '~s' not found in data:~n~p", [Pattern, Data]),
nomatch
end.
hello_command() ->
<<"<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"no\"?>",