Upgrade to 4.2.8

[usit-rt.git] / local / bin / rt-shredder

diff --git a/local/bin/rt-shredder b/local/bin/rt-shredder
index fbcc9721bccc5a553bb0dc3f25a9cf054fbda27a..cbf9cd250967e3d0bfe4d0ab1582afaaa5038ff1 100755 (executable)
--- a/local/bin/rt-shredder
+++ b/local/bin/rt-shredder
@@ -3,7 +3,7 @@
 #
 # COPYRIGHT:
 #
-# This software is Copyright (c) 1996-2013 Best Practical Solutions, LLC
+# This software is Copyright (c) 1996-2012 Best Practical Solutions, LLC
 #                                          <sales@bestpractical.com>
 #
 # (Except where explicitly superseded by other copyright notices)
@@ -107,13 +107,12 @@ L<RT::Shredder>
 
 =cut
 
+use lib '/www/data/rt/perl/share/perl5';
+use lib '/www/data/rt/perl/lib/perl5';
+use lib '/www/data/rt/perl/lib64/perl5';
+
 use strict;
 use warnings FATAL => 'all';
-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';
-
-use lib ("/www/var/rt/local/lib", "/www/var/rt/lib");
 
 # fix lib paths, some may be relative
 BEGIN {
@@ -140,10 +139,7 @@ BEGIN {
 
 }
 
-use RT -init;
-
-require RT::Shredder;
-
+use RT::Shredder ();
 use Getopt::Long qw(GetOptions);
 use File::Spec ();
 
@@ -154,6 +150,7 @@ our %plugins = RT::Shredder::Plugin->List;
 our %opt;
 parse_args();
 
+RT::Shredder::Init( %opt );
 my $shredder = RT::Shredder->new;
 
 {