Metacat

                # a fix to ignore 'ou=Account' properties which are not usable accounts within Metacat.

                # this could be done directly with filters on the LDAP connection, instead.

                if ($entry->dn !~ /ou=Account/) {

                    $foundAccounts .= "<p>\n<b><u>Account:</u> ";

                    $foundAccounts .= $entry->dn();

                    $foundAccounts .= "</b><br />\n";

                    foreach my $attribute ($entry->attributes()) {

                        my $value = $entry->get_value($attribute);

                        $foundAccounts .= "$attribute: ";

                        $foundAccounts .= $value;

                        $foundAccounts .= "<br />\n";

                    }

                    $foundAccounts .= "</p>\n";

                }