Changeset 0b4aef2 for perl

Timestamp:

Aug 20, 2009, 2:46:45 AM (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:

461e905

Parents:

744769e

git-author:

Anders Kaseorg <andersk@mit.edu> (08/20/09 02:40:09)

git-committer:

Anders Kaseorg <andersk@mit.edu> (08/20/09 02:46:45)

Message:

Jabber: Add quoting for editwin prompt.

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

@@ -585 +585 @@
     }
 
-    my $cmd = "jwrite $jwrite_to -a $jwrite_from";
-    $cmd .= " -t $jwrite_thread" if $jwrite_thread;
-    $cmd .= " -s $jwrite_subject" if $jwrite_subject;
-
-    BarnOwl::start_edit_win($cmd, \&process_owl_jwrite );
+    my @cmd = ('jwrite', $jwrite_to, '-a', $jwrite_from);
+    push @cmd, '-t', $jwrite_thread if $jwrite_thread;
+    push @cmd, '-s', $jwrite_subject if $jwrite_subject;
+
+    BarnOwl::start_edit_win(BarnOwl::quote(@cmd), \&process_owl_jwrite);
 }