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

[Viktor]

Hello, Carlos!

I don't really sure if you need to use RT::Interface::CLI, you could have tried to eliminate it.
A problem with %session might be caused by your use of $session{ 'CurrentUser' }, try $RT::SystemUser instead.

Good luck!

-----Original Message-----
From: Carlos Ramon Lopez Midence <caralomi at hotmail.com>
To: "rt-users at lists.bestpractical.com" <rt-users at lists.bestpractical.com>
Date: Wed, 27 Jun 2007 11:08:32 -0400
Subject: [rt-users] Question on Perl Script to get queue names

> 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 configurationRT::LoadConfig();# Initialiaze RTRT::Init();
>  
> #-------------------------------Gets current user name:my $user = RT::User->new($RT::SystemUser);print $user;
>  
> #-------------------------------Gets queue namesmy $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.pmGlobal 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. 
> 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
>