viewvc.cgi/koha-facebook/koha-facebook.cgi

#!/usr/bin/perl
#
# Facebook appliaction which use Koha's RSS search results
# 2009-06-27 Dobrica Pavlinusic <dpavlin@rot13.org>
#
# Based on WWW::Facebook::API example 
# Copyright David Leadbeater 2007 <http://dgl.cx>.
# Licensed under the same terms as Perl itself.

use strict;
use CGI;
use WWW::Facebook::API;
use Data::Dump qw/dump/;
use XML::FeedPP;
use Time::HiRes qw/time/;

our ($api_key,$secret,$rss_url,$app_path); # XXX configure this in config.pl
require 'config.pl';

# UI elements

my $facebook = WWW::Facebook::API->new(
        api_key  => $api_key,
        secret   => $secret,
        app_path => $app_path,
        parse    => 1,
);

warn dump($facebook);

sub dashboard {
        print qq|
                <fb:dashboard>
                <fb:action href=/$app_path/>Search</fb:action>
                </fb:dashboard>
        |;
        '';
}

sub form {
        my $q = shift;
        my $v = $q->param('search');
        $v = qq| value="$v"| if defined $v;

        print qq|
<form method="post" action="search"> 
<input name="search" $v>
<input type="submit">
</form> 
        |;
        '';
}

# dispatcher

our %action_map = (
        ''   => \&index_page,
        info => \&info_page,
        search => \&search_page,
        debug => \&debug_page,
);

sub main {

    # Should also work with FastCGI (via CGI::Fast).
    my $q = new CGI;
        print "Content-type: text/html; encoding=utf-8\r\n\r\n";

#       redirect("Must be called in facebook canvas")
#               unless $facebook->canvas->in_fb_canvas($q);

    my $params = $facebook->canvas->validate_sig($q);
    if ( $params->{user} ) {

       # Canvas takes care of setting up a session for us, no need to call the
       # auth methods.
        $facebook->session_key( $params->{session_key} );
    }
    else {

        # User hasn't added app (could reject/display info/whatever)
        # (Or handle later when a user is needed).
    }

    my ( $action, $param ) = ( $q->path_info =~ m!^/(\w+)/?(.*)! );

        print dashboard;

    if ( my $s = $action_map{$action} ) {
        print qq|<div style='padding-left: 2em'>|;
        $s->( $q, $params );
        print qq|</div>|;
    }
    else {
        print "Action <tt>$action</tt> unknown";
        warn "unknown action $action";
    }

    # Clear session_key (for if running under FastCGI).
    $facebook->session_key(undef);
}

sub index_page {
        my ( $q, $params ) = @_;

warn dump($params);

        form($q);

# You could do this easier by using <fb:name>, just showing some API stuff here.
# http://wiki.developers.facebook.com/index.php/User_(FQL)
    my $name = "You";
    if ( my $uid = $params->{user} ) {
        my $res = $facebook->fql->query( query => qq|
                select
                        first_name, last_name,
                        is_app_user,
                        books,
                        locale
                from user
                where uid=$uid
        | );
        warn "# $uid res = ",dump(@{$res});
        $name = "Hello $res->[0]->{first_name}, you";
    }
    print "$name ", ( $params ? "have" : "have't" ),
        " added this application.";

    if ( !$params ) {
        print "<a href='", $facebook->get_add_url,
            "'>Add this application</a>.";
    }


}

sub info_page {
        open( my $fh, '<', 'info.html' );
        print <$fh>;
        close($fh);
}

sub debug_page {
        my ( $q, $params ) = @_;
    print "<pre>";
    print dump($params);
    print "</pre>";
}

sub search_page {
        my ( $q, $params ) = @_;
   
        my $search = $q->param('search');

        my $t = time();

        my $feed = XML::FeedPP->new( $rss_url . $search );

        my $t = time() - $t;
 
        print form($q), qq|
                <ol>
        |;

        foreach my $item ( $feed->get_item ) {
                print qq|<li><a href="|, $item->link, qq|">|, $item->title, qq|</a><br>|, $item->description;
        }

        print qq|
                </ol>

                <div style="color: #ccc;">search took $t sec</div>
        |;

}

sub redirect {
    print("Please go <a href='"
            . $facebook->get_app_url
            . "'>to facebook</a>" );
    exit;
}

