Revision 1f7d4ae3
Von Sven Schöling vor fast 13 Jahren hinzugefügt
| scripts/installation_check.pl | ||
|---|---|---|
| 39 | 39 |
$| = 1; |
| 40 | 40 |
|
| 41 | 41 |
if ($check{r}) {
|
| 42 |
check($_, required => 1) for @SL::InstallationCheck::required_modules; |
|
| 42 |
check_module($_, required => 1) for @SL::InstallationCheck::required_modules;
|
|
| 43 | 43 |
} |
| 44 | 44 |
if ($check{o}) {
|
| 45 |
check($_, optional => 1) for @SL::InstallationCheck::optional_modules; |
|
| 45 |
check_module($_, optional => 1) for @SL::InstallationCheck::optional_modules;
|
|
| 46 | 46 |
} |
| 47 | 47 |
if ($check{d}) {
|
| 48 |
check($_, devel => 1) for @SL::InstallationCheck::developer_modules; |
|
| 48 |
check_module($_, devel => 1) for @SL::InstallationCheck::developer_modules;
|
|
| 49 | 49 |
} |
| 50 | 50 |
|
| 51 |
sub check {
|
|
| 51 |
sub check_module {
|
|
| 52 | 52 |
my ($module, %role) = @_; |
| 53 | 53 |
|
| 54 | 54 |
my $line = "Looking for $module->{fullname}";
|
| ... | ... | |
| 63 | 63 |
: $role{devel} ? 'It is OPTIONAL for Lx-Office and only useful for developers.'
|
| 64 | 64 |
: 'It is not listed as a dependancy yet. Please tell this the developers.'; |
| 65 | 65 |
|
| 66 |
my @source_texts = source_texts($module); |
|
| 66 |
my @source_texts = module_source_texts($module);
|
|
| 67 | 67 |
local $" = $/; |
| 68 | 68 |
print STDERR <<EOL if $v; |
| 69 | 69 |
+------------------------------------------------------------------------------+ |
| ... | ... | |
| 79 | 79 |
EOL |
| 80 | 80 |
} |
| 81 | 81 |
|
| 82 |
sub source_texts {
|
|
| 82 |
sub module_source_texts {
|
|
| 83 | 83 |
my ($module) = @_; |
| 84 | 84 |
my @texts; |
| 85 | 85 |
push @texts, <<EOL; |
| ... | ... | |
| 138 | 138 |
|
| 139 | 139 |
=item C<-a, --all> |
| 140 | 140 |
|
| 141 |
Probe for all modules.
|
|
| 141 |
Probe for all perl modules and all LaTeX master templates.
|
|
| 142 | 142 |
|
| 143 | 143 |
=item C<-c, --color> |
| 144 | 144 |
|
| ... | ... | |
| 150 | 150 |
|
| 151 | 151 |
=item C<-d, --devel> |
| 152 | 152 |
|
| 153 |
Probe for developer dependancies. (Used for console and tags file) |
|
| 153 |
Probe for perl developer dependancies. (Used for console and tags file)
|
|
| 154 | 154 |
|
| 155 | 155 |
=item C<--no-devel> |
| 156 | 156 |
|
| 157 |
Dont't probe for developer dependancies. (Useful in combination with --all)
|
|
| 157 |
Dont't probe for perl developer dependancies. (Usefull in combination with --all)
|
|
| 158 | 158 |
|
| 159 | 159 |
=item C<-h, --help> |
| 160 | 160 |
|
| ... | ... | |
| 166 | 166 |
|
| 167 | 167 |
=item C<--no-optional> |
| 168 | 168 |
|
| 169 |
Dont't probe for optional modules. (Useful in combination with --all)
|
|
| 169 |
Dont't probe for optional perl modules. (Usefull in combination with --all)
|
|
| 170 | 170 |
|
| 171 | 171 |
=item C<-r, --required> |
| 172 | 172 |
|
| 173 |
Probe for required modules (default). |
|
| 173 |
Probe for required perl modules (default).
|
|
| 174 | 174 |
|
| 175 | 175 |
=item C<--no-required> |
| 176 | 176 |
|
| 177 |
Dont't probe for required modules. (Useful in combination with --all)
|
|
| 177 |
Dont't probe for required perl modules. (Usefull in combination with --all)
|
|
| 178 | 178 |
|
| 179 | 179 |
=item C<-v. --verbose> |
| 180 | 180 |
|
Auch abrufbar als: Unified diff
installationcheck.pl: In Vorbereitung auf LaTeX die Funktionen auf perl/module umbenannt.