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

改成这样就好了。

欢迎大家来测试一下！