Changeset f3c1aba for perl/modules

Timestamp:

Jan 16, 2007, 12:09:16 PM (18 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:

bc9436f

Parents:

11be665

git-author:

Nelson Elhage <nelhage@mit.edu> (01/16/07 12:09:11)

git-committer:

Nelson Elhage <nelhage@mit.edu> (01/16/07 12:09:16)

Message:

Only show all presence messages if debug is set.

File:

• perl/modules/jabber.pl (modified) (1 diff)

perl/modules/jabber.pl

@@ -1004 +1004 @@
     }
     $props{replysendercmd} = $props{replycmd} = "jwrite $from -i $sid";
-    BarnOwl::queue_message(BarnOwl::Message->new(%props));
+    if(BarnOwl::getvar('debug') eq 'on') {
+        BarnOwl::queue_message(BarnOwl::Message->new(%props));
+    }
 }