Changeset 293d5fa for perl/modules

Timestamp:

Oct 8, 2008, 10:59:56 AM (16 years ago)

Author:

Alejandro R. Sedeño <asedeno@mit.edu>

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:

ee0574c

Parents:

94b4ecb5

Message:

Adding variable: jabber:show_logins
Using it to control displaying of presence (login, logout, away, etc.) messages
from Jabber.

File:

• perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm (modified) (2 diffs)

perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm

@@ -74 +74 @@
                                    { 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,
@@ -1031 +1034 @@
 
 sub process_presence_available {
+    return unless (BarnOwl::getvar('jabber:show_logins') eq 'on');
     my ( $sid, $p ) = @_;
     my $from = $p->GetFrom('jid')->GetJID('base');