Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Post on FB (cron)

by ultranerds (Friar)
on Mar 13, 2014 at 15:28 UTC( #1078188=perlquestion: print w/replies, xml ) Need Help??
ultranerds has asked for the wisdom of the Perl Monks concerning the following question:

I'm going up the wall trying top get this going!

I'm trying to write a script, which will run via cron - and make posts to my GROUP (not wall, and actual group I manage)

So far I've got:
use Facebook::Graph; use LWP::Simple; my $access_token = 'xxx'; my $fb = Facebook::Graph->new( app_id => 378913472248618, secret => 'xxxx', postback => "https://www.facebook.com/connect/login_success.h +tml" ); $fb->access_token( $access_token ); $fb->add_post ->set_message('I like beer.') ->publish;
That works - and posts to MY wall... but how the heck do I get it to post on a group? I've been going round and round in circles with this for the last 2 hours.. and its doing my head in :/

TIA

Andy

Replies are listed 'Best First'.
Re: Post on FB (cron)
by Anonymous Monk on Mar 13, 2014 at 16:13 UTC
    id An profile id like sarahbownds or an object id like 16665510298 for th +e Perl page. add_post ( [ id ] ) Creates a Facebook::Graph::Publish::Post object, which can be used to +publish data to a user's feed/wall.

    Sounds like you just need to pass the ID of the place you want to post to, into your add_post function

      The first listed method on the Facebook::Graph::Publish::Post should give this functionality.
      to ( id ) Specify a profile id to post to. Defaults to 'me', which is the currently logged in user.
      Then your code would be:
      my $groupid = 12345; $fb->add_post ->id($groupid) ->set_message('I like beer.') ->publish;
        BTW, this kinda works:
        $fb->access_token( $access_token ); $fb->add_post() ->to(490559244324622) ->set_message('I like beer.') ->publish;
        However, it seems to post on my wall, as my personal account (not the admin of the wall).
        Thanks for the reply. Thats what I assumed before, but to no avail - it just gives an error:

        Can't locate object method "id" via package "Facebook::Graph::Publish::Post" at test.cgi line 53.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (3)
As of 2016-08-30 08:55 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    The best thing I ever won in a lottery was:















    Results (414 votes). Check out past polls.