From: ivan <ivan>
Date: Tue, 22 Jun 2004 03:10:40 +0000 (+0000)
Subject: fix attribute importing bugs that borked the passwords
X-Git-Tag: freeside_1_4_2beta1~57
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=b103b8634ba68182b0858679e90d37961cb0555a

fix attribute importing bugs that borked the passwords
---

diff --git a/bin/sqlradius.import b/bin/sqlradius.import
index 587d828e4..e75f65b17 100644
--- a/bin/sqlradius.import
+++ b/bin/sqlradius.import
@@ -116,8 +116,8 @@ while ( defined ( $row = $sth->fetchrow_arrayref ) ) {
   $rc_sth->execute($r_username, $realm) or die $rc_sth->errstr;
 
   foreach my $rc_row ( @{$rc_sth->fetchall_arrayref} ) {
-    my($attribute, $value, $name, $groupname) = @$row;
-    if ( $attribute =~ /^(Crypt-)?Password$/ ) {
+    my($attribute, $value, $name, $groupname) = @$rc_row;
+    if ( $attribute =~ /^((User|Crypt)-)?Password$/ ) {
       $password = $value;
       $finger = $name;
       $group = $groupname;