Made rt-shredder local.
authorMikal Kolbein Gule <m.k.gule@usit.uio.no>
Mon, 30 Sep 2013 10:31:02 +0000 (12:31 +0200)
committerMikal Kolbein Gule <m.k.gule@usit.uio.no>
Mon, 30 Sep 2013 10:31:02 +0000 (12:31 +0200)
local/bin/rt-shredder

index 64addfd..fbcc972 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)
@@ -107,12 +107,13 @@ L<RT::Shredder>
 
 =cut
 
+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 strict;
-use warnings FATAL => 'all';
+use lib ("/www/var/rt/local/lib", "/www/var/rt/lib");
 
 # fix lib paths, some may be relative
 BEGIN {
@@ -139,7 +140,10 @@ BEGIN {
 
 }
 
-use RT::Shredder ();
+use RT -init;
+
+require RT::Shredder;
+
 use Getopt::Long qw(GetOptions);
 use File::Spec ();
 
@@ -150,7 +154,6 @@ our %plugins = RT::Shredder::Plugin->List;
 our %opt;
 parse_args();
 
-RT::Shredder::Init( %opt );
 my $shredder = RT::Shredder->new;
 
 {