留言功能恢復

支 持 本 站: 捐贈伺服器等運維費用,感謝您的支持!

這兩天才發現本站的留言功能出了問題,
使用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};

改成這樣就好了。

歡迎大家來測試一下!

支 持 本 站: 捐贈伺服器等運維費用,感謝您的支持!