Revision fcedeaa9
Von Jan Büren vor etwa 1 Jahr hinzugefügt
| scripts/installation_check.pl | ||
|---|---|---|
|
|
||
|
use strict;
|
||
|
use Getopt::Long;
|
||
|
use List::MoreUtils qw(uniq);
|
||
|
use Pod::Usage;
|
||
|
use Term::ANSIColor;
|
||
|
use Text::Wrap;
|
||
|
|
||
|
my $exit = 0;
|
||
|
my $exit_code = 0;
|
||
|
unless (eval { require Config::Std; 1 }){
|
||
|
print STDERR <<EOL ;
|
||
|
+------------------------------------------------------------------------------+
|
||
| ... | ... | |
|
+------------------------------------------------------------------------------+
|
||
|
EOL
|
||
|
|
||
|
$exit = 1;
|
||
|
$exit_code = 72;
|
||
|
}
|
||
|
|
||
|
|
||
| ... | ... | |
|
+------------------------------------------------------------------------------+
|
||
|
EOL
|
||
|
|
||
|
$exit = 1;
|
||
|
$exit_code = 72;
|
||
|
}
|
||
|
|
||
|
exit 72 if $exit;
|
||
|
exit $exit_code if $exit_code;
|
||
|
|
||
|
use SL::InstallationCheck;
|
||
|
use SL::LxOfficeConf;
|
||
Auch abrufbar als: Unified diff
inst-check korrigiert