How do I get the list of privleged users?

This is what I have so far

#!/usr/bin/perl -w

 use strict;
 use Carp;
 use Getopt::Long;

 use lib qw(/opt/rt3/lib /opt/rt3/etc);

 use RT::Interface::CLI qw(CleanEnv GetCurrentUser GetMessageContent loc);
 CleanEnv();

 use RT;
 use RT::Ticket;
 use RT::Tickets;

 RT::LoadConfig();

 RT::Init();

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


 while ( my $PrivilegedUser = $PrivilegedUsers->Next ) {
        print $PrivilegedUser."\n";  # <== this only prints hash
 }

 $RT::Handle->Disconnect();


Asif Iqbal
PGP Key: 0xE62693C5 KeyServer: pgp.mit.edu
A: Because it messes up the order in which people normally read text.
Q: Why is top-posting such a bad thing?

Reply via email to