diff options
Diffstat (limited to 'perl-install/standalone/service_harddrake')
| -rwxr-xr-x | perl-install/standalone/service_harddrake | 212 |
1 files changed, 0 insertions, 212 deletions
diff --git a/perl-install/standalone/service_harddrake b/perl-install/standalone/service_harddrake deleted file mode 100755 index 530059ff1..000000000 --- a/perl-install/standalone/service_harddrake +++ /dev/null @@ -1,212 +0,0 @@ -#!/usr/bin/perl - -use lib qw(/usr/lib/libDrakX); - -use strict; -use diagnostics; -use standalone; #- warning, standalone must be loaded very first, for 'explanations' -use c; -use common; -use interactive; -use detect_devices; -use harddrake::data; -use harddrake::autoconf; -use harddrake::sound; -use modules; -use Storable qw(store retrieve); - - -my $force = member('--force', @ARGV); - -my $mode = $ARGV[0] eq 'stop' && 'stop'; - -if ($mode eq 'stop') { - append_to_file('/etc/hotplug/blacklist', "\nsnd-usb-audio\n"); - c::_exit(0); -} - -my $invert_do_it = $ARGV[0] eq 'X11' ? 1 : 0; -my ($hw_sysconfdir, $timeout) = ("/etc/sysconfig/harddrake2", $invert_do_it ? 600 : 25); -my $last_boot_config = "$hw_sysconfdir/previous_hw"; - -$last_boot_config .= '_X11' if $invert_do_it; - -my $modules_conf = modules::any_conf->read; - -# autoreconfigure the mouse on major kernel change: -my $prev_kernel = { getVarsFromSh("$hw_sysconfdir/kernel") }->{KERNEL}; -my $curr_kernel = c::kernel_version(); -$curr_kernel =~ s/(^\d+\.\d+).*/$1/; -setVarsInSh("$hw_sysconfdir/kernel", { KERNEL => $curr_kernel }); -if ($curr_kernel ne $prev_kernel) { - log::explanations("Autoconfiguring mouse since we switched between 2.4.x and 2.6.x kernels"); - harddrake::autoconf::mouse_conf($modules_conf); -} - -if (find { $_->{driver} =~ /Card:NVIDIA/ } detect_devices::probeall()) { - if (find { -e join('', "/lib/modules/", c::kernel_version(), "/kernel/drivers/$_") } map { ("video/$_", "char/$_", "char/drm/$_") } qw(NVdriver nvidia.o nvidia.o.gz nvidia.ko nvidia.ko.gz)) { - # do not automatically switch from nv to nvidia (in order to handle - # cases where nvidia module crashes the system): - # - # substInFile { - # log::explanations("switch XFree86 driver from nv to nvidia") if /Driver "nv"/; - # s!Driver "nv.*"!Driver "nvidia"!g; - # s!#*( Load.*glx)!\1!g; - # } $_ foreach "/etc/X11/XF86Config-4", "/etc/X11/XF86Config"; - } else { - substInFile { - log::explanations("switch XFree86 driver from nvidia to nv") if /Driver "nv.+"/; - s!Driver "nv.*"!Driver "nv"!g; - } $_ foreach grep { -e $_ } "/etc/X11/XF86Config-4", "/etc/X11/XF86Config"; - } -} - -my $is_globetrotter = -f '/usr/sbin/mdkmove'; - -# first run ? if not read old hw config -my $previous_config; - -if (-f $last_boot_config && -s $last_boot_config) { - eval { $previous_config = Storable::retrieve($last_boot_config) }; - log::explanations("resetting previous harware file ($@)") if $@; -} - -$previous_config ||= {}; - -$previous_config = $$previous_config if ref($previous_config) !~ /HASH/; -my (%config, $wait); -my $in; -my $splash = -f '/proc/splash'; -my $splash_was_silent = cat_('/proc/splash') =~ /, silent : on/; - -# For each hw, class, detect device, compare and offer to reconfigure if needed -foreach my $hw_class (@harddrake::data::tree) { - my ($Ident, $item, $configurator, $detector, $do_it) = @$hw_class{qw(class string configurator detector checked_on_boot)}; - $configurator ||= $hw_class->{configurator}; - - next unless $do_it ^ $invert_do_it; - # No detector ? (should never happen but who know ?) - ref($detector) eq 'CODE' or next; - - my %ID = map { - my $i = $_; - my $id = defined $i->{device} ? $i->{device} : join(':', map { $i->{$_} } qw(vendor id subvendor subid)); - $id => $i; - } eval { &$detector }; - $config{$Ident} = \%ID; - next if !$is_globetrotter && !$force && is_empty_hash_ref($previous_config); # don't fsck on first run but if --force - - my $oldconfig = $previous_config->{$Ident}; - - my $msg; - my @was_removed = difference2([ keys %$oldconfig ], [ keys %ID ]); - if (@was_removed) { - $msg .= N("Some devices in the \"%s\" hardware class were removed:\n", $item) . - join('', map { N("- %s was removed\n", harddrake::data::custom_id($oldconfig->{$_}, $item)) } @was_removed) . "\n"; - } - my @added = difference2([ keys %ID ], [ keys %$oldconfig ]); - $msg .= N("Some devices were added: %s\n", $item) if @added; - $msg .= N("- %s was added\n", harddrake::data::custom_id($ID{$_}, $item)) foreach @added; - log::explanations("removed $Ident: " . harddrake::data::custom_id($oldconfig->{$_}, $item)) foreach @was_removed; - log::explanations("added $Ident: " . harddrake::data::custom_id($ID{$_}, $item)) foreach @added; - - modules::load_and_configure($modules_conf, 'ohci1394') if $Ident eq 'FIREWIRE_CONTROLLER' && any { $_->{driver} eq 'ohci1394' } @added; - @added || @was_removed or next; - - next if $Ident eq 'MOUSE' && $curr_kernel ne $prev_kernel; - - my @configurator_pool; - if (harddrake::data::is_removable($Ident)) { - foreach my $device (@ID{@added}) { - push @configurator_pool, harddrake::data::set_removable_auto_configurator($Ident, $device); - }; - foreach my $device (@$oldconfig{@was_removed}) { - push @configurator_pool, harddrake::data::set_removable_remover($Ident, $device); - } - } else { - @configurator_pool = $configurator; - } - if ($Ident eq "AUDIO") { - # automatic sound slots configuration - rm_rf("/etc/asound.state"); - harddrake::sound::configure_sound_slots($modules_conf); - next; - } elsif ($Ident eq "ETHERNET") { - $modules_conf->remove_alias_regexp('^(wlan|eth)[0-9]*$'); - modules::load_category($modules_conf, 'network/main|gigabit|usb|wireless|firewire|pcmcia'); - require network::ethernet; - network::ethernet::update_iftab(); - network::ethernet::configure_eth_aliases($modules_conf); - $modules_conf->write; - } elsif (member($Ident, qw(AGP ATA_STORAGE SATA_STORAGE SCSI_CONTROLLER TV))) { - # add agpgart and the like modules to modprobe.preload if needed: - $modules_conf->write; - next; - } elsif ($Ident eq "USB_CONTROLLER") { - modules::load_category($modules_conf, 'bus/usb'); - $modules_conf->write; - } elsif ($Ident eq "VIDEO") { - harddrake::autoconf::xconf($modules_conf, {}); - next; - } elsif ($Ident eq "MOUSE") { - harddrake::autoconf::mouse_conf($modules_conf); - next; - } - - next if $is_globetrotter && !$hw_class->{automatic}; - next unless $configurator_pool[0]; - if (ref($configurator) ne 'CODE' && !-x first(split /\s+/, $configurator_pool[0])) { - log::explanations(qw(skip $Ident configuration since "$configurator" isn't executable)); - next; - } - my ($pid, $no, $res); - $hw_class->{automatic} ||= ref($configurator) eq 'CODE'; - - if (!$hw_class->{automatic}) { - $SIG{ALRM} = sub { $no = 1; kill 15, $pid }; - unless ($pid = fork()) { - $splash and eval { output('/proc/splash', 'verbose') } and $splash = 0; - exec("/usr/share/harddrake/confirm", $Ident, $timeout, $msg); - } - alarm($timeout); - wait(); - $res = $?; - alarm(0); - } else { - $res = 1; - } - if (ref($configurator) eq 'CODE') { - eval { $configurator->() }; - log::explanations(qw(cannot run "$configurator": $@)) if $@; - } elsif (!$no && $res) { - foreach my $program (@configurator_pool) { - if (fork()) { - wait(); - } else { - log::explanations(qq(run "$program")); - exec("$program 2>/dev/null") or do { - log::explanations(qq(cannot run "$program")); - require POSIX; - POSIX::_exit(); - }; - } - } - } - if (!$hw_class->{automatic}) { - require interactive; - undef $wait; - $in ||= interactive->vnew; - $wait = $in->wait_message(N("Please wait"), N("Hardware probing in progress")); - } - -} - -# output new hw config -log::explanations("created file $last_boot_config"); -Storable::store(\%config, $last_boot_config); - -# restore bootsplash mode -$splash_was_silent and eval { output('/proc/splash', 'silent') }; - - -$in->exit(0) if $in; |