The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

Authen::Simple::RADIUS - Simple RADIUS authentication

SYNOPSIS

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>    

DESCRIPTION

RADIUS authentication.

METHODS

  • new

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

    • host

      Connection host, can be a hostname or IP address. Defaults to localhost.

      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 debug, info, error and warn.

      log => Log::Log4perl->get_logger('Authen::Simple::RADIUS')
  • authenticate( $username, $password )

    Returns true on success and false on failure.

SEE ALSO

Authen::Simple.

Authen::Radius.

AUTHOR

Christian Hansen ch@ngmedia.com

COPYRIGHT

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