summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-07-04 22:25:15 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-07-04 22:25:15 +0000
commit9602001c7823079a8e8ca0e737a8fe2f6c0db0d2 (patch)
tree6a4a4b5bb040972c82f8f23a7f154b7631d95591 /perl-install
parentb5b714420602230508f199cb392d21c4410a4f1d (diff)
downloaddrakx-9602001c7823079a8e8ca0e737a8fe2f6c0db0d2.tar
drakx-9602001c7823079a8e8ca0e737a8fe2f6c0db0d2.tar.gz
drakx-9602001c7823079a8e8ca0e737a8fe2f6c0db0d2.tar.bz2
drakx-9602001c7823079a8e8ca0e737a8fe2f6c0db0d2.tar.xz
drakx-9602001c7823079a8e8ca0e737a8fe2f6c0db0d2.zip
adapt to new modules.pm
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootloader.pm2
-rw-r--r--perl-install/commands.pm4
-rw-r--r--perl-install/detect_devices.pm13
-rw-r--r--perl-install/install2.pm12
-rw-r--r--perl-install/install_any.pm4
-rw-r--r--perl-install/install_steps.pm6
-rw-r--r--perl-install/install_steps_auto_install.pm2
-rw-r--r--perl-install/install_steps_interactive.pm10
-rw-r--r--perl-install/mouse.pm10
-rw-r--r--perl-install/network/ethernet.pm6
-rw-r--r--perl-install/network/isdn.pm2
-rw-r--r--perl-install/network/netconnect.pm6
-rw-r--r--perl-install/printerdrake.pm10
13 files changed, 37 insertions, 50 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index a5b7638d3..df290424d 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -69,7 +69,7 @@ sub mkinitrd($$$) {
sub mkbootdisk($$$;$) {
my ($prefix, $kernelVersion, $dev, $append) = @_;
- modules::load_multi(arch() =~ /sparc/ ? 'romfs' : (), 'loop');
+ modules::load(if_(arch() =~ /sparc/, 'romfs'), 'loop');
my @l = qw(mkbootdisk --noprompt);
push @l, "--appendargs", $append if $append;
eval { modules::load('vfat') };
diff --git a/perl-install/commands.pm b/perl-install/commands.pm
index ecbe7774b..f5b83aa10 100644
--- a/perl-install/commands.pm
+++ b/perl-install/commands.pm
@@ -78,7 +78,7 @@ sub mount {
require fs;
require modules;
- modules::load_deps("/modules/modules.dep");
+ modules::load_dependencies("/modules/modules.dep");
fs::mount($dev, $where, $fs, $r);
}
@@ -442,7 +442,7 @@ sub modprobe {
$h || @_ == 0 and die "usage: modprobe <module> [options]\n";
my $name = shift;
require modules;
- modules::load_deps("/modules/modules.dep");
+ modules::load_dependencies("/modules/modules.dep");
modules::load($name, '', @_);
}
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index e9d13ea63..4bb3b7f18 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -239,15 +239,6 @@ sub getATARAID {
}
sub getNet() {
-# my @a;
-# foreach (@netdevices) {
-# $::isStandalone && /plip/ and next;
-# print (" hhhhh $_ \n");
-# /ippp/ and run_program::rooted("", "/sbin/isdnctrl addif $_");
-# c::hasNetDevice($_) and push @a, $_;
-# }
-# /ippp/ and run_program::rooted("", "/sbin/isdnctrl delif $_") foreach @netdevices;
-# @a;
grep { !(($::isStandalone || $::live) && /plip/) && c::hasNetDevice($_) } @netdevices;
}
@@ -344,7 +335,7 @@ sub stringlist {
sub check {
my ($l) = @_;
my $ok = $l->{driver} !~ /(unknown|ignore)/;
- $ok or log::l("skipping $l->{description}, no module available (if you know one, please mail install\@mandrakesoft.com)");
+ $ok or log::l("skipping $l->{description}, no module available (if you know one, please mail cooker\@mandrakesoft.com)");
$ok
}
@@ -579,7 +570,7 @@ sub raidAutoStart {
my %personalities = ( '1' => 'linear', '2' => 'raid0', '3' => 'raid1', '4' => 'raid5' );
raidAutoStartIoctl() or log::l("warning, RAID_AUTORUN not supported by kernel"), return;
if (my @needed_perso = map { if_(/^kmod: failed.*md-personality-(.)/, $personalities{$1}) } syslog()) {
- log::l("RAID: autostart needs personality from $_"), eval { modules::load($_) } foreach @needed_perso;
+ log::l("RAID: autostart needs personality from $_"), eval { modules::load(@needed_perso) };
return raidAutoStartIoctl();
} else {
1;
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index afc81bdd8..0b5c58b92 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -327,9 +327,9 @@ sub start_i810fb {
log::l("trying to load i810fb module with xres <$xres> (vga was <$vga>)");
eval {
any::ddcxinfos(); # keep the result otherwise ddcxinfos doesn't return good results afterwards
- modules::load('i810fb', undef,
- ("xres=$xres", 'hsync1=32', 'hsync2=48', 'vsync1=50', 'vsync2=70', #- this sucking i810fb does not accept floating point numbers in hsync!
- 'vram=2', 'bpp=16', 'accel=1', 'mtrr=1', 'hwcur=1', 'xcon=4'));
+ modules::load([ 'i810fb',
+ "xres=$xres", 'hsync1=32', 'hsync2=48', 'vsync1=50', 'vsync2=70', #- this sucking i810fb does not accept floating point numbers in hsync!
+ 'vram=2', 'bpp=16', 'accel=1', 'mtrr=1', 'hwcur=1', 'xcon=4' ]);
};
}
@@ -452,7 +452,7 @@ sub main {
$o->{prefix} = $::testing ? "/tmp/test-perl-install" : $::live ? "" : "/mnt";
mkdir $o->{prefix}, 0755;
- modules::load_deps(($::testing ? ".." : "") . "/modules/modules.dep");
+ modules::load_dependencies(($::testing ? ".." : "") . "/modules/modules.dep");
modules::read_stage1_conf($_) foreach "/tmp/conf.modules", "/etc/modules.conf";
modules::read_already_loaded();
@@ -504,7 +504,7 @@ sub main {
require"install_steps_$o->{interactive}.pm" if $o->{interactive}; #- no space to skip perl2fcalls
#- needed before accessing floppy (in case of usb floppy)
- $::noauto or modules::load_thiskind("usb");
+ $::noauto or modules::load_category('bus/usb');
#- patch should be read after defcfg in order to take precedance.
eval { $o = $::o = install_any::loadO($o, $cfg) } if $cfg;
@@ -514,7 +514,7 @@ sub main {
map_index {
modules::add_alias("sound-slot-$::i", $_->{driver});
- } modules::get_that_type('sound');
+ } modules::probe_category('multimedia/sound');
#- needed very early for install_steps_gtk
eval { ($o->{mouse}, @{$o->{wacom} = []}) = mouse::detect() } unless $o->{nomouseprobe} || $o->{mouse};
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index ea2639dd3..241c56da9 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -359,7 +359,7 @@ sub setDefaultPackages {
}
}
}
- $o->{compssUsersChoice}{uc($_)} = 1 foreach grep { modules::get_that_type($_) } ('tv', 'scanner', 'photo', 'sound');
+ $o->{compssUsersChoice}{uc($_)} = 1 foreach grep { modules::probe_category("multimedia/$_") } modules::sub_categories('multimedia');
$o->{compssUsersChoice}{uc($_)} = 1 foreach map { $_->{driver} =~ /Flag:(.*)/ } detect_devices::probeall();
$o->{compssUsersChoice}{SYSTEM} = 1;
$o->{compssUsersChoice}{DOCS} = !$o->{excludedocs};
@@ -823,7 +823,7 @@ sub loadO {
my $b = before_leaving {
fs::umount("/mnt") unless $::testing;
- modules::unload($_) foreach qw(vfat fat);
+ modules::unload(qw(vfat fat));
};
$o = loadO($O, $f);
} else {
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index a43b374fe..cea22abfc 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -125,7 +125,7 @@ sub setupSCSI {
my ($o) = @_;
modules::configure_pcmcia($o->{pcmcia}) if $o->{pcmcia};
modules::load_ide();
- modules::load_thiskind('scsi|disk');
+ modules::load_category('disk/scsi|hardware_raid');
}
#------------------------------------------------------------------------------
@@ -1013,7 +1013,7 @@ sub upNetwork {
network::netconnect::start_internet($o);
return 1;
} elsif (!$pppAvoided) {
- eval { modules::load_multi(qw(serial ppp bsd_comp ppp_deflate)) };
+ eval { modules::load(qw(serial ppp bsd_comp ppp_deflate)) };
run_program::rooted($o->{prefix}, "/etc/rc.d/init.d/syslog", "start");
require network::netconnect;
network::netconnect::start_internet($o);
@@ -1038,7 +1038,7 @@ sub downNetwork {
require network::netconnect;
network::netconnect::stop_internet($o);
run_program::rooted($o->{prefix}, "/etc/rc.d/init.d/syslog", "stop");
- eval { modules::unload($_) foreach qw(ppp_deflate bsd_comp ppp serial) };
+ eval { modules::unload(qw(ppp_deflate bsd_comp ppp serial)) };
return 1;
}
}
diff --git a/perl-install/install_steps_auto_install.pm b/perl-install/install_steps_auto_install.pm
index bb30e6b20..cd0282800 100644
--- a/perl-install/install_steps_auto_install.pm
+++ b/perl-install/install_steps_auto_install.pm
@@ -67,7 +67,7 @@ use log;
sub configureNetwork {
my ($o) = @_;
- modules::load_thiskind('net');
+ modules::load_category('network/main|usb');
goto &install_steps::configureNetwork;
}
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 9788ef93b..74be30c3e 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -290,10 +290,10 @@ sub selectMouse {
}
if ($o->{mouse}{device} eq "usbmouse") {
- any::setup_thiskind($o, 'usb', !$::expert, 1, $o->{pcmcia});
+ any::load_category($o, 'bus/usb', !$::expert, 1, $o->{pcmcia});
eval {
devices::make("usbmouse");
- modules::load($_) foreach qw(hid mousedev usbmouse);
+ modules::load(qw(hid mousedev usbmouse));
};
}
@@ -314,9 +314,9 @@ sub setupSCSI {
}
{
my $w = $o->wait_message(_("IDE"), _("Configuring IDE"));
- modules::load_ide();
+ modules::load_category('disk/cdrom');
}
- any::setup_thiskind($o, 'scsi|disk', !$::expert && !$clicked, 0, $o->{pcmcia});
+ any::load_category($o, 'disk/scsi|hardware_raid', !$::expert && !$clicked, 0, $o->{pcmcia});
install_interactive::tellAboutProprietaryModules($o) if !$clicked;
}
@@ -998,7 +998,7 @@ sub summary {
return _("Remote CUPS server"); #- fall back in case of something wrong.
};
- my @sound_cards = arch() !~ /ppc/ ? modules::get_that_type('sound') : modules::load_thiskind('sound');
+ my @sound_cards = (arch() =~ /ppc/ ? \&modules::load_category : \&modules::probe_category)->('multimedia/sound');
#- if no sound card are detected AND the user selected things needing a sound card,
#- propose a special case for ISA cards
diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index b7d56fb6b..1ff8c106b 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -266,13 +266,13 @@ sub detect() {
if (modules::get_alias("usb-interface")) {
if (my (@l) = detect_devices::usbMice()) {
log::l("found usb mouse $_->{driver} $_->{description} ($_->{type})") foreach @l;
- eval { modules::load($_) foreach qw(hid mousedev usbmouse) };
+ eval { modules::load(qw(hid mousedev usbmouse)) };
if (!$@ && detect_devices::tryOpen("usbmouse")) {
my $mouse = fullname2mouse($l[0]{driver} =~ /Mouse:(.*)/ ? $1 : "USB|Generic");
$auxmouse and $mouse->{auxmouse} = $auxmouse; #- for laptop, we kept the PS/2 as secondary (symbolic).
return $mouse;
}
- eval { modules::unload($_) foreach qw(usbmouse mousedev hid) };
+ eval { modules::unload(qw(usbmouse mousedev hid)) };
}
}
$auxmouse;
@@ -282,13 +282,13 @@ sub detect() {
my $keep_mouse;
if (my (@l) = detect_devices::usbWacom()) {
log::l("found usb wacom $_->{driver} $_->{description} ($_->{type})") foreach @l;
- eval { modules::load("wacom"); modules::load("evdev"); };
+ eval { modules::load("wacom", "evdev"); };
unless ($@) {
foreach (0..$#l) {
detect_devices::tryOpen("input/event$_") and $keep_mouse = 1, push @wacom, "input/event$_";
}
}
- $keep_mouse or eval { modules::unload("evdev"); modules::unload("wacom"); };
+ $keep_mouse or eval { modules::unload("evdev", "wacom"); };
}
}
@@ -324,7 +324,7 @@ sub detect() {
#- we *must* find out if there really is no usb, otherwise the box may
#- not be accessible via the keyboard (if the keyboard is USB)
#- the only way to know this is to make a full pci probe
- modules::load_thiskind("usb", '', 'unsafe');
+ modules::load_category('bus/usb', '', 'unsafe');
if (my $mouse = $fast_mouse_probe->()) {
return $mouse;
}
diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm
index 7c2afc405..e25cb7e68 100644
--- a/perl-install/network/ethernet.pm
+++ b/perl-install/network/ethernet.pm
@@ -82,7 +82,7 @@ qq(
sub conf_network_card {
my ($netc, $intf, $type, $ipadr, $netadr) = @_;
#-type =static or dhcp
- any::setup_thiskind($in, 'net', !$::expert, 1);
+ any::load_category($in, 'network/main|usb', !$::expert, 1);
my @all_cards=conf_network_card_backend($netc, $intf, $type, undef, $ipadr, $netadr);
my $interface;
@all_cards == () and $in->ask_warn('', _("No ethernet network adapter has been detected on your system.
@@ -105,7 +105,7 @@ I cannot set up this connection type.")) and return;
1;
}
-#- conf_network_card_backend : configure the network cards and return the list of them, or configure one specified interface : WARNING, you have to setup the ethernet cards, by calling setup_thiskind($in, 'net', !$::expert, 1) or setup_thiskind_backend before calling this function. Basically, you call this function in 2 times.
+#- conf_network_card_backend : configure the network cards and return the list of them, or configure one specified interface : WARNING, you have to setup the ethernet cards, by calling load_category($in, 'network/main|usb', !$::expert, 1) or load_category_backend before calling this function. Basically, you call this function in 2 times.
#- input
#- $prefix
#- $netc
@@ -174,7 +174,7 @@ sub go_ethernet {
sub configureNetwork {
my ($netc, $intf, $first_time) = @_;
local $_;
- any::setup_thiskind($in, 'net', !$::expert, 1);
+ any::load_category($in, 'network/main|usb', !$::expert, 1);
my @l = detect_devices::getNet() or die _("no network card found");
my @all_cards = conf_network_card_backend ($netc, $intf, undef, undef, undef, undef);
diff --git a/perl-install/network/isdn.pm b/perl-install/network/isdn.pm
index a6ac063d1..4b081274e 100644
--- a/perl-install/network/isdn.pm
+++ b/perl-install/network/isdn.pm
@@ -249,7 +249,7 @@ sub isdn_detect {
sub isdn_detect_backend {
my ($isdn) = @_;
- if (my ($c) = (modules::get_that_type('isdn'))) {
+ if (my ($c) = (modules::probe_category('network/isdn'))) {
$isdn->{$_} = $c->{$_} foreach qw(description vendor id driver options firmware);
$isdn->{$_} = sprintf("%0x", $isdn->{$_}) foreach ('vendor', 'id');
$isdn->{card_type} = 'pci';
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 835a09e6f..4998124a1 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -69,7 +69,7 @@ sub detect {
$auto_detect->{isdn}{$_}=$isdn->{$_} foreach qw(description vendor id driver card_type type);
$auto_detect->{isdn}{description} =~ s/.*\|//;
- any::setup_thiskind_backend('net', undef);
+ modules::load_category('network/main|usb');
require network::ethernet;
network::ethernet->import;
my @all_cards = conf_network_card_backend (undef, undef, undef, undef, undef, undef);
@@ -334,7 +334,7 @@ fi
#- if ($netc->{NET_DEVICE} and $netc->{NETWORKING} ne 'no' and $::isStandalone and $::expert) {
#- exists $netc->{nb_cards} or do {
-#- any::setup_thiskind($in, 'net', !$::expert, 1);
+#- any::load_category($in, 'network/main|usb', !$::expert, 1);
#- $netc->{nb_cards} = listlength(detect_devices::getNet());
#- };
#- ($netc->{nb_cards} - $netc->{minus_one} - (get_net_device($prefix) =~ /eth.+/ ? 1 : 0) > 0) and $in->ask_okcancel(_("Network Configuration"),
@@ -355,7 +355,7 @@ sub save_conf {
$netcnx->{type} =~ /adsl/ and $adsl=$netcnx->{$netcnx->{type}};
$netcnx->{type} eq 'isdn_external' || $netcnx->{type} eq 'modem' and $modem=$netcnx->{$netcnx->{type}};
$netcnx->{type} eq 'isdn_internal' and $isdn=$netcnx->{$netcnx->{type}};
- any::setup_thiskind_backend('net', undef);
+ modules::load_category('network/main|usb');
require network::ethernet;
network::ethernet->import;
my @all_cards = conf_network_card_backend ($netc, $intf, undef, undef, undef, undef);
diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm
index 82b7c11df..b5a15c178 100644
--- a/perl-install/printerdrake.pm
+++ b/perl-install/printerdrake.pm
@@ -143,13 +143,9 @@ sub auto_detect {
my ($in) = @_;
{
my $w = $in->wait_message(_("Test ports"), _("Detecting devices..."));
- modules::get_alias("usb-interface") and eval { modules::load("printer"); sleep(2); };
- foreach (qw(lp parport_pc parport_probe parport)) {
- eval { modules::unload($_); }; #- on kernel 2.4 parport has to be unloaded to probe again
- }
- foreach (qw(parport_pc lp parport_probe)) {
- eval { modules::load($_); }; #- take care as not available on 2.4 kernel (silent error).
- }
+ modules::get_alias("usb-interface") and eval { modules::load("printer") };
+ eval { modules::unload(qw(lp parport_pc parport_probe parport)) }; #- on kernel 2.4 parport has to be unloaded to probe again
+ eval { modules::load(qw(parport_pc lp parport_probe)); }; #- take care as not available on 2.4 kernel (silent error).
}
my $b = before_leaving { eval { modules::unload("parport_probe") } };
detect_devices::whatPrinter();