<div class="gmail_quote">On Fri, Jun 15, 2012 at 10:08 AM, Asif Iqbal <span dir="ltr"><<a href="mailto:vadud3@gmail.com" target="_blank">vadud3@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">

<div class="gmail_quote"><div class="im">On Fri, Jun 15, 2012 at 5:37 AM, Tim Cutts <span dir="ltr"><<a href="mailto:tjrc@sanger.ac.uk" target="_blank">tjrc@sanger.ac.uk</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">


<div><br>
On 15 Jun 2012, at 07:52, Asif Iqbal wrote:<br>
<br>
> How do I get the list of privleged users?<br>
><br>
> This is what I have so far<br>
><br>
> #!/usr/bin/perl -w<br>
><br>
>  use strict;<br>
>  use Carp;<br>
>  use Getopt::Long;<br>
><br>
>  use lib qw(/opt/rt3/lib /opt/rt3/etc);<br>
><br>
>  use RT::Interface::CLI qw(CleanEnv GetCurrentUser GetMessageContent loc);<br>
>  CleanEnv();<br>
><br>
>  use RT;<br>
<br>
>  use RT::Ticket;<br>
>  use RT::Tickets;<br>
<br>
</div>Don't you mean:<br>
<br>
use RT::Users;<br>
<br></blockquote><div><br></div></div><div>right. I took that code from another script without realizing this obvious change.</div><div class="im"><div> </div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">



instead of the above two lines?<br>
<div><br>
><br>
>  RT::LoadConfig();<br>
><br>
>  RT::Init();<br>
><br>
>  my $PrivilegedUsers = RT::Users->new ( $RT::SystemUser );<br>
>  $PrivilegedUsers->LimitToPrivileged;<br>
><br>
><br>
>  while ( my $PrivilegedUser = $PrivilegedUsers->Next ) {<br>
>         print $PrivilegedUser."\n";  # <== this only prints hash<br>
<br>
</div>$PrivilegedUser is a reference  to a perl object (hence you get the class name and an identifier for the object).  In order to get the data out of the object, you have to call an accessor method:<br>
<br>
print $PrivilegedUser->Name, "\n";<br>
<br></blockquote><div><br></div></div><div>excellent! thanks a lot!</div><div class="im"><div> </div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
or<br>
<br>
print $PrivilegedUser->EmailAddress, "\n";<br>
<br>
depending on what you want.<br>
<br>
>  }<br>
><br>
>  $RT::Handle->Disconnect();<br>
<br>
I don't think you need that bit - it'll all be closed cleanly as the script exits anyway.<br>
<span><font color="#888888"><br></font></span></blockquote></div></div></blockquote><div><br></div><div>how do I run this code with a script account which has no account on RT?</div><div><br></div><div>Is it possible to feed a valid account/password in a .rtrc file or something similar </div>

<div>that the script account will use to connect to RT and generate the report?</div><div><br></div><div> </div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div class="gmail_quote">

<div class="im"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><span><font color="#888888">
Tim<br>
<br>
--<br>
 The Wellcome Trust Sanger Institute is operated by Genome Research<br>
 Limited, a charity registered in England with number 1021457 and a<br>
 company registered in England with number 2742969, whose registered<br>
 office is 215 Euston Road, London, NW1 2BE.<br>
</font></span></blockquote></div></div><br><br clear="all"><div><br></div>-- <br><div class="HOEnZb"><div class="h5">Asif Iqbal<br>PGP Key: 0xE62693C5 KeyServer: <a href="http://pgp.mit.edu" target="_blank">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></div></blockquote></div><br><br clear="all"><div><br></div>-- <br>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>