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;
40ca'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/software/drakx/commit/?h=2.61&amp;id=eb2372f697457b333fe0c88fd504e585561640ca'>root</a>/<a href='/software/drakx/commit/perl-install?h=2.61&amp;id=eb2372f697457b333fe0c88fd504e585561640ca'>perl-install</a>/<a href='/software/drakx/commit/perl-install/share?h=2.61&amp;id=eb2372f697457b333fe0c88fd504e585561640ca'>share</a>/<a href='/software/drakx/commit/perl-install/share/po?h=2.61&amp;id=eb2372f697457b333fe0c88fd504e585561640ca'>po</a></div><div class='content'><div class='cgit-panel'><b>diff options</b><form method='get'><input type='hidden' name='h' value='2.61'/><input type='hidden' name='id' value='eb2372f697457b333fe0c88fd504e585561640ca'/><table><tr><td colspan='2'/></tr><tr><td class='label'>context:</td><td class='ctrl'><select name='context' onchange='this.form.submit();'><option value='1'>1</option><option value='2'>2</option><option value='3' selected='selected'>3</option><option value='4'>4</option><option value='5'>5</option><option value='6'>6</option><option value='7'>7</option><option value='8'>8</option><option value='9'>9</option><option value='10'>10</option><option value='15'>15</option><option value='20'>20</option><option value='25'>25</option><option value='30'>30</option><option value='35'>35</option><option value='40'>40</option></select></td></tr><tr><td class='label'>space:</td><td class='ctrl'><select name='ignorews' onchange='this.form.submit();'><option value='0' selected='selected'>include</option><option value='1'>ignore</option></select></td></tr><tr><td class='label'>mode:</td><td class='ctrl'><select name='dt' onchange='this.form.submit();'><option value='0' selected='selected'>unified</option><option value='1'>ssdiff</option><option value='2'>stat only</option></select></td></tr><tr><td/><td class='ctrl'><noscript><input type='submit' value='reload'/></noscript></td></tr></table></form></div><table summary='commit info' class='commit-info'>
<tr><th>author</th><td>Thierry Vignaud &lt;tv@mandriva.org&gt;</td><td class='right'>2008-03-11 15:50:10 +0000</td></tr>
<tr><th>committer</th><td>Thierry Vignaud &lt;tv@mandriva.org&gt;</td><td class='right'>2008-03-11 15:50:10 +0000</td></tr>
<tr><th>commit</th><td colspan='2' class='sha1'><a href='/software/drakx/commit/perl-install/share/po?h=2.61&amp;id=eb2372f697457b333fe0c88fd504e585561640ca'>eb2372f697457b333fe0c88fd504e585561640ca</a> (<a href='/software/drakx/patch/perl-install/share/po?id=eb2372f697457b333fe0c88fd504e585561640ca'>patch</a>)</td></tr>
<tr><th>tree</th><td colspan='2' class='sha1'><a href='/software/drakx/tree/?h=2.61&amp;id=eb2372f697457b333fe0c88fd504e585561640ca'>a61905a4f237edb221dae682f2911d4a120dab95</a> /<a href='/software/drakx/tree/perl-install/share/po?h=2.61&amp;id=eb2372f697457b333fe0c88fd504e585561640ca'>perl-install/share/po</a></td></tr>
<tr><th>parent</th><td colspan='2' class='sha1'><a href='/software/drakx/commit/perl-install/share/po?h=2.61&amp;id=8cf3586519ca3e32460dabdad1606075cf521d5c'>8cf3586519ca3e32460dabdad1606075cf521d5c</a> (<a href='/software/drakx/diff/perl-install/share/po?h=2.61&amp;id=eb2372f697457b333fe0c88fd504e585561640ca&amp;id2=8cf3586519ca3e32460dabdad1606075cf521d5c'>diff</a>)</td></tr><tr><th>download</th><td colspan='2' class='sha1'><a href='/software/drakx/snapshot/drakx-eb2372f697457b333fe0c88fd504e585561640ca.tar'>drakx-eb2372f697457b333fe0c88fd504e585561640ca.tar</a><br/><a href='/software/drakx/snapshot/drakx-eb2372f697457b333fe0c88fd504e585561640ca.tar.gz'>drakx-eb2372f697457b333fe0c88fd504e585561640ca.tar.gz</a><br/><a href='/software/drakx/snapshot/drakx-eb2372f697457b333fe0c88fd504e585561640ca.tar.bz2'>drakx-eb2372f697457b333fe0c88fd504e585561640ca.tar.bz2</a><br/><a href='/software/drakx/snapshot/drakx-eb2372f697457b333fe0c88fd504e585561640ca.tar.xz'>drakx-eb2372f697457b333fe0c88fd504e585561640ca.tar.xz</a><br/><a href='/software/drakx/snapshot/drakx-eb2372f697457b333fe0c88fd504e585561640ca.zip'>drakx-eb2372f697457b333fe0c88fd504e585561640ca.zip</a><br/></td></tr></table>
<div class='commit-subject'>sync with code</div><div class='commit-msg'></div><div class='diffstat-header'><a href='/software/drakx/diff/?h=2.61&amp;id=eb2372f697457b333fe0c88fd504e585561640ca'>Diffstat</a> (limited to 'perl-install/share/po')</div><table summary='diffstat' class='diffstat'>