From 0fe4ca961feac2bef188ac8fe7c20c3dad6228d9 Mon Sep 17 00:00:00 2001 From: Chris Nighswonger Date: Sat, 15 May 2010 18:08:26 -0400 Subject: [PATCH 5/5] [5/5] Enhancement Bug 4444: Centralize Code Handling Perl Dependencies Content-Type: text/plain; charset="utf-8" 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. --- koha_perl_deps.pl | 146 +++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 files changed, 146 insertions(+), 0 deletions(-) create mode 100755 koha_perl_deps.pl diff --git a/koha_perl_deps.pl b/koha_perl_deps.pl new file mode 100755 index 0000000..5557f7a --- /dev/null +++ b/koha_perl_deps.pl @@ -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 + +=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 -- 1.7.0.4