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----------------------------
[EMAIL PROTECTED] Desktop]# ./CF.pmGlobal symbol "%session" requires explicit
package name at ./CF.pm line 40.Execution of ./CF.pm aborted due to compilation
[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.
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
