NAME

AnyEvent::Radius::Server - module to implement AnyEvent based RADIUS server

SYNOPSYS

use AnyEvent;
use AnyEvent::Radius::Server;

sub radius_reply {
    # $h is hash-ref { request_id, type, av_list }
    my ($self, $h) = @_;
    ...
    return ($reply_type, $reply_av_list);
}

my $dict = AnyEvent::Radius::Server->load_dictionary('radius/dictionary');

my $server = AnyEvent::Radius::Server->new(
                ip => $ip,
                port => $port,
                read_timeout => 60,
                on_read => \&radius_reply,
                dictionary => $dict,
                secret => 'topsecret',
            );
AnyEvent->condvar->recv;

DESCRIPTION

The AnyEvent::Radius::Server module allows to handle RADIUS requests in non-blocking way

CONSTRUCTOR

new (...options hash ...)

ip - listen on ip, mandatory

port - listen on port (default 1812)

secret - RADIUS secret string

dictionary - optional, dictionary loaded by load_dictionary() method

on_read - called with parsed packed, in hash-ref {type, request_id, av_list, from}

on_read_raw - called with raw binary packet as an argument

on_wrong_request - received packet is not of request type (no reply sent)

on_error - low-lever socket error occured

METHODS

load_dictionary ($dictionary-file)

Class method to load dictionary - returns the object to be passed to constructor

SEE ALSO

AnyEvent::Radius::Client

AUTHOR

Sergey Leschenko <sergle.ua at gmail.com>

PortaOne Development Team <perl-radius at portaone.com> is the current module's maintainer at CPAN.