Changeset e010ee0

Timestamp:

Sep 14, 2009, 10:34:19 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:

26f9e2e

Parents:

385dd69

Message:

Perform more sanity checking on config before creating handles.

File:

• lib/BarnOwl/Module/Twitter.pm (modified) (1 diff)

lib/BarnOwl/Module/Twitter.pm

@@ -95 +95 @@
 
 $raw_cfg = [$raw_cfg] unless UNIVERSAL::isa $raw_cfg, "ARRAY";
+
+# Perform some sanity checking on the configuration.
+{
+    my %nicks;
+    my $default = 0;
+
+    for my $cfg (@$raw_cfg) {
+        if(! exists $cfg->{user}) {
+            fail("Account has no username set.");
+        }
+        my $user = $cfg->{user};
+        if(! exists $cfg->{password}) {
+            fail("Account $user has no username set.");
+        }
+        if(@$raw_cfg > 1&&
+           !exists($cfg->{account_nickname}) ) {
+            fail("Account $user has no account_nickname set.");
+        }
+        if($cfg->{account_nickname}) {
+            if($nicks{$cfg->{account_nickname}}++) {
+                fail("Nickname " . $cfg->{account_nickname} . " specified more than once.");
+            }
+        }
+        if($cfg->{default} || $cfg->{default_sender}) {
+            if($default++) {
+                fail("Multiple accounts marked as 'default'.");
+            }
+        }
+    }
+}
 
 for my $cfg (@$raw_cfg) {