Changeset 765 for LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web

Timestamp:

01/28/10 00:52:43 (14 years ago)

Author:

nanardon

Message:

• automatically try to find aliases, revaliases and mail

File:

• LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Create.pm (modified) (1 diff)

LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Create.pm

@@ -64 +64 @@
                     }
                 }
+
+                my $mailid = $c->req->params->{givenName} && $c->req->params->{sn}
+                ? sprintf('%s.%s',
+                    to_ascii(lc($c->req->params->{givenName})),
+                    to_ascii(lc($c->req->params->{sn})),)
+                : undef;
+
+                if ($mailid &&
+                    $base->is_supported_object('aliases') &&
+                    ! $base->get_object('aliases', $mailid)) {
+                    if ($base->get_field_name('user', 'mail', 'write')) {
+                        if ($base->{defattr}{'user.maildomain'}) {
+                            $c->req->params->{mail} ||= sprintf('%s@%s',
+                                $mailid,
+                                $base->{defattr}{'user.maildomain'});
+                        }
+                    }
+                    if ($base->get_field_name('user', 'aliases', 'write')) {
+                        $c->req->params->{aliases} ||= $mailid;
+                    }
+                    warn $base->get_field_name('user', 'revaliases', 'write');
+                    if ($base->get_field_name('user', 'revaliases', 'write')) {
+                        $c->req->params->{revaliases} ||= $mailid;
+                    }
+                }
             }
             last;