Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

executable file 151 lines (104 sloc) 3.996 kb
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;
'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;
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;
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
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;
=head1 NAME
./ -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
=head1 AUTHOR
Chris Nighswonger <cnighswonger AT foundations DOT edu>
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.
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.
Jump to Line
Something went wrong with that request. Please try again.