#!/usr/bin/perl -w
-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).
- push @INC, "modules/fallback"; # Only use our own versions of modules if there's no system version.
+ use FindBin;
+
+ unshift(@INC, $FindBin::Bin . '/../modules/override'); # Use our own versions of various modules (e.g. YAML).
+ push (@INC, $FindBin::Bin . '/..'); # '.' will be removed from @INC soon.
+ push (@INC, $FindBin::Bin . '/../modules/fallback'); # Only use our own versions of modules if there's no system version.
# this is a default dir. may be wrong in your installation, change it then
- $master_templates = './templates/print/';
+ $master_templates = $FindBin::Bin . '/../templates/print/';
}
+use strict;
+use Getopt::Long;
+use Pod::Usage;
+use Term::ANSIColor;
+use Text::Wrap;
+
unless (eval { require Config::Std; 1 }){
print STDERR <<EOL ;
+------------------------------------------------------------------------------+
"h|help" => sub { pod2usage(-verbose => 2) },
"c|color!" => \ ( my $c = 1 ),
"i|install-command!" => \ my $apt,
+ "s|silent" => \ $check{s},
);
my %install_methods = (
- apt => { key => 'debian', install => 'sudo apt-get install', system => "Debian, Ubuntu" },
+ apt => { key => 'debian', install => 'sudo apt 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 ($check{a}) {
- foreach my $check (keys %check) {
- $check{$check} = 1 unless defined $check{$check};
- }
+ $check{$_} //= 1 for qw(o d l r);
}
$| = 1;
if (!SL::LxOfficeConf->read(undef, 'may fail')) {
- print_header('Could not load the config file. If you have dependancies from any features enabled in the configuration these will still show up as optional because of this. Please rerun this script after installing the dependancies needed to load the cofiguration.')
+ print_header('Could not load the config file. If you have dependancies from any features enabled in the configuration these will still show up as optional because of this. Please rerun this script after installing the dependancies needed to load the configuration.')
} else {
SL::InstallationCheck::check_for_conditional_dependencies();
}
if ($check{r}) {
print_header('Checking Required Modules');
check_module($_, required => 1) for @SL::InstallationCheck::required_modules;
+ check_pdfinfo();
}
if ($check{o}) {
print_header('Checking Optional Modules');
check_module($_, optional => 1) for @SL::InstallationCheck::optional_modules;
+ check_aqbanking();
}
if ($check{d}) {
print_header('Checking Developer Modules');
print_header('Result');
print_line('All', $fail ? 'NOT ok' : 'OK', $fail ? 'red' : 'green');
-if ($default_run) {
+if ($default_run && !$check{s}) {
if (@missing_modules) {
$apt = 1;
print <<"EOL";
}
}
-if (@missing_modules && $apt) {
+if (@missing_modules && $apt && !$check{s}) {
print "\nHere are some sample installation lines, choose one appropriate for your system:\n\n";
local $Text::Wrap::separator = " \\\n";
}
}
+exit !!@missing_modules;
+
sub check_latex {
my ($res) = check_kpsewhich();
print_result("Looking for LaTeX kpsewhich", $res);
sub check_kpsewhich {
return 1 if SL::InstallationCheck::check_kpsewhich();
- print STDERR <<EOL if $v;
+ print STDERR <<EOL if $v && !$check{s};
+------------------------------------------------------------------------------+
Can't find kpsewhich, is there a proper installed LaTeX?
On Debian you may run "aptitude install texlive-base-bin"
print_result("Looking for LaTeX $type_desc $package", $res);
if (!$res) {
- print STDERR <<EOL if $v;
+ print STDERR <<EOL if $v && !$check{s};
+------------------------------------------------------------------------------+
LaTeX $type_desc $package could not be loaded.
}
}
+sub check_pdfinfo {
+ my $line = "Looking for pdfinfo executable";
+ my $shell_out = `pdfinfo -v 2>&1 | grep version 2> /dev/null`;
+ my ($label,$vers,$ver_string) = split / /,$shell_out;
+ if ( $label && $label eq 'pdfinfo' ) {
+ chop $ver_string;
+ print_line($line, $ver_string, 'green');
+ } else {
+ print_line($line, 'not installed','red');
+ my %modinfo = ( debian => 'poppler-utils' );
+ push @missing_modules, \%modinfo;
+
+ }
+}
+
+sub check_aqbanking {
+ my $aqbin = $::lx_office_conf{applications}->{aqbanking};
+ if ( !$aqbin ) {
+ print_line('Looking for aqbanking executable', 'not configured','red');
+ }
+ else {
+ my $line = "Looking for aqbanking executable '".$aqbin."'";
+ my $shell_out = `$aqbin versions 2>&1 | grep AqBanking-CLI 2> /dev/null`;
+ my ($label,$version) = split /:/,$shell_out;
+ if ( $label && $label eq ' AqBanking-CLI' ) {
+ chop $version;
+ print_line($line, $version, 'green');
+ } else {
+ print_line($line, 'not installed','red');
+ my %modinfo = ( name => 'aqbanking' );
+ push @missing_modules, \%modinfo;
+ }
+ }
+}
+
sub check_module {
my ($module, %role) = @_;
my @source_texts = module_source_texts($module);
local $" = $/;
- print STDERR <<EOL if $v;
+ print STDERR <<EOL if $v && !$check{s};
+------------------------------------------------------------------------------+
$module->{fullname} could not be loaded.
sub print_line {
my ($text, $res, $color) = @_;
+ return if $check{s};
print $text, " ", ('.' x (78 - length($text) - length($res))), " ", mycolor($res, $color), $/;
}
sub print_header {
+ return if $check{s};
print $/;
print "$_[0]:", $/;
}
projects / kivitendo-erp.git / blobdiff