Changeset 8fa9562 for perl/modules

Timestamp:

Jan 20, 2007, 9:49:55 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:

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:

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

perl/modules/jabber.pl

@@ -73 +73 @@
 
     $muc->Leave();
-    
     $self->{_BARNOWL_MUCS} = [grep {$_->BaseJID ne $muc->BaseJID} $self->MUCs];
 }
@@ -427 +426 @@
         $client->SetPresenceCallBacks(
             available    => sub { BarnOwl::Jabber::process_presence_available(@_) },
-#            unavailable  => sub { BarnOwl::Jabber::process_presence_available(@_) },
+            unavailable  => sub { BarnOwl::Jabber::process_presence_available(@_) },
             subscribe    => sub { BarnOwl::Jabber::process_presence_subscribe(@_) },
             subscribed   => sub { BarnOwl::Jabber::process_presence_subscribed(@_) },
@@ -1007 +1006 @@
     }
     $props{replysendercmd} = $props{replycmd} = "jwrite $from -i $sid";
-    if(BarnOwl::getvar('debug') eq 'on') {
+#    if(BarnOwl::getvar('debug') eq 'on') {
         BarnOwl::queue_message(BarnOwl::Message->new(%props));
-    }
+#    }
 }