Revision 4847
Added by daigle over 15 years ago
| src/perl/ldapweb.cgi | ||
|---|---|---|
| 668 | 668 |
my $filter = shift; |
| 669 | 669 |
my $attref = shift; |
| 670 | 670 |
my $ldap; |
| 671 |
my $mesg; |
|
| 671 | 672 |
|
| 672 | 673 |
my $foundAccounts = 0; |
| 673 | 674 |
|
| ... | ... | |
| 677 | 678 |
if ($ldap) {
|
| 678 | 679 |
$ldap->start_tls( verify => 'none'); |
| 679 | 680 |
$ldap->bind( version => 3, anonymous => 1); |
| 680 |
my $mesg = $ldap->search (
|
|
| 681 |
mesg = $ldap->search (
|
|
| 681 | 682 |
base => $base, |
| 682 | 683 |
filter => $filter, |
| 683 | 684 |
attrs => @$attref, |
Also available in: Unified diff
made mesg var global to function.