Changeset d389947

Timestamp:

Dec 27, 2009, 12:04:28 AM (15 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, release-1.10, release-1.7, release-1.8, release-1.9

Children:

f2adf6c

Parents:

4ae10de

git-author:

Nelson Elhage <nelhage@mit.edu> (12/23/09 14:22:27)

git-committer:

Nelson Elhage <nelhage@mit.edu> (12/27/09 00:04:28)

Message:

Print a better error message when we get ratelimited.

File:

• lib/BarnOwl/Module/Twitter/Handle.pm (modified) (2 diffs)

lib/BarnOwl/Module/Twitter/Handle.pm

@@ -29 +29 @@
 use BarnOwl;
 use BarnOwl::Message::Twitter;
+use POSIX qw(asctime);
 
 sub fail {
@@ -178 +179 @@
     if(exists($ratelimit->{remaining_hits})
        && $ratelimit->{remaining_hits} <= 0) {
-        $self->sleep($ratelimit->{reset_time_in_seconds} - time + 60);
-        die("Twitter: ratelimited until " . $ratelimit->{reset_time} . "\n");
+        my $timeout = $ratelimit->{reset_time_in_seconds};
+        $self->sleep($timeout - time + 60);
+        BarnOwl::error("Twitter" .
+                       ($self->{cfg}->{account_nickname} ?
+                        "[$self->{cfg}->{account_nickname}]" : "") .
+                        ": ratelimited until " . asctime(localtime($timeout)));
     } elsif(exists($ratelimit->{error})) {
         $self->sleep(60*20);