[453] in BarnOwl Developers
[D-O-H] r582 - trunk/owl
daemon@ATHENA.MIT.EDU (chmrr@MIT.EDU)
Thu Oct 29 18:06:20 2009
Resent-From: nelhage@mit.edu
Resent-To: barnowl-dev-mtg@charon.mit.edu
To: dirty-owl-hackers@mit.edu
From: chmrr@MIT.EDU
Reply-To: dirty-owl-hackers@MIT.EDU
Date: Thu, 01 Feb 2007 23:52:28 -0500
Author: chmrr
Date: 2007-02-01 23:52:28 -0500 (Thu, 01 Feb 2007)
New Revision: 582
Modified:
trunk/owl/
trunk/owl/perlwrap.pm
Log:
r1364@utwig: chmrr | 2007-02-01 23:52:23 -0500
* Pretty recipients are useful, too
Property changes on: trunk/owl
___________________________________________________________________
Name: svk:merge
- 8baf6839-b125-0410-9df9-922793c80423:/local/owl:15641
+ 06e3988a-d725-0410-af47-c5dd11e74598:/local/barnowl:1364
8baf6839-b125-0410-9df9-922793c80423:/local/owl:15641
Modified: trunk/owl/perlwrap.pm
===================================================================
--- trunk/owl/perlwrap.pm 2007-02-01 21:23:01 UTC (rev 581)
+++ trunk/owl/perlwrap.pm 2007-02-02 04:52:28 UTC (rev 582)
@@ -133,7 +133,8 @@
sub login_host { return undef; }
sub login_tty { return undef; }
-sub pretty_sender { return shift->sender; }
+sub pretty_sender { return shift->sender; }
+sub pretty_recipient { return shift->recipient; }
sub delete {
my ($m) = @_;
@@ -268,6 +269,14 @@
return $sender;
}
+sub pretty_recipient {
+ my ($m) = @_;
+ my $recip = $m->recipient;
+ my $realm = BarnOwl::zephyr_getrealm();
+ $recip =~ s/\@$realm$//;
+ return $recip;
+}
+
# These are arguably zephyr-specific
sub class { return shift->{"class"}; }
sub instance { return shift->{"instance"}; }
