Changeset 8af89a7 for perl/modules/Jabber/lib/BarnOwl

Timestamp:

May 28, 2008, 1:26:36 PM (16 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, barnowl_perlaim, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

b441079

Parents:

4367915

Message:

Add a jabber:spew variable that controls whether unrecognized Jabber
messages (such as pubsub requests) are displayed.

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:spew",
+                                   { default => 0,
+                                     summary => 'Display unrecognized Jabber messages.'});
         BarnOwl::new_variable_int("jabber:auto_away_timeout",
                                   { default => 5,
@@ -974 +977 @@
     #    }
     #
-    BarnOwl::queue_message( BarnOwl::Message->new(%jhash) );
+    if(BarnOwl::getvar('jabber:spew') eq 'on') {
+        BarnOwl::queue_message( BarnOwl::Message->new(%jhash) );
+    }
 }