Changeset c854e74 for perl/modules/Jabber/lib/BarnOwl/Message
- Timestamp:
- Aug 20, 2009, 2:46:46 AM (15 years ago)
- Branches:
- master, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
- Children:
- 3a6277a
- Parents:
- 7011c3dc
- git-author:
- Anders Kaseorg <andersk@mit.edu> (08/20/09 02:19:10)
- git-committer:
- Anders Kaseorg <andersk@mit.edu> (08/20/09 02:46:46)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/Jabber/lib/BarnOwl/Message/Jabber.pm
rcdaf294 rc854e74 143 143 my ($recip, $account, $subject) = @_; 144 144 if (defined $recip) { 145 $recip = BarnOwl::quote($recip); 146 $account = BarnOwl::quote($account); 147 my $cmd = "jwrite $recip -a $account"; 145 my @cmd = ('jwrite', $recip, '-a', $account); 148 146 if (defined $subject) { 149 $cmd .= " -s " . BarnOwl::quote($subject);147 push @cmd, '-s', $subject; 150 148 } 151 return $cmd;149 return BarnOwl::quote(@cmd); 152 150 } else { 153 151 return undef;
Note: See TracChangeset
for help on using the changeset viewer.