Changeset 828 for server/common

Timestamp:

Aug 29, 2008, 6:36:20 PM (16 years ago)

Author:

andersk

Message:

Search by objectClass (otherwise you get “Admin limit exceeded”).

File:

• server/common/oursrc/execsys/ldapize.pl (modified) (1 diff)

server/common/oursrc/execsys/ldapize.pl

@@ -12 +12 @@
 
 # oh my gosh Net::LDAP::Filter SUCKS
-my $filter = bless({or =>
-    [{equalityMatch => {attributeDesc  => 'scriptsVhostName',
-                        assertionValue => $hostname}},
-     {equalityMatch => {attributeDesc  => 'scriptsVhostAlias',
-                        assertionValue => $hostname}}]},
+my $filter = bless({and =>
+    [{equalityMatch => {attributeDesc  => 'objectClass',
+                        assertionValue => 'scriptsVhost'}},
+     {or =>
+         [{equalityMatch => {attributeDesc  => 'scriptsVhostName',
+                             assertionValue => $hostname}},
+          {equalityMatch => {attributeDesc  => 'scriptsVhostAlias',
+                             assertionValue => $hostname}}]}]},
     'Net::LDAP::Filter');