aboutsummaryrefslogtreecommitdiffstats
path: root/misc/mklist
diff options
context:
space:
mode:
Diffstat (limited to 'misc/mklist')
-rwxr-xr-xmisc/mklist/mklist.pl26
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}})