perl – 使用多个驱动程序的CGI应用程序验证

发布时间：2020-12-15 23:33:28 所属栏目：大数据来源：网络整理

导读：我一直试图通过2个驱动程序验证我的CGI应用程序,一个使用存储在数据库中的用户名/密码,另一个使用ldap活动目录. 以下是代码 $self-authen-config( DRIVER = [ 'DBI',DBH = $self-dbh,TABLE = 'user',CONSTRAINTS = { 'user.username' = '__CREDENTIAL_1__','

我一直试图通过2个驱动程序验证我的CGI应用程序,一个使用存储在数据库中的用户名/密码,另一个使用ldap活动目录.

以下是代码

$self->authen->config( 
DRIVER => [ 'DBI',DBH         => $self->dbh,TABLE       => 'user',CONSTRAINTS => {
    'user.username'     => '__CREDENTIAL_1__','MD5:user.password' => '__CREDENTIAL_2__'
  },],DRIVER => [ 'Authen::Simple::LDAP',host   => 'ldapad.company.com',basedn => 'OU=XXX,OU=XX,DC=XXX,DC=XXX',binddn => 'CN=usename,OU=Users,OU=XXX,OU=AD,DC=xxx',bindpw => 'secret',filter => '(cn=%s)',CREDENTIALS    => [ 'authen_username','authen_password' ],STORE                => 'Session',LOGOUT_RUNMODE       => 'logout',LOGIN_RUNMODE        => 'login',POST_LOGIN_RUNMODE   => 'okay',RENDER_LOGIN         => &;my_login_form,);

如何使应用程序检查其他驱动程序未通过身份验证.
现在,正如预期的那样,它的底部列出的驱动程序是有效的,它们都可以,具体取决于最后分配的驱动程序.

解决方法

我假设你正在使用CGI :: Application :: Plugin :: Authentication.
我认为你的代码中存在一个小问题,这证明只有两个中的最后一个有效.

你的代码是这样的：

$self->authen->config( 
  DRIVER => [ 'DBI',... ],CREDENTIALS => [ 'authen_username',STORE  => 'Session',# ...
);

但$self-> authen-> config()接受哈希.例如,看看this example from the C::A::P::Authentication发行版.

作为哈希,这意味着最后一个DRIVER条目将覆盖之前的DRIVER条目.
我相信修复非常简单：

$self->authen->config( 
  DRIVER => [
       [ 'DBI',[ 'Authen::Simple::LDAP',# ...
);

您可以在模块文档中找到此示例：

http://search.cpan.org/~silasmonk/CGI-Application-Plugin-Authentication/lib/CGI/Application/Plugin/Authentication.pm#config

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!