masonize fix: avoid newline prepend fix from borking indented first <%, fixes custome...

[freeside.git] / bin / sqlradius.import

diff --git a/bin/sqlradius.import b/bin/sqlradius.import
index 7203365..e8b6394 100644 (file)
--- a/bin/sqlradius.import
+++ b/bin/sqlradius.import
@@ -117,7 +117,7 @@ while ( defined ( $row = $sth->fetchrow_arrayref ) ) {
 
   foreach my $rc_row ( @{$rc_sth->fetchall_arrayref} ) {
     my($attribute, $value, $name, $groupname) = @$row;
-    if ( $attribute =~ /^(Crypt-)?Password$/ ) {
+    if ( $attribute =~ /^((User|Crypt)-)?Password$/ ) {
       $password = $value;
       $finger = $name;
       $group = $groupname;
@@ -134,9 +134,8 @@ while ( defined ( $row = $sth->fetchrow_arrayref ) ) {
     'finger'    => $finger,
   };
 
-  my($error);
-  $error = $svc_acct->insert;
-  #$error = $svc_acct->check;
+  my $error = $svc_acct->insert;
+  #my $error = $svc_acct->check;
   if ( $error ) {
     if ( $error =~ /duplicate/i ) {
       warn "$r_username / $realm: $error";