Changeset 8590774 for perl/modules/Jabber/lib/BarnOwl

Timestamp:

Oct 24, 2009, 12:12:15 PM (15 years ago)

Author:

Alejandro R. Sedeño <asedeno@mit.edu>

Branches:

master, release-1.10, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

6211c76

Parents:

23fddad

git-author:

Alejandro R. Sedeño <asedeno@mit.edu> (10/18/09 17:11:55)

git-committer:

Alejandro R. Sedeño <asedeno@mit.edu> (10/24/09 12:12:15)

Message:

Reconnect to MUCs when reconnecting to Jabber.

Signed-off-by: Alejandro R. Sedeño <asedeno@mit.edu>
Signed-off-by: Nelson Elhage <nelhage@mit.edu>

Location:

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

Files:

• Connection.pm (modified) (1 diff)
• ConnectionManager.pm (modified) (1 diff)

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

@@ -43 +43 @@
     my $self = shift;
     my $muc = Net::Jabber::MUC->new(connection => $self, @_);
+    $muc->{ARGS} = @_; # Save these for later
     $muc->Join(@_);
 

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

@@ -98 +98 @@
     $self->{$jidStr}{Status} = "available";
 
+    foreach my $muc ($self->{$jidStr}->{Client}->MUCs()) {
+        $muc->Join($muc->{ARGS});
+    }
+
     return 1;
 }