Changeset c18f08d for perl


Ignore:
Timestamp:
Jan 30, 2007, 12:39:36 PM (17 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:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/jabber.pl

    ra8a3433 rc18f08d  
    218218        register_owl_commands();
    219219        register_keybindings() unless $BarnOwl::reload;
     220        register_filters() unless $BarnOwl::reload;
    220221        push @::onMainLoop,     sub { BarnOwl::Jabber::onMainLoop(@_) };
    221222        push @::onGetBuddyList, sub { BarnOwl::Jabber::onGetBuddyList(@_) };
     
    424425}
    425426
     427sub register_filters {
     428    BarnOwl::filter('jabber type ^jabber$');
     429}
     430
    426431sub cmd_login {
    427432    my $cmd = shift;
Note: See TracChangeset for help on using the changeset viewer.