WWW：Facebook：Api认证令牌

-----------------------------这里收到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该怎么做？我怎样才能验证收到一个正确的密钥或没有。

#!/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";

来源

2013-08-26 JacobDeepak

WWW：Facebook：Api已弃用（最新版本 - 2010年3月12日）。看起来API被破坏了。您应该改用Facebook :: Graph。

来源

2013-11-06 16:07:35 user2961260

WWW：Facebook：Api认证令牌

回答

相关问题