Packages

eradius

0.8.7
2.3.1 2.3.0 2.2.4 2.2.3 2.2.2 2.2.1 2.2.0 2.1.0 2.0.1 2.0.0 1.0.1 1.0.0 0.9.2 0.9.1 0.9.0 0.8.9 0.8.8 0.8.7 0.8.6 0.8.5 0.8.4 0.8.3 0.8.2

Erlang RADIUS server

HexDocs

Current section

Files

Jump to
Readme
23 Versions
2 Dependencies
Dependants
Files
Activity
eradius src eradius_example_handler.erl
Raw

src/eradius_example_handler.erl 

-module(eradius_example_handler).



-behaviour(eradius_server).

-export([radius_request/3]).



-include("eradius_lib.hrl").

-include("dictionary.hrl").



radius_request(R = #radius_request{cmd = request}, _NasProp, {_Args, _NasIdIp}) ->

    io:format("~nGOT AUTH REQUEST:~n~p~n", [R]),

    Response = #radius_request{cmd = accept, attrs = [{?Realm, "foo"}]},

    {reply, Response};



radius_request(R = #radius_request{cmd = accreq}, _NasProp, {_Args, _NasIdIp}) ->

    io:format("~nGOT ACCT REQUEST:~n~p~n", [R]),

    Response = #radius_request{cmd = accresp, attrs = [{?Menu, <<"foo">>}]},

    {reply, Response}.