use SL::InstallationCheck; use strict; sub verify_installation { my $script = $0; $script =~ s|.*/||; 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 = Locale->new($::lx_office_conf{system}->{language}, "installationcheck"); print(qq|content-type: text/html | . $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 kivitendo ERP " . "requires for running is not installed on your " . "system.") . " " . $locale->text("Please install the below listed modules or ask your " . "system administrator to.") . " " . $locale->text("You cannot continue before all required modules are " . "installed.") . qq|

|); my $odd = 1; foreach my $module (@missing_modules) { print(qq| |); $odd = 1 - $odd; } print(qq|

| . $locale->text("Module name") . qq| | . $locale->text("Module home page") . qq|
$module->{name} $module->{url}

\| . $locale->text("Module name") . qq\|	\| . $locale->text("Module home page") . qq\|
`$module->{name}`	$module->{url}

| . $locale->text("There are usually three ways to install " . "Perl modules.") . " " . $locale->text("The preferred one is to install packages provided by " . "your operating system distribution (e.g. Debian or " . "RPM packages).") . qq|

| . $locale->text("The second way is to use Perl's CPAN module and let " . "it download and install the module for you.") . " " . $locale->text("Here's an example command line:") . qq|

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 " . "manually following the installations instructions " . "contained in the source archive.") . qq|

|); $::dispatcher->end_request; } 1;