Changeset 680ada9 for perl/modules
- Timestamp:
- Aug 21, 2008, 6:20:31 PM (16 years ago)
- Branches:
- master, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
- Children:
- cdc6ff1
- Parents:
- 5b75e8b
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/Jabber/lib/BarnOwl/Message/Jabber.pm
rd5dcd7c r680ada9 131 131 my ($recip, $account, $subject) = @_; 132 132 if (defined $recip) { 133 $recip = BarnOwl::quote($recip); 134 $account = BarnOwl::quote($account); 133 135 my $cmd = "jwrite $recip -a $account"; 134 136 if (defined $subject) { 135 $cmd .= " -s $subject";137 $cmd .= " -s " . BarnOwl::quote($subject); 136 138 } 137 139 return $cmd;
Note: See TracChangeset
for help on using the changeset viewer.