0
我想發佈到名爲XY的頁面,它應該直接顯示在頁面上,而不是作爲來自其他用戶(管理員)的發佈。這是我從http://qscripts.blogspot.de/2011/02/post-to-your-own-facebook-account-from.html改編的代碼,但是這會發布到其他用戶的區域而不是主頁面。如果我用「我」替換頁面ID號碼,它會發布到管理頁面並正確顯示到主區域。作爲此頁面發佈消息到頁面牆(不是管理員)
#!/usr/bin/perl -I/opt/ActivePerl-5.16/site/lib/
# http://qscripts.blogspot.de/2011/02/post-to-your-own-facebook-account-from.html
use strict;
use warnings;
use open qw(:std :utf8);
use LWP::Simple;
use YAML;
use JSON;
use URI;
use utf8;
my $access_token = 'top secret';
graph_api('1484559088426611/feed', {
access_token => $access_token,
message => 'Hello World! I’m posting Facebook updates from a script!',
description => 'You want to create a script to read messages and post status updates to your own '
. 'Facebook account, but you find the official documentation confusing and '
. 'you aren’t sure where to start. Search no more because here you’ll find '
. 'the easiest way to do just this.',
method => 'post'
});
exit 0;
sub graph_api {
my $uri = new URI('https://graph.facebook.com/' . shift);
$uri->query_form(shift);
my $resp = get("$uri");
return defined $resp ? decode_json($resp) : undef;
}
謝謝!爲了包裝這個GET,我需要另一個perl腳本,對吧? –
啊和'manage_pages'設置在臉書裏,對吧?如果我是這個頁面的管理員,我應該沒問題,不是嗎? –
爲什麼其他腳本?您只能將其添加到當前腳本中。獲取令牌之前需要設置權限。我不確定你是如何得到令牌的(使用登錄流或圖形API瀏覽器) –