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();
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
" " .
$locale->text("Here's an example command line:") . qq|</p>
- <p><code>perl -MCPAN -e "install CGI::Ajax"</code></p>
+ <p><code>perl -MCPAN -e "install Config::Std"</code></p>
<p>| . $locale->text("The third way is to download the module from the " .
"above mentioned URL and to install the module " .
</body>
</html>
|);
- exit(0);
+
+ ::end_of_request();
}
1;