Changeset a484b3e for perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm

Timestamp:

Jul 17, 2010, 7:26:41 AM (14 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

release-1.6

Children:

6758c74

Parents:

612270d

git-author:

Nelson Elhage <nelhage@mit.edu> (05/20/10 19:22:20)

git-committer:

Nelson Elhage <nelhage@mit.edu> (07/17/10 07:26:41)

Message:

Jabber: Accept a -m argument to jwrite to set the message.

File:

• perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm (modified) (4 diffs)

perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm

@@ -285 +285 @@
         {
             summary => "Send a Jabber Message",
-            usage   => "jwrite <jid> [-t <thread>] [-s <subject>] [-a <account>]"
+            usage   => "jwrite <jid> [-t <thread>] [-s <subject>] [-a <account>] [-m <message>]"
         }
     );
@@ -544 +544 @@
     my $jwrite_thread  = "";
     my $jwrite_subject = "";
+    my $jwrite_body;
     my ($to, $from);
     my $jwrite_type    = "chat";
@@ -555 +556 @@
         'subject=s' => \$jwrite_subject,
         'account=s' => \$from,
-        'id=s'     =>  \$jwrite_sid,
+        'id=s'      => \$jwrite_sid,
+        'message=s' => \$jwrite_body,
     ) or die("Usage: jwrite <jid> [-t <thread>] [-s <subject>] [-a <account>]\n");
     $jwrite_type = 'groupchat' if $gc;
@@ -595 +597 @@
         type    => $jwrite_type
     };
+
+    if (defined($jwrite_body)) {
+        process_owl_jwrite($jwrite_body);
+        return;
+    }
 
     if(scalar @candidates > 1) {