Auftrags-Controller: Menüeintrag für Einkauf (zum Testen)

[mfinanz.git] / scripts / installation_check.pl

diff --git a/scripts/installation_check.pl b/scripts/installation_check.pl
index 72f0605406ab03b6468c09b950406b3283416057..43b290a35322b9e56f35304b8046496270cb77b0 100755 (executable)
--- a/scripts/installation_check.pl
+++ b/scripts/installation_check.pl
@@ -49,7 +49,8 @@ GetOptions(
   "r|required!" => \ $check{r},
   "h|help"      => sub { pod2usage(-verbose => 2) },
   "c|color!"    => \ ( my $c = 1 ),
   "r|required!" => \ $check{r},
   "h|help"      => sub { pod2usage(-verbose => 2) },
   "c|color!"    => \ ( my $c = 1 ),

-  "i|install!"  => \ my $apt,
+  "i|install-command!"  => \ my $apt,
+  "s|silent"    => \ $check{s},

 );
 
 my %install_methods = (
 );
 
 my %install_methods = (


@@ -70,9 +71,7 @@ if (!defined $check{a}
 }
 
 if ($check{a}) {
 }
 
 if ($check{a}) {

-  foreach my $check (keys %check) {
-    $check{$check} = 1 unless defined $check{$check};
-  }
+  $check{$_} //= 1 for qw(o d l r);

 }
 
 
 }
 
 


@@ -87,7 +86,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;
 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');
 }
 if ($check{o}) {
   print_header('Checking Optional Modules');


@@ -101,8 +99,30 @@ if ($check{l}) {
   check_latex();
 }
 
   check_latex();
 }
 

-if (@missing_modules && $apt) {
-  print "\nHere are some sample installation lines, choose one apporpriate for your system:\n\n";
+my $fail = @missing_modules;
+print_header('Result');
+print_line('All', $fail ? 'NOT ok' : 'OK', $fail ? 'red' : 'green');
+
+if ($default_run && !$check{s}) {
+  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 && !$check{s}) {
+  print "\nHere are some sample installation lines, choose one appropriate for your system:\n\n";

   local $Text::Wrap::separator = " \\\n";
 
   for (keys %install_methods) {
   local $Text::Wrap::separator = " \\\n";
 
   for (keys %install_methods) {


@@ -115,6 +135,8 @@ if (@missing_modules && $apt) {
   }
 }
 
   }
 }
 

+exit !!@missing_modules;
+

 sub check_latex {
   my ($res) = check_kpsewhich();
   print_result("Looking for LaTeX kpsewhich", $res);
 sub check_latex {
   my ($res) = check_kpsewhich();
   print_result("Looking for LaTeX kpsewhich", $res);


@@ -137,7 +159,7 @@ our $mastertemplate_path = './templates/print/';
 sub check_kpsewhich {
   return 1 if SL::InstallationCheck::check_kpsewhich();
 
 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"
 +------------------------------------------------------------------------------+
   Can't find kpsewhich, is there a proper installed LaTeX?
   On Debian you may run "aptitude install texlive-base-bin"


@@ -161,7 +183,7 @@ sub kpsewhich {
 
   print_result("Looking for LaTeX $type_desc $package", $res);
   if (!$res) {
 
   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.
 
 +------------------------------------------------------------------------------+
   LaTeX $type_desc $package could not be loaded.
 


@@ -201,7 +223,7 @@ sub check_module {
 
   my @source_texts = module_source_texts($module);
   local $" = $/;
 
   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.
 
 +------------------------------------------------------------------------------+
   $module->{fullname} could not be loaded.
 


@@ -218,20 +240,17 @@ EOL
 sub module_source_texts {
   my ($module) = @_;
   my @texts;
 sub module_source_texts {
   my ($module) = @_;
   my @texts;

-  push @texts, <<EOL;
-  - You can get it from CPAN:
-      perl -MCPAN -e "install $module->{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
 EOL

+  }

   push @texts, <<EOL if $module->{url};
   - You can download it from this URL and install it manually:
       $module->{url}
 EOL
   push @texts, <<EOL if $module->{url};
   - You can download it from this URL and install it manually:
       $module->{url}
 EOL

-  push @texts, <<EOL if $module->{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;
 }
 
   return @texts;
 }


@@ -252,10 +271,12 @@ sub print_result {
 
 sub print_line {
   my ($text, $res, $color) = @_;
 
 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 {
   print $text, " ", ('.' x (78 - length($text) - length($res))), " ", mycolor($res, $color), $/;
 }
 
 sub print_header {

+  return if $check{s};

   print $/;
   print "$_[0]:", $/;
 }
   print $/;
   print "$_[0]:", $/;
 }


@@ -338,7 +359,7 @@ Don't probe for LaTeX document classes and packages in master templates. (Useful
 
 Print additional info for missing dependancies
 
 
 Print additional info for missing dependancies
 

-=item C<-i, --install>
+=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
 
 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