Weitere Abfragen umformatiert.
[kivitendo-erp.git] / SL / InstallationCheck.pm
1 package SL::InstallationCheck;
2
3 use vars qw(@required_modules);
4
5 @required_modules = (
6   { "name" => "Class::Accessor", "url" => "http://search.cpan.org/~kasei/" },
7   { "name" => "CGI", "url" => "http://search.cpan.org/~lds/" },
8   { "name" => "CGI::Ajax", "url" => "http://search.cpan.org/~bct/" },
9   { "name" => "DBI", "url" => "http://search.cpan.org/~timb/" },
10   { "name" => "DBD::Pg", "url" => "http://search.cpan.org/~dbdpg/" },
11   { "name" => "HTML::Template", "url" => "http://search.cpan.org/~samtregar/" },
12   { "name" => "Archive::Zip", "url" => "http://search.cpan.org/~adamk/" },
13   { "name" => "Text::Iconv", "url" => "http://search.cpan.org/~mpiotr/" },
14   { "name" => "Time::HiRes", "url" => "http://search.cpan.org/~jhi/" },
15   );
16
17 sub module_available {
18   my ($module) = @_;
19
20   if (!defined(eval("require $module;"))) {
21     return 0;
22   } else {
23     return 1;
24   }
25 }
26
27 sub test_all_modules {
28   my @missing_modules;
29
30   map({ push(@missing_modules, $_) unless (module_available($_->{"name"})); }
31       @required_modules);
32
33   return @missing_modules;
34 }
35
36 1;