Putting 4.2.0 on top of 4.0.17
[usit-rt.git] / sbin / rt-dump-metadata
index d7d3183..3953e5c 100755 (executable)
@@ -54,22 +54,15 @@ use warnings;
 binmode( STDOUT, ":utf8" );
 
 # fix lib paths, some may be relative
-BEGIN {
+BEGIN { # BEGIN RT CMD BOILERPLATE
     require File::Spec;
-    my @libs = ( "lib", "local/lib" );
+    require Cwd;
+    my @libs = ("lib", "local/lib");
     my $bin_path;
 
     for my $lib (@libs) {
         unless ( File::Spec->file_name_is_absolute($lib) ) {
-            unless ($bin_path) {
-                if ( File::Spec->file_name_is_absolute(__FILE__) ) {
-                    $bin_path = ( File::Spec->splitpath(__FILE__) )[1];
-                } else {
-                    require FindBin;
-                    no warnings "once";
-                    $bin_path = $FindBin::Bin;
-                }
-            }
+            $bin_path ||= ( File::Spec->splitpath(Cwd::abs_path(__FILE__)) )[1];
             $lib = File::Spec->catfile( $bin_path, File::Spec->updir, $lib );
         }
         unshift @INC, $lib;
@@ -102,11 +95,6 @@ my %Ignore = (
             id Created Creator LastUpdated LastUpdatedBy
             )
            ],
-    Templates => [
-        qw(
-            TranslationOf
-            )
-    ],
 );
 
 my $SystemUserId = RT->SystemUser->Id;
@@ -145,7 +133,8 @@ foreach my $class (@classes) {
         $objects->Limit(
             FIELD    => 'Domain',
             OPERATOR => '=',
-            VALUE    => 'UserDefined'
+            VALUE    => 'UserDefined',
+            CASESENSITIVE => 0,
         ) if $class eq 'Groups';
     }