From 52631406919230cfc1a51893c67f2328f6781f15 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 16 Oct 2002 12:27:13 +0000 Subject: use code factored in detect_devices for modem detection --- perl-install/harddrake/data.pm | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) diff --git a/perl-install/harddrake/data.pm b/perl-install/harddrake/data.pm index e39b1d3ae..7f7cc954e 100644 --- a/perl-install/harddrake/data.pm +++ b/perl-install/harddrake/data.pm @@ -38,9 +38,7 @@ our @tree = ["AUDIO","Soundcard", "sound.png", "$sbindir/draksound", sub { grep { $_->{media_type} =~ 'MULTIMEDIA_AUDIO' } @devices}, 0 ], ["WEBCAM","Webcam", "webcam.png", "", sub { grep { $_->{media_type} =~ 'MULTIMEDIA_VIDEO' && $_->{bus} ne 'PCI'} @devices }, 0 ], - ["CPU","Processors", "cpu.png", "", sub { - detect_devices::getCPUs(); - }, 0 ], + ["CPU","Processors", "cpu.png", "", sub { detect_devices::getCPUs() }, 0 ], ["ETHERNET","Ethernetcard", "hw_network.png", "$sbindir/drakconnect", sub { #- generic NIC detection for USB seems broken (class, subclass, #- protocol report are not accurate) so I'll need to verify against @@ -49,11 +47,7 @@ our @tree = # should be taken from detect_devices.pm or modules.pm. it's identical grep { $_->{media_type} =~ /^NETWORK/ || member($_->{driver}, @usbnet) || $_->{type} eq 'network' } @devices}, 1 ], - ["MODEM","Modem", "modem.png", "", sub { require network::modem; - my $modem; - network::modem::modem_detect_backend($modem); - grep { $modem->{device} } @{ $modem }; - } , 0 ], + ["MODEM","Modem", "modem.png", "", sub { detect_devices::getModem() } , 0 ], ["BRIDGE","Bridge(s)", "memory.png", "", sub { grep { $_->{media_type} =~ 'BRIDGE' } @devices}, 0 ], ["UNKNOWN","Unknown/Others", "unknown.png", "" , \&unknown, 0 ], -- cgit v1.2.1