Flyspray: Only migrate users that are necessary

Signed-off-by: Florian Pritz <bluewind@xinu.at>

1 files changed, 8 insertions, 0 deletions

diff --git a/Bugzilla/Migrate/Flyspray.pm b/Bugzilla/Migrate/Flyspray.pm
index 3b7d51a1a..faf8fa596 100644
--- a/Bugzilla/Migrate/Flyspray.pm
+++ b/Bugzilla/Migrate/Flyspray.pm
@@ -485,6 +485,7 @@ sub _read_bugs {
 sub _get_username {
 	my ($self, $userid) = @_;
 	my $email = $self->{map_user_id_to_email}->{$userid // -1} // $self->{map_user_id_to_email}->{-1};
+    $self->{email_to_keep}->{$email} = 1;
 	return $email;
 }
 
@@ -499,6 +500,13 @@ sub translate_bug {
     return wantarray ? ($bug, $other_fields) : $bug;
 }
 
+sub after_read {
+    my ($self) = @_;
+
+    # only migrate users that have comments/attachments/are used somewhere
+    $self->{users} = [grep { defined $self->{email_to_keep}->{$_->{login_name}}} @{$self->{users}}];
+}
+
 sub after_insert {
 	my ($self) = @_;