Changeset 8d553bf for perl/lib/BarnOwl
- Timestamp:
- Feb 5, 2011, 11:28:27 PM (14 years ago)
- Branches:
- master, release-1.10, release-1.8, release-1.9
- Children:
- 8061a6a
- Parents:
- 099597c
- git-author:
- Adam Glasgall <adam@crossproduct.net> (02/04/11 19:26:33)
- git-committer:
- David Benjamin <davidben@mit.edu> (02/05/11 23:28:27)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/lib/BarnOwl/Message/Zephyr.pm
r1522e5d r8d553bf 15 15 $sender =~ s/\@\Q$realm\E$//; 16 16 return $sender; 17 } 18 19 sub principal_realm { 20 my $principal = shift; 21 my ($user, $realm) = split(/@/,$principal); 22 return $realm; 17 23 } 18 24 … … 184 190 185 191 push @cmd, context_reply_cmd($class, $instance); 192 186 193 if ($to ne '') { 187 194 $to = strip_realm($to); … … 189 196 my @cc = grep /^[^-]/, ($to, split /\s+/, $cc); 190 197 my %cc = map {$_ => 1} @cc; 198 # this isn't quite right - it doesn't strip off the 199 # user if the message was addressed to them by fully qualified 200 # name 191 201 delete $cc{strip_realm(BarnOwl::zephyr_getsender())}; 192 202 @cc = keys %cc; 203 204 my $sender_realm = principal_realm($self->sender); 205 if (BarnOwl::zephyr_getrealm() ne $sender_realm) { 206 @cc = map { 207 if($_ !~ /@/) { 208 "${_}\@${sender_realm}"; 209 } else { 210 $_; 211 } 212 } @cc; 213 } 193 214 push @cmd, '-C', @cc; 194 215 } else {
Note: See TracChangeset
for help on using the changeset viewer.