Mercurial > hg > soundsoftware-site

comparison extra/svn/.svn/text-base/Redmine.pm.svn-base @ 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
comparison
equal deleted inserted replaced
22:40f7cfd4df19 37:94944d00e43c
329 "SELECT host,port,tls,account,account_password,base_dn,attr_login from auth_sources WHERE id = ?;" 329 "SELECT host,port,tls,account,account_password,base_dn,attr_login from auth_sources WHERE id = ?;"
330 ); 330 );
331 $sthldap->execute($auth_source_id); 331 $sthldap->execute($auth_source_id);
332 while (my @rowldap = $sthldap->fetchrow_array) { 332 while (my @rowldap = $sthldap->fetchrow_array) {
333 my $ldap = Authen::Simple::LDAP->new( 333 my $ldap = Authen::Simple::LDAP->new(
334 host => ($rowldap[2] eq "1" || $rowldap[2] eq "t") ? "ldaps://$rowldap[0]" : $rowldap[0], 334 host => ($rowldap[2] eq "1" || $rowldap[2] eq "t") ? "ldaps://$rowldap[0]:$rowldap[1]" : $rowldap[0],
335 port => $rowldap[1], 335 port => $rowldap[1],
336 basedn => $rowldap[5], 336 basedn => $rowldap[5],
337 binddn => $rowldap[3] ? $rowldap[3] : "", 337 binddn => $rowldap[3] ? $rowldap[3] : "",
338 bindpw => $rowldap[4] ? $rowldap[4] : "", 338 bindpw => $rowldap[4] ? $rowldap[4] : "",
339 filter => "(".$rowldap[6]."=%s)" 339 filter => "(".$rowldap[6]."=%s)"