Changeset 385dd69 for lib/BarnOwl/Module/Twitter

Timestamp:

Sep 14, 2009, 9:59:29 PM (14 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

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

Children:

e010ee0

Parents:

8462b38

git-author:

Nelson Elhage <nelhage@mit.edu> (09/14/09 21:54:20)

git-committer:

Nelson Elhage <nelhage@mit.edu> (09/14/09 21:59:29)

Message:

Rename some configuration options to be shorter.

default_sender => default
show_unsubscribed_replies => show_mentions

Accept the old names for backwards compatibility.

File:

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

lib/BarnOwl/Module/Twitter/Handle.pm

@@ -32 +32 @@
     my $cfg = shift;
 
+    my $val;
+
+    if(!exists $cfg->{default} &&
+       defined($val = delete $cfg->{default_sender})) {
+        $cfg->{default} = $val;
+    }
+
+    if(!exists $cfg->{show_mentions} &&
+       defined($val = delete $cfg->{show_unsubscribed_replies})) {
+        $cfg->{show_mentions} = $val;
+    }
+
     $cfg = {
         account_nickname => '',
-        default_sender   => 0,
+        default          => 0,
         poll_for_tweets  => 1,
         poll_for_dms     => 1,
         publish_tweets   => 1,
-        show_unsubscribed_replies => 1,
+        show_mentions    => 1,
         %$cfg
        };
@@ -118 +130 @@
     };
 
-    if ($self->{cfg}->{show_unsubscribed_replies}) {
+    if ($self->{cfg}->{show_mentions}) {
         my $mentions = eval { $self->{twitter}->mentions( { since_id => $self->{last_id} } ) };
         warn "$@" if $@;