Changeset 68c0afd for perl/modules/Facebook/lib/BarnOwl
- Timestamp:
- Sep 20, 2011, 11:15:33 PM (13 years ago)
- Branches:
- master, release-1.10, release-1.9
- Children:
- 8aa81172
- Parents:
- 5ef98c7
- git-author:
- Edward Z. Yang <ezyang@mit.edu> (07/14/11 09:03:01)
- git-committer:
- Edward Z. Yang <ezyang@mit.edu> (09/20/11 23:15:33)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/Facebook/lib/BarnOwl/Module/Facebook/Handle.pm
r5ef98c7 r68c0afd 380 380 eval { shift->as_hashref }; 381 381 return unless $self->check_result; 382 $self->sleep(0); 382 BarnOwl::message("Submitted!"); 383 $self->sleep(1); # give a bit of time to quiesce 383 384 }; 384 385 … … 389 390 $self->{facebook}->add_post->set_message($msg)->publish($cont); 390 391 } 391 # XXX MESSAGE PLZ392 BarnOwl::message("Submitting Facebook post..."); 392 393 } 393 394 … … 401 402 eval { shift->as_hashref }; 402 403 return unless $self->check_result; 403 $self->sleep(0); 404 BarnOwl::message("Submitted!"); 405 $self->sleep(1); # give a bit of time to quiesce 404 406 }); 405 # XXX MESSAGE PLZ407 BarnOwl::message("Submitting Facebook comment..."); 406 408 } 407 409 … … 449 451 # Do a quick check to see if things are working 450 452 #$self->{facebook}->query()->find('me')->select_fields('name')->request(sub { 453 # Added 'localtime time' to avoid duplicate checks. 451 454 $self->{facebook}->add_post->set_message("Logged in to BarnOwl at " . localtime time)->set_privacy('CUSTOM', {friends => 'SELF'})->publish(sub { 452 455 my $result = eval { shift->as_hashref };
Note: See TracChangeset
for help on using the changeset viewer.