Authen::Simple::RADIUS (3pm)

    use Authen::Simple::RADIUS;

my $radius = Authen::Simple::RADIUS->new( host => 'radius.company.com', secret => 'secret' );

if ( $radius->authenticate( $username, $password ) ) { # successfull authentication }

# or as a mod_perl Authen handler

PerlModule Authen::Simple::Apache PerlModule Authen::Simple::RADIUS

PerlSetVar AuthenSimpleRADIUS_host "radius.company.com" PerlSetVar AuthenSimpleRADIUS_pdc "secret"

<Location /protected> PerlAuthenHandler Authen::Simple::RADIUS AuthType Basic AuthName "Protected Area" Require valid-user </Location>

\s-1RADIUS\s0 authentication.

* new

This method takes a hash of parameters. The following options are valid:

* host

Connection host, can be a hostname or \s-1IP\s0 address. Defaults to \*(C`localhost\*(C'. host => 'ldap.company.com' host => '10.0.0.1'

* port

Connection port, default to 1812. port => 1645

* timeout

Connection timeout, defaults to 10. timeout => 20

* secret

Shared secret. Required. secret => 'mysecret'

* log

Any object that supports \*(C`debug\*(C', \*(C`info\*(C', \*(C`error\*(C' and \*(C`warn\*(C'. log => Log::Log4perl->get_logger('Authen::Simple::RADIUS')

Returns true on success and false on failure.

Authen::Simple.

Authen::Radius.

Christian Hansen \*(C`[email protected]\*(C'

This program is free software, you can redistribute it and/or modify it under the same terms as Perl itself.