1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
package modules::modules_conf;
use log;
use common;
# perl_checker: require modules::any_conf
our @ISA = qw(modules::any_conf);
sub file { '/etc/modules.conf' }
sub handled_fields { qw(alias above options probeall) }
sub mapping {
my ($_conf, @modules) = @_;
my @l = map { modules::mapping_26_24($_) } @modules;
wantarray() ? @l : $l[0];
}
sub get_above {
my ($conf, $module) = @_;
$module = $conf->mapping($module);
$conf->{$module} && split(' ', $conf->{$module}{above});
}
sub set_above {
my ($conf, $module, $o_modules) = @_;
$module = $conf->mapping($module);
if ($o_modules) {
my $modules = join(' ', $conf->mapping(split(' ', $o_modules)));
$conf->{$module}{above} = $modules;
} else {
delete $conf->{$module}{above};
}
}
sub read {
my ($type, $o_file) = @_;
my $conf = modules::any_conf::read_handled($type, $o_file);
#- convert old aliases to new probeall
foreach my $name ('scsi_hostadapter', 'usb-interface') {
my @old_aliases =
map { $_->[0] } sort { $a->[1] <=> $b->[1] }
map { if_(/^$name(\d*)/ && $conf->{$_}{alias}, [ $_, $1 || 0 ]) } keys %$conf;
foreach my $alias (@old_aliases) {
$conf->add_probeall($name, delete $conf->{$alias}{alias});
}
}
$conf;
}
sub write {
my ($conf, $o_file) = @_;
my $file = $o_file || do {
my $f = $::prefix . file();
rename "$::prefix/etc/conf.modules", $f; #- make the switch to new name if needed
$f;
};
modules::any_conf::write($conf, $file);
if ($::isInstall) {
require modules::modprobe_conf;
modules::modprobe_conf::create_from_old();
}
}
1;
|
