[1194] in BarnOwl Developers
[D-O-H] r1134 - trunk/owl/perl/modules/Jabber/lib/BarnOwl/Module
daemon@ATHENA.MIT.EDU (asedeno@MIT.EDU)
Thu Oct 29 18:13:58 2009
Resent-From: nelhage@mit.edu
Resent-To: barnowl-dev-mtg@charon.mit.edu
X-Original-To: nelhage@nelhage.com
To: dirty-owl-hackers@mit.edu
From: asedeno@MIT.EDU
Reply-to: dirty-owl-hackers@MIT.EDU
Date: Wed, 8 Oct 2008 10:59:57 -0400 (EDT)
Author: asedeno
Date: 2008-10-08 10:59:56 -0400 (Wed, 08 Oct 2008)
New Revision: 1134
Modified:
trunk/owl/perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm
Log:
Adding variable: jabber:show_logins
Using it to control displaying of presence (login, logout, away, etc.) messages
from Jabber.
Modified: trunk/owl/perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm
===================================================================
--- trunk/owl/perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm 2008-10-07 17:00:27 UTC (rev 1133)
+++ trunk/owl/perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm 2008-10-08 14:59:56 UTC (rev 1134)
@@ -73,6 +73,9 @@
BarnOwl::new_variable_bool("jabber:show_offline_buddies",
{ default => 1,
summary => 'Show offline or pending buddies.'});
+ BarnOwl::new_variable_bool("jabber:show_logins",
+ { default => 0,
+ summary => 'Show login/logout messages.'});
BarnOwl::new_variable_bool("jabber:spew",
{ default => 0,
summary => 'Display unrecognized Jabber messages.'});
@@ -1030,6 +1033,7 @@
sub process_presence_available {
+ return unless (BarnOwl::getvar('jabber:show_logins') eq 'on');
my ( $sid, $p ) = @_;
my $from = $p->GetFrom('jid')->GetJID('base');
my $to = $p->GetTo();
