Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 3c73035d

Von Sven Schöling vor mehr als 14 Jahren hinzugefügt

  • ID 3c73035dcbdd5141987ef751d5172ddfd3d257ba
  • Vorgänger e1d7dc46
  • Nachfolger 97063fbc

installation_check prüft jetzt auch auf Versionen.

Unterschiede anzeigen:

SL/InstallationCheck.pm
8 8
use strict;
9 9

  
10 10
@required_modules = (
11
  { name => "Archive::Zip",    url => "http://search.cpan.org/~adamk/" },
12
  { name => "Class::Accessor", url => "http://search.cpan.org/~kasei/" },
13
  { name => "CGI::Ajax",       url => "http://search.cpan.org/~bct/" },
14
  { name => "DateTime",        url => "http://search.cpan.org/~drolsky/" },
15
  { name => "DBI",             url => "http://search.cpan.org/~timb/" },
16
  { name => "DBD::Pg",         url => "http://search.cpan.org/~dbdpg/" },
17
  { name => "Email::Address",  url => "http://search.cpan.org/~rjbs/" },
18
  { name => "FCGI",            url => "http://search.cpan.org/~mstrout/" },
19
  { name => "IO::Wrap",        url => "http://search.cpan.org/~dskoll/" },
20
  { name => "List::MoreUtils", url => "http://search.cpan.org/~vparseval/" },
21
  { name => "PDF::API2",       url => "http://search.cpan.org/~areibens/" },
22
  { name => "Template",        url => "http://search.cpan.org/~abw/" },
23
  { name => "Text::CSV_XS",    url => "http://search.cpan.org/~hmbrand/" },
24
  { name => "Text::Iconv",     url => "http://search.cpan.org/~mpiotr/" },
25
  { name => "URI",             url => "http://search.cpan.org/~gaas/" },
26
  { name => "XML::Writer",     url => "http://search.cpan.org/~josephw/" },
27
  { name => "YAML",            url => "http://search.cpan.org/~ingy/" },
28
  { name => "parent",          url => "http://search.cpan.org/dist/parent/" },
11
  { name => "parent",                              url => "http://search.cpan.org/~corion/" },
12
  { name => "Archive::Zip",                        url => "http://search.cpan.org/~adamk/" },
13
  { name => "Class::Accessor",                     url => "http://search.cpan.org/~kasei/" },
14
  { name => "CGI::Ajax",                           url => "http://search.cpan.org/~bct/" },
15
  { name => "DateTime",                            url => "http://search.cpan.org/~drolsky/" },
16
  { name => "DBI",                                 url => "http://search.cpan.org/~timb/" },
17
  { name => "DBD::Pg",                             url => "http://search.cpan.org/~dbdpg/" },
18
  { name => "Email::Address",                      url => "http://search.cpan.org/~rjbs/" },
19
  { name => "FCGI",                                url => "http://search.cpan.org/~mstrout/" },
20
  { name => "IO::Wrap",                            url => "http://search.cpan.org/~dskoll/" },
21
  { name => "List::MoreUtils",                     url => "http://search.cpan.org/~vparseval/" },
22
  { name => "PDF::API2",                           url => "http://search.cpan.org/~areibens/" },
23
  { name => "Template",        version => '2.18',  url => "http://search.cpan.org/~abw/" },
24
  { name => "Text::CSV_XS",                        url => "http://search.cpan.org/~hmbrand/" },
25
  { name => "Text::Iconv",                         url => "http://search.cpan.org/~mpiotr/" },
26
  { name => "URI",                                 url => "http://search.cpan.org/~gaas/" },
27
  { name => "XML::Writer",                         url => "http://search.cpan.org/~josephw/" },
28
  { name => "YAML",                                url => "http://search.cpan.org/~ingy/" },
29 29
);
30 30

  
31 31
@optional_modules = ();
32 32

  
33 33
sub module_available {
34
  my ($module) = @_;
34
  my $module  = $_[0];
35
  my $version = $_[1] || '' ;
35 36

  
36
  if (!defined(eval("require $module;"))) {
37
  if (!defined(eval("require $module $version;"))) {
37 38
    return 0;
38 39
  } else {
39 40
    return 1;
scripts/installation_check.pl
10 10
$| = 1;
11 11

  
12 12
foreach my $module (@SL::InstallationCheck::required_modules) {
13
  print("Looking for $module->{name}...");
13
  if ($module->{version}) {
14
    print("Looking for $module->{name} $module->{version}...");
15
  } else {
16
    print("Looking for $module->{name}...");
17
  }
14 18
  if (!SL::InstallationCheck::module_available($module->{"name"})) {
15 19
    print(" NOT found\n" .
16 20
          "  The module '$module->{name}' is not available on your system.\n" .

Auch abrufbar als: Unified diff