There’s a small error. I forgot to remove two lines from a previous version: my $tmpdir = File::Temp->newdir(); my $dirname = $tmpdir->dirname; Stephan Am 05.02.2015 um 20:40 schrieb Witoszynskyj Stephan <stephan@wito.org>:
Hi,
I recently wrote on this list that I’m about to develop a script that posts recently catalogued books to a Facebook page. Well, I found some time faster then I thought, so here’s my simple script. I’ll run it using koha-foreach in a cronjob.
It does nothing fancy it just posts a list of recently catalogued books in the form
author: title http://yourlibrary.org/bib/number
in the time line of a Facebook page. I also tried uploading cover images, but that didn’t work that well.
Actually, the whole script is rather trivial. Figuring out how to get access tokens for Facebook having the correct permissions took much longer then developing the script. So, I tried to summarize the steps necessary to get the tokens in the script’s comments. I hope they are helpful.
Cheers, Stephan
#!/usr/bin/perl
use utf8; use Modern::Perl; use C4::Context; use Facebook::Graph;
# This program posts a list of recently catalogued books to Facebook "Page". # To be able to get the required access tokens you have to have administrator # rights for the page. # # 1. Register as developer on Facebook's developer site: # https://developers.facebook.com # 2. Add an app on Facebook's developer site. Use "advanced Setup", choose a # name and the category "Apps for pages". You'll get an app id and an app # secret # 3. get an user access token on https://developers.facebook.com/tools/explorer # by clicking "Get Access Token", set the "Extended Permissions" manage_pages and publish_actions (make sure that you do that for your app and not for Graph Explorer) # 4. extend the expiration date of the access token by submitting the following # GET request: # /oauth/access_token?grant_type=fb_exchange_token&client_id={app-id}&client_secret={app-secret}&fb_exchange_token={short-lived-token} # You can this using wget: # wget -O token "https://graph.facebook.com/wget -O token "https://graph.facebook.com/oauth/access_token?grant_type=fb_exchange_token&client_id={app-id}&client_secret={app-secret}&fb_exchange_token={short-lived-token} # the file token will then contain your token # 5. determine your user id e.g. by http://graph.facebook.com/yourusername # 6. get the page access token by submitting the following GET request in # Graph API explorer: # /{user-id}/accounts # You will get a data structure containing a number of key # value pairs for each page you administrate. Get the page id and page # access token for the page you want to post to
my $fb_access_token = „"; # your page access token goes here
my $maxdays = 7; my $base_url = 'http://yourlibrary.org';
my $fb = Facebook::Graph->new; $fb->access_token($fb_access_token);
my $tmpdir = File::Temp->newdir(); my $dirname = $tmpdir->dirname;
my $dbh = C4::Context->dbh;
my $query = "SELECT b.biblionumber,b.author,b.title,i.itemcallnumber FROM biblio b, items i WHERE b.biblionumber = i.biblionumber AND DATEDIFF(CURRENT_DATE,b.datecreated) < ? GROUP BY b.biblionumber,b.author,b.title,i.itemcallnumber ORDER BY i.itemcallnumber,b.author COLLATE utf8_unicode_ci";
my $sth = $dbh->prepare($query); $sth->execute($maxdays);
my @data; my $message = "Recently catalogued books\n\n"; my $rows_returned = 0;
while (@data = $sth->fetchrow_array()) { my $biblionumber = $data[0]; my $author = $data[1]; my $title = $data[2]; my $itemcallnumber = $data[3];
if ($author) { $message .= $author.": "; } $message .= $title."\n"; $message .= $base_url.'/bib/.$biblionumber."\n\n";
$rows_returned++; }
if ($rows_returned) { my $response = $fb->add_post ->set_message($message) ->publish;
# print $response->as_string()."\n"; # my $msg_id = $response->as_hashref()->{id}; }
_______________________________________________ Koha mailing list http://koha-community.org Koha@lists.katipo.co.nz http://lists.katipo.co.nz/mailman/listinfo/koha