Changeset 68c0afd for perl/modules


Ignore:
Timestamp:
Sep 20, 2011, 11:15:33 PM (10 years ago)
Author:
Edward Z. Yang <ezyang@mit.edu>
Branches:
master, 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)
Message:
Informative messages upon posting.

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

Legend:

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

    r5ef98c7 r68c0afd  
    380380        eval { shift->as_hashref };
    381381        return unless $self->check_result;
    382         $self->sleep(0);
     382        BarnOwl::message("Submitted!");
     383        $self->sleep(1); # give a bit of time to quiesce
    383384    };
    384385
     
    389390        $self->{facebook}->add_post->set_message($msg)->publish($cont);
    390391    }
    391     # XXX MESSAGE PLZ
     392    BarnOwl::message("Submitting Facebook post...");
    392393}
    393394
     
    401402        eval { shift->as_hashref };
    402403        return unless $self->check_result;
    403         $self->sleep(0);
     404        BarnOwl::message("Submitted!");
     405        $self->sleep(1); # give a bit of time to quiesce
    404406    });
    405     # XXX MESSAGE PLZ
     407    BarnOwl::message("Submitting Facebook comment...");
    406408}
    407409
     
    449451    # Do a quick check to see if things are working
    450452    #$self->{facebook}->query()->find('me')->select_fields('name')->request(sub {
     453    # Added 'localtime time' to avoid duplicate checks.
    451454    $self->{facebook}->add_post->set_message("Logged in to BarnOwl at " . localtime time)->set_privacy('CUSTOM', {friends => 'SELF'})->publish(sub {
    452455        my $result = eval { shift->as_hashref };
Note: See TracChangeset for help on using the changeset viewer.