e5e5e3155e
Widen module name allowance in the format statement, adjust other columns to be generous but not-so-much as before, modify report header and footer print statements to align and clarify. Very very long module names or version numbers are still subject to possible truncation. Signed-off-by: Magnus Enger <magnus@enger.priv.no> Sign off comment: With this patch module names are not truncated, which is an improvement. Lines are still too long to fit an 80 column display, and so they wrap around, but tht is a minor annoyance compared to the truncated names. Signed-off-by: Paul Poulain <paul.poulain@biblibre.com> Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
151 lines
3.8 KiB
Perl
Executable file
151 lines
3.8 KiB
Perl
Executable file
#!/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::PerlModules;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
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"
|
|
Installed Required Module is
|
|
Module Name Version Version 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.,
|
|
51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 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
|