Question

-----------------------------这里收到32个长度密钥auth_token REST auth.getSession调用期间出错： params = API_KEY：-------------- AUTH_TOKEN：------------------------------- call_id：------------.----- [就像一个十进制值格式：JSON 方法：facebook.auth.getSession 五：1.0 响应= {“error_code”：100，“error_msg”：“无效参数”，“request_args”：[

   {"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";

Answer 1

WWW：Facebook：Api已被弃用（上一版本 - 2010年3月12日）。似乎API被打破了。你应该使用Facebook :: Graph。

WWW：Facebook：Api Auth Token

1 个答案: