[447] in BarnOwl Developers
[D-O-H] r576 - trunk/owl/perl/modules
daemon@ATHENA.MIT.EDU (asedeno@MIT.EDU)
Thu Oct 29 18:06:16 2009
Resent-From: nelhage@mit.edu
Resent-To: barnowl-dev-mtg@charon.mit.edu
To: dirty-owl-hackers@mit.edu
From: asedeno@MIT.EDU
Reply-to: dirty-owl-hackers@MIT.EDU
Date: Tue, 30 Jan 2007 12:39:37 -0500 (EST)
Author: asedeno
Date: 2007-01-30 12:39:36 -0500 (Tue, 30 Jan 2007)
New Revision: 576
Modified:
trunk/owl/perl/modules/jabber.pl
Log:
Zephyr and AIM have filters on type, jabber probably should too.
We may want more filters for chat and groupchat.
Modified: trunk/owl/perl/modules/jabber.pl
===================================================================
--- trunk/owl/perl/modules/jabber.pl 2007-01-30 04:02:02 UTC (rev 575)
+++ trunk/owl/perl/modules/jabber.pl 2007-01-30 17:39:36 UTC (rev 576)
@@ -217,6 +217,7 @@
if ( *BarnOwl::queue_message{CODE} ) {
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(@_) };
$vars{show} = '';
@@ -423,6 +424,10 @@
BarnOwl::bindkey("recv j command start-command jwrite ");
}
+sub register_filters {
+ BarnOwl::filter('jabber type ^jabber$');
+}
+
sub cmd_login {
my $cmd = shift;
my $jid = new Net::Jabber::JID;
