Changeset f75a9ca for perl/modules/Facebook/lib/BarnOwl

Timestamp:

Sep 19, 2011, 1:31:34 PM (13 years ago)

Author:

Edward Z. Yang <ezyang@mit.edu>

Children:

9da6022

Parents:

a0c06dc

git-author:

Edward Z. Yang <ezyang@mit.edu> (06/19/11 22:56:52)

git-committer:

Edward Z. Yang <ezyang@mit.edu> (09/19/11 13:31:34)

Message:

Add facebook-poll command and be more consistent about poll invoke.

Signed-off-by: Edward Z. Yang <ezyang@mit.edu>

Location:

perl/modules/Facebook/lib/BarnOwl/Module

Files:

• Facebook.pm (modified) (2 diffs)
• Facebook/Handle.pm (modified) (2 diffs)

perl/modules/Facebook/lib/BarnOwl/Module/Facebook.pm

@@ -113 +113 @@
 });
 
+BarnOwl::new_command('facebook-poll' => \&cmd_facebook_poll, {
+    summary     => 'Force a poll of Facebook.',
+    usage       => 'facebook-poll',
+    description => 'Get updates from Facebook.'
+});
+
 # XXX: UI: probably should bug out immediately if we're not logged in.
 
@@ -132 +138 @@
 }
 
+sub cmd_facebook_poll {
+    my $cmd = shift;
+
+    $facebook_handle->sleep(0);
+    return;
+}
+
 sub cmd_facebook_auth {
     my $cmd = shift;

perl/modules/Facebook/lib/BarnOwl/Module/Facebook/Handle.pm

@@ -258 +258 @@
     }
     $self->{facebook}->add_post->set_message( $msg )->publish;
-    $self->poll_facebook;
+    $self->sleep(0);
 }
 
@@ -268 +268 @@
 
     $self->{facebook}->add_comment( $postid )->set_message( $msg )->publish;
-    $self->poll_facebook;
+    $self->sleep(0);
 }