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

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

总结

以上是内存溢出为你收集整理的perl – 使用多个驱动程序的CGI应用程序验证全部内容，希望文章能够帮你解决perl – 使用多个驱动程序的CGI应用程序验证所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。