Changeset 680ada9 for perl


Ignore:
Timestamp:
Aug 21, 2008, 6:20:31 PM (13 years ago)
Author:
Nelson Elhage <nelhage@mit.edu>
Branches:
master, debian, 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:
1 edited

Legend:

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

    rd5dcd7c r680ada9  
    131131    my ($recip, $account, $subject) = @_;
    132132    if (defined $recip) {
     133        $recip   = BarnOwl::quote($recip);
     134        $account = BarnOwl::quote($account);
    133135        my $cmd = "jwrite $recip -a $account";
    134136        if (defined $subject) {
    135             $cmd .= " -s $subject";
     137            $cmd .= " -s " . BarnOwl::quote($subject);
    136138        }
    137139        return $cmd;
Note: See TracChangeset for help on using the changeset viewer.