Revision 8c7e4493
Von Moritz Bunkus vor fast 17 Jahren hinzugefügt
| SL/InstallationCheck.pm | ||
|---|---|---|
| 1 | 1 |
package SL::InstallationCheck; |
| 2 | 2 |
|
| 3 |
use English '-no_match_vars'; |
|
| 4 |
use IO::File; |
|
| 5 |
|
|
| 3 | 6 |
use vars qw(@required_modules); |
| 4 | 7 |
|
| 5 | 8 |
@required_modules = ( |
| ... | ... | |
| 16 | 19 |
{ "name" => "Text::CSV_XS", "url" => "http://search.cpan.org/~hmbrand/" },
|
| 17 | 20 |
{ "name" => "List::Util", "url" => "http://search.cpan.org/~gbarr/" },
|
| 18 | 21 |
{ "name" => "Template", "url" => "http://search.cpan.org/~abw/" },
|
| 22 |
{ "name" => "Digest::MD5", "url" => "http://search.cpan.org/~gaas/" },
|
|
| 19 | 23 |
); |
| 20 | 24 |
|
| 21 | 25 |
sub module_available {
|
| ... | ... | |
| 28 | 32 |
} |
| 29 | 33 |
} |
| 30 | 34 |
|
| 35 |
my %conditional_dependencies; |
|
| 36 |
|
|
| 37 |
sub check_for_conditional_dependencies {
|
|
| 38 |
if (!$conditional_dependencies{net_ldap}) {
|
|
| 39 |
$conditional_dependencies{net_ldap} = 1;
|
|
| 40 |
|
|
| 41 |
my $in = IO::File->new('config/authentication.pl', 'r');
|
|
| 42 |
if ($in) {
|
|
| 43 |
my $self = {};
|
|
| 44 |
my $code; |
|
| 45 |
|
|
| 46 |
while (my $line = <$in>) {
|
|
| 47 |
$code .= $line; |
|
| 48 |
} |
|
| 49 |
$in->close(); |
|
| 50 |
|
|
| 51 |
eval $code; |
|
| 52 |
|
|
| 53 |
if (! $EVAL_ERROR) {
|
|
| 54 |
|
|
| 55 |
if ($self->{module} && ($self->{module} eq 'LDAP')) {
|
|
| 56 |
push @required_modules, { 'name' => 'Net::LDAP', 'url' => 'http://search.cpan.org/~gbarr/' };
|
|
| 57 |
} |
|
| 58 |
} |
|
| 59 |
} |
|
| 60 |
} |
|
| 61 |
} |
|
| 62 |
|
|
| 31 | 63 |
sub test_all_modules {
|
| 32 | 64 |
return grep { !module_available($_->{name}) } @required_modules;
|
| 33 | 65 |
} |
Auch abrufbar als: Unified diff
Umstellung der Benutzerverwaltung von Dateien im Verzeichnis "users" auf die Verwendung einer Authentifizierungsdatenbank.
Es ist erforderlich, die Dateien doc/UPGRADE und doc/INSTALL/index.html zu lesen und die angesprochenen Punkte auszuführen, um nach einem Upgrade weiter arbeiten zu können.