equal
deleted
inserted
replaced
17 $ldap->bind($config->{'ldap_manager'}->{'dn'}, password => $config->{'ldap_manager'}->{'password'}) |
17 $ldap->bind($config->{'ldap_manager'}->{'dn'}, password => $config->{'ldap_manager'}->{'password'}) |
18 or die "Failed to bind to LDAP: $!"; |
18 or die "Failed to bind to LDAP: $!"; |
19 |
19 |
20 # search for POSIX groups |
20 # search for POSIX groups |
21 my $lr = $ldap->search( |
21 my $lr = $ldap->search( |
22 base => 'dc=lan,dc=xx0r,dc=info' |
22 base => $config->{'LDAP_BASEDN'} |
23 , filter => '(objectClass=posixGroup)' |
23 , filter => '(objectClass=posixGroup)' |
24 ); |
24 ); |
25 |
25 |
26 die "Failed to search LDAP..." if ( $lr->code ); |
26 die "Failed to search LDAP..." if ( $lr->code ); |
27 |
27 |