Metacat

        my $ldapPassword = $ldapConfig->{$o}{'password'};

        my $searchBase = $ldapConfig->{$o}{'base'};

        my $dnBase = $ldapConfig->{$o}{'dn'};

        #if main ldap server is down, a html file containing warning message will be returned

        my $ldap = Net::LDAP->new($ldapurl, timeout => $timeout) or handleGeneralServerFailure("The ldap server " . $ldapurl . " is down!");