Update M:I:RTx to 0.45 and make sure RT::IR is enabled before "make initdb"

Author: sunnavy

META.yml

@@ -34,6 +34,6 @@ requires:
 resources:
   license: http://opensource.org/licenses/gpl-license.php
 version: 5.0.8
-x_module_install_rtx_version: '0.44'
+x_module_install_rtx_version: '0.45'
 x_requires_rt: 5.0.0
 x_rt_too_new: 5.2.0

Makefile.PL

@@ -1,7 +1,7 @@
 BEGIN { push @INC, '.' }
 use inc::Module::Install;
 
-RTx('RT-IR', { no_readme_generation => 1, remove_files => 1 });
+RTx('RT-IR', { no_readme_generation => 1, remove_files => 1, initialdata_requires_plugin => 1 });
 license('GPL Version 2');
 author('Best Practical Solutions <sales@bestpractical.com>');
 all_from('lib/RT/IR.pm');

inc/Module/Install/RTx.pm

@@ -9,7 +9,7 @@ no warnings 'once';
 use Term::ANSIColor qw(:constants);
 use Module::Install::Base;
 use base 'Module::Install::Base';
-our $VERSION = '0.44';
+our $VERSION = '0.45';
 
 use FindBin;
 use File::Glob     ();
@@ -204,9 +204,17 @@ install ::
         $initdb .= <<"." if $has_etc{acl};
 \t\$(NOECHO) \$(PERL) -Ilib -I"$local_lib_path" -I"$lib_path" -Iinc -MModule::Install::RTx::Runtime -e"RTxDatabase(qw(acl \$(NAME) \$(VERSION)))"
 .
-        $initdb .= <<"." if $has_etc{initialdata};
+        if ($has_etc{initialdata}) {
+            if ($extra_args->{initialdata_requires_plugin}) {
+                (my $plugin_name = $name) =~ s/-/::/g;
+                $initdb .= <<"CHECK";
+\t\$(NOECHO) \$(PERL) -Ilib -I"$local_lib_path" -I"$lib_path" -Iinc -MModule::Install::RTx::Runtime -e"RTxInitialdataRequiresPlugin('$plugin_name')"
+CHECK
+            }
+            $initdb .= <<"INSERT";
 \t\$(NOECHO) \$(PERL) -Ilib -I"$local_lib_path" -I"$lib_path" -Iinc -MModule::Install::RTx::Runtime -e"RTxDatabase(qw(insert \$(NAME) \$(VERSION)))"
-.
+INSERT
+        }
         $self->postamble("initdb ::\n$initdb\n");
         $self->postamble("initialize-database ::\n$initdb\n");
         if ($has_etc{upgrade}) {
@@ -313,4 +321,4 @@ sub _load_rt_handle {
 
 __END__
 
-#line 484
+#line 500

inc/Module/Install/RTx/Runtime.pm

@@ -2,7 +2,7 @@
 package Module::Install::RTx::Runtime;
 
 use base 'Exporter';
-our @EXPORT = qw/RTxDatabase RTxPlugin/;
+our @EXPORT = qw/RTxDatabase RTxPlugin RTxInitialdataRequiresPlugin/;
 
 use strict;
 use File::Basename ();
@@ -56,6 +56,17 @@ sub RTxDatabase {
     (system($^X, @args) == 0) or die "...returned with error: $?\n";
 }
 
+sub RTxInitialdataRequiresPlugin {
+    my ($name) = @_;
+
+    _rt_runtime_load();
+
+    my @plugins = RT->Config->Get('Plugins');
+    unless (grep { $_ eq $name } @plugins) {
+        die "\nERROR: You must add Plugin('$name') to your RT_SiteConfig.pm before running 'make initdb'.\n\n";
+    }
+}
+
 sub RTxPlugin {
     my ($name) = @_;