diff options
author | Ivan Kohler <ivan@freeside.biz> | 2013-05-06 23:13:11 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2013-05-06 23:13:11 -0700 |
commit | 9d35792778885932c09102bd011b518eb47c5131 (patch) | |
tree | eba3d5836a71c74c8260733c044a529dbd1e56bc /bin/fs-radius-add-reply | |
parent | 5c898c621e1343f8c116a75ca3131eb78229e09b (diff) |
NG auth: fix new customer, remove mapsecrets support, RT#21563
Diffstat (limited to 'bin/fs-radius-add-reply')
-rwxr-xr-x | bin/fs-radius-add-reply | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/bin/fs-radius-add-reply b/bin/fs-radius-add-reply index 3de01374f..c6c24e039 100755 --- a/bin/fs-radius-add-reply +++ b/bin/fs-radius-add-reply @@ -1,20 +1,18 @@ #!/usr/bin/perl -Tw # quick'n'dirty hack of fs-setup to add radius attributes +# (i'm not sure this even works in the new world of schema changes - everyone +# uses attributes via groups now) use strict; use DBI; -use FS::UID qw(adminsuidsetup checkeuid getsecrets); +use FS::UID qw(adminsuidsetup); use FS::raddb; -die "Not running uid freeside!" unless checkeuid(); - my %attrib2db = map { lc($FS::raddb::attrib{$_}) => $_ } keys %FS::raddb::attrib; my $user = shift or die &usage; -getsecrets($user); - my $dbh = adminsuidsetup $user; ### |