aboutsummaryrefslogtreecommitdiffstats
path: root/misc
diff options
context:
space:
mode:
authorGuilhem Moulin <guilhem.moulin@fripost.org>2012-09-24 15:44:23 +0200
committerGuilhem Moulin <guilhem.moulin@fripost.org>2012-09-24 15:45:38 +0200
commitaaca3cc7cb413af1f566ac8d7a601d3c142e89f0 (patch)
treefb2f098411c7353fbf43568ce4c7bc2234b7625a /misc
parent8e782993834d4985cd69a103ede0b34f168125ce (diff)
The "pending" flag should be removed last.
Diffstat (limited to 'misc')
-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}})