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