1 files changed, 50 insertions, 0 deletions
diff --git a/extensions/LDAPGroups/sync_LDAPGroups.pl b/extensions/LDAPGroups/sync_LDAPGroups.pl
new file mode 100755
index 0000000..ef736d1
--- /dev/null
+++ b/extensions/LDAPGroups/sync_LDAPGroups.pl
@@ -0,0 +1,50 @@
+#!/usr/bin/perl -w
+# -*- Mode: perl; indent-tabs-mode: nil -*-
+#
+# This Source Code Form is subject to the terms of the Mozilla Public
+# License, v. 2.0. If a copy of the MPL was not distributed with this
+# file, You can obtain one at http://mozilla.org/MPL/2.0/.
+#
+# This Source Code Form is "Incompatible With Secondary Licenses", as
+# defined by the Mozilla Public License, v. 2.0.
+#
+# Script to syncronize group members with LDAP on an ad-hoc basis
+#
+
+use strict;
+use warnings;
+use lib qw(. lib);
+
+use Bugzilla;
+BEGIN { Bugzilla->extensions }
+
+use Bugzilla::Extension::LDAPGroups::Util qw(sync_ldap);
+
+# Get all groups where the ldap_dn has been set
+sub get_groups_using_ldap_dn(){
+    my @groups   = Bugzilla::Group->get_all;
+
+    my @groups_with_ldap_dn;
+
+    foreach my $group (@groups){
+        if ($group->ldap_dn){
+            push @groups_with_ldap_dn, $group;
+        }
+    }
+    
+    return @groups_with_ldap_dn;
+}
+
+sub main(){
+    my @groups = get_groups_using_ldap_dn();
+
+    # For every group that has a ldap_dn update
+    # the groups' members according to LDAP
+    foreach my $group (@groups){
+        sync_ldap($group);
+    }
+
+    return;
+}
+
+main();