X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=inline;f=bin%2Fmozilla%2Finstallationcheck.pl;h=f52cc521ddc318a3e814acfa13a9c326868111a4;hb=df41380a9c1150938985322c48ef20fe7f2cd98b;hp=71f3c01c83abdbb4fed7774f209312aa8bca6def;hpb=8c7e44938a661e035f62840e1e177353240ace5d;p=kivitendo-erp.git diff --git a/bin/mozilla/installationcheck.pl b/bin/mozilla/installationcheck.pl index 71f3c01c8..f52cc521d 100644 --- a/bin/mozilla/installationcheck.pl +++ b/bin/mozilla/installationcheck.pl @@ -1,10 +1,14 @@ 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(); @@ -12,21 +16,22 @@ sub verify_installation { 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("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.") . " " . @@ -71,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 " . @@ -81,7 +86,8 @@ sub verify_installation { |); - exit(0); + + $::dispatcher->end_request; } 1;