自娛自樂航空米

支 持 本 站: 捐贈伺服器等運維費用，需要您的支持！

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

改成這樣就好了。

歡迎大家來測試一下！

支 持 本 站: 捐贈伺服器等運維費用，需要您的支持！