Changeset 2c8852a for perl/modules
- Timestamp:
- Jun 22, 2011, 9:56:46 PM (13 years ago)
- 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)
- Location:
- perl/modules/Facebook/lib/BarnOwl/Module
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/Facebook/lib/BarnOwl/Module/Facebook.pm
r51ff997 r2c8852a 113 113 }); 114 114 115 BarnOwl::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 115 121 # XXX: UI: probably should bug out immediately if we're not logged in. 116 122 … … 132 138 } 133 139 140 sub cmd_facebook_poll { 141 my $cmd = shift; 142 143 $facebook_handle->sleep(0); 144 return; 145 } 146 134 147 sub cmd_facebook_auth { 135 148 my $cmd = shift; -
perl/modules/Facebook/lib/BarnOwl/Module/Facebook/Handle.pm
r33a8d77 r2c8852a 258 258 } 259 259 $self->{facebook}->add_post->set_message( $msg )->publish; 260 $self-> poll_facebook;260 $self->sleep(0); 261 261 } 262 262 … … 268 268 269 269 $self->{facebook}->add_comment( $postid )->set_message( $msg )->publish; 270 $self-> poll_facebook;270 $self->sleep(0); 271 271 } 272 272
Note: See TracChangeset
for help on using the changeset viewer.