#!/usr/bin/perl -w

use strict;
use Net::LDAP;
use Data::Dumper;

my $username="CN=xxxxx,OU=MUC-Users,OU=Users,OU=MUC,DC=eu,DC=xxxxxx,DC=com";
my $password='xxxx"==(';

# global data
my $ad;
my %users = ();


#my $someotheruser =();
#my $someotheruse;
#my $fulluser = ();
# Collect all data from LDAP
my %ldap_server = (yy => 'xxxxx.com', dd => 'lxxxxxx.com', cc => 'xxxxxxxxxx.com');
for my $region (sort keys %ldap_server) {

    # we need to authenticate in each region separately
    $ad = Net::LDAP->new($ldap_server{$region}) or die ("Could not connect to LDAP server $ldap_server{$region}: $@");
    print "INFO: Connected to server $ldap_server{$region}\n";
    my $return = $ad->bind ($username, password=>$password) or die ("Could not bind to LDAP server as user $username: $@");
    $return->code && die $return->error;
    print "INFO: Bound to server $ldap_server{$region} as user $username\n";

    # collect all user info in region
    _get_users ($region, '');

    # unbind from LDAP server again
    $ad->unbind;
} 
    
   
   
    #my $i = 0; foreach (keys %users) { $i++ }; print "$i users found\n";                                                             
    my $f ="";
    foreach my $user (values %users) 
    {
     
     $f = "$user->{'sn'}" . "$user->{'givenName'}";
         
     #print$f;
     my @data;
                                                           # open file
     open(FILE, "good.txt") or die("Unable to open file");

                                                           # read file into an array
     @data = <FILE>;

                                                           # close file 
    close(FILE);

my $e ="";
foreach $e (@data) {
     if( $f = $e ) {
        
        
        print$user->{'sn'}.$user->{'givenName'}.print$user->{'description'}.$user->{'mail'};
        
    }


     }

           
    }
exit;






     


sub _get_users {
    my ($region, $prefix) = @_;
    my @patternlist = qw(a b c d e f g h i j k l m n o p q r s t u v w x y z 0 1 2 3 4 5 6 7 8 9 _ -);
    #my @patternlist = qw(a);
    for my $pattern (@patternlist) {
        my $return = $ad->search(base=>"DC=$region,DC=xxxxxxx,DC=com",
                                 filter=>"(&(objectCategory=user)(cn=$prefix$pattern*))", scope=>'sub')
            or die ("Could not search LDAP server: $@");
        my $error = $return->code;
        if ($error) {
            if ($error == 4) {
                print "Sizelimit exceeded for Region $region, $prefix$pattern\* .. extending\n";
                _get_users ($region, "$prefix$pattern");
            } else {
                print $return->error;
            }
        } else {
            #print "Region $region, $prefix$pattern\*: ", $return->count, " users found\n";
        }
        my @entries = $return->entries;
        foreach my $entry (@entries) {
            my $user = ();
            foreach (qw(cn sn givenName department Ihj-klDir-GlobalID description mail I-eDjr-AccountType distinguishedName userWorkstation
s)) {
                $user->{$_} = $entry->get_value($_);           
                        }
            my @array = $entry->get_value('memberOf');
            $user->{'memberOf'} =  \@array;
            $users{$entry->get_value('distinguishedName')} = $user;
        }
    }
}