Item13242: UnifiedUserMapping: add missing getEmails function

Again, for now this is an almost exact copy from TopicUserMapping, for now.
foswiki · Feb 5, 2015 · 3548db0 · 3548db0
1 parent 3392d5b
commit 3548db0
Showing 1 changed file with 31 additions and 1 deletion.
diff --git a/lib/Foswiki/Users/UnifiedUserMapping.pm b/lib/Foswiki/Users/UnifiedUserMapping.pm
@@ -195,7 +195,37 @@ sub findUserByEmail {
     ) || [];
 }
 
-=begin TML
+sub getEmails {
+    my ( $this, $user, $seen ) = @_;
+
+    $seen ||= {};
+
+    my %emails = ();
+
+    if ( $seen->{$user} ) {
+
+        #print STDERR "preventing infinit recursion in getEmails($user)\n";
+    }
+    else {
+        $seen->{$user} = 1;
+
+        if ( $this->isGroup($user) ) {
+            my $it = $this->eachGroupMember($user);
+            while ( $it->hasNext() ) {
+                foreach ( $this->getEmails( $it->next(), $seen ) ) {
+                    $emails{$_} = 1;
+                }
+            }
+        }
+        else {
+            foreach ( mapper_getEmails( $this->{session}, $user ) ) {
+                $emails{$_} = 1;
+            }
+        }
+    }
+    return keys %emails;
+}
+
 
 =begin TML