自娱自乐航空米

支 持 本 站: 捐赠服务器等运维费用，需要您的支持！

这两天才发现本站的留言功能出了问题，
使用facebook的用户既不能login，也不能留言，挺不可思议的。

于是采用最低级的debug方法，一点点追踪log，
发现是access token的response发生了变化。

支 持 本 站: 捐赠服务器等运维费用，需要您的支持！

至今为止的处理是这样的，

    my $content = $response->decoded_content();

    return $app->errtrans("Invalid request.")

        unless $content =~ m/^access_token=(.*)/m;

        

    my $access_token = $1;

    $access_token =~ s/\s//g;

    $access_token =~ s/&.*//;

但是最近变成了json的格式，于是把上面都comment掉，

require JSON;

my $access_token = JSON::from_json($content)->{access_token};

改成这样就好了。

欢迎大家来测试一下！

支 持 本 站: 捐赠服务器等运维费用，需要您的支持！