main();
1	dpavlin	1	#!/usr/bin/perl
2	dpavlin	5	#
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	dpavlin	1	# Copyright David Leadbeater 2007 <http://dgl.cx>.
8			# Licensed under the same terms as Perl itself.
9
10			use strict;
11			use CGI;
12			use WWW::Facebook::API;
13			use Data::Dump qw/dump/;
14			use XML::FeedPP;
15	dpavlin	2	use Time::HiRes qw/time/;
16	dpavlin	1
17	dpavlin	2	our ($api_key,$secret,$rss_url,$app_path); # XXX configure this in config.pl
18	dpavlin	1	require 'config.pl';
19
20	dpavlin	2	# UI elements
21
22	dpavlin	3	my $facebook = WWW::Facebook::API->new(
23			api_key => $api_key,
24			secret => $secret,
25			app_path => $app_path,
26			parse => 1,
27			);
28
29			warn dump($facebook);
30
31	dpavlin	2	sub dashboard {
32			print qq\|
33			<fb:dashboard>
34			<fb:action href=/$app_path/>Search</fb:action>
35			</fb:dashboard>
36			\|;
37			'';
38			}
39
40			sub form {
41			my $q = shift;
42			my $v = $q->param('search');
43			$v = qq\| value="$v"\| if defined $v;
44
45			print qq\|
46			<form method="post" action="search">
47			<input name="search" $v>
48			<input type="submit">
49			</form>
50			\|;
51			'';
52			}
53
54	dpavlin	3	# dispatcher
55	dpavlin	2
56	dpavlin	1	our %action_map = (
57			'' => \&index_page,
58			info => \&info_page,
59			search => \&search_page,
60	dpavlin	2	debug => \&debug_page,
61	dpavlin	1	);
62
63			sub main {
64
65			# Should also work with FastCGI (via CGI::Fast).
66			my $q = new CGI;
67			print "Content-type: text/html; encoding=utf-8\r\n\r\n";
68
69			# redirect("Must be called in facebook canvas")
70			# unless $facebook->canvas->in_fb_canvas($q);
71
72			my $params = $facebook->canvas->validate_sig($q);
73			if ( $params->{user} ) {
74
75			# Canvas takes care of setting up a session for us, no need to call the
76			# auth methods.
77			$facebook->session_key( $params->{session_key} );
78			}
79			else {
80
81			# User hasn't added app (could reject/display info/whatever)
82			# (Or handle later when a user is needed).
83			}
84
85			my ( $action, $param ) = ( $q->path_info =~ m!^/(\w+)/?(.*)! );
86	dpavlin	2
87	dpavlin	3	print dashboard;
88
89	dpavlin	1	if ( my $s = $action_map{$action} ) {
90	dpavlin	2	print qq\|<div style='padding-left: 2em'>\|;
91	dpavlin	1	$s->( $q, $params );
92	dpavlin	2	print qq\|</div>\|;
93	dpavlin	1	}
94			else {
95	dpavlin	3	print "Action <tt>$action</tt> unknown";
96			warn "unknown action $action";
97	dpavlin	1	}
98
99			# Clear session_key (for if running under FastCGI).
100			$facebook->session_key(undef);
101			}
102
103			sub index_page {
104	dpavlin	2	my ( $q, $params ) = @_;
105	dpavlin	1
106	dpavlin	3	warn dump($params);
107
108	dpavlin	2	form($q);
109	dpavlin	1
110			# You could do this easier by using <fb:name>, just showing some API stuff here.
111	dpavlin	4	# http://wiki.developers.facebook.com/index.php/User_(FQL)
112	dpavlin	1	my $name = "You";
113	dpavlin	4	if ( my $uid = $params->{user} ) {
114			my $res = $facebook->fql->query( query => qq\|
115			select
116			first_name, last_name,
117			is_app_user,
118			books,
119			locale
120			from user
121			where uid=$uid
122			\| );
123			warn "# $uid res = ",dump(@{$res});
124			$name = "Hello $res->[0]->{first_name}, you";
125	dpavlin	1	}
126			print "$name ", ( $params ? "have" : "have't" ),
127	dpavlin	4	" added this application.";
128	dpavlin	3
129	dpavlin	1	if ( !$params ) {
130			print "<a href='", $facebook->get_add_url,
131			"'>Add this application</a>.";
132			}
133
134
135
136			}
137
138			sub info_page {
139	dpavlin	2	open( my $fh, '<', 'info.html' );
140			print <$fh>;
141			close($fh);
142			}
143	dpavlin	1
144	dpavlin	2	sub debug_page {
145			my ( $q, $params ) = @_;
146			print "<pre>";
147	dpavlin	1	print dump($params);
148	dpavlin	2	print "</pre>";
149	dpavlin	1	}
150
151			sub search_page {
152			my ( $q, $params ) = @_;
153
154			my $search = $q->param('search');
155	dpavlin	2
156			my $t = time();
157
158			my $feed = XML::FeedPP->new( $rss_url . $search );
159
160			my $t = time() - $t;
161	dpavlin	1
162	dpavlin	2	print form($q), qq\|
163	dpavlin	1	<ol>
164			\|;
165
166			foreach my $item ( $feed->get_item ) {
167			print qq\|<li><a href="\|, $item->link, qq\|">\|, $item->title, qq\|</a><br>\|, $item->description;
168			}
169
170			print qq\|
171			</ol>
172	dpavlin	2
173			<div style="color: #ccc;">search took $t sec</div>
174	dpavlin	1	\|;
175
176			}
177
178			sub redirect {
179	dpavlin	2	print("Please go <a href='"
180	dpavlin	1	. $facebook->get_app_url
181			. "'>to facebook</a>" );
182			exit;
183			}
184
185			main();