sub search_ldap {                                                                                                                                                                                           
    my ( $self, $ldap ) = @_; 
 
    # get uid, email, ecufreeze, cnum, itimaccess from LDAP
    report LOG_INFO, "Reading from Ldap";
    unless (
             $ldap->searchUser( filter     => '(uid=*)',
                                attributes => "freeze uid dn cnum email" ) ) 
    {   
        report LOG_ERROR, "Can not list user from LDAP: " . $ldap->getError();
        exit 0;
    }   
 
    return $ldap;
 
}