[rt-users] How to list all enabled users in Perl script?

Nathan Cutler presnypreklad at gmail.com
Mon Sep 2 10:04:27 EDT 2013


RT 4.0.17.  In the web UI, when I list all enabled users by selecting
'%' I get a list of about 152 users (approximately). Now, I have
written a Perl script that is supposed to list all enabled RT users.
When I run it, it finds 147 users and lists them in alphabetical
order. But approximately 5 users at the end of the alphabet ('Name'
starting with 'v', 'w', 'x', 'y', or 'z') are missing. For the life of
me I can't figure out why. Any ideas?

use strict;
use warnings;

use RT;
use RT::User;
use RT::Users;


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

my $loop_count = 0;
while (my $current_user = $RT_enabled_users->Next) {

   $loop_count += 1;

   my $uid = $current_user->Name;
   my $real_name = $current_user->RealName;
   my $rt_email = $current_user->EmailAddress;

   print "$loop_count: '$uid' -- $real_name -- $rt_email\n";


print "Loop count: $loop_count\n";

Thanks alot,

More information about the rt-users mailing list