[erlang-questions] DTLS example

[pablo platt]

Hi,

I'm trying to use the dtls prototype from:
https://github.com/RoadRunnr/otp/tree/new_crypto_dtls

I'm getting an exception when trying to use a simple example.
What am I doing wrong?

Is there an example how to use this modified ssl app with R16 or R17?
I see that the branch adds crypto:algorithms/0
Is it the only modification needed except for the ssl app?

Thanks

test
---------------

init() ->
    Port = 5070,
    Cert = filename:join([dtls:priv_dir(webrtc), "cert.pem"]),
    Key = filename:join([dtls:priv_dir(webrtc), "key.pem"]),
    Options = [{versions, ['dtlsv1.2', dtlsv1]},
               {cb_info, ssl_udp},
               {reuseaddr, true},
               {active, false},
               {certfile,Cert},
               {keyfile, Key}],
    {ok, LSocket} = ssl:listen(Port,Options),
    spawn(?MODULE, accept, [LSocket]),
    {ok, #state{}}.

accept(LSocket) ->
   {ok, Socket} = ssl_udp:accept(LSocket, 5000),
   Pid = spawn(?MODULE, loop, [Socket]),
   ssl:controlling_process(Socket, Pid),
   accept(LSocket).

loop(Socket) ->
    inet:setopts(Socket, [{active, once}]),
    receive
        R ->
            error_logger:info_msg("~p~n", [R]),
            loop(Socket)
    end.


exception
---------------------------
{'EXIT',
    {function_clause,
        [{ssl_udp,call,
             [{sslsocket,nil,
                  {<0.103.0>,
                   {config,
                       {ssl_options,
                           [{254,253},{254,255}],
                           verify_none,
                           {#Fun<ssl.1.555667>,[]},
                           false,false,false,undefined,1,
                           <<"cert.pem">>,
                           undefined,
                           <<"key.pem">>,
                           undefined,[],undefined,<<>>,undefined,undefined,
                           undefined,undefined,undefined,
                           [<<"À$">>,<<"À(">>,<<"À&">>,<<"À*">>,
                            <<0,107>>,
                            <<0,106>>,
                            <<0,61>>,
                            <<"À#">>,<<"À'">>,<<"À%">>,<<"À)">>,
                            <<0,103>>,
                            <<0,64>>,
                            <<0,60>>,
                            <<"À\n">>,
                            <<192,20>>,
                            <<0,57>>,
                            <<0,56>>,
                            <<192,5>>,
                            <<192,15>>,
                            <<0,53>>,
                            <<"À\b">>,
                            <<192,18>>,
                            <<0,22>>,
                            <<0,19>>,
                            <<192,3>>,
                            <<"À\r">>,
                            <<0,10>>,
                            <<"À\t">>,
                            <<192,19>>,
                            <<0,51>>,
                            <<0,50>>,
                            <<192,4>>,
                            <<192,14>>,
                            <<0,47>>,
                            <<192,7>>,
                            <<192,17>>,
                            <<0,5>>,
                            <<0,4>>,
                            <<0,21>>,
                            <<192,2>>,
                            <<"À\f">>,
                            <<0,9>>],

#Fun<ssl.0.555667>,true,268435456,false,undefined,
                           undefined,false,undefined,undefined},
                       [{reuseaddr,true},{active,false}],
                       {socket_options,list,0,0,0,false},
                       [{reuseaddr,true},
                        {packet_size,0},
                        {packet,0},
                        {header,0},
                        {active,false},
                        {mode,binary}],
                       {ssl_udp,ssl_udp,udp_closed,udp_error}}}},
              accept,10000,infinity],
             [{file,"ssl_udp.erl"},{line,149}]},
         {dtls_test,accept,1,
             [{file,"src/dtls_test.erl"},{line,70}]}]}}
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://erlang.org/pipermail/erlang-questions/attachments/20140305/fa0932fa/attachment.htm>