Changeset 8362a48 for perl/modules/Jabber/lib

Timestamp:

Sep 7, 2009, 8:53:28 PM (15 years ago)

Author:

Anders Kaseorg <andersk@mit.edu>

Branches:

master, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

3519d06

Parents:

636de2a

git-author:

Anders Kaseorg <andersk@mit.edu> (09/07/09 20:53:13)

git-committer:

Anders Kaseorg <andersk@mit.edu> (09/07/09 20:53:28)

Message:

BarnOwl::Module::Jabber: Quote jroster auth, deauth commands.

Signed-off-by: Anders Kaseorg <andersk@mit.edu>

File:

• perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm (modified) (1 diff)

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

@@ -1118 +1118 @@
     $props{body} = "Allow user ($from) to subscribe to your ($to) presence?\n" .
                    "(Answer with the `yes' or `no' commands)";
-    $props{yescommand} = "jroster auth $from -a $to";
-    $props{nocommand} = "jroster deauth $from -a $to";
+    $props{yescommand} = BarnOwl::quote('jroster', 'auth', $from, '-a', $to);
+    $props{nocommand} = BarnOwl::quote('jroster', 'deauth', $from, '-a', $to);
     $props{question} = "true";
     BarnOwl::queue_message(BarnOwl::Message->new(%props));