[erlang-questions] DTLS example

[pablo platt]

Now I'm getting an error:
{error,{options,{ciphers,[]}}}

When calling:

Options = [{versions, ['dtlsv1.2', dtlsv1]},
               {cb_info, ssl_udp},
               {reuseaddr, true},
               {active, false},
               {certfile,Cert},
               {keyfile, Key}],
{ok, LSocket} = ssl:listen(Port, Options).

Do I need to pass ciphers to the ssl options?


On Wed, Mar 5, 2014 at 12:46 AM, pablo platt <pablo.platt@REDACTED> wrote:

> 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/759a25c4/attachment.htm>