X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/ec77bc7820d8cc17dd44e8fdef943f3276efcae4..915cb1a4ccd73c8795b5b5eb69d0719dfc331e59:/scripts/installation_check.pl diff --git a/scripts/installation_check.pl b/scripts/installation_check.pl index 140ecddc0..743316a46 100755 --- a/scripts/installation_check.pl +++ b/scripts/installation_check.pl @@ -6,7 +6,6 @@ BEGIN { 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 = $FindBin::Bin . '/../templates/print/'; @@ -14,6 +13,7 @@ BEGIN { use strict; use Getopt::Long; +use List::MoreUtils qw(uniq); use Pod::Usage; use Term::ANSIColor; use Text::Wrap; @@ -157,7 +157,12 @@ sub check_template_dir { print_header("Checking LaTeX Dependencies for Master Templates '$dir'"); kpsewhich($path, 'cls', $_) for SL::InstallationCheck::classes_from_latex($path, '\documentclass'); - kpsewhich($path, 'sty', $_) for SL::InstallationCheck::classes_from_latex($path, '\usepackage'); + + my @sty = sort { $a cmp $b } uniq ( + SL::InstallationCheck::classes_from_latex($path, '\usepackage'), + qw(textcomp ulem pdfx embedfile) + ); + kpsewhich($path, 'sty', $_) for @sty; } our $mastertemplate_path = './templates/print/'; @@ -229,7 +234,12 @@ sub check_aqbanking { my ($label,$version) = split /:/,$shell_out; if ( $label && $label eq ' AqBanking-CLI' ) { chop $version; - print_line($line, $version, 'green'); + my ($number_version) = $version =~ /(\d+)/; + if ($number_version < 6) { + print_line($line, "Requires at least version 6, current version is " . $version, 'red'); + } else { + print_line($line, $version, 'green'); + } } else { print_line($line, 'not installed','red'); my %modinfo = ( name => 'aqbanking' );