- 

#!/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