equal
deleted
inserted
replaced
406 }; |
406 }; |
407 |
407 |
408 $self->{'root_dse'} = $self->ldap->root_dse(); |
408 $self->{'root_dse'} = $self->ldap->root_dse(); |
409 if ( $conf->{'debug'} ) { |
409 if ( $conf->{'debug'} ) { |
410 $self->{'schema'} = $self->ldap->schema(); |
410 $self->{'schema'} = $self->ldap->schema(); |
411 my @versions = |
411 my @versions = $self->{'root_dse'}->get_value('supportedLDAPVersion'); |
412 @{ $self->{'root_dse'}->get_value('supportedLDAPVersion', asref => 1) }; |
|
413 print "Connected to $conf->{'server'}\n"; |
412 print "Connected to $conf->{'server'}\n"; |
414 print "Supported LDAP version: ", ( join ', ', @versions ), "\n"; |
413 print "Supported LDAP version: ", ( join ', ', @versions ), "\n"; |
415 print "Cipher in use: ", $self->ldap()->cipher(), "\n"; |
414 print "Cipher in use: ", $self->ldap()->cipher(), "\n"; |
416 } |
415 } |
417 |
416 |
1489 # no desc? Try and infer something useful |
1488 # no desc? Try and infer something useful |
1490 # to display. |
1489 # to display. |
1491 else { |
1490 else { |
1492 |
1491 |
1493 # pull objectClasses, hash for lookup speed |
1492 # pull objectClasses, hash for lookup speed |
1494 my @oc = @{ $e->get_value( 'objectClass', asref => 1 ) || [] }; |
1493 my @oc = $e->get_value('objectClass'); |
1495 my %ochash; |
1494 my %ochash; |
1496 map { $ochash{$_} = 1 } @oc; |
1495 map { $ochash{$_} = 1 } @oc; |
1497 |
1496 |
1498 foreach my $d_listing ( sort keys %descs ) { |
1497 foreach my $d_listing ( sort keys %descs ) { |
1499 if ( exists $ochash{ $d_listing } ) { |
1498 if ( exists $ochash{ $d_listing } ) { |