Changeset 17b7fc5 for perl/lib/Net

Timestamp:

Jan 23, 2007, 4:43:33 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:

455f1ab

Parents:

4ee1cf4

Message:

Add better handling for changing groups in the roster.

File:

• perl/lib/Net/XMPP/Roster.pm (modified) (1 diff)

perl/lib/Net/XMPP/Roster.pm

@@ -272 +272 @@
     if (exists $self->{JIDS}->{$jid})
     {
-        foreach my $key (keys %item)
-        {
-            $self->{JIDS}->{$jid}->{$key} = $item{$key};
-        }
+        foreach my $key (keys %item)
+        {
+            $self->{JIDS}->{$jid}->{$key} = $item{$key};
+        }
     }
     else
     {
         $self->{JIDS}->{$jid} = \%item;
-
-    }
+    }
+
+    foreach my $group (keys %{ $self->{GROUPS} })
+    {
+        # Clear user from old groups.
+        delete $self->{GROUPS}->{$group}->{$jid};
+        # Clean up empty groups.
+        delete $self->{GROUPS}->{$group} unless scalar keys %{ $self->{GROUPS}->{$group} };
+    }
+
     foreach my $group (@{$item{groups}})
     {
-        $self->{GROUPS}->{$group}->{$jid} = 1;
+        $self->{GROUPS}->{$group}->{$jid} = 1;
     }
 }