Mercurial > hg > soundsoftware-site

diff extra/svn/Redmine.pm @ 37:94944d00e43c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* Update to SVN trunk rev 4411
author Chris Cannam <chris.cannam@soundsoftware.ac.uk>
date Fri, 19 Nov 2010 13:24:41 +0000
parents 513646585e45
children 051f544170fe
line wrap: on
line diff
--- a/extra/svn/Redmine.pm	Fri Sep 24 14:06:04 2010 +0100
+++ b/extra/svn/Redmine.pm	Fri Nov 19 13:24:41 2010 +0000
@@ -331,7 +331,7 @@
           $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] : "",