---
name: "Authen::Simple::RADIUS"
section: "3pm"
platform: "linux"
package: "libauthen-simple-radius-perl"
version: "0.1-4"
release: "Debian 13 (Trixie)"
platforms: ["linux"]
url: "https://new.carta.tech/Authen::Simple::RADIUS"
---

# Authen::Simple::RADIUS(3pm)

Simple RADIUS authentication

## 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.