Changeset 2270 for trunk/LATMOS-Accounts/lib/LATMOS

Timestamp:

06/20/19 16:23:01 (5 years ago)

Author:

nanardon

Message:

Strip domain when fetching zimbra aliases

File:

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

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

@@ -53 +53 @@
             get => sub {
                 my ($self) = @_;
-                return ref $self->object->{zinfo}{zimbraMailAlias}
-                    ? $self->object->{zinfo}{zimbraMailAlias}
-                    : $self->object->{zinfo}{zimbraMailAlias};
+                my $domain = $self->object->base->{domain};
+                return [
+                    map { s/@\Q$domain\E$//; $_ }
+                    ref $self->object->{zinfo}{zimbraMailAlias}
+                        ? @{ $self->object->{zinfo}{zimbraMailAlias} }
+                        : $self->object->{zinfo}{zimbraMailAlias}
+                ]
             },
             set => sub {