diff options
| -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}}) |