Changeset 1984 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases

Timestamp:

04/18/17 17:49:15 (7 years ago)

Author:

nanardon

Message:

Add function to generate login from first/last name

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/OCHelper/User.pm (modified) (1 diff)

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

@@ -34 +34 @@
             
             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) {
-                    $self->base->get_object('user', $login) or do {
-                        $info->{name}{content} = $login;
-                        last;
-                    };
-                    if ($info->{contents}{givenName}) {
-                        length($login) > 8 and $login = substr($login, 0, 8);
-                        $login .= substr(lc(to_ascii($info->{contents}{givenName})), 0, 1);
-                        $self->base->get_object('user', $login) or do {
-                            $info->{name}{contents} = $login;
-                            last;
-                        };
-                    }
+                my $login = buildLogin(
+                    sub {
+                        !$self->base->get_object('user', $_[0]);
+                    },
+                    $info->{contents}{sn},
+                    $info->{contents}{givenName},
+                );
+                if ($login) {
+                    $info->{name}{content} = $login;
                 }
             }