well ... that might be useful, but I'm not familiar with these
corner cases, and I'd pretty much expect Authen::Radius to know
where it can find its dictionary, so this looks like some workaround
for a broken Perl installation.
Nevertheless, it's easy enough to implement. The next snapshot (due
in a couple of minutes) comes with the patch below applied.
Thanks,
Marc
diff -u -r1.20 mavis_tacplus_radius.pl
--- mavis_tacplus_radius.pl 2015/10/03 17:23:15 1.20
+++ mavis_tacplus_radius.pl 2016/07/13 17:28:01
@@ -19,6 +19,7 @@
my $RADIUS_HOST = 'localhost';
my $RADIUS_SECRET = 'secret';
my $RADIUS_GROUP_ATTR = undef;
+my $RADIUS_DICTIONARY = undef;
my ($ACCESS_REQUEST, $ACCESS_ACCEPT);
@@ -35,6 +36,7 @@
$RADIUS_HOST = $ENV{'RADIUS_HOST'} if exists
$ENV{'RADIUS_HOST'};
$RADIUS_SECRET = $ENV{'RADIUS_SECRET'} if exists
$ENV{'RADIUS_SECRET'};
+$RADIUS_DICTIONARY = $ENV{'RADIUS_DICTIONARY'} if exists
$ENV{'RADIUS_DICTIONARY'};
if ($ACCESS_REQUEST) {
$RADIUS_GROUP_ATTR = $ENV{'RADIUS_GROUP_ATTR'} if
exists $ENV{'RADIUS_GROUP_ATTR'};
@@ -50,7 +52,7 @@
die unless defined $radius;
if ($ACCESS_REQUEST) {
- Authen::Radius->load_dictionary();
+
Authen::Radius->load_dictionary($RADIUS_DICTIONARY);
}
use lib '/usr/local/lib/mavis';