|
Lines 39-47
unless ($plugins_enabled) {
Link Here
|
| 39 |
exit 1; |
39 |
exit 1; |
| 40 |
} |
40 |
} |
| 41 |
|
41 |
|
| 42 |
my @plugins = Koha::Plugins->new()->InstallPlugins(); |
|
|
| 43 |
|
42 |
|
| 44 |
unless (@plugins) { |
43 |
my @existing_plugins = Koha::Plugins->new()->GetPlugins({ |
|
|
44 |
all => 1, |
| 45 |
}); |
| 46 |
my $existing_plugins; |
| 47 |
for my $existing_plugin (@existing_plugins) { |
| 48 |
$existing_plugins->{ $existing_plugin->{metadata}->{name} } = |
| 49 |
$existing_plugin->{metadata}->{version}; |
| 50 |
} |
| 51 |
|
| 52 |
my @installed_plugins = Koha::Plugins->new()->InstallPlugins(); |
| 53 |
unless (@installed_plugins) { |
| 45 |
my $plugins_dir = C4::Context->config("pluginsdir"); |
54 |
my $plugins_dir = C4::Context->config("pluginsdir"); |
| 46 |
if ( ref($plugins_dir) eq 'ARRAY' ) { |
55 |
if ( ref($plugins_dir) eq 'ARRAY' ) { |
| 47 |
print "No plugins found\n"; |
56 |
print "No plugins found\n"; |
|
Lines 50-63
unless (@plugins) {
Link Here
|
| 50 |
else { |
59 |
else { |
| 51 |
print "No plugins found at $plugins_dir\n"; |
60 |
print "No plugins found at $plugins_dir\n"; |
| 52 |
} |
61 |
} |
|
|
62 |
exit 0; |
| 53 |
} |
63 |
} |
| 54 |
|
64 |
|
| 55 |
for my $plugin (@plugins) { |
65 |
for my $installed_plugin (@installed_plugins) { |
| 56 |
print "Installed " |
66 |
if ( !exists( $existing_plugins->{ $installed_plugin->{metadata}->{name} } ) |
| 57 |
. $plugin->{metadata}->{name} |
67 |
) |
| 58 |
. " version " |
68 |
{ |
| 59 |
. $plugin->{metadata}->{version} . "\n"; |
69 |
print "Installed " |
|
|
70 |
. $installed_plugin->{metadata}->{name} |
| 71 |
. " version " |
| 72 |
. $installed_plugin->{metadata}->{version} . "\n"; |
| 73 |
} |
| 74 |
elsif ( $existing_plugins->{ $installed_plugin->{metadata}->{name} } ne |
| 75 |
$installed_plugin->{metadata}->{version} ) |
| 76 |
{ |
| 77 |
print "Upgraded " |
| 78 |
. $installed_plugin->{metadata}->{name} |
| 79 |
. " from version " |
| 80 |
. $existing_plugins->{ $installed_plugin->{metadata}->{name} } |
| 81 |
. " to version " |
| 82 |
. $installed_plugin->{metadata}->{version} . "\n"; |
| 83 |
} |
| 60 |
} |
84 |
} |
|
|
85 |
print "All plugins successfully re-initialised\n"; |
| 61 |
|
86 |
|
| 62 |
=head1 NAME |
87 |
=head1 NAME |
| 63 |
|
88 |
|
| 64 |
- |
|
|