perl – 如何使用Net :: OpenID :: Consumer与Yahoo OpenID避免编码错误?

前端之家收集整理的这篇文章主要介绍了perl – 如何使用Net :: OpenID :: Consumer与Yahoo OpenID避免编码错误?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我编写了一个使用Net :: OpenID :: Consumer来使用OpenID进行身份验证的Dancer Web应用程序.它适用于Google和MyOpenID,但不适用于Yahoo.当用户尝试使用他们的Yahoo帐户进行身份验证时,HTML :: Parser警告:

Parsing of undecoded UTF-8 will give garbage when decoding entities

这个警告杀了我的应用程序(理所当然).

我没有看到Net :: OpenID :: Consumer(或Common)与此相关的任何现有错误.
HTTP标头和HTML元标记都为“声明的id”URI指定UTF-8.
为什么不为HTML :: Parser解码响应?我错过了一些明显的东西吗

这是相关的代码

get '/openid_landing' => sub {
    my $params = params();
    my $csr = Net::OpenID::Consumer->new(
        ua => LWP::UserAgent->new(),consumer_secret => $secret,params => $params,);  
    my $id = $params->{'openid.claimed_id'};

    if (my $setup_url = $csr->user_setup_url) {
        redirect $setup_url;

    } elsif ($csr->user_cancel) {
        redirect uri_for('/');

    } elsif (my $vident = $csr->verified_identity) {
       # verified identity,log in or register user
       ...

    } else {
        die "Error validating identity: " . $csr->err;
    } 
};

解决方法

错误发生在版本1.14(最新)的122-128行的Net / OpenID / URIFetch.pm中
它使用原始内容而不是响应对象的解码内容.
只需删除手动gzip解码并在响应中使用decoding_content方法.

我还没有提交错误报告,请随意.

猜你在找的Perl相关文章