$|=1;
use Net::LDAP;
use Data::Dumper;
$^W++;          # Turn on warnings

my @DCs;
my @unit;
my $NS = qx"nslookup -type=srv _ldap._tcp.dc._msdcs.us.megatrends.com";
foreach my $line (split("\n",$NS)) {
	if ($line =~ m/priority\s+=\s+(\d+)/) {
		$unit[0] = $1;
	}
	if ($line =~ m/weight\s+=\s+(\d+)/) {
		$unit[1] = $1;
	}
	if ($line =~ m/port\s+=\s+(\d+)/) {
		$unit[2] = $1;
	}
	if ($line =~ m/svr hostname\s+=\s+(.+)/) {
		$unit[3] = $1;
		my $index = 0;
		if (@DCs > 0) {
			if ($unit[1] < $DCs[0][1]) {
				#use nearest AD first
				unshift(@DCs, [@unit]);
			} elsif ($unit[0] < $DCs[0][0] and $unit[1] <= $DCs[0][1]) {
				#use preferred only if it is the same distance or closer
				unshift(@DCs, [@unit]);
			} else {
				push(@DCs, [@unit]);
			}
		} else {
			push(@DCs, [@unit]);
		}
		@unit = ();
	}
}

my $result = "failed";
my $ldap = undef;
for (my $d = 0; $d < @DCs; $d++) {
	$ldap = Net::LDAP->new($DCs[$d][3], port=>$DCs[$d][2]) or print "$@";
	if (defined $ldap) {
		print "Connected to [$DCs[$d][3]] on port [$DCs[$d][2]]\n";
		my $user = "megatrends.com\\glennt";
		my $username = "";
		if ($user =~ m/.+\\(.+)/) {
			$username = $1;
		} elsif ($user =~ m/(.+)\@.+/) {
			$username = $1;
		}
		my $password = "*******************";
		my $mesg = $ldap->bind($user, password=>$password);
		if ($mesg->code) {
			#bind > 0 is error.
			if ($mesg->code == 1) {
				die "Bad credinicals\n";
			} else {
				die "Bind code: ". $mesg->code ." error: ". $mesg->error ."\n";
			}
		} else {
			print "successfully authenticated\n";
			$search = $ldap->search(base=>"cn=Users,dc=us,dc=megatrends,dc=com",scope=>"subtree",filter=>"(sAMAccountName=$username)",attrs=>['memberOf'],sizelimit=>1);
			
			my $userstate = "Non-Valid user";
			foreach my $group ($search->entry(0)->get_value('memberOf')) {
				#print "Entry: $group\n";
				if ($group =~ m/StorTrends-License Generator/) {
					$userstate = "Valid user";
					$result = "success";
					last;
				}
			}
			print "User is: $userstate\n";
		}
		$mesg = $ldap->unbind;
	} elsif ($d eq @DCs) {
		print "Failed to connect\n";
	}
	if ($result eq "success") {
		last;
	}
}