Changeset 2c8852a for perl/modules


Ignore:
Timestamp:
Jun 22, 2011, 9:56:46 PM (13 years ago)
Author:
Edward Z. Yang <ezyang@mit.edu>
Children:
f4d1717
Parents:
33a8d77
git-author:
Edward Z. Yang <ezyang@mit.edu> (06/19/11 22:56:52)
git-committer:
Edward Z. Yang <ezyang@mit.edu> (06/22/11 21:56:46)
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

    r51ff997 r2c8852a  
    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

    r33a8d77 r2c8852a  
    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.