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