Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

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;

Comment on Facebook::Graph API help
Select or Download Code
Re: Facebook::Graph API help
by Anonymous Monk on Oct 28, 2012 at 06:44 UTC

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://1001244]
Approved by davido
Front-paged by davido
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (4)
As of 2014-09-17 02:52 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (56 votes), past polls