留言功能恢复

这两天才发现本站的留言功能出了问题,
使用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};

改成这样就好了。

欢迎大家来测试一下!

支 持 本 站: 捐赠服务器等运维费用,感谢您的支持!