2

我在 Windows 服务器上使用 Bitnami Redmine 堆栈。我已将 Redmine 配置为使用 LDAP 身份验证，并且可以正常工作。现在我想通过 Redmine 和 LDAP 进行 SVN 身份验证。我可以使用 Redmine-Account 登录，但不能使用 LDAP。在 Apache error.log 中有这样的错误：

[Authen::Simple::LDAP] 无法与 dn 'REDMINE' 绑定。原因：“错误的文件描述符”

'REDMINE' 是用于 LDAP 的用户。这似乎是用 Perl 编写的 Redmine.pm 中的一个问题，但我对 Perl 不太了解。

我发现了 Perl 代码的一部分，我认为它会导致错误：

my $sthldap = $dbh->prepare(
          "SELECT host,port,tls,account,account_password,base_dn,attr_login from auth_sources WHERE id = ?;"
      );
      $sthldap->execute($auth_source_id);
      while (my @rowldap = $sthldap->fetchrow_array) {
        my $bind_as = $rowldap[3] ? $rowldap[3] : "";
        my $bind_pw = $rowldap[4] ? $rowldap[4] : "";
        if ($bind_as =~ m/\$login/) {
          # replace $login with $redmine_user and use $redmine_pass
          $bind_as =~ s/\$login/$redmine_user/g;
          $bind_pw = $redmine_pass
        }
        my $ldap = Authen::Simple::LDAP->new(
            host    =>      ($rowldap[2] eq "1" || $rowldap[2] eq "t") ? "ldaps://$rowldap[0]:$rowldap[1]" : "ldap://$rowldap[0]",
            port    =>      $rowldap[1],
            basedn  =>      $rowldap[5],
            binddn  =>      $bind_as,
            bindpw  =>      $bind_pw,
            filter  =>      "(".$rowldap[6]."=%s)"
        );
        my $method = $r->method;
        $ret = 1 if ($ldap->authenticate($redmine_user, $redmine_pass) && (($access_mode eq "R" && $permissions =~ /:browse_repository/) || $permissions =~ /:commit_access/));

      }
      $sthldap->finish();
      undef $sthldap;

有没有人可以解决这个问题？或者也许是标准 Redmine.pm 的可行替代方案？

4

1 回答 1

1

问题是我没有通过 cpan 控制台安装“IO::Socket::IP”和“最新的 perl-ldap”，并且草莓 perl 没有将它包含在安装中。在我使用以下 CMD 命令安装这些之后，它工作正常！

> cpan
cpan> install IO::Socket::IP
cpan> install latest perl-ldap
于 2014-06-05T11:39:25.867 回答