From 3beb58199322355f8caa166000bb94e9419b4232 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 7 Sep 2001 20:17:50 +0000
Subject: fix RADIUS attribute capitalization

---
 bin/fs-radius-add-reply | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'bin/fs-radius-add-reply')

diff --git a/bin/fs-radius-add-reply b/bin/fs-radius-add-reply
index 997a8eac7..d2f2e11f0 100755
--- a/bin/fs-radius-add-reply
+++ b/bin/fs-radius-add-reply
@@ -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 reply 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>);
-- 
cgit v1.2.1