diff options
author | Jean-Baptiste Barth <jeanbaptiste.barth@gmail.com> | 2010-10-29 22:55:50 +0000 |
---|---|---|
committer | Jean-Baptiste Barth <jeanbaptiste.barth@gmail.com> | 2010-10-29 22:55:50 +0000 |
commit | 55cf64393d56693972d4831d56614f525463b709 (patch) | |
tree | 7ea7ca17115d7e81ddc1a3d83e3d3865b99c482d /extra | |
parent | 31b9868fc15c77519bcaab7a35513d19a2998f34 (diff) | |
download | redmine-55cf64393d56693972d4831d56614f525463b709.tar.gz redmine-55cf64393d56693972d4831d56614f525463b709.zip |
Fixed Redmine.pm not working with LDAPS on a non-standard port. #4065
Contributed by Fabian Schlenz
git-svn-id: svn+ssh://rubyforge.org/var/svn/redmine/trunk@4309 e93f8b46-1217-0410-a6f0-8f06a7374b81
Diffstat (limited to 'extra')
-rw-r--r-- | extra/svn/Redmine.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/extra/svn/Redmine.pm b/extra/svn/Redmine.pm index 091e21930..c96b248c5 100644 --- a/extra/svn/Redmine.pm +++ b/extra/svn/Redmine.pm @@ -331,7 +331,7 @@ sub is_member { $sthldap->execute($auth_source_id); while (my @rowldap = $sthldap->fetchrow_array) { my $ldap = Authen::Simple::LDAP->new( - host => ($rowldap[2] eq "1" || $rowldap[2] eq "t") ? "ldaps://$rowldap[0]" : $rowldap[0], + host => ($rowldap[2] eq "1" || $rowldap[2] eq "t") ? "ldaps://$rowldap[0]:$rowldap[1]" : $rowldap[0], port => $rowldap[1], basedn => $rowldap[5], binddn => $rowldap[3] ? $rowldap[3] : "", |