allow + in md5 encrypted passwords
authorivan <ivan>
Fri, 27 Sep 2002 12:14:32 +0000 (12:14 +0000)
committerivan <ivan>
Fri, 27 Sep 2002 12:14:32 +0000 (12:14 +0000)
FS/FS/svc_acct.pm

index 04a86a8..44f3ef4 100644 (file)
@@ -791,7 +791,7 @@ sub check {
     #$recref->{password} = $1.
     #  crypt($3,$saltset[int(rand(64))].$saltset[int(rand(64))]
     #;
-  } elsif ( $recref->{_password} =~ /^((\*SUSPENDED\* )?)([\w\.\/\$\;]{13,34})$/ ) {
+  } elsif ( $recref->{_password} =~ /^((\*SUSPENDED\* )?)([\w\.\/\$\;\+]{13,34})$/ ) {
     $recref->{_password} = $1.$3;
   } elsif ( $recref->{_password} eq '*' ) {
     $recref->{_password} = '*';