Revision fcedeaa9
Von Jan Büren vor 10 Monaten hinzugefügt
scripts/installation_check.pl | ||
---|---|---|
13 | 13 |
|
14 | 14 |
use strict; |
15 | 15 |
use Getopt::Long; |
16 |
use List::MoreUtils qw(uniq); |
|
17 | 16 |
use Pod::Usage; |
18 | 17 |
use Term::ANSIColor; |
19 | 18 |
use Text::Wrap; |
20 | 19 |
|
21 |
my $exit = 0; |
|
20 |
my $exit_code = 0;
|
|
22 | 21 |
unless (eval { require Config::Std; 1 }){ |
23 | 22 |
print STDERR <<EOL ; |
24 | 23 |
+------------------------------------------------------------------------------+ |
... | ... | |
36 | 35 |
+------------------------------------------------------------------------------+ |
37 | 36 |
EOL |
38 | 37 |
|
39 |
$exit = 1;
|
|
38 |
$exit_code = 72;
|
|
40 | 39 |
} |
41 | 40 |
|
42 | 41 |
|
... | ... | |
55 | 54 |
+------------------------------------------------------------------------------+ |
56 | 55 |
EOL |
57 | 56 |
|
58 |
$exit = 1;
|
|
57 |
$exit_code = 72;
|
|
59 | 58 |
} |
60 | 59 |
|
61 |
exit 72 if $exit;
|
|
60 |
exit $exit_code if $exit_code;
|
|
62 | 61 |
|
63 | 62 |
use SL::InstallationCheck; |
64 | 63 |
use SL::LxOfficeConf; |
Auch abrufbar als: Unified diff
inst-check korrigiert