How do I get the list of privleged users?<div><br></div><div>This is what I have so far</div><div><br></div><div><div>#!/usr/bin/perl -w</div><div> </div><div> use strict;</div><div> use Carp;</div><div> use Getopt::Long;</div>

<div> </div><div> use lib qw(/opt/rt3/lib /opt/rt3/etc);</div><div> </div><div> use RT::Interface::CLI qw(CleanEnv GetCurrentUser GetMessageContent loc);</div><div> CleanEnv();</div><div> </div><div> use RT;</div><div> use RT::Ticket;</div>

<div> use RT::Tickets;</div><div> </div><div> RT::LoadConfig();</div><div> </div><div> RT::Init();</div><div> </div><div> my $PrivilegedUsers = RT::Users->new ( $RT::SystemUser );</div><div> $PrivilegedUsers->LimitToPrivileged;</div>

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

 $RT::Handle->Disconnect();</div><div><br></div><div><br></div>Asif Iqbal<br>PGP Key: 0xE62693C5 KeyServer: <a href="http://pgp.mit.edu">pgp.mit.edu</a><br>A: Because it messes up the order in which people normally read text.<br>

Q: Why is top-posting such a bad thing?<br><br><br>
</div>