X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=scripts%2Finstallation_check.pl;h=c7a7cdc5a249f4880e4706388f5f6cbf0f9d8ec3;hb=3ef788be3eabee838cf1f9f4a9a6051bfa847554;hp=bddb2d92a95302e74311ad2739991d6c4b35722b;hpb=3f65b4fbe2856d5ab0a6a4ccee20c1a44d9d0cd1;p=kivitendo-erp.git

diff --git a/scripts/installation_check.pl b/scripts/installation_check.pl
index bddb2d92a..c7a7cdc5a 100755
--- a/scripts/installation_check.pl
+++ b/scripts/installation_check.pl
@@ -1,7 +1,8 @@
 #!/usr/bin/perl -w
 
 BEGIN {
-  push(@INC, "modules");
+  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 SL::InstallationCheck;
@@ -21,3 +22,19 @@ foreach my $module (@SL::InstallationCheck::required_modules) {
     print(" ok\n");
   }
 }
+
+foreach my $module (@SL::InstallationCheck::optional_modules) {
+  print("Looking for $module->{name} (optional)...");
+  if (!SL::InstallationCheck::module_available($module->{"name"})) {
+    print(" NOT found\n" .
+          "  The module '$module->{name}' is not available on your system.\n" .
+          "  While it is not strictly needed it provides extra functionality\n" .
+          "  and should be installed.\n" .
+          "  You can install it with the CPAN shell, e.g.\n" .
+          "    perl -MCPAN -e \"install $module->{name}\"\n" .
+          "  or download it from this URL and install it manually:\n" .
+          "    $module->{url}\n\n");
+  } else {
+    print(" ok\n");
+  }
+}