apache - Redmine.pm不适用于Authen :: Simple :: LDAP - Thinbug

我在Windows服务器上使用Bitnami Redmine堆栈。我已将Redmine配置为使用LDAP身份验证，它可以正常运行。现在我想通过Redmine和LDAP进行SVN身份验证。我可以使用Redmine帐户登录，但不能使用LDAP登录。 Apache error.log中有一个错误：

[Authen::Simple::LDAP] Failed to bind with dn 'REDMINE'. Reason: 'Bad file descriptor'

＆＃39;管理平台＆＃39;是用于LDAP的用户。这似乎是用Perl编写的Redmine.pm中的一个问题，但我对Perl一无所知。

我发现Perl-Code的一部分，我认为会导致错误：

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的替代工作？

Redmine.pm不适用于Authen :: Simple :: LDAP

1 个答案: