From: Jean-Baptiste Barth <jeanbaptiste.barth@gmail.com>
Date: Fri, 29 Oct 2010 22:55:50 +0000 (+0000)
Subject: Fixed Redmine.pm not working with LDAPS on a non-standard port. #4065
X-Git-Tag: 1.1.0~226
X-Git-Url: https://source.dussan.org/?a=commitdiff_plain;h=55cf64393d56693972d4831d56614f525463b709;p=redmine.git

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
---

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] : "",