Enhancement Bug 4444: Centralize Code Handling Perl Dependencies
This patch adds a script to allow checking the status of Koha's Perl dependencies from the command line interface at any time. Run '$ ./koha_perl_deps.pl --help' for available options. '$ ./koha_perl_deps.pl -c' is recommended if you like color. Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
This commit is contained in:
Chris Nighswonger
Chris Cormack
parent
f6b26e22f0
commit
9c75c10de9
|
|
@ -0,0 +1,146 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
use Getopt::Long;
|
||||
use Pod::Usage;
|
||||
use Term::ANSIColor;
|
||||
use FindBin; # we need to enforce which C4::Installer is used in case more than one is installed
|
||||
|
||||
use lib $FindBin::Bin;
|
||||
|
||||
use C4::Installer;
|
||||
|
||||
my $help = 0;
|
||||
my $missing = 0;
|
||||
my $installed = 0;
|
||||
my $upgrade = 0;
|
||||
my $all = 0;
|
||||
my $color = 0;
|
||||
|
||||
GetOptions(
|
||||
'h|help|?' => \$help,
|
||||
'm|missing' => \$missing,
|
||||
'i|installed' => \$installed,
|
||||
'u|upgrade' => \$upgrade,
|
||||
'a|all' => \$all,
|
||||
'c|color' => \$color,
|
||||
);
|
||||
|
||||
pod2usage(1) if $help || (!$missing && !$installed && !$upgrade && !$all);
|
||||
|
||||
my $koha_pm = C4::Installer::PerlModules->new;
|
||||
$koha_pm->version_info(all => 1);
|
||||
|
||||
my @pm = ();
|
||||
|
||||
push @pm, 'missing_pm' if $missing || $all;
|
||||
push @pm, 'upgrade_pm' if $upgrade || $all;
|
||||
push @pm, 'current_pm' if $installed || $all;
|
||||
|
||||
print color 'bold white' if $color;
|
||||
print"
|
||||
Module Name Current Version Required Version Module Required
|
||||
--------------------------------------------------------------------------------------------------------------------------
|
||||
";
|
||||
|
||||
my $count = 0;
|
||||
foreach my $type (@pm) {
|
||||
my $mod_type = $type;
|
||||
$mod_type =~ s/_pm$//;
|
||||
my $pm = $koha_pm->get_attr($type);
|
||||
foreach (@$pm) {
|
||||
foreach my $pm (keys(%$_)) {
|
||||
print color 'yellow' if $type eq 'upgrade_pm' && $color;
|
||||
print color 'red' if $type eq 'missing_pm' && $color;
|
||||
print color 'green' if $type eq 'current_pm' && $color;
|
||||
$count++;
|
||||
my $required = ($_->{$pm}->{'required'}?'Yes':'No');
|
||||
my $current_version = ($color ? $_->{$pm}->{'cur_ver'} :
|
||||
$type eq 'missing_pm' || $type eq 'upgrade_pm' ? $_->{$pm}->{'cur_ver'}." *" : $_->{$pm}->{'cur_ver'});
|
||||
format =
|
||||
@<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<< @<<<<<<<<<< @<<<<<
|
||||
$pm, $current_version, $_->{$pm}->{'min_ver'}, $required
|
||||
.
|
||||
write;
|
||||
}
|
||||
}
|
||||
}
|
||||
print color 'bold white' if $color;
|
||||
my $footer = "
|
||||
--------------------------------------------------------------------------------------------------------------------------
|
||||
Total modules reported: $count ";
|
||||
|
||||
if ($color) {
|
||||
$footer .= "\n\n";
|
||||
}
|
||||
else {
|
||||
$footer .= "* Module is missing or requires an upgrade.\n\n";
|
||||
}
|
||||
|
||||
print $footer;
|
||||
|
||||
1;
|
||||
|
||||
__END__
|
||||
|
||||
=head1 NAME
|
||||
|
||||
koha_perl_deps.pl
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
./koha_perl_deps.pl -m
|
||||
|
||||
=head1 OPTIONS
|
||||
|
||||
=over 8
|
||||
|
||||
=item B<-m|--missing>
|
||||
|
||||
lists all missing perl modules
|
||||
|
||||
=item B<-i|--installed>
|
||||
|
||||
lists all installed perl modules
|
||||
|
||||
=item B<-u|--upgrade>
|
||||
|
||||
lists all perl modules needing to be upgraded relative to Koha
|
||||
|
||||
=item B<-a|--all>
|
||||
|
||||
lists all koha perl dependencies
|
||||
|
||||
=item B<-c|--color>
|
||||
|
||||
formats the output in color; red = module is missing, yellow = module requires upgrading, green = module is installed and current
|
||||
|
||||
=item B<-h|--help|?>
|
||||
|
||||
prints this help text
|
||||
|
||||
=back
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
Chris Nighswonger <cnighswonger AT foundations DOT edu>
|
||||
|
||||
=head1 COPYRIGHT
|
||||
|
||||
Copyright 2010 Foundations Bible College.
|
||||
|
||||
=head1 LICENSE
|
||||
|
||||
This file is part of Koha.
|
||||
|
||||
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 2 of the License, or (at your option) any later version.
|
||||
|
||||
You should have received a copy of the GNU General Public License along with Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
|
||||
Suite 330, Boston, MA 02111-1307 USA
|
||||
|
||||
=head1 DISCLAIMER OF WARRANTY
|
||||
|
||||
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.
|
||||
|
||||
=cut
|
||||
Loading…
Reference in New Issue