Changeset 4cf4067

Timestamp:

Mar 6, 2008, 12:53:45 PM (17 years ago)

Author:

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

Branches:

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

Children:

30f0680

Parents:

d775050

Message:

Add a `twitter' command

File:

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

lib/BarnOwl/Module/Twitter.pm

@@ -23 +23 @@
     my $msg = shift;
     BarnOwl::admin_message('Twitter Error', $msg);
-    die;
+    die("Twitter Error: $msg\n");
 }
 
@@ -32 +32 @@
 
 # Don't redefine variables if they already exist
-# This is a workaround for  http://barnowl.mit.edu/trac/ticket/44
+# This is a workaround for http://barnowl.mit.edu/trac/ticket/44
 # Which was fixed in svn r819
 if(BarnOwl::getvar('twitter:class') eq '') {
@@ -88 +88 @@
 }
 
+BarnOwl::new_command(twitter => \&cmd_twitter, {
+    summary     => 'Update Twitter from BarnOwl',
+    usage       => 'twitter [message]',
+    description => 'Update Twitter. If MESSAGE is provided, use it as your status.'
+    . "\nOtherwise, prompt for a status message to use."
+   });
+
+sub cmd_twitter {
+    my $cmd = shift;
+    if(@_) {
+        my $status = join(" ", @_);
+        twitter($status);
+    } else {
+      BarnOwl::start_edit_win('What are you doing?', \&twitter);
+    }
+}
+
 $BarnOwl::Hooks::receiveMessage->add(\&handle_message);