1 package SL::InstallationCheck;
3 use vars qw(@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/" },
16 sub module_available {
19 if (!defined(eval("require $module;"))) {
26 sub test_all_modules {
29 map({ push(@missing_modules, $_) unless (module_available($_->{"name"})); }
32 return @missing_modules;