X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Finstallationcheck.pl;h=4741443df4866e22f219360c84c5ad5c7226b80c;hb=59d76a094e83bec189313ca712d945a9594aeb55;hp=6e1dfc6b42a0b108860a2e788a3e8eeb6b10de70;hpb=541272c5cf4f874a13eff89993d5d4a941451f42;p=kivitendo-erp.git

diff --git a/bin/mozilla/installationcheck.pl b/bin/mozilla/installationcheck.pl
index 6e1dfc6b4..4741443df 100644
--- a/bin/mozilla/installationcheck.pl
+++ b/bin/mozilla/installationcheck.pl
@@ -1,16 +1,23 @@
 use SL::InstallationCheck;
 
+use strict;
+
 sub verify_installation {
   my $script = $0;
   $script =~ s|.*/||;
 
-  return unless ($form{"action"} && ($script eq "login.pl"));
+  my $form     = $main::form;
+
+  return unless ($form->{"action"} && ($script eq "login.pl"));
+
+  SL::InstallationCheck::check_for_conditional_dependencies();
 
   my @missing_modules = SL::InstallationCheck::test_all_modules();
   return if (scalar(@missing_modules) == 0);
 
   use SL::Locale;
-  my $locale = new Locale($language, "installationcheck");
+
+  my $locale = new Locale($::lx_office_conf{system}->{language}, "installationcheck");
 
   print(qq|content-type: text/html
 
@@ -69,7 +76,7 @@ sub verify_installation {
         " " .
         $locale->text("Here's an example command line:") . qq|</p>
 
-  <p><code>perl -MCPAN -e &quot;install CGI::Ajax&quot;</code></p>
+  <p><code>perl -MCPAN -e &quot;install Config::Std&quot;</code></p>
 
   <p>| . $locale->text("The third way is to download the module from the " .
                        "above mentioned URL and to install the module " .
@@ -79,7 +86,8 @@ sub verify_installation {
  </body>
 </html>
 |);
-  exit(0);
+
+  ::end_of_request();
 }
 
 1;