Changeset fd92f78

Timestamp:

Sep 19, 2011, 1:31:35 PM (13 years ago)

Author:

Edward Z. Yang <ezyang@mit.edu>

Children:

0b372aa

Parents:

83e90de

git-author:

Edward Z. Yang <ezyang@mit.edu> (07/14/11 09:03:01)

git-committer:

Edward Z. Yang <ezyang@mit.edu> (09/19/11 13:31:35)

Message:

Informative messages upon posting.

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

File:

• perl/modules/Facebook/lib/BarnOwl/Module/Facebook/Handle.pm (modified) (4 diffs)

perl/modules/Facebook/lib/BarnOwl/Module/Facebook/Handle.pm

@@ -380 +380 @@
         eval { shift->as_hashref };
         return unless $self->check_result;
-        $self->sleep(0);
+        BarnOwl::message("Submitted!");
+        $self->sleep(1); # give a bit of time to quiesce
     };
 
@@ -389 +390 @@
         $self->{facebook}->add_post->set_message($msg)->publish($cont);
     }
-    # XXX MESSAGE PLZ
+    BarnOwl::message("Submitting Facebook post...");
 }
 
@@ -401 +402 @@
         eval { shift->as_hashref };
         return unless $self->check_result;
-        $self->sleep(0);
+        BarnOwl::message("Submitted!");
+        $self->sleep(1); # give a bit of time to quiesce
     });
-    # XXX MESSAGE PLZ
+    BarnOwl::message("Submitting Facebook comment...");
 }
 
@@ -449 +451 @@
     # Do a quick check to see if things are working
     #$self->{facebook}->query()->find('me')->select_fields('name')->request(sub {
+    # Added 'localtime time' to avoid duplicate checks.
     $self->{facebook}->add_post->set_message("Logged in to BarnOwl at " . localtime time)->set_privacy('CUSTOM', {friends => 'SELF'})->publish(sub {
         my $result = eval { shift->as_hashref };