From b4e565488f9d133f1c0954d96b1054425ec9ace8 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 22 Jul 2004 08:26:59 +0000
Subject: modules::modprobe_conf now works (at least a little :)

---
 perl-install/modules/modules_conf.pm | 58 ++++++++++++++++++++++--------------
 1 file changed, 36 insertions(+), 22 deletions(-)

(limited to 'perl-install/modules/modules_conf.pm')

diff --git a/perl-install/modules/modules_conf.pm b/perl-install/modules/modules_conf.pm
index 2a720fc70..0436d56cc 100644
--- a/perl-install/modules/modules_conf.pm
+++ b/perl-install/modules/modules_conf.pm
@@ -5,36 +5,50 @@ use common;
 
 our @ISA = qw(modules::any_conf);
 
+
+sub file { '/etc/modules.conf' }
+sub handled_fields { qw(alias above options probeall) }
+
 sub get_above {
-    my ($conf, $name) = @_;
-    $conf->{$name} && $conf->{$name}{above};
+    my ($conf, $module) = @_;
+    $conf->{$module} && $conf->{$module}{above};
 }
 sub set_above {
-    my ($conf, $name, $modules) = @_;
-    $conf->{$name}{above} = $modules;
-}
-sub remove_above {
-    my ($conf, $name) = @_;
-    delete $conf->{$name}{above};
+    my ($conf, $module, $o_modules) = @_;
+    if ($o_modules) {
+	$conf->{$module}{above} = $o_modules;
+    } else {
+	delete $conf->{$module}{above};
+    }
 }
 
-sub get_probeall {
-    my ($conf, $alias) = @_;
-    $conf->{$alias}{probeall};
-}
-sub add_probeall {
-    my ($conf, $alias, $module) = @_;
+sub read {
+    my ($type, $o_file) = @_;
 
-    my $l = $conf->{$alias}{probeall} ||= [];
-    @$l = uniq(@$l, $module);
-    log::l("setting probeall $alias to @$l");
+    my $conf = modules::any_conf::read($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 remove_probeall {
-    my ($conf, $alias, $module) = @_;
 
-    my $l = $conf->{$alias}{probeall} ||= [];
-    @$l = grep { $_ ne $module } @$l;
-    log::l("setting probeall $alias to @$l");
+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);
 }
 
 1;
-- 
cgit v1.2.1