[51ff997] | 1 | use warnings; |
---|
| 2 | use strict; |
---|
| 3 | |
---|
| 4 | =head1 NAME |
---|
| 5 | |
---|
| 6 | BarnOwl::Module::Facebook |
---|
| 7 | |
---|
| 8 | =head1 DESCRIPTION |
---|
| 9 | |
---|
| 10 | Integration with Facebook wall posting and commenting. |
---|
| 11 | |
---|
| 12 | =cut |
---|
| 13 | |
---|
| 14 | package BarnOwl::Module::Facebook; |
---|
| 15 | |
---|
| 16 | our $VERSION = 0.1; |
---|
| 17 | |
---|
| 18 | use JSON; |
---|
| 19 | |
---|
| 20 | use BarnOwl; |
---|
| 21 | use BarnOwl::Hooks; |
---|
| 22 | use BarnOwl::Module::Facebook::Handle; |
---|
| 23 | |
---|
| 24 | our $facebook_handle = undef; |
---|
| 25 | |
---|
| 26 | BarnOwl::new_variable_bool( |
---|
| 27 | 'facebook:poll', |
---|
| 28 | { |
---|
| 29 | default => 1, |
---|
| 30 | summary => 'Poll Facebook for wall updates', |
---|
[2f6c263] | 31 | # XXX: Make poll time configurable |
---|
[51ff997] | 32 | description => "If set, will poll Facebook every minute for updates.\n" |
---|
| 33 | } |
---|
| 34 | ); |
---|
| 35 | |
---|
[2f6c263] | 36 | sub init { |
---|
| 37 | my $conffile = BarnOwl::get_config_dir() . "/facebook"; |
---|
| 38 | my $cfg = {}; |
---|
| 39 | if (open(my $fh, "<", "$conffile")) { |
---|
| 40 | my $raw_cfg = do {local $/; <$fh>}; |
---|
| 41 | close($fh); |
---|
[51ff997] | 42 | |
---|
| 43 | eval { $cfg = from_json($raw_cfg); }; |
---|
[2f6c263] | 44 | if ($@) { BarnOwl::admin_message('Facebook', "Unable to parse $conffile: $@"); } |
---|
[51ff997] | 45 | } |
---|
[2f6c263] | 46 | eval { $facebook_handle = BarnOwl::Module::Facebook::Handle->new($cfg); }; |
---|
| 47 | if ($@) { BarnOwl::error($@); } |
---|
[51ff997] | 48 | } |
---|
| 49 | |
---|
[2f6c263] | 50 | init(); |
---|
[51ff997] | 51 | |
---|
| 52 | # Should also add support for posting to other people's walls (this |
---|
| 53 | # is why inline MESSAGE is not supported... yet). However, see below: |
---|
| 54 | # specifying USER is UI problematic. |
---|
| 55 | BarnOwl::new_command('facebook' => \&cmd_facebook, { |
---|
| 56 | summary => 'Post a status update to your wall from BarnOwl', |
---|
[2f6c263] | 57 | usage => 'facebook [USER]', |
---|
| 58 | description => 'Post a status update to your wall, or post on another user\'s wall. Autocomplete is supported.' |
---|
[51ff997] | 59 | }); |
---|
| 60 | |
---|
| 61 | #BarnOwl::new_command('facebook-message' => \&cmd_facebook_direct, { |
---|
| 62 | # summary => 'Send a Facebook message', |
---|
| 63 | # usage => 'twitter-direct USER', |
---|
| 64 | # description => 'Send a private Facebook Message to USER.' |
---|
| 65 | #}); |
---|
| 66 | |
---|
| 67 | BarnOwl::new_command('facebook-comment' => \&cmd_facebook_comment, { |
---|
| 68 | summary => 'Comment on a wall post.', |
---|
[6c3d4ad] | 69 | usage => 'facebook-comment POST_ID', |
---|
[2f6c263] | 70 | description => 'Comment on a friend\'s wall post.' |
---|
[51ff997] | 71 | }); |
---|
| 72 | |
---|
| 73 | BarnOwl::new_command('facebook-auth' => \&cmd_facebook_auth, { |
---|
| 74 | summary => 'Authenticate as a Facebook user.', |
---|
| 75 | usage => 'facebook-auth URL', |
---|
| 76 | description => 'Authenticate as a Facebook user. URL should be the page' |
---|
| 77 | ."\nFacebook redirects you to after OAuth login." |
---|
| 78 | }); |
---|
| 79 | |
---|
[2c8852a] | 80 | BarnOwl::new_command('facebook-poll' => \&cmd_facebook_poll, { |
---|
| 81 | summary => 'Force a poll of Facebook.', |
---|
| 82 | usage => 'facebook-poll', |
---|
[2f6c263] | 83 | description => 'Get updates (news, friends) from Facebook.' |
---|
[2c8852a] | 84 | }); |
---|
| 85 | |
---|
[51ff997] | 86 | sub cmd_facebook { |
---|
| 87 | my $cmd = shift; |
---|
[68fa539] | 88 | my $user = shift; |
---|
| 89 | |
---|
[2f6c263] | 90 | return unless check_ready(); |
---|
| 91 | |
---|
[68fa539] | 92 | BarnOwl::start_edit_win( |
---|
| 93 | defined $user ? "Write something to $user..." : "What's on your mind?", |
---|
[2f6c263] | 94 | sub{ $facebook_handle->facebook($user, shift) } |
---|
[68fa539] | 95 | ); |
---|
[51ff997] | 96 | } |
---|
| 97 | |
---|
| 98 | sub cmd_facebook_comment { |
---|
| 99 | my $cmd = shift; |
---|
[6c3d4ad] | 100 | my $post_id = shift; |
---|
[f4d1717] | 101 | |
---|
[2f6c263] | 102 | return unless check_ready(); |
---|
| 103 | |
---|
[3d304b9] | 104 | BarnOwl::start_edit_win("Write a comment...", |
---|
[6c3d4ad] | 105 | sub { $facebook_handle->facebook_comment($post_id, shift) }); |
---|
[51ff997] | 106 | } |
---|
| 107 | |
---|
[2c8852a] | 108 | sub cmd_facebook_poll { |
---|
| 109 | my $cmd = shift; |
---|
| 110 | |
---|
[2f6c263] | 111 | return unless check_ready(); |
---|
| 112 | |
---|
[2c8852a] | 113 | $facebook_handle->sleep(0); |
---|
| 114 | return; |
---|
| 115 | } |
---|
| 116 | |
---|
[51ff997] | 117 | sub cmd_facebook_auth { |
---|
| 118 | my $cmd = shift; |
---|
| 119 | my $url = shift; |
---|
| 120 | |
---|
[2f6c263] | 121 | if ($facebook_handle->{logged_in}) { |
---|
| 122 | BarnOwl::message("Already logged in. (To force, run ':reload-module Facebook', or deauthorize BarnOwl.)"); |
---|
| 123 | return; |
---|
| 124 | } |
---|
| 125 | |
---|
[51ff997] | 126 | $facebook_handle->facebook_auth($url); |
---|
| 127 | } |
---|
| 128 | |
---|
[2f6c263] | 129 | sub check_ready { |
---|
| 130 | if (!$facebook_handle->{logged_in}) { |
---|
| 131 | BarnOwl::message("Need to login to Facebook first with ':facebook-auth'."); |
---|
| 132 | return 0; |
---|
| 133 | } |
---|
| 134 | return 1; |
---|
| 135 | } |
---|
[51ff997] | 136 | |
---|
[2f6c263] | 137 | BarnOwl::filter(qw{facebook type ^facebook$}); |
---|
[68fa539] | 138 | |
---|
| 139 | sub complete_user { return keys %{$facebook_handle->{friends}}; } |
---|
| 140 | BarnOwl::Completion::register_completer(facebook => sub { complete_user(@_) }); |
---|
| 141 | |
---|
[51ff997] | 142 | 1; |
---|