Script to remove Perforce user which is LDAP disable

rajeshkumar created the topic: Script to remove Perforce user which is LDAP disable
>> p4 users | cut -f 1 -d " " | grep -v ^user | xargs -n 1 /var/tmp/ldaplookupuser.pl

Content of ldaplookupuser.pl
#!/usr/bin/perl

my ($InUser) = shift;
# print "[INFO] Validating Perforce user - ${InUser}\n";

my ($LookupUser)=ldapsearch -LLL -x uid=${InUser} uid;

print "User ${InUser} no longer works at Company\n" if ldapsearch -LLL -x uid=${InUser} uid !~ /${InUser}/i;

Regards,
Rajesh Kumar
Twitt me @ twitter.com/RajeshKumarIn