Revision 0516b4cd
Von Sven Schöling vor etwa 15 Jahren hinzugefügt
bin/mozilla/installationcheck.pl | ||
---|---|---|
1 | 1 |
use SL::InstallationCheck; |
2 | 2 |
|
3 |
use strict; |
|
4 |
|
|
3 | 5 |
sub verify_installation { |
4 | 6 |
my $script = $0; |
5 | 7 |
$script =~ s|.*/||; |
6 | 8 |
|
7 |
return unless ($form{"action"} && ($script eq "login.pl")); |
|
9 |
my $form = $main::form; |
|
10 |
|
|
11 |
return unless ($form->{"action"} && ($script eq "login.pl")); |
|
8 | 12 |
|
9 | 13 |
SL::InstallationCheck::check_for_conditional_dependencies(); |
10 | 14 |
|
... | ... | |
12 | 16 |
return if (scalar(@missing_modules) == 0); |
13 | 17 |
|
14 | 18 |
use SL::Locale; |
15 |
my $locale = new Locale($language, "installationcheck"); |
|
19 |
my $locale = new Locale($main::language, "installationcheck");
|
|
16 | 20 |
|
17 | 21 |
print(qq|content-type: text/html |
18 | 22 |
|
Auch abrufbar als: Unified diff
installationcheck strict