From: Martin Helmling martin.helmling@octosoft.eu <martin.helmling@octosoft.eu>
Date: Thu, 15 Sep 2016 15:12:18 +0000 (+0200)
Subject: MT940-Import: Installationscheck aqbanking
X-Git-Tag: release-3.5.4~2008
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=4ecd85452536da71a719071945806e9e94b3144e;p=kivitendo-erp.git

MT940-Import: Installationscheck aqbanking

Unter optionalen Prüfungen wird nach der Konfigurierung und
Ausführbarkeit von aqbanking-cli geprüft
---

diff --git a/scripts/installation_check.pl b/scripts/installation_check.pl
index d32951b70..250fe1712 100755
--- a/scripts/installation_check.pl
+++ b/scripts/installation_check.pl
@@ -90,6 +90,7 @@ if ($check{r}) {
 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');
@@ -197,6 +198,26 @@ EOL
   }
 }
 
+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) = @_;