Changeset 0b4aef2 for perl


Ignore:
Timestamp:
Aug 20, 2009, 2:46:45 AM (12 years ago)
Author:
Anders Kaseorg <andersk@mit.edu>
Branches:
master, 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:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm

    r06f5ef8 r0b4aef2  
    585585    }
    586586
    587     my $cmd = "jwrite $jwrite_to -a $jwrite_from";
    588     $cmd .= " -t $jwrite_thread" if $jwrite_thread;
    589     $cmd .= " -s $jwrite_subject" if $jwrite_subject;
    590 
    591     BarnOwl::start_edit_win($cmd, \&process_owl_jwrite );
     587    my @cmd = ('jwrite', $jwrite_to, '-a', $jwrite_from);
     588    push @cmd, '-t', $jwrite_thread if $jwrite_thread;
     589    push @cmd, '-s', $jwrite_subject if $jwrite_subject;
     590
     591    BarnOwl::start_edit_win(BarnOwl::quote(@cmd), \&process_owl_jwrite);
    592592}
    593593
Note: See TracChangeset for help on using the changeset viewer.