From 126777bc019a54afb4ec51299f2cf9d2841698aa Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 25 Apr 2007 12:26:16 +0000 Subject: re-sync after the big svn loss --- perl-install/harddrake/autoconf.pm | 26 +++++++------- perl-install/harddrake/data.pm | 72 ++++++++++++++++++++++++-------------- perl-install/harddrake/sound.pm | 7 ++-- perl-install/harddrake/v4l.pm | 4 --- 4 files changed, 63 insertions(+), 46 deletions(-) (limited to 'perl-install/harddrake') diff --git a/perl-install/harddrake/autoconf.pm b/perl-install/harddrake/autoconf.pm index baffc7647..791185b67 100644 --- a/perl-install/harddrake/autoconf.pm +++ b/perl-install/harddrake/autoconf.pm @@ -9,10 +9,15 @@ sub xconf { require Xconfig::default; require do_pkgs; - $o->{raw_X} = Xconfig::default::configure(do_pkgs_standalone->new); + my $do_pkgs = do_pkgs_standalone->new; + $o->{raw_X} = Xconfig::default::configure($do_pkgs); require Xconfig::main; - Xconfig::main::configure_everything_auto_install($o->{raw_X}, do_pkgs_standalone->new, {}, { allowFB => 1 }); + Xconfig::main::configure_everything_auto_install($o->{raw_X}, $do_pkgs, {}, { allowFB => 1 }); + + #- always disable compositing desktop effects when configuring a new video card + require Xconfig::glx; + Xconfig::glx::write({}); modules::load_category($modules_conf, 'various/agpgart'); } @@ -33,16 +38,8 @@ sub mouse_conf { sub pcmcia { my ($pcic) = @_; - - #- should be set after installing the package above otherwise the file will be renamed. - setVarsInSh("$::prefix/etc/sysconfig/pcmcia", { - PCMCIA => bool2yesno($pcic), - PCIC => $pcic, - PCIC_OPTS => "", - CORE_OPTS => "", - }); - require services; - services::set_status("pcmcia", $pcic); + require modules; + modules::set_preload_modules("pcmcia", if_($pcic, $pcic)); } sub bluetooth { @@ -81,4 +78,9 @@ sub laptop { services::set_status("numlock", !$on_laptop); } +sub cpufreq() { + require cpufreq; + modules::set_preload_modules("cpufreq", cpufreq::get_modules()); +} + 1; diff --git a/perl-install/harddrake/data.pm b/perl-install/harddrake/data.pm index 996b19c16..48c8fd11d 100644 --- a/perl-install/harddrake/data.pm +++ b/perl-install/harddrake/data.pm @@ -13,7 +13,7 @@ my @devices = detect_devices::probeall(); # Update me each time you handle one more devices class (aka configurator) 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)|SYSTEM_OTHER|tape|UPS/ + grep { $_->{media_type} !~ /BRIDGE|class\|Mouse|DISPLAY|Hub|MEMORY_RAM|MULTIMEDIA_(VIDEO|AUDIO|OTHER)|NETWORK|Printer|SERIAL_(USB|SMBUS)|STORAGE_(IDE|OTHER|RAID|SCSI)|SYSTEM_OTHER|tape|UPS/ && !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|sata|www.linmodems.org/ && $_->{type} ne 'network' @@ -23,7 +23,7 @@ sub unknown() { my @alrd_dected; sub f { - my @devs = grep { !member(pciusb_id($_), @alrd_dected) } @_; + my @devs = grep { !member(pciusb_id($_), @alrd_dected) } grep { $_ } @_; push @alrd_dected, map { pciusb_id($_) } @devs; @devs; } @@ -138,7 +138,7 @@ our @tree = string => N("AGP controllers"), icon => "memory.png", configurator => "", - detector => sub { f(modules::probe_category('various/agpgart')) }, + detector => sub { f(detect_devices::probe_category('various/agpgart')) }, checked_on_boot => 1, }, @@ -156,7 +156,7 @@ our @tree = class => "DVB", string => N("DVB card"), icon => "tv.png", - detector => sub { f(modules::probe_category('multimedia/dvb')) }, + detector => sub { f(detect_devices::probe_category('multimedia/dvb')) }, checked_on_boot => 1, }, @@ -165,7 +165,8 @@ our @tree = string => N("Tvcard"), icon => "tv.png", configurator => "/usr/bin/XawTV", - detector => sub { f(grep { $_->{media_type} =~ /MULTIMEDIA_VIDEO/ && $_->{bus} eq 'PCI' || $_->{driver} eq 'usbvision' } @devices) }, + detector => sub { f(detect_devices::probe_category('multimedia/tv')), + f(grep { $_->{media_type} =~ /MULTIMEDIA_VIDEO/ && $_->{bus} eq 'PCI' } @devices) }, checked_on_boot => 1, }, @@ -198,8 +199,8 @@ our @tree = configurator => "", detector => sub { require list_modules; - my @modules = list_modules::category2modules('multimedia/webcam'); - f(grep { $_->{media_type} =~ /MULTIMEDIA_VIDEO/ && $_->{bus} ne 'PCI' || member($_->{driver}, @modules) } @devices); + my @modules = (list_modules::category2modules('multimedia/webcam'), 'Removable:camera'); + f(grep { $_->{media_type} =~ /MULTIMEDIA_VIDEO|Video\|Video Control/ && $_->{bus} ne 'PCI' || member($_->{driver}, @modules) } @devices); }, # managed by hotplug: checked_on_boot => 0, @@ -212,7 +213,7 @@ our @tree = configurator => "", detector => sub { detect_devices::getCPUs() }, # maybe should we install schedutils? - checked_on_boot => 0, + checked_on_boot => 1, }, { @@ -220,7 +221,7 @@ our @tree = string => N("ISDN adapters"), icon => "modem.png", configurator => "$sbindir/drakconnect", - detector => sub { require network::isdn; my $isdn = network::isdn::detect_backend($modules_conf); if_(@$isdn, f(@$isdn)) }, + detector => sub { require network::connection::isdn; my $isdn = network::connection::isdn::detect_backend($modules_conf); if_(@$isdn, f(@$isdn)) }, # we do not check these b/c this need user interaction (auth, ...): checked_on_boot => 0, }, @@ -231,7 +232,7 @@ our @tree = string => N("USB sound devices"), icon => "sound.png", configurator => "", - detector => sub { f(modules::probe_category('multimedia/usb_sound')) }, + detector => sub { f(detect_devices::probe_category('multimedia/usb_sound')) }, checked_on_boot => 0, }, @@ -240,7 +241,7 @@ our @tree = string => N("Radio cards"), icon => "tv.png", configurator => "", - detector => sub { f(modules::probe_category('multimedia/radio')) }, + detector => sub { f(detect_devices::probe_category('multimedia/radio')) }, checked_on_boot => 0, }, @@ -249,7 +250,7 @@ our @tree = string => N("ATM network cards"), icon => "hw_network.png", configurator => "", - detector => sub { f(modules::probe_category('network/atm')) }, + detector => sub { f(detect_devices::probe_category('network/atm')) }, checked_on_boot => 0, }, @@ -258,7 +259,7 @@ our @tree = string => N("WAN network cards"), icon => "hw_network.png", configurator => "", - detector => sub { f(modules::probe_category('network/wan')) }, + detector => sub { f(detect_devices::probe_category('network/wan')) }, checked_on_boot => 0, }, @@ -267,7 +268,7 @@ our @tree = string => N("Bluetooth devices"), icon => "hw_network.png", configurator => "", - detector => sub { f(modules::probe_category('bus/bluetooth')) }, + detector => sub { f(detect_devices::probe_category('bus/bluetooth')) }, checked_on_boot => 1, }, @@ -303,11 +304,9 @@ our @tree = string => N("ADSL adapters"), icon => "modem.png", configurator => "$sbindir/drakconnect", - detector => sub { - require network::adsl; - my $a = network::adsl::adsl_detect(); - $a ? f(map { @$_ } grep { defined($_) } values %$a) : (); - }, + detector => sub { f(detect_devices::get_xdsl_usb_devices()), + f(grep { $_->{description} =~ /Cohiba 3887 rev0/ } @devices); + }, # we do not check these b/c this need user interaction (auth, ...): checked_on_boot => 0, }, @@ -340,7 +339,7 @@ our @tree = N("Game port controllers"), icon => "joystick.png", configurator => "", - detector => sub { f(modules::probe_category('multimedia/gameport')) }, + detector => sub { f(detect_devices::probe_category('multimedia/gameport')) }, checked_on_boot => 0, }, @@ -349,7 +348,7 @@ our @tree = string => N("Joystick"), icon => "joystick.png", configurator => "", - detector => sub { f(modules::probe_category('input/joystick')), f(grep { $_->{description} =~ /Joystick/ } @devices) }, + detector => sub { f(detect_devices::probe_category('input/joystick')), f(grep { $_->{description} =~ /Joystick/i } @devices) }, checked_on_boot => 0, }, @@ -359,7 +358,7 @@ our @tree = string => N("SATA controllers"), icon => "ide_hd.png", configurator => "", - detector => sub { f(modules::probe_category('disk/sata')) }, + detector => sub { f(detect_devices::probe_category('disk/sata')) }, checked_on_boot => 1, }, @@ -368,7 +367,8 @@ our @tree = string => N("RAID controllers"), icon => "ide_hd.png", configurator => "", - detector => sub { f(modules::probe_category('disk/hardware_raid')) }, + detector => sub { f(detect_devices::probe_category('disk/hardware_raid')), + f(grep { $_->{media_type} =~ /STORAGE_RAID/ } @devices) }, checked_on_boot => 1, }, @@ -377,11 +377,29 @@ our @tree = string => N("(E)IDE/ATA controllers"), icon => "ide_hd.png", configurator => "", - detector => sub { f(modules::probe_category('disk/all_ide'), modules::probe_category('disk/ide')), + detector => sub { f(detect_devices::probe_category('disk/all_ide'), detect_devices::probe_category('disk/ide')), f(grep { $_->{media_type} =~ /STORAGE_(IDE|OTHER)/ } @devices) }, checked_on_boot => 1, }, + { + class => "USB_STORAGE", + string => N("USB Mass Storage Devices"), + icon => "usb.png", + configurator => "", + detector => sub { f(grep { member($_->{driver}, qw(usb-storage ub)) } @devices) }, + checked_on_boot => 0, + }, + + { + class => "CARD_READER", + string => N("Card readers"), + icon => "ide_hd.png", + configurator => "", + detector => sub { f(detect_devices::probe_category('disk/card_reader')) }, + checked_on_boot => 1, + }, + { class => "FIREWIRE_CONTROLLER", string => N("Firewire controllers"), @@ -405,7 +423,7 @@ our @tree = string => N("SCSI controllers"), icon => "scsi.png", configurator => "", - detector => sub { f(grep { $_->{media_type} =~ /STORAGE_SCSI/ } @devices) }, + detector => sub { f(detect_devices::probe_category('disk/scsi'), grep { $_->{media_type} =~ /STORAGE_SCSI/ } @devices) }, checked_on_boot => 1, }, @@ -441,7 +459,7 @@ our @tree = string => N("Bridges and system controllers"), icon => "memory.png", configurator => "", - detector => sub { f(grep { $_->{media_type} =~ /BRIDGE|MEMORY_RAM|SYSTEM_OTHER/ + detector => sub { f(grep { $_->{media_type} =~ /BRIDGE|MEMORY_RAM|SYSTEM_OTHER|MEMORY_OTHER|SYSTEM_PIC/ || $_->{description} =~ /Parallel Port Adapter/; } @devices) }, checked_on_boot => 0, @@ -464,7 +482,7 @@ our @tree = class => "MISC_INPUT", string => N("Tablet and touchscreen"), icon => "hw_mouse.png", - detector => sub { f(modules::probe_category('input/tablet'), modules::probe_category('input/touchscreen')) }, + detector => sub { f(detect_devices::probe_category('input/tablet'), detect_devices::probe_category('input/touchscreen')) }, configurator => "$sbindir/mousedrake", checked_on_boot => 0, }, diff --git a/perl-install/harddrake/sound.pm b/perl-install/harddrake/sound.pm index 134fe0dba..72c53d8d1 100644 --- a/perl-install/harddrake/sound.pm +++ b/perl-install/harddrake/sound.pm @@ -260,10 +260,11 @@ To use alsa, one can either use: [ { label => N("Driver:"), val => \$new_driver, list => \@alternative, default => $new_driver, sort =>1, - help => join("\n\n", map { qq("$_": ) . $des{$_} } @alternative), allow_empty_list => 1, format => sub { my ($drv) = @_; - sprintf(($des{$drv} ? "$des{$drv} (%s [%s])" : "%s [%s]"), $drv, $drv =~ /^snd[-_]/ ? 'ALSA' : 'OSS'); + $drv eq 'unknown' ? $drv : + sprintf(($des{$drv} ? "$des{$drv} (%s [%s])" + : "%s [%s]"), $drv, $drv =~ /^snd[-_]/ ? 'ALSA' : 'OSS'); } }, { @@ -316,7 +317,7 @@ sub trouble { - \"lspcidrake -v | fgrep AUDIO\" will tell you which driver your card uses by default -- \"grep sound-slot /etc/modules.conf\" will tell you what driver it +- \"grep sound-slot /etc/modprobe.conf\" will tell you what driver it currently uses - \"/sbin/lsmod\" will enable you to check if its module (driver) is diff --git a/perl-install/harddrake/v4l.pm b/perl-install/harddrake/v4l.pm index d286a0f1c..a36621471 100644 --- a/perl-install/harddrake/v4l.pm +++ b/perl-install/harddrake/v4l.pm @@ -476,10 +476,6 @@ If your card is misdetected, you can force the right tuner and card types here. [ { label => N("Card model:"), val => \$conf{card}, list => [ keys %cards_list ], default => -1, sort =>1, separator => '|' }, { label => N("Tuner type:"), val => \$conf{tuner}, list => [keys %tuners_lst], format => sub { $tuners_lst{$_[0]} }, sort => 1, separator => '|' }, - { label => N("Number of capture buffers:"), val => \$conf{gbuffers}, min => $min_gbuffers, max => $max_gbuffers, sort => 1, default => 0, type => 'range', advanced => 1, help => N("number of capture buffers for mmap'ed capture") }, - if_($driver eq 'bttv', - { label => N("PLL setting:"), val => \$conf{pll}, list => [keys %pll_lst], format => sub { $pll_lst{$_[0]} }, sort => 1, default => 0, advanced =>1 }, - { label => N("Radio support:"), val => \$conf{radio}, type => "bool", text => N("enable radio support") }), ] )) { -- cgit v1.2.1