Authen-Simple-RADIUS
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/Authen/Simple/RADIUS.pm view on Meta::CPAN
package Authen::Simple::RADIUS;
use strict;
use warnings;
use base 'Authen::Simple::Adapter';
use Authen::Radius;
use Params::Validate qw[];
our $VERSION = 0.1;
__PACKAGE__->options({
host => {
type => Params::Validate::SCALAR,
default => 'localhost',
optional => 1
},
port => {
type => Params::Validate::SCALAR,
default => 1812,
optional => 1
},
timeout => {
type => Params::Validate::SCALAR,
default => 10,
optional => 1
},
secret => {
type => Params::Validate::SCALAR,
optional => 0
}
});
sub check {
my ( $self, $username, $password ) = @_;
my $connection = Authen::Radius->new(
Host => sprintf( "%s:%d", $self->host, $self->port ),
Secret => $self->secret,
Timeout => $self->timeout
);
unless ( defined $connection ) {
my $host = $self->host;
$self->log->error( qq/Failed to connect to '$host'. Reason: '$@'/ )
if $self->log;
return 0;
}
unless ( $connection->check_pwd( $username, $password ) ) {
my $error = $connection->strerror;
$self->log->debug( qq/Failed to authenticate user '$username'. Reason: '$error'/ )
if $self->log;
return 0;
}
$self->log->debug( qq/Successfully authenticated user '$username'./ )
if $self->log;
return 1;
}
1;
__END__
=head1 NAME
Authen::Simple::RADIUS - Simple RADIUS authentication
=head1 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
view all matches for this distributionview release on metacpan - search on metacpan
( run in 1.167 second using v1.00-cache-2.02-grep-82fe00e-cpan-2c419f77a38b )