View | Details | Raw Unified | Return to bug 23191
Collapse All | Expand All

(-)a/misc/devel/install_plugins.pl (-8 / +32 lines)
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
- 

Return to bug 23191