Changeset 1388

Timestamp:

08/18/15 11:00:08 (9 years ago)

Author:

nanardon

Message:

use aliases attribute in zimbra base

We now use the common aliases attributes to setup zimbraMailAliases on user.
The zimbraMailAliases still exists as read-only for information only.

File:

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

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

@@ -47 +47 @@
         zimbraMailAlias => { 
             multiple => 1,
+            ro => 1,
+        },
+        aliases => {
+            multiple => 1,
+            get => sub {
+                my ($self) = @_;
+                return ref $self->object->{zinfo}{zimbraMailAlias}
+                    ? @{ $self->object->{zinfo}{zimbraMailAlias} }
+                    : $self->object->{zinfo}{zimbraMailAlias};
+            },
             set => sub {
                 my ($self, $data) = @_;
@@ -53 +63 @@
                     : $self->object->{zinfo}{zimbraMailAlias};
                 my %currentalias = map { $_ => 1 } grep { $_ } @zimbraMailAlias;
-                my %newalias = map { $_ => 1 } grep { $_ } (ref $data ? @{$data} : $data);
+                my %newalias;
+                foreach (grep { $_ } (ref $data ? @{$data} : $data)) {
+                    # Adding domain to unqualified aliases
+                    $_ =~ /@/ or $_ .= '@' . $self->object->base->{domain};
+                    $newalias{$_} = 1;
+                }
                 foreach (keys %currentalias) {
                     $newalias{$_} and next;