Add support to specify LDAP version (rt #54101)

1 files changed, 14 insertions, 1 deletions

diff --git a/lib/DJabberd/Authen/LDAP.pm b/lib/DJabberd/Authen/LDAP.pm
index fdfa105..6f7233d 100644
--- a/lib/DJabberd/Authen/LDAP.pm
+++ b/lib/DJabberd/Authen/LDAP.pm
@@ -35,6 +35,7 @@ our $VERSION = '0.02';
             LDAPBindPW          pass
             LDAPBaseDN          ou=people
             LDAPFilter          (&(inetAuthorizedServices=jabber)(uid=%u))
+            LDAPVersion         2
             LDAPMethod          rebind
         </Plugin>
     </VHost>
@@ -50,6 +51,9 @@ LDAPFilter is an LDAP filter substutions
   - %u will be substituted with the incoming userid (w/o the domain) (ie. myuser)
   - %d will be substituted with the incoming userid's domain (ie. mydoman.com)
 
+LDAPVersion is either 2 or 3, if nothing is specified then default to Net::LDAP default.
+This value is passed straight to Net::LDAP
+
 =head1 AUTHOR
 
 Edward Rudd, C<< <urkle at outoforder.cc> >>
@@ -83,6 +87,11 @@ sub set_config_ldapfilter {
     $self->{'ldap_filter'} = $ldapfilter;
 }
 
+sub set_config_ldapversion {
+    my ($self, $ldapversion) = @_;
+    $self->{'ldap_version'} = $ldapversion;
+}
+
 sub set_config_ldapmethod {
     my ($self, $ldapmethod) = @_;
     if ( $ldapmethod =~ /^(?:rebind)$/ ) {
@@ -105,8 +114,12 @@ sub finalize {
             $logger->error_die("Invalid LDAP Authentication Method");
         }
     }
+
+    my %options;
+    $options{version} = $self->{ldap_version} if $self->{ldap_version};
+
     # Initialize ldap connection
-    $self->{'ldap_conn'} = Net::LDAP->new($self->{ldap_uri})
+    $self->{'ldap_conn'} = Net::LDAP->new($self->{ldap_uri}, %options)
         or $logger->error_die("Could not connect to LDAP Server ".$self->{ldap_uri});
 }