Changeset d775050 for lib/BarnOwl

Timestamp:

Jan 11, 2008, 1:35:56 PM (16 years ago)

Author:

nelhage@mit.edu <nelhage@mit.edu>

Branches:

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

Children:

4cf4067

Parents:

cd17271

Message:

Fix this up slightly

File:

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

lib/BarnOwl/Module/Twitter.pm

@@ -31 +31 @@
 my $opcode   = "twitter";
 
+# Don't redefine variables if they already exist
+# This is a workaround for  http://barnowl.mit.edu/trac/ticket/44
+# Which was fixed in svn r819
 if(BarnOwl::getvar('twitter:class') eq '') {
     BarnOwl::new_variable_string('twitter:class',
@@ -49 +52 @@
 }
 
-open(my $fh, "<", "$ENV{HOME}/.owl/twitter") || fail("Unable to read ~/.owl/twitter");
+my $conffile = BarnOwl::get_config_dir() . "/twitter";
+open(my $fh, "<", "$conffile") || fail("Unable to read $conffile");
 my $cfg = do {local $/; <$fh>};
 close($fh);
@@ -64 +68 @@
 
 if(!defined($twitter->verify_credentials())) {
-    fail("Invalid twitter credentials found");
+    fail("Invalid twitter credentials");
 }