Revision a7973589
Von Sven Schöling vor etwa 13 Jahren hinzugefügt
scripts/installation_check.pl | ||
---|---|---|
1 | 1 |
#!/usr/bin/perl -w |
2 | 2 |
|
3 | 3 |
use strict; |
4 |
use Getopt::Long; |
|
5 |
use Pod::Usage; |
|
6 |
use Term::ANSIColor; |
|
4 | 7 |
|
5 | 8 |
BEGIN { |
6 | 9 |
unshift @INC, "modules/override"; # Use our own versions of various modules (e.g. YAML). |
... | ... | |
9 | 12 |
|
10 | 13 |
use SL::InstallationCheck; |
11 | 14 |
|
15 |
GetOptions( |
|
16 |
"verbose" => \ my $v, |
|
17 |
"all" => \ my $a, |
|
18 |
"optional!" => \ my $o, |
|
19 |
"devel!" => \ my $d, |
|
20 |
"required!" => \ ( my $r = 1 ), |
|
21 |
"help" => sub { pod2usage(-verbose => 2) }, |
|
22 |
"color" => \ ( my $c = 1 ), |
|
23 |
); |
|
24 |
|
|
25 |
$d = $r = $o = 1 if $a; |
|
26 |
|
|
12 | 27 |
$| = 1; |
13 | 28 |
|
14 |
check($_, 0) for @SL::InstallationCheck::required_modules; |
|
15 |
check($_, 1) for @SL::InstallationCheck::optional_modules; |
|
29 |
if ($r) { |
|
30 |
check($_, required => 1) for @SL::InstallationCheck::required_modules; |
|
31 |
} |
|
32 |
if ($o) { |
|
33 |
check($_, optional => 1) for @SL::InstallationCheck::optional_modules; |
|
34 |
} |
|
35 |
if ($d) { |
|
36 |
check($_, devel => 1) for @SL::InstallationCheck::developer_modules; |
|
37 |
} |
|
16 | 38 |
|
17 | 39 |
sub check { |
18 |
my ($module, $optional) = @_;
|
|
40 |
my ($module, %role) = @_;
|
|
19 | 41 |
|
20 |
print "Looking for $module->{fullname}..."; |
|
42 |
my $line = "Looking for $module->{fullname}"; |
|
43 |
print $line; |
|
21 | 44 |
my $res = SL::InstallationCheck::module_available($module->{"name"}, $module->{version}); |
22 |
print $res ? '' : " NOT", " ok\n";
|
|
45 |
print dot_pad(length $line, $res ? 2 : 6, $res ? mycolor("ok", 'green') : mycolor("NOT ok", 'red')), $/;
|
|
23 | 46 |
|
24 | 47 |
return if $res; |
25 | 48 |
|
26 |
my $needed_text = $optional |
|
27 |
? 'It is OPTIONAL for Lx-Office but recommended for improved functionality.' |
|
28 |
: 'It is NEEDED by Lx-Office and must be installed.'; |
|
49 |
my $needed_text = |
|
50 |
$role{optional} ? 'It is OPTIONAL for Lx-Office but RECOMMENDED for improved functionality.' |
|
51 |
: $role{required} ? 'It is NEEDED by Lx-Office and must be installed.' |
|
52 |
: $role{devel} ? 'It is OPTIONAL for Lx-Office and only useful for developers.' |
|
53 |
: 'It is not listed as a dependancy yet. Please tell this the developers.'; |
|
29 | 54 |
|
30 | 55 |
my @source_texts = source_texts($module); |
31 | 56 |
local $" = $/; |
32 |
print STDERR <<EOL; |
|
33 |
+-----------------------------------------------------------------------------+ |
|
57 |
print STDERR <<EOL if $v;
|
|
58 |
+------------------------------------------------------------------------------+
|
|
34 | 59 |
$module->{fullname} could not be loaded. |
35 | 60 |
|
36 | 61 |
This module is either too old or not available on your system. |
... | ... | |
39 | 64 |
Here are some ideas how to get it: |
40 | 65 |
|
41 | 66 |
@source_texts |
42 |
+-----------------------------------------------------------------------------+ |
|
67 |
+------------------------------------------------------------------------------+
|
|
43 | 68 |
EOL |
44 | 69 |
} |
45 | 70 |
|
... | ... | |
63 | 88 |
|
64 | 89 |
return @texts; |
65 | 90 |
} |
91 |
|
|
92 |
sub mycolor { |
|
93 |
return $_[0] unless $c; |
|
94 |
return colored(@_); |
|
95 |
} |
|
96 |
|
|
97 |
sub dot_pad { |
|
98 |
my ($s, $l, $text) = @_; |
|
99 |
print " "; |
|
100 |
print '.' x (80 - $s - 2 - $l); |
|
101 |
print " "; |
|
102 |
return $text; |
|
103 |
} |
|
104 |
|
|
105 |
1; |
|
106 |
|
|
107 |
__END__ |
|
108 |
|
|
109 |
=encoding UTF-8 |
|
110 |
|
|
111 |
=head1 NAME |
|
112 |
|
|
113 |
scripts/installation_check.pl - check Lx-Office dependancies |
|
114 |
|
|
115 |
=head1 SYNOPSIS |
|
116 |
|
|
117 |
scripts/installation_check.pl [OPTION] |
|
118 |
|
|
119 |
=head1 DESCRIPTION |
|
120 |
|
|
121 |
List all modules needed by Lx-Office, probes for them, and warns if one is not available. |
|
122 |
|
|
123 |
=over 4 |
|
124 |
|
|
125 |
=item C<-a, --all> |
|
126 |
|
|
127 |
Probe for all modules. |
|
128 |
|
|
129 |
=item C<-c, --color> |
|
130 |
|
|
131 |
Color output. Default on. |
|
132 |
|
|
133 |
=item C<-d, --devel> |
|
134 |
|
|
135 |
Probe for developer dependancies. (Used for console and tags file) |
|
136 |
|
|
137 |
=item C<-h, --help> |
|
138 |
|
|
139 |
Display this help. |
|
140 |
|
|
141 |
=item C<-o, --optional> |
|
142 |
|
|
143 |
Probe for optional modules. |
|
144 |
|
|
145 |
=item C<-r, --required> |
|
146 |
|
|
147 |
Probe for required modules (default). |
|
148 |
|
|
149 |
=item C<-v. --verbose> |
|
150 |
|
|
151 |
Print additional info for modules that are missing |
|
152 |
|
|
153 |
=back |
|
154 |
|
|
155 |
=head1 BUGS, CAVEATS and TODO |
|
156 |
|
|
157 |
=over 4 |
|
158 |
|
|
159 |
=item * |
|
160 |
|
|
161 |
Fedora packages not listed yet. |
|
162 |
|
|
163 |
=item * |
|
164 |
|
|
165 |
Not possible yet to generate a combined cpan/apt-get string to install all needed. |
|
166 |
|
|
167 |
=item * |
|
168 |
|
|
169 |
Not able to handle devel cpan modules yet. |
|
170 |
|
|
171 |
=item * |
|
172 |
|
|
173 |
Version requirements not fully tested yet. |
|
174 |
|
|
175 |
=back |
|
176 |
|
|
177 |
=head1 AUTHOR |
|
178 |
|
|
179 |
Moritz Bunkus E<lt>m.bunkus@linet-services.deE<gt> |
|
180 |
Sven Schöling E<lt>s.schoeling@linet-services.deE<gt> |
|
181 |
|
|
182 |
=cut |
Auch abrufbar als: Unified diff
Installationcheck: Mehr Optionen
- wahlweise required, optional, developer
- Hilfe
- verbose mode
- farbe