Not sure if this will work but it might.
#!/usr/bin/perl
use warnings;
use strict;
use lib '/path/to/rt/lib/';
use lib '/path/to/rt/local/lib/';
use RT;
use RT::Queues;
my $queues = new RT::Queues(RT::SystemUser);
foreach my $queue ($queues->Next) {
print $queue->Name . "\n";
}
exit;
Keep up with my goings on at http://theillien.blogspot.com
Carlos Ramon Lopez Midence wrote:
> I have this perl script that I found on the list but I have an error
> when I run it: (my apologies if this a perl error, should find a perl
> list and post it there)
>
> #!/usr/bin/perl
>
> use lib "/var/lib/rt3";
> use lib "/etc/rt3";
>
> package RT;
>
> use strict;
> use warnings;
> use RT;
> use RT::Ticket;
> use RT::Tickets;
> use RT::CurrentUser;
> use RT::Queue;
> use RT::Transactions;
> use RT::Users;
> use RT::Groups;
> use RT::Principal;
> use DBI;
> use RT::Interface::CLI qw (CleanEnv GetCurrentUser);
>
>
> # Load the RT configuration
> RT::LoadConfig();
> # Initialiaze RT
> RT::Init();
>
> #-------------------------------Gets current user name:
> my $user = RT::User->new($RT::SystemUser);
> print $user;
>
> #-------------------------------Gets queue names
> my $queue_id = 10;
> my $queue_obj = RT::Queue->new( $session{'CurrentUser'} );
> $queue_obj->Load( $queue_id );
> my $queue_name = $queue_obj->Name;
> print $queue_name;
>
> ----------------------------Output----------------------------
> [EMAIL PROTECTED] Desktop]# ./CF.pm
> Global symbol "%session" requires explicit package name at ./CF.pm line 40.
> Execution of ./CF.pm aborted due to compilation errors.
> [EMAIL PROTECTED] Desktop]#
>
>
>
>
> I have no clue as to what explicit package is missing:
>
> Any ideas will be greatly appreciated...
>
> Carlos
>
>
> ------------------------------------------------------------------------
> Play free games, earn tickets, get cool prizes! Join Live Search Club.
> Join Live Search Club!
> <http://club.live.com/home.aspx?icid=CLUB_wlmailtextlink>
>
>
> ------------------------------------------------------------------------
>
> _______________________________________________
> http://lists.bestpractical.com/cgi-bin/mailman/listinfo/rt-users
>
> Community help: http://wiki.bestpractical.com
> Commercial support: [EMAIL PROTECTED]
>
>
> Discover RT's hidden secrets with RT Essentials from O'Reilly Media.
> Buy a copy at http://rtbook.bestpractical.com
_______________________________________________
http://lists.bestpractical.com/cgi-bin/mailman/listinfo/rt-users
Community help: http://wiki.bestpractical.com
Commercial support: [EMAIL PROTECTED]
Discover RT's hidden secrets with RT Essentials from O'Reilly Media.
Buy a copy at http://rtbook.bestpractical.com
