[1166] in BarnOwl Developers
[D-O-H] r1114 - trunk/owl/perl/modules/Jabber/lib/BarnOwl/Message
daemon@ATHENA.MIT.EDU (nelhage@MIT.EDU)
Thu Oct 29 18:13:41 2009
Resent-From: nelhage@mit.edu
Resent-To: barnowl-dev-mtg@charon.mit.edu
X-Original-To: nelhage@nelhage.com
To: dirty-owl-hackers@MIT.EDU
From: nelhage@MIT.EDU
Reply-to: dirty-owl-hackers@MIT.EDU
Date: Thu, 21 Aug 2008 18:20:32 -0400 (EDT)
Author: nelhage
Date: 2008-08-21 18:20:31 -0400 (Thu, 21 Aug 2008)
New Revision: 1114
Modified:
trunk/owl/perl/modules/Jabber/lib/BarnOwl/Message/Jabber.pm
Log:
Properly quote generate reply commands for Jabber
Modified: trunk/owl/perl/modules/Jabber/lib/BarnOwl/Message/Jabber.pm
===================================================================
--- trunk/owl/perl/modules/Jabber/lib/BarnOwl/Message/Jabber.pm 2008-08-21 22:20:16 UTC (rev 1113)
+++ trunk/owl/perl/modules/Jabber/lib/BarnOwl/Message/Jabber.pm 2008-08-21 22:20:31 UTC (rev 1114)
@@ -130,9 +130,11 @@
sub jwrite_cmd {
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;
} else {
