package modules::any_conf; # $Id$
use log;
use common;
sub vnew {
require modules::modprobe_conf;
modules::modprobe_conf->new;
}
sub new {
my ($type) = @_;
bless {}, ref($type) || $type;
}
sub modules {
my ($conf) = @_;
keys %$conf;
}
sub get_alias {
my ($conf, $alias) = @_;
$conf->{$alias}{alias};
}
sub get_options {
my ($conf, $module) = @_;
$module = $conf->mapping($module);
$conf->{$module}{options};
}
sub set_options {
my ($conf, $module, $new_option) = @_;
$module = $conf->mapping($module);
log::explanations(qq(set option "$new_option" for module "$module"));
$conf->{$module}{options} = $new_option;
}
sub get_parameters {
my ($conf, $module) = @_;
$module = $conf->mapping($module);
map { if_(/(.*)=(.*)/, $1 => $2) } split(' ', $conf->get_options($module));
}
sub get_probeall {
my ($conf, $alias) = @_;
$conf->{$alias}{probeall};
}
sub _set_probeall {
my ($conf, $alias, $modules) = @_;
$conf->{$alias}{probeall} = $modules;
log::explanations("setting probeall $alias to $modules");
}
sub add_probeall {
my ($conf, $alias, $module) = @_;
$module = $conf->mapping($module);
my $modules = join(' ', uniq(split(' ', $conf->{$alias}{probeall}), $module));
_set_probeall($conf, $alias, $modules);
}
sub remove_probeall {
my ($conf, $alias, $module) = @_;
$module = $conf->mapping($module);
my $modules = join(' ', grep { $_ ne $module } split(' ', $conf->{$alias}{probeall}));
_set_probeall($conf, $alias, $modules);
}
sub set_alias {
my ($conf, $alias, $module) = @_;
$module =~ /ignore/ and return;
$module = $conf->mapping($module);
/\Q$alias/ && $conf->{$_}{alias} && $conf->{$_}{alias} eq $module and return $_ foreach keys %$conf;
log::explanations("adding alias $alias to $module");
$conf->{$alias}{alias} = $module;
$alias;
}
sub remove_alias {
my ($conf, $name) = @_;
log::explanations(qq(removing alias "$name"));
$conf->remove_alias_regexp("^$name\$");
}
sub remove_alias_regexp {
my ($conf, $aliased) = @_;
log::explanations(qq(removing all aliases that match "$aliased"));
foreach (keys %$conf) {
delete $conf->{$_}{alias} if /$aliased/;
}
}
sub remove_alias_regexp_byname {
my ($conf, $name) = @_;
log::explanations(qq(removing all aliases which names match "$name"));
foreach (keys %$conf) {
delete $conf->{$_} if /$name/;
}
}
sub remove_module {
my ($conf, $module) = @_;
return if !$module;
$module = $conf->mapping($module);
foreach my $file ("$::prefix/etc/modules", "$::prefix/etc/modprobe.preload") {
substInFile {
undef $_ if /^$module/;
} $file;
}
$conf->remove_alias($module);
log::explanations("removing module $module");
delete $conf->{$module};
0;
}
sub set_sound_slot {
my ($conf, $alias, $module) = @_;
$module = $conf->mapping($module);
if (my $old = $conf->get_alias($alias)) {
$conf->set_above($old, undef);
}
$conf->set_alias($alias, $module);
$conf->set_above($module, 'snd-pcm-oss') if $module =~ /^snd-/;
}
sub read {
my (undef, $o_file) = @_;
my $conf = vnew();
$conf->read($o_file);
}
sub write {
my ($conf, $o_file) = @_;
my $file = $o_file || $::prefix . $conf->file;
my %written;
#- Substitute new config (if config has changed)
substInFile {
my ($type, $module, $val) = split(' ', chomp_($_), 3);
if ($type eq 'post-install' && $module eq 'supermount') {
#- remove the post-install supermount stuff.
$_ = '';
} elsif (member($type, $conf->handled_fields)) {
my $new_val = $conf->{$module}{$type};
if (!$new_val) {
$_ = '';
} elsif ($new_val ne $val) {
$_ = "$type $module $new_val\n";
}
}
$written{$module}{$type} = 1;
} $file;
my $to_add;
while (my ($module, $h) = each %$conf) {
while (my ($type, $v) = each %$h) {
if ($v && !$written{$module}{$type}) {
$to_add .= "$type $module $v\n";
}
}
}
append_to_file($file, $to_add);
modules::write_preload_conf($conf);
}
sub merge_into {
my ($conf, $conf2) = @_;
if (ref($conf) eq ref($conf2)) {
log::l("merging " . ref($conf));
add2hash($conf, $conf2);
} else {
log::l("not merging modules_conf " . ref($conf2) . " into " . ref($conf));
}
}
################################################################################
sub read_handled {
my ($conf, $o_file) = @_;
my $file = $o_file || $::prefix . $conf->file;
my $raw_conf = read_raw($file);
foreach my $module (keys %$raw_conf) {
my $raw = $raw_conf->{$module};
my $keep = $conf->{$module} = {};
foreach ($conf->handled_fields) {
$keep->{$_} = $raw->{$_} if $raw->{$_};
}
}
$conf;
}
sub read_raw {
my ($file) = @_;
my %c;
foreach (cat_($file)) {
next if /^\s*#/;
s/#.*$//;
s/\s+$//;
# Fix upgrade from ALSA < 0.9.0:
s/\b(snd-card-)/snd-/g;
# Fix upgrade for unified VIA driver:
s/\b(snd-via686|snd-via8233)\b/snd-via82xx/g;
my ($type, $module, $val) = split(' ', $_, 3) or next;
$c{$module}{$type} = $val;
}
#- NB: not copying alias options to the module anymore, hopefully not useful :)
\%c;
}
1;
aceb410e0e95ee'/>