X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Finstallationcheck.pl;h=f52cc521ddc318a3e814acfa13a9c326868111a4;hb=577042c61c5e1fffb8747079b4f9826e51532ee8;hp=6e1dfc6b42a0b108860a2e788a3e8eeb6b10de70;hpb=541272c5cf4f874a13eff89993d5d4a941451f42;p=kivitendo-erp.git
diff --git a/bin/mozilla/installationcheck.pl b/bin/mozilla/installationcheck.pl
index 6e1dfc6b4..f52cc521d 100644
--- a/bin/mozilla/installationcheck.pl
+++ b/bin/mozilla/installationcheck.pl
@@ -1,30 +1,37 @@
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 = Locale->new($::lx_office_conf{system}->{language}, "installationcheck");
print(qq|content-type: text/html
+ title="kivitendo stylesheet">
| . $locale->text("One or more Perl modules missing") . qq|
| . $locale->text("One or more Perl modules missing") . qq|
-
| . $locale->text("At least one Perl module that Lx-Office ERP " .
+
| . $locale->text("At least one Perl module that kivitendo ERP " .
"requires for running is not installed on your " .
"system.") .
" " .
@@ -69,7 +76,7 @@ sub verify_installation {
" " .
$locale->text("Here's an example command line:") . qq|
-
perl -MCPAN -e "install CGI::Ajax"
+
perl -MCPAN -e "install Config::Std"
| . $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 {
|);
- exit(0);
+
+ $::dispatcher->end_request;
}
1;