[rt-users] Finding out if a user has been merged

[Komarinski, Mark F.]

Our Active Directory environment contains a list of email aliases for a user 
that I can query against, so I'd like to come up with a way of going through 
that database and merge users in RT to the primary account name.  I've already 
installed RT-Extension-MergeUsers and can do it by hand, but doing this in an 
automated fashion would be better given the thousands of users we have and skip 
over accounts that have already been merged.

Here's the snippet I have and comments I threw in along the way.  My problem 
appears to be that $merged_users has information about the system user rather 
than about $account.  What am I missing?

my $UnPrivilegedUsers = RT::Users->new ( $RT::SystemUser );

# We only want to search through unprivileged users.
$UnPrivilegedUsers->LimitToUnprivileged;

# Start going through the list of users
while ( my $UnPrivilegedUser = $UnPrivilegedUsers->Next ) {

  # Pull out their e-mail address
  my $email_address = $UnPrivilegedUser->EmailAddress;
  my $name = $UnPrivilegedUser->Name;

  # AD does case-sensitive matching, and they all appear to be lowercase
  my $account = checkLDAP(lc($email_address));
  # Account could be found in AD
  if ( $account ) {
    # Get information about this user
    my $merge_user = RT::User->new ( $RT::SystemUser );
    $merge_user->Load ( $account );
    #  Find out what is merged into this account
    my $merged_users = $merge_user->GetMergedUsers;
    if (grep { $_ == $email_address } @{$merged_users->Content} ) {
      print "Accounts already merged: $email_address in $account\n";
    }
  }
}