dani
/
zimbra
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Dedup LDAP aliases in zimbraNotes

This commit is contained in:
Daniel Berteaud 2019-07-17 12:39:31 +02:00
parent fe34c0ddf0
commit f6f14a81c5
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
zmldapsync/zmldapsync.pl
View File

@ -9,6 +9,7 @@ use Getopt::Long;
use Data::UUID;
use String::ShellQuote qw(shell_quote);
use Array::Diff;
use List::MoreUtils qw(uniq);
use Hash::Merge::Simple qw(merge);
use Text::Unidecode;
use Email::MIME;
@ -388,7 +389,7 @@ DOMAIN: foreach my $domain ( keys $conf->{domains} ) {
@{ $ext_users->{$user}->{$conf->{domains}->{$domain}->{users}->{$mail_attr}} };
}
@ext_aliases = sort @ext_aliases;
@ext_aliases = sort uniq @ext_aliases;
foreach my $alias ( @ext_aliases ) {
next if ( not alias_matches_domain( $alias, $domain_entry ) );
@ -630,6 +631,7 @@ DOMAIN: foreach my $domain ( keys $conf->{domains} ) {
push @ext_aliases,
@{ $ext_groups->{$group}->{$conf->{domains}->{$domain}->{groups}->{$mail_attr}} };
}
@ext_aliases = sort uniq @ext_aliases;
foreach my $alias ( @ext_aliases ) {
next if ( not alias_matches_domain( $alias, $domain_entry ) );
next if ( grep { $alias eq $_ } @{ $zim_dl->{$group}->{mail} } );