Upgrade to 4.0.13
[usit-rt.git] / bin / rt-crontool
index b6a5b14..0642a76 100755 (executable)
@@ -3,7 +3,7 @@
 #
 # COPYRIGHT:
 #
-# This software is Copyright (c) 1996-2012 Best Practical Solutions, LLC
+# This software is Copyright (c) 1996-2013 Best Practical Solutions, LLC
 #                                          <sales@bestpractical.com>
 #
 # (Except where explicitly superseded by other copyright notices)
 #
 # END BPS TAGGED BLOCK }}}
 use strict;
+use warnings;
 use Carp;
 
-use lib '/www/data/rt/rt-perl/current-perl10/share/perl5';
-use lib '/www/data/rt/rt-perl/current-perl10/lib/perl5';
-use lib '/www/data/rt/rt-perl/current-perl10/lib64/perl5';
-
 # fix lib paths, some may be relative
 BEGIN {
     require File::Spec;
@@ -157,17 +154,13 @@ my $void_scrip_action = RT::ScripAction->new( $CurrentUser );
 
 #find a bunch of tickets
 my $tickets = RT::Tickets->new($CurrentUser);
-my $search  = $search->new(
+$search  = $search->new(
     TicketsObj  => $tickets,
     Argument    => $search_arg,
     CurrentUser => $CurrentUser
 );
-
 $search->Prepare();
 
-# TicketsFound is an RT::Tickets object
-my $tickets = $search->TicketsObj;
-
 #for each ticket we've found
 while ( my $ticket = $tickets->Next() ) {
     print $ticket->Id() . ":\n" if ($verbose);
@@ -314,18 +307,6 @@ sub load_module {
 }
 
 
-
-# =head2 loc LIST
-# 
-# Localize this string, with the current user's currentuser object
-# 
-# =cut
-
-sub loc {
-    $CurrentUser->loc(@_);
-}
-
-
 sub help {
 
     print loc( "[_1] is a tool to act on tickets from an external scheduling tool, such as cron.", $0 )