Changeset 1729 for trunk/LATMOS-Accounts

Timestamp:

02/26/16 17:15:52 (8 years ago)

Author:

nanardon

Message:

Don't rebuild automember aliases if not need

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/Aliases.pm (modified) (2 diffs)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/Aliases.pm

@@ -231 +231 @@
     }
 
-    my %email = $self->base->attributes_summary_by_object('user', 'mail');
-
     $self->base->log(LA_DEBUG,
         "Populating aliases %s from autoMemberFilter attribute",
         $self->id
     );
+
+    my $listh = $self->base->db->prepare_cached(q{
+        SELECT forward FROM aliases WHERE ikey = ?
+    });
+
+    $listh->execute($self->Iid);
+    my $res = $listh->fetchrow_hashref;
+    $listh->finish;
+    my $currentForward = $res->{forward} || [];
+
+    my %email = $self->base->attributes_summary_by_object('user', 'mail');
+
     my $filter = $self->get_field('autoMemberFilter');
     my $autoex = $self->get_field('autoExclude');
@@ -250 +260 @@
         my $mail = $email{$user}->[0] or next;
         $forward{$mail} = 1;
+    }
+
+    if (join(',', sort @$currentForward) eq join(',', sort keys %forward)) {
+        $self->base->log(
+            LA_DEBUG,
+            "No need to update alias %s for autoMemberFilter settings",
+            $self->id,
+        );
+        return 0;
     }