X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=scripts%2Finstallation_check.pl;h=6a65ec5e64be7894e0b57afe2839a9a5c0b96a1e;hb=cb1341a6715ae92b278b49d8b14eee7d4018859e;hp=a50d184d2863e06a91d2e05c5e34dae7b92fb1a0;hpb=e74dac176e01090f7e3b6bd9e99596a36e614284;p=kivitendo-erp.git diff --git a/scripts/installation_check.pl b/scripts/installation_check.pl index a50d184d2..6a65ec5e6 100755 --- a/scripts/installation_check.pl +++ b/scripts/installation_check.pl @@ -4,6 +4,7 @@ use strict; use Getopt::Long; use Pod::Usage; use Term::ANSIColor; +use Text::Wrap; our $master_templates; BEGIN { unshift @INC, "modules/override"; # Use our own versions of various modules (e.g. YAML). @@ -13,9 +14,30 @@ BEGIN { $master_templates = './templates/print/'; } +unless (eval { require Config::Std; 1 }){ + print STDERR < \ $check{r}, "h|help" => sub { pod2usage(-verbose => 2) }, "c|color!" => \ ( my $c = 1 ), + "i|install-command!" => \ my $apt, +); + +my %install_methods = ( + apt => { key => 'debian', install => 'sudo apt-get install', system => "Debian, Ubuntu" }, + yum => { key => 'fedora', install => 'sudo yum install', system => "RHEL, Fedora, CentOS" }, + zypper => { key => 'suse', install => 'sudo zypper install', system => "SLES, openSUSE" }, + cpan => { key => 'name', install => "sudo cpan", system => "CPAN" }, ); # if nothing is requested check "required" @@ -57,7 +87,6 @@ if (!SL::LxOfficeConf->read(undef, 'may fail')) { if ($check{r}) { print_header('Checking Required Modules'); check_module($_, required => 1) for @SL::InstallationCheck::required_modules; - print_header('Standard check for required modules done. See additional parameters for more checks (--help)') if $default_run; } if ($check{o}) { print_header('Checking Optional Modules'); @@ -71,6 +100,42 @@ if ($check{l}) { check_latex(); } +my $fail = @missing_modules; +print_header('Result'); +print_line('All', $fail ? 'NOT ok' : 'OK', $fail ? 'red' : 'green'); + +if ($default_run) { + if (@missing_modules) { + $apt = 1; + print <<"EOL"; + +HEY! It seems there are modules MISSING! Look for the red lines with "NOT ok" +above. You'll want to fix those, I've enabled --install-command for you... +EOL + } else { + print <<"EOL"; + +Standard check done, everything is OK and up to date. Have a look at the --help +section of this script to see some more advanced checks for developer and +optional dependancies, as well as LaTeX packages you might need. +EOL + } +} + +if (@missing_modules && $apt) { + print "\nHere are some sample installation lines, choose one appropriate for your system:\n\n"; + local $Text::Wrap::separator = " \\\n"; + + for (keys %install_methods) { + my $method = $install_methods{$_}; + if (my @install_candidates = grep $_, map { $_->{$method->{key}} } @missing_modules) { + print "$method->{system}:\n"; + print wrap(" ", " ", $method->{install}, @install_candidates); + print $/; + } + } +} + sub check_latex { my ($res) = check_kpsewhich(); print_result("Looking for LaTeX kpsewhich", $res); @@ -135,6 +200,7 @@ sub check_module { my ($module, %role) = @_; my $line = "Looking for $module->{fullname}"; + $line .= " (from $module->{dist_name})" if $module->{dist_name}; my ($res, $ver) = SL::InstallationCheck::module_available($module->{"name"}, $module->{version}); if ($res) { my $ver_string = ref $ver && $ver->can('numify') ? $ver->numify : $ver ? $ver : 'no version'; @@ -146,10 +212,12 @@ sub check_module { return if $res; + push @missing_modules, $module; + my $needed_text = - $role{optional} ? 'It is OPTIONAL for Lx-Office but RECOMMENDED for improved functionality.' - : $role{required} ? 'It is NEEDED by Lx-Office and must be installed.' - : $role{devel} ? 'It is OPTIONAL for Lx-Office and only useful for developers.' + $role{optional} ? 'It is OPTIONAL for kivitendo but RECOMMENDED for improved functionality.' + : $role{required} ? 'It is NEEDED by kivitendo and must be installed.' + : $role{devel} ? 'It is OPTIONAL for kivitendo and only useful for developers.' : 'It is not listed as a dependancy yet. Please tell this the developers.'; my @source_texts = module_source_texts($module); @@ -171,20 +239,17 @@ EOL sub module_source_texts { my ($module) = @_; my @texts; - push @texts, <{name}" + for my $key (keys %install_methods) { + my $method = $install_methods{$key}; + push @texts, <<"EOL" if $module->{$method->{key}}; + - Using $method->{system} you can install it with $key: + $method->{install} $module->{$method->{key}} EOL + } push @texts, <{url}; - You can download it from this URL and install it manually: $module->{url} EOL - push @texts, <{debian}; - - On Debian, Ubuntu and other distros you can install it with apt-get: - sudo apt-get install $module->{debian} - Note: These may be out of date as well if your system is old. -EOL - # TODO: SuSE and Fedora packaging. Windows packaging. return @texts; } @@ -221,7 +286,7 @@ __END__ =head1 NAME -scripts/installation_check.pl - check Lx-Office dependancies +scripts/installation_check.pl - check kivitendo dependancies =head1 SYNOPSIS @@ -229,9 +294,9 @@ scripts/installation_check.pl - check Lx-Office dependancies =head1 DESCRIPTION -Check dependencys. List all perl modules needed by Lx-Office, probes for them, +Check dependencys. List all perl modules needed by kivitendo, probes for them, and warns if one is not available. List all LaTeX document classes and -packages needed by Lx-Office master templates, probes for them, and warns if +packages needed by kivitendo master templates, probes for them, and warns if one is not available. @@ -291,6 +356,12 @@ Don't probe for LaTeX document classes and packages in master templates. (Useful Print additional info for missing dependancies +=item C<-i, --install-command> + +Tries to generate installation commands for the most common package managers. +Note that these lists can be slightly off, but it should still save you a lot +of typing. + =back =head1 BUGS, CAVEATS and TODO