Eradius usage

[Sean Hinde]

Hi,

It appears from your trace that you have set the shared secret to an  
atom, which is why the md5 is failing.

I suggest you retry with the shared secret as a list (string).

Regs,
Sean

On 20 Aug 2004, at 00:54, Stephen Gibberd wrote:

> Hello,
>
> I'm new to erlang and am trying to get eradius from jungerl working.
> I've tried the following:
>
> l(et), l(eradius), l(eradius_acc), l(eradius_dict), l(eradius_lib),
> l(eradius_server), l(eradius_server_example).
> mnesia:start().
> eradius:start().
> eradius:load_tables(["dictionary"]).
> eradius_server:create_tables([]).
> eradius_server: 
> define_ras({192,168,79,99},1812,test,{eradius_server_example,test}).
> eradius_server:trace_on({192,168,79,99},1812).
> eradius_server:start_link({192,168,79,107},1812).
>
> I thought this would use the eradius_server_example:test function to
> authenticate any requests coming from 192.168.79.99 but when I test  
> from
> 192.168.79.99 using this command there is no reply:
>
>   radtest test test 192.168.79.107 1812 test
>
> I tried to trace the radius_server process and saw it calling
> eradius_server_example:test correctly (though the function didn't print
> anything as I thought it would):
> ...Many lines deleted....
> <0.297.0>: call  eradius_server_example:test({rad_pdu, 125,
>   <<201,94,97,46,238,155,177,72,179,85,236,55,140,174,112,96>>,  
> {request,
>   [{{attribute,5,integer,"NAS_Port"},1812},
>   {{attribute,4,ipaddr,"NAS_IP_Address"},{192,168,79,99}},
>   {{attribute,2,string,"User_Password"},
>   [237,170,124,54,202,213,211,109,5,130,29,119,238,96,8,132]},
>   {{attribute,1,string,"User_Name"},"test"}]}}, {nas_prop, {{192,
>   168, 79, 99}, 1812}, test, {eradius_server_example, test}, true})
> <0.297.0>: call  eradius_server:encode_reply({rad_accept,
>  undefined, [], []}, {rad_pdu, 125,
>   <<201,94,97,46,238,155,177,72,179,85,236,55,140,174,112,96>>,
>   {request, [{{attribute,5,integer,"NAS_Port"},1812},
>   {{attribute,4,ipaddr,"NAS_IP_Address"},{192,168,79,99}},
>   {{attribute,2,string,"User_Password"},
>   [237,170,124,54,202,213,211,109,5,130,29,119,238,96,8,132]},
>   {{attribute,1,string,"User_Name"},"test"}]}}, test)
>
> Eradius_server_example:test seems to return rad_accept as it should,
> but the eradius_server:encode_reply function seems to fail:
>
> .... many lines deleted .........
> <0.297.0>: call  erlang:md5([<<2,125,0,20>>,
>  <<201,94,97,46,238,155,177,72,179,85,236,55,140,174,112,96>>,
>   [[],[]],
>   test])
> <0.297.0>: call  proc_lib:exit_p({'EXIT', {badarg, [{erlang,md5,
>           [[<<2,125,0,20>>,
>              
> <<201,94,97,46,238,155,177,72,179,85,236,55,140,174,112,96>>,
>             [[],[]],
>             test]]},
>   {eradius_lib,enc_reply_pdu,2},
>   {eradius_server,encode_reply,3},
>   {eradius_server,radius,4},
>   {proc_lib,init_p,5}]}}, {eradius_server, radius, [<0.99.0>,
>   {udp,#Port<0.184>,
>        {192,168,79,99},
>        32781,
>   
> <<1,125,0,56,201,94,97,46,238,155,177,72,179,85,236,55,140,174,112,96,1 
> ,
>   
> 6,116,101,115,116,2,18,237,170,124,54,202,213,211,109,5,130,29,119,238, 
> 96
>  ,8,132,4,6,192,168,79,99,5,6,0,0,7,20>>},
>   125,
>   
> {nas_prop,{{192,168,79,99},1812},test,{eradius_server_example,test},tru 
> e}]})
>
> Any hints or suggestions as to where I'm going wrong?
>
> Thanks, Stephen