[rt-users] Question on Perl Script to get queue names

[Mathew]

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----------------------------
> [root at test Desktop]# ./CF.pm
> Global symbol "%session" requires explicit package name at ./CF.pm line 40.
> Execution of ./CF.pm aborted due to compilation errors.
> [root at test 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: sales at bestpractical.com
> 
> 
> Discover RT's hidden secrets with RT Essentials from O'Reilly Media. 
> Buy a copy at http://rtbook.bestpractical.com