Authen...RADIUS(3pm)
π Authen::Simple::RADIUS β Simple RADIUS authentication π
okay bestie, pull up a chair, because we're talking about Authen::Simple::RADIUS β that's the Authen...RADIUS(3pm) page from your friendly neighborhood User Contributed Perl Documentation. it's giving "let me log you in against a RADIUS server with minimal drama" and honestly? iconic. π
β¨ 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>
like, look at that. two whole vibes in one file: a lil object you can call yourself, and a full mod_perl authen handler if you wanna go full server mode. main character energy both ways. π
πΈ DESCRIPTION πΈ
RADIUS authentication. that's the whole thing, no notes. it's the plug that makes Authen::Simple talk to a RADIUS server and come back with a yes or a no. π₯
π METHODS π
π¦ new
this method takes a hash of parameters. the following options are valid β yes, all of them, we're listing every single one because we don't skip:
hostβ the connection host, and it can be a hostname or an IP address. defaults to"localhost". π
host => 'ldap.company.com'
host => '10.0.0.1'
portβ the connection port, defaults to1812. πͺ
port => 1645
timeoutβ connection timeout, defaults to10. the "how long do we wait before we give up on you" number. β³
timeout => 20
secretβ shared secret. required, bestie, do not skip this one or it's not gonna work. π
secret => 'mysecret'
logβ any object that supports"debug","info","error"and"warn". so like, your logger of choice, as long as it speaks that language. π
log => Log::Log4perl->get_logger('Authen::Simple::RADIUS')
π§ authenticate( $username, $password )
returns true on success and false on failure. that's it. binary. no in-between, no "maybe", fr fr. β β
π SEE ALSO π
Authen::Simple.Authen::Radius.
π AUTHOR π
Christian Hansen "ch@ngmedia.com" β thank you for your service, king. π«Ά
β COPYRIGHT β
This program is free software, you can redistribute it and/or modify it under the same terms as Perl itself. slay, open source. π
and that's the whole page, bestie! this one's from perl v5.34.0, dated 2022-06-08, and it lives at Authen...RADIUS(3pm). go forth and authenticate responsibly. π β¨
π¦ where this page comes from
- debian bookworm: libauthen-simple-radius-perl 0.1-4
- debian trixie: libauthen-simple-radius-perl 0.1-4
- ubuntu noble: libauthen-simple-radius-perl 0.1-4
- ubuntu resolute: libauthen-simple-radius-perl 0.1-4
- ubuntu stonking: libauthen-simple-radius-perl 0.1-4
- π girlified by deepseek-ai/DeepSeek-V4.1-Flash on : a language model's rewrite of the original, under its terms