1 |
#!/usr/bin/perl |
#!/usr/bin/perl |
2 |
|
# |
3 |
|
# Facebook appliaction which use Koha's RSS search results |
4 |
|
# 2009-06-27 Dobrica Pavlinusic <dpavlin@rot13.org> |
5 |
|
# |
6 |
|
# Based on WWW::Facebook::API example |
7 |
# Copyright David Leadbeater 2007 <http://dgl.cx>. |
# Copyright David Leadbeater 2007 <http://dgl.cx>. |
8 |
# Licensed under the same terms as Perl itself. |
# Licensed under the same terms as Perl itself. |
9 |
|
|
|
# A simple example of using WWW::Facebook::API within a facebook canvas. |
|
|
# You will need to change the api_key, secret and app_path below to match your |
|
|
# account. To get an api_key and secret, go to |
|
|
# http://www.facebook.com/developers/editapp.php?new, choose "Use FBML" and |
|
|
# enter a unique name for the canvas which you should put into app_path. |
|
|
|
|
10 |
use strict; |
use strict; |
11 |
use CGI; |
use CGI; |
12 |
use WWW::Facebook::API; |
use WWW::Facebook::API; |