Revision a12a2e5d
Von Jan Büren vor fast 13 Jahren hinzugefügt
scripts/installation_check.pl | ||
---|---|---|
28 | 28 |
"c|color!" => \ ( my $c = 1 ), |
29 | 29 |
); |
30 | 30 |
|
31 |
# if notihing is requested check "required"
|
|
31 |
# if nothing is requested check "required" |
|
32 | 32 |
$check{r} = 1 unless defined $check{a} || |
33 | 33 |
defined $check{l} || |
34 | 34 |
defined $check{o} || |
35 | 35 |
defined $check{d}; |
36 |
|
|
36 |
my $default_run ='1' if $check{r}; # no parameter, therefore print a note after default run |
|
37 | 37 |
if ($check{a}) { |
38 | 38 |
foreach my $check (keys %check) { |
39 | 39 |
$check{$check} = 1 unless defined $check{$check}; |
... | ... | |
46 | 46 |
if ($check{r}) { |
47 | 47 |
print_header('Checking Required Modules'); |
48 | 48 |
check_module($_, required => 1) for @SL::InstallationCheck::required_modules; |
49 |
print_header('Standard check for required modules done. See additional parameters for more checks (-- help)') if $default_run; |
|
49 | 50 |
} |
50 | 51 |
if ($check{o}) { |
51 | 52 |
print_header('Checking Optional Modules'); |
Auch abrufbar als: Unified diff
Falls installation_check.pl ohne Parameter aufgerufen wird, Standard->Hinweis auf weitere Optionen