From 671b3e7d7dfb42843a7f3474eaac771500393f1d Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 30 Apr 2004 06:29:50 +0000 Subject: list SATA controllers in their own category (anthill #741) --- perl-install/harddrake/data.pm | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/harddrake/data.pm b/perl-install/harddrake/data.pm index fd27b212d..36362c42f 100644 --- a/perl-install/harddrake/data.pm +++ b/perl-install/harddrake/data.pm @@ -14,7 +14,7 @@ my @devices = detect_devices::probeall(); sub unknown() { grep { $_->{media_type} !~ /BRIDGE|class\|Mouse|DISPLAY|Hub|MEMORY_RAM|MULTIMEDIA_(VIDEO|AUDIO|OTHER)|NETWORK|Printer|SERIAL_(USB|SMBUS)|STORAGE_(IDE|OTHER|SCSI)|tape/ && !member($_->{driver}, qw(cpia_usb cyber2000fb forcedeth ibmcam megaraid mod_quickcam nvnet ohci1394 ov511 ov518_decomp scanner ultracam usbvideo usbvision)) - && $_->{driver} !~ /^ISDN|Mouse:USB|Removable:zip|class\|Mouse|www.linmodems.org/ + && $_->{driver} !~ /^ISDN|Mouse:USB|Removable:zip|class\|Mouse|sata|www.linmodems.org/ && $_->{type} ne 'network' && $_->{description} !~ /Alcatel|ADSL Modem/ } @devices; @@ -291,6 +291,15 @@ our @tree = checked_on_boot => 0, }, + { + class => "SATA_STORAGE", + string => N("SATA controllers"), + icon => "ide_hd.png", + configurator => "", + detector => sub { f(grep { $_->{driver} =~ /^sata/ } @devices) }, + checked_on_boot => 0, + }, + { class => "FIREWIRE_CONTROLLER", string => N("Firewire controllers"), -- cgit v1.2.1