perl – 如何堆叠Plack身份验证处理程序?

前端之家收集整理的这篇文章主要介绍了perl – 如何堆叠Plack身份验证处理程序?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我想让我的Plack应用程序尝试几种不同的授权用户方法.具体来说,检查用户是否已通过会话cookie授权,然后检查摘要式身份验证,然后回退到Basic.

我想我可以按照我希望它们被检查的顺序启用一堆Auth处理程序(Session,Digest,Basic).不幸的是,编写Plack::Middleware::Auth::DigestPlack::Middleware::Auth::Basic的方式,如果不存在摘要或基本身份验证,则它们都返回401.

这通常如何处理普拉克?

解决方法

我没有实现,但我认为我有这种方法.您可以使用 Plack::Middleware::Conditional“在线”执行此操作.因此它看起来像这样,但您必须填写缺少的条件/测试.我没有看到一个简单/明显的方式,但我怀疑你可能.由于你有$env传递,你应该能够按照你想要的顺序设置/检查HTTP_ /会话内容,并保持下一个处理程序的状态,知道是否应该启用它.

use Plack::Builder;

my $app = sub {
    [ 200,[ "Content-Type" => "text/plain" ],[ "O HAI,PLAK!" ]
    ];
};

builder {
    enable "Session::Cookie";
    enable_if { my $env = shift;
                # I don't know...
            } "Auth::Digest",realm => "Secured",secret => "BlahBlah",authenticator => sub { $_[0] eq $_[1] };
    enable_if { my $env = shift;
                # I don't know...
            } "Auth::Basic",authenticator => sub { $_[0] eq $_[1] };
    $app;
};

猜你在找的Perl相关文章