Changeset 680ada9 for perl/modules/Jabber/lib/BarnOwl

Timestamp:

Aug 21, 2008, 6:20:31 PM (16 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

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

Children:

cdc6ff1

Parents:

5b75e8b

Message:

Properly quote generate reply commands for Jabber

File:

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

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

@@ -131 +131 @@
     my ($recip, $account, $subject) = @_;
     if (defined $recip) {
+        $recip   = BarnOwl::quote($recip);
+        $account = BarnOwl::quote($account);
         my $cmd = "jwrite $recip -a $account";
         if (defined $subject) {
-            $cmd .= " -s $subject";
+            $cmd .= " -s " . BarnOwl::quote($subject);
         }
         return $cmd;