Changeset 3e34a69 for perl/modules/Jabber/lib/BarnOwl/Module/Jabber

Timestamp:

Mar 13, 2012, 1:25:43 PM (12 years ago)

Author:

David Benjamin <davidben@mit.edu>

Children:

d474ee9

Parents:

d199207

Message:

Move BarnOwl::Module::Jabber to BarnOwl::Module::Jabber::Impl

In preparation of lazily loading the Jabber module.

Location:

perl/modules/Jabber/lib/BarnOwl/Module/Jabber

Files:

• Connection.pm (modified) (2 diffs)
• Impl.pm (added)

perl/modules/Jabber/lib/BarnOwl/Module/Jabber/Connection.pm

@@ -146 +146 @@
     my $status = $self->Process(0);
     if ( !defined($status) ) {
-        $BarnOwl::Module::Jabber::conn->scheduleReconnect($jid);
+        $BarnOwl::Module::Jabber::Impl::conn->scheduleReconnect($jid);
     }
 }
@@ -191 +191 @@
         my %jq  = $roster->query($buddy);
         my $name = $jq{name} || $buddy->GetUserID();
-        $BarnOwl::Module::Jabber::completion_jids{$name} = 1;
-        $BarnOwl::Module::Jabber::completion_jids{$buddy->GetJID()} = 1;
-    }
-    $BarnOwl::Module::Jabber::vars{idletime} |= BarnOwl::getidletime();
-    unless (exists $BarnOwl::Module::Jabber::vars{keepAliveTimer}) {
-        $BarnOwl::Module::Jabber::vars{keepAliveTimer} =
+        $BarnOwl::Module::Jabber::Impl::completion_jids{$name} = 1;
+        $BarnOwl::Module::Jabber::Impl::completion_jids{$buddy->GetJID()} = 1;
+    }
+    $BarnOwl::Module::Jabber::Impl::vars{idletime} |= BarnOwl::getidletime();
+    unless (exists $BarnOwl::Module::Jabber::Impl::vars{keepAliveTimer}) {
+        $BarnOwl::Module::Jabber::Impl::vars{keepAliveTimer} =
             BarnOwl::Timer->new({
                 'name' => "Jabber ($fullJid) keepAliveTimer",
                 'after' => 5,
                 'interval' => 5,
-                'cb' => sub { BarnOwl::Module::Jabber::do_keep_alive_and_auto_away(@_) }
+                'cb' => sub { BarnOwl::Module::Jabber::Impl::do_keep_alive_and_auto_away(@_) }
                                 });
     }