diff options
Diffstat (limited to 'bin/fs-radius-add-check')
-rwxr-xr-x | bin/fs-radius-add-check | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/bin/fs-radius-add-check b/bin/fs-radius-add-check index fadba0165..eedd9b699 100755 --- a/bin/fs-radius-add-check +++ b/bin/fs-radius-add-check @@ -5,8 +5,13 @@ use strict; use DBI; use FS::UID qw(adminsuidsetup checkeuid getsecrets); +use FS::raddb; + die "Not running uid freeside!" unless checkeuid(); +my %attrib2db = + map { $FS::raddb::attrib{lc($_)} => $_ } keys %FS::raddb::attrib; + my $user = shift or die &usage; getsecrets($user); @@ -18,7 +23,8 @@ print "\n\n", <<END, ":"; Enter the additional RADIUS check attributes you need to track for each user, separated by whitespace. END -my @attributes = map { s/\-/_/g; $_; } split(" ",&getvalue); +my @attributes = map { $attrib2db{lc($_)} or die "unknown attribute $_"; } + split(" ",&getvalue); sub getvalue { my($x)=scalar(<STDIN>); |