** Using WeBWorK **

I don't know the webwork code well enough but in general why not just put all the necessary bits on one line then parse them out?

in global.conf we already have an array of urls - then individual vars for the other bits. Why not just do something like this:

%ldapvar=
(
"student" => "ldaps://whatever.school.edu;CN=YOUR,OU=STUFF,DC=HERE;password;OU=MORE,DC=STUFF;displayName=$user;cn",
"facstaff" => "ldaps://different.school.edu;CN=FOO,OU=BAR-USERS,DC=OFFICELDS;password;OU=info,DC=OFFICELDS;displayName=$user;cn",
);

foreach $key (keys %ldapvar) {

($ldurl, $ldbind, $ldpasswd, $ldbase, $ldfilter, $ldattr) = split(/;/,$ldapvar{$key});

$ad = Net::LDAP->new("$ldurl")
or die("Could not connect to LDAP server");

$ad->bind("$ldbind", password=>"$ldpasswd");

# Execute the search

my $results = $ad->search(base=>$ldbase,filter=>$ldfilter,attrs=>$ldattr);

# How many entries returned?

my $count = $results->count;

print "\n";
print "Total entries returned for $ldapvar{$key}: $count\n";
print "\n";

if ($count == 1){
# Display entries
my $entry;
$entry = $results->entry(0);
print "\n";
print $entry->get_value('cn').", ".$entry->get_value('displayName')."\n";
print "Mail: ".$entry->get_value('userPrincipalName')."\n";
print "Password last changed: ".
localtime($entry->get_value('lastAgedChange'))."\n";
print "send to do other stuff here\n";
print "\n";
exit;
}
else{
print "Count not equal to 1 - check other array items\n";
}

- I'm not a perl guru but I have a test script working as I'd like - I just don't know where to plug the pieces into your code.