X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=scripts%2Finstallation_check.pl;h=bddb2d92a95302e74311ad2739991d6c4b35722b;hb=d0810c4289d895acfb8cf477125c6796c51945e3;hp=8b1017e2ebe880db183e4b07986d010c27d6b94b;hpb=170507ca80880ddcd65e8a91545b8bb2c37e5690;p=kivitendo-erp.git diff --git a/scripts/installation_check.pl b/scripts/installation_check.pl index 8b1017e2e..bddb2d92a 100755 --- a/scripts/installation_check.pl +++ b/scripts/installation_check.pl @@ -1,35 +1,20 @@ #!/usr/bin/perl -w -$| = 1; - -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/" }, - ); +BEGIN { + push(@INC, "modules"); +} -sub module_available { - my ($module) = @_; +use SL::InstallationCheck; - if (!defined(eval("require $module;"))) { - return 0; - } else { - return 1; - } -} +$| = 1; -foreach my $module (@required_modules) { +foreach my $module (@SL::InstallationCheck::required_modules) { print("Looking for $module->{name}..."); - if (!module_available($module->{"name"})) { + if (!SL::InstallationCheck::module_available($module->{"name"})) { print(" NOT found\n" . " The module '$module->{name}' is not available on your system.\n" . " Please install it with the CPAN shell, e.g.\n" . - " perl -MCPAN -e install \"install $module->{name}\"\n" . + " perl -MCPAN -e \"install $module->{name}\"\n" . " or download it from this URL and install it manually:\n" . " $module->{url}\n\n"); } else {