How to access config parameters for rlm_perl

16 Feb 2010

      Hi,

I want to set up some config parameters for use in my perl module. I
think these are supposed to be in the RAD_CONFIG hash. But this hash
always seems to be empty.

Any ideas? Maybe I have I have my config parameters defined in the wrong
place?

Cheers,
David Donn

My site file:
accounting {

    example

}

My rlm_perl config file (from /etc/raddb/modules):
perl example {

        module = ${confdir}/example.pl

        foo = bar

}

My perl code (example.pl):
use strict;

# use ...
# This is very important ! Without this script will not get the filled
hashesh from main.
use vars qw(%RAD_REQUEST %RAD_REPLY %RAD_CHECK %RAD_CONFIG);

use constant    RLM_MODULE_OK=>        2;#  /* the module is OK,
continue */

use constant LOG_ERROR => 4;

sub accounting {

    # doesn't print anything, expected it to print "module =
/etc/raddb/example.pl" and "foo = bar"
    foreach my $k (keys %RAD_CONFIG) {
        &radiusd::radlog(LOG_ERROR, "Config $k = $RAD_CONFIG{$k}");
    }

    return RLM_MODULE_OK;
}