Bugzilla – Attachment 2116 Details for
Bug 4444
Centralize Code Handling Perl Dependencies
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
[5/5] Adds koha_perl_deps.pl to check deps from a cli
0005-5-5-Enhancement-Bug-4444-Centralize-Code-Handling-Pe.patch (text/plain), 4.86 KB, created by
Chris Cormack
on 2010-05-16 01:32:00 UTC
(
hide
)
Description:
[5/5] Adds koha_perl_deps.pl to check deps from a cli
Filename:
MIME Type:
Creator:
Chris Cormack
Created:
2010-05-16 01:32:00 UTC
Size:
4.86 KB
patch
obsolete
>From 0fe4ca961feac2bef188ac8fe7c20c3dad6228d9 Mon Sep 17 00:00:00 2001 >From: Chris Nighswonger <cnighswonger@foundations.edu> >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 <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 >-- >1.7.0.4 >
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Diff
View Attachment As Raw
Actions:
View
|
Diff
|
Splinter Review
Attachments on
bug 4444
:
2111
|
2112
|
2113
|
2114
|
2115
| 2116