Changeset f75a9ca


Ignore:
Timestamp:
Sep 19, 2011, 1:31:34 PM (10 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:
2 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/Facebook/lib/BarnOwl/Module/Facebook.pm

    ree98987 rf75a9ca  
    113113});
    114114
     115BarnOwl::new_command('facebook-poll' => \&cmd_facebook_poll, {
     116    summary     => 'Force a poll of Facebook.',
     117    usage       => 'facebook-poll',
     118    description => 'Get updates from Facebook.'
     119});
     120
    115121# XXX: UI: probably should bug out immediately if we're not logged in.
    116122
     
    132138}
    133139
     140sub cmd_facebook_poll {
     141    my $cmd = shift;
     142
     143    $facebook_handle->sleep(0);
     144    return;
     145}
     146
    134147sub cmd_facebook_auth {
    135148    my $cmd = shift;
  • perl/modules/Facebook/lib/BarnOwl/Module/Facebook/Handle.pm

    ra0c06dc rf75a9ca  
    258258    }
    259259    $self->{facebook}->add_post->set_message( $msg )->publish;
    260     $self->poll_facebook;
     260    $self->sleep(0);
    261261}
    262262
     
    268268
    269269    $self->{facebook}->add_comment( $postid )->set_message( $msg )->publish;
    270     $self->poll_facebook;
     270    $self->sleep(0);
    271271}
    272272
Note: See TracChangeset for help on using the changeset viewer.