Changeset d748296 for lib/BarnOwl/Module/Twitter.pm

Timestamp:

Jul 21, 2009, 10:06:32 PM (15 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

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

Children:

82fd1e6

Parents:

7430aa4

Message:

Better error handling for invalid credentials in the main module.

File:

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

lib/BarnOwl/Module/Twitter.pm

@@ -23 +23 @@
 use BarnOwl::Module::Twitter::Handle;
 
-our @twitter_handles;
-our $default_handle;
+our @twitter_handles = ();
+our $default_handle = undef;
 my $user     = BarnOwl::zephyr_getsender();
 my ($class)  = ($user =~ /(^[^@]+)/);
@@ -114 +114 @@
     }
 
-    my $twitter_handle = BarnOwl::Module::Twitter::Handle->new($cfg, %$twitter_args);
-    push @twitter_handles, $twitter_handle;
-    $default_handle = $twitter_handle if (!defined $twitter_handle && exists $cfg->{default_sender} && $cfg->{default_sender});
+    eval {
+        my $twitter_handle = BarnOwl::Module::Twitter::Handle->new($cfg, %$twitter_args);
+        push @twitter_handles, $twitter_handle;
+        $default_handle = $twitter_handle if (!defined $twitter_handle && exists $cfg->{default_sender} && $cfg->{default_sender});
+    };
 }
 
@@ -140 +142 @@
 
 sub poll_messages {
+    return unless @twitter_handles;
+
     my $handle = $twitter_handles[$next_service_to_poll];
     $next_service_to_poll = ($next_service_to_poll + 1) % scalar(@twitter_handles);