-my @required_modules = (
- { "name" => "Class::Accessor", "url" => "http://search.cpan.org/~kasei/" },
- { "name" => "CGI", "url" => "http://search.cpan.org/~lds/" },
- { "name" => "CGI::Ajax", "url" => "http://search.cpan.org/~bct/" },
- { "name" => "DBI", "url" => "http://search.cpan.org/~timb/" },
- { "name" => "DBD::Pg", "url" => "http://search.cpan.org/~dbdpg/" },
- { "name" => "HTML::Template", "url" => "http://search.cpan.org/~samtregar/" },
- { "name" => "Archive::Zip", "url" => "http://search.cpan.org/~adamk/" },
- { "name" => "Text::Iconv", "url" => "http://search.cpan.org/~mpiotr/" },
- );
-
-sub module_available {
+if ($r) {
+ check($_, required => 1) for @SL::InstallationCheck::required_modules;
+}
+if ($o) {
+ check($_, optional => 1) for @SL::InstallationCheck::optional_modules;
+}
+if ($d) {
+ check($_, devel => 1) for @SL::InstallationCheck::developer_modules;
+}
+
+sub check {
+ my ($module, %role) = @_;
+
+ my $line = "Looking for $module->{fullname}";
+ print $line;
+ my $res = SL::InstallationCheck::module_available($module->{"name"}, $module->{version});
+ print dot_pad(length $line, $res ? 2 : 6, $res ? mycolor("ok", 'green') : mycolor("NOT ok", 'red')), $/;
+
+ return if $res;
+
+ my $needed_text =
+ $role{optional} ? 'It is OPTIONAL for Lx-Office but RECOMMENDED for improved functionality.'
+ : $role{required} ? 'It is NEEDED by Lx-Office and must be installed.'
+ : $role{devel} ? 'It is OPTIONAL for Lx-Office and only useful for developers.'
+ : 'It is not listed as a dependancy yet. Please tell this the developers.';
+
+ my @source_texts = source_texts($module);
+ local $" = $/;
+ print STDERR <<EOL if $v;
++------------------------------------------------------------------------------+
+ $module->{fullname} could not be loaded.
+
+ This module is either too old or not available on your system.
+ $needed_text
+
+ Here are some ideas how to get it:
+
+@source_texts
++------------------------------------------------------------------------------+
+EOL
+}
+
+sub source_texts {