1
----------------------------- 여기에 32 개의 길이 키가 수신되었습니다. auth_token REST auth 동안 오류가 발생했습니다. .getSession 호출 : params = api_key : -------------- auth_token : ----------------------- -------- call_id : ------------.-- [십진수 값처럼] 형식 : JSON 방법 : facebook.auth.getSession v : 1.0 응답 = { "ERROR_CODE"100 "ERROR_MSG": "잘못된 파라미터", "request_args"[WWW : Facebook : API 인증 토큰
{"key":"api_key","value":"---------------"},
{"key":"auth_token","value":"----------------------"},
{"key":"call_id","value":"-------------------"},
{"key":"format","value":"JSON"},
{"key":"method","value":"facebook.auth.getSession"},
{"key":"v","value":"1.0"},
{"key":"sig","value":"f253b75e337776756a1fba88f085c269"}]}
WWW::Facebook::API=HASH(0xa203ce8)
수신 된 auth_token을 어떻게 변환해야합니까? Received가 올바른 키인지 확인하려면 어떻게해야합니까?
#!/usr/bin/perl -w
use strict;
use warnings;
use CGI;
use WWW::Facebook::API;
use WWW::Facebook::API::Auth;
use HTTP::Request;
use LWP;
my $TMP = $ENV{HOME}.'/tmp';
my $facebook_api = '--------';
my $facebook_secret = '-------';
my $facebook_clientid = '--------';
my $gmail_user = '-------';
my $gmail_password = '--------';
my $client = WWW::Facebook::API->new(
desktop => 1,
api_version => '1.0',
api_key => $facebook_api,
secret => $facebook_secret,
throw_errors => 1,
);
$client->app_id($facebook_clientid);
local $SIG{INT} = sub {
print "Logging out of Facebookn";
my $r = $client->auth->logout;
exit(1);
};
my $token = $client->auth->create_token;
print "$token \n";
$client->auth->get_session($token);
print "$client \n";