Changeset c18f08d for perl

Timestamp:

Jan 30, 2007, 12:39:36 PM (18 years ago)

Author:

Alejandro R. Sedeño <asedeno@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:

7fc6253

Parents:

72db971

Message:

Zephyr and AIM have filters on type, jabber probably should too.

We may want more filters for chat and groupchat.

File:

• perl/modules/jabber.pl (modified) (2 diffs)

perl/modules/jabber.pl

@@ -218 +218 @@
         register_owl_commands();
         register_keybindings() unless $BarnOwl::reload;
+        register_filters() unless $BarnOwl::reload;
         push @::onMainLoop,     sub { BarnOwl::Jabber::onMainLoop(@_) };
         push @::onGetBuddyList, sub { BarnOwl::Jabber::onGetBuddyList(@_) };
@@ -424 +425 @@
 }
 
+sub register_filters {
+    BarnOwl::filter('jabber type ^jabber$');
+}
+
 sub cmd_login {
     my $cmd = shift;