Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight

Facebook::Graph API help

by amboxer21 (Sexton)
on Oct 28, 2012 at 01:59 UTC ( #1001244=perlquestion: print w/replies, xml ) Need Help??
amboxer21 has asked for the wisdom of the Perl Monks concerning the following question:

I have since figured it out. Thank you for your time and replies.

#!/usr/bin/env plackup use HTTP::Request; use Data::Dumper; use WWW::Mechanize; use strict; use warnings; use Plack::Request; use Facebook::Graph; use LWP::Simple; my $app = sub { my $env = shift; my $app_id = 'xxxxxxxxxxxx'; my $app_secret = 'xxxxxxxxxxxxxxxxxxxxxxxxxx'; my $postback_url = 'my postback url'; my $fb = Facebook::Graph->new( app_id => $app_id, secret => $app_secret, postback => "$postback_url/callback", ); my $uri = $fb ->authorize ->extend_permissions(qw(offline_access read_stream publish_stream +user_photos)) ->set_display('page') ->uri_as_string; my $req = Plack::Request->new($env); $fb->request_access_token($req->query_parameters('code')); };

With this
system("/opt/google/chrome/chrome", "$uri"); print "Code = "; chomp( my $code = <> ); my $token_response_object = $fb->request_access_token($code); my $token_string = $token_response_object->token; my $token_expires_epoch = $token_response_object->expires;

Replies are listed 'Best First'.
Re: Facebook::Graph API help
by Anonymous Monk on Oct 28, 2012 at 06:44 UTC

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://1001244]
Approved by davido
Front-paged by davido
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (3)
As of 2018-04-22 09:48 GMT
Find Nodes?
    Voting Booth?