From 6538de6397a337f1f1181a3197994a7fff0410d8 Mon Sep 17 00:00:00 2001
From: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Date: Mon, 24 Jun 2019 13:30:54 +0100
Subject: [PATCH] Bug 23191: Add commandline script to install plugins

This adds an initial skeliton script to enable plugin installation at
the commandline.

Signed-off-by: Alex Arnaud <alex.arnaud@biblibre.com>
Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
---
 misc/devel/install_plugins.pl | 87 +++++++++++++++++++++++++++++++++++
 1 file changed, 87 insertions(+)
 create mode 100755 misc/devel/install_plugins.pl

diff --git a/misc/devel/install_plugins.pl b/misc/devel/install_plugins.pl
new file mode 100755
index 0000000000..19ba68dbcc
--- /dev/null
+++ b/misc/devel/install_plugins.pl
@@ -0,0 +1,87 @@
+#!/usr/bin/perl
+
+# This file is part of Koha.
+#
+# Copyright 2019 Koha Development Team
+#
+# Koha is free software; you can redistribute it and/or modify it
+# under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# Koha is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with Koha; if not, see <http://www.gnu.org/licenses>.
+
+use Modern::Perl;
+use Getopt::Long;
+use Pod::Usage;
+
+use Koha::Script;
+
+use C4::Context;
+use Koha::Plugins;
+
+my ($help);
+GetOptions( 'help|?' => \$help );
+
+pod2usage(1) if $help;
+
+my $plugins_enabled = C4::Context->preference('UseKohaPlugins')
+  && C4::Context->config("enable_plugins");
+unless ($plugins_enabled) {
+    print
+"The plugin system must be enabled for one to be able to install plugins\n";
+    exit 1;
+}
+
+my @plugins = Koha::Plugins->new()->InstallPlugins();
+
+unless (@plugins) {
+    my $plugins_dir = C4::Context->config("pluginsdir");
+    if ( ref($plugins_dir) eq 'ARRAY' ) {
+        print "No plugins found\n";
+        print "pluginsdir contains: \n" . join( '\n', @{$plugins_dir} );
+    }
+    else {
+        print "No plugins found at $plugins_dir\n";
+    }
+}
+
+for my $plugin (@plugins) {
+    print "Installed "
+      . $plugin->{metadata}->{name}
+      . " version "
+      . $plugin->{metadata}->{version} . "\n";
+}
+
+=head1 NAME
+
+install_plugins.pl - install all plugins found in plugins_dir
+
+=head1 SYNOPSIS
+
+ install_plugins.pl
+
+Options:
+  -?|--help        brief help message
+
+=head1 OPTIONS
+
+=over 8
+
+=item B<--help|-?>
+
+Print a brief help message and exits
+
+=back
+
+=head1 DESCRIPTION
+
+A simple script to install plugins from the command line
+
+=cut
-- 
2.39.5