Changeset 8fa9562 for perl


Ignore:
Timestamp:
Jan 20, 2007, 9:49:55 PM (14 years ago)
Author:
Alejandro R. Sedeño <asedeno@mit.edu>
Branches:
master, barnowl_perlaim, debian, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
Children:
575877f
Parents:
212764e
Message:
Added background color support to owl.

If we run out of color pairs during a painting of the screen, further
background colors will be silently dropped. I'm hoping this doesn't
happen often. The used pair list is reset with each draw, so only
what's actually on screen matters.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/jabber.pl

    re1b197e8 r8fa9562  
    7373
    7474    $muc->Leave();
    75    
    7675    $self->{_BARNOWL_MUCS} = [grep {$_->BaseJID ne $muc->BaseJID} $self->MUCs];
    7776}
     
    427426        $client->SetPresenceCallBacks(
    428427            available    => sub { BarnOwl::Jabber::process_presence_available(@_) },
    429 #            unavailable  => sub { BarnOwl::Jabber::process_presence_available(@_) },
     428            unavailable  => sub { BarnOwl::Jabber::process_presence_available(@_) },
    430429            subscribe    => sub { BarnOwl::Jabber::process_presence_subscribe(@_) },
    431430            subscribed   => sub { BarnOwl::Jabber::process_presence_subscribed(@_) },
     
    10071006    }
    10081007    $props{replysendercmd} = $props{replycmd} = "jwrite $from -i $sid";
    1009     if(BarnOwl::getvar('debug') eq 'on') {
     1008#    if(BarnOwl::getvar('debug') eq 'on') {
    10101009        BarnOwl::queue_message(BarnOwl::Message->new(%props));
    1011     }
     1010#    }
    10121011}
    10131012
Note: See TracChangeset for help on using the changeset viewer.