[253] in BarnOwl Developers
[D-O-H] r427 - trunk/owl
daemon@ATHENA.MIT.EDU (nelhage@MIT.EDU)
Thu Oct 29 18:04:10 2009
Resent-From: nelhage@mit.edu
Resent-To: barnowl-dev-mtg@charon.mit.edu
To: dirty-owl-hackers@mit.edu
From: nelhage@MIT.EDU
Reply-to: dirty-owl-hackers@MIT.EDU
Date: Sun, 29 Oct 2006 18:36:56 -0500 (EST)
Author: nelhage
Date: 2006-10-29 18:36:56 -0500 (Sun, 29 Oct 2006)
New Revision: 427
Modified:
trunk/owl/perlglue.xs
trunk/owl/perlwrap.pm
Log:
Adding some support for distinguishing personals/private with messages generated from perl
Modified: trunk/owl/perlglue.xs
===================================================================
--- trunk/owl/perlglue.xs 2006-10-29 23:36:12 UTC (rev 426)
+++ trunk/owl/perlglue.xs 2006-10-29 23:36:56 UTC (rev 427)
@@ -134,11 +134,15 @@
owl_message_set_type(m, owl_message_parse_type(val));
} else if(!strcmp(key, "direction")) {
owl_message_set_direction(m, owl_message_parse_direction(val));
+ } else if(!strcmp(key, "isprivate")) {
+ SV * v = hv_iterval(hash, ent);
+ if(SvTRUE(v)) {
+ owl_message_set_isprivate(m);
+ }
} else {
owl_message_set_attribute(m, key, val);
}
}
- owl_message_set_isprivate(m);
if(owl_message_is_type_admin(m)) {
if(!owl_message_get_attribute_value(m, "adminheader"))
owl_message_set_attribute(m, "adminheader", "");
Modified: trunk/owl/perlwrap.pm
===================================================================
--- trunk/owl/perlwrap.pm 2006-10-29 23:36:12 UTC (rev 426)
+++ trunk/owl/perlwrap.pm 2006-10-29 23:36:56 UTC (rev 427)
@@ -101,7 +101,7 @@
# These are overridden by appropriate message types
sub is_ping { return 0; }
sub is_mail { return 0; }
-sub is_personal { return undef; }
+sub is_personal { return shift->is_private; }
sub class { return undef; }
sub instance { return undef; }
sub realm { return undef; }
