Changeset 941 for LATMOS-Accounts

Timestamp:

04/25/12 15:51:29 (12 years ago)

Author:

nanardon

Message:

• remove space from login and mail when creating user

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/OCHelper/User.pm (modified) (2 diffs)

LATMOS-Accounts/lib/LATMOS/Accounts/Bases/OCHelper/User.pm

@@ -24 +24 @@
             if ($info->{contents}{sn}) {
                 my $login = lc(to_ascii($info->{contents}{sn}));
+                $login =~ s/ //g; # strip space in login
                 length($login) > 10 and $login = substr($login, 0, 8);
                 for (1) {
@@ -52 +53 @@
                 to_ascii(lc($info->{contents}{sn})),)
             : undef;
+        $mailid =~ s/ /-/g if ($mailid); # replace space by '-' in mail
         push(@{$info->{ask}}, 'mail');
         $info->{contents}{mail} = $mailid && $self->base->{defattr}{'user.maildomain'}