diff options
| author | Guilhem Moulin <guilhem.moulin@fripost.org> | 2012-09-24 15:44:23 +0200 |
|---|---|---|
| committer | Guilhem Moulin <guilhem.moulin@fripost.org> | 2012-09-24 15:45:38 +0200 |
| commit | aaca3cc7cb413af1f566ac8d7a601d3c142e89f0 (patch) | |
| tree | fb2f098411c7353fbf43568ce4c7bc2234b7625a /misc/mklist | |
| parent | 8e782993834d4985cd69a103ede0b34f168125ce (diff) | |
The "pending" flag should be removed last.
Diffstat (limited to 'misc/mklist')
| -rwxr-xr-x | misc/mklist/mklist.pl | 26 |
1 files changed, 14 insertions, 12 deletions
diff --git a/misc/mklist/mklist.pl b/misc/mklist/mklist.pl index 37c05e5..ac5f526 100755 --- a/misc/mklist/mklist.pl +++ b/misc/mklist/mklist.pl @@ -155,17 +155,6 @@ my @cmds = $transport eq 'mailman' ? qw/admin bounces confirm join leave owner r ####################################################################### # -# Add the LDAP commands under the list's root DN, and remove the -# 'pending' status. -{ - my $fp = &auth(); - $fp->list->add_commands($list, \@cmds); - $fp->done; -} - - -####################################################################### -# # Create/update the Postfix lookup table. { @@ -191,6 +180,19 @@ my @cmds = $transport eq 'mailman' ? qw/admin bounces confirm join leave owner r } +####################################################################### +# +# Add the LDAP commands under the list's root DN, and remove the +# 'pending' status. +{ + my $fp = &auth(); + $fp->list->add_commands($list, \@cmds); + $fp->done; +} + + +####################################################################### +# # Append a list command to the lookup table. sub print_transport { my $fh = shift; @@ -202,7 +204,7 @@ sub print_transport { or die "Cannot printf: $!"; } -# Authenticate +# Authenticate to the LDAP directory. sub auth { Fripost::Schema::->auth( undef, $config->{ldap_bind_pw} , ldap_bind_dn => join(',',@{$config->{ldap_bind_dn}}) |