Changeset 293d5fa for perl/modules


Ignore:
Timestamp:
Oct 8, 2008, 10:59:56 AM (15 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:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm

    r94b4ecb5 r293d5fa  
    7474                                   { default => 1,
    7575                                     summary => 'Show offline or pending buddies.'});
     76        BarnOwl::new_variable_bool("jabber:show_logins",
     77                                   { default => 0,
     78                                     summary => 'Show login/logout messages.'});
    7679        BarnOwl::new_variable_bool("jabber:spew",
    7780                                   { default => 0,
     
    10311034
    10321035sub process_presence_available {
     1036    return unless (BarnOwl::getvar('jabber:show_logins') eq 'on');
    10331037    my ( $sid, $p ) = @_;
    10341038    my $from = $p->GetFrom('jid')->GetJID('base');
Note: See TracChangeset for help on using the changeset viewer.