drakx - Mageia Installer and base platform for many utilities

diff options

Diffstat (limited to 'perl-install')

-rw-r--r--	perl-install/pixmaps/X.png	bin	1812 -> 2517 bytes
-rw-r--r--	perl-install/pixmaps/bootdisk.png	bin	1180 -> 1586 bytes
-rw-r--r--	perl-install/pixmaps/bootloader.png	bin	1804 -> 2965 bytes
-rw-r--r--	perl-install/pixmaps/colors16.png	bin	6414 -> 2056 bytes
-rw-r--r--	perl-install/pixmaps/default.png	bin	875 -> 1701 bytes
-rw-r--r--	perl-install/pixmaps/eth_card_mini.png	bin	2265 -> 2712 bytes
-rw-r--r--	perl-install/pixmaps/harddrive.png	bin	2264 -> 3341 bytes
-rw-r--r--	perl-install/pixmaps/keyboard.png	bin	3115 -> 3657 bytes
-rw-r--r--	perl-install/pixmaps/language.png	bin	3297 -> 3275 bytes
-rw-r--r--	perl-install/pixmaps/mouse.png	bin	1719 -> 2875 bytes
-rw-r--r--	perl-install/pixmaps/network.png	bin	1852 -> 4076 bytes
-rw-r--r--	perl-install/pixmaps/partition.png	bin	2473 -> 3387 bytes
-rw-r--r--	perl-install/pixmaps/printer-mdk.png	bin	1675 -> 2259 bytes
-rw-r--r--	perl-install/pixmaps/quit.png	bin	2787 -> 2117 bytes
-rw-r--r--	perl-install/pixmaps/rootpasswd.png	bin	1799 -> 2980 bytes
-rw-r--r--	perl-install/pixmaps/security.png	bin	1799 -> 2799 bytes
-rw-r--r--	perl-install/pixmaps/services.png	bin	5048 -> 3004 bytes
-rw-r--r--	perl-install/pixmaps/summary.png	bin	1788 -> 2560 bytes
-rw-r--r--	perl-install/pixmaps/user.png	bin	3254 -> 1954 bytes
-rw-r--r--	perl-install/pixmaps/warning.png	bin	1968 -> 3169 bytes

20 files changed, 0 insertions, 0 deletions

package install_any; # $Id$ use strict; use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK $boot_medium $current_medium $asked_medium @advertising_images); @ISA = qw(Exporter); %EXPORT_TAGS = ( all => [ qw(getNextStep spawnShell addToBeDone) ], ); @EXPORT_OK = map { @$_ } values %EXPORT_TAGS; #-###################################################################################### #- misc imports #-###################################################################################### use MDK::Common::System; use common; use run_program; use fs::type; use partition_table; use devices; use fsedit; use modules; use detect_devices; use lang; use any; use log; #- boot medium (the first medium to take into account). $boot_medium = 1; $current_medium = $boot_medium; $asked_medium = $boot_medium; #-###################################################################################### #- Media change variables&functions #-###################################################################################### my $postinstall_rpms = ''; my $cdrom; my %iso_images; sub mountCdrom { my ($mountpoint, $o_cdrom) = @_; $o_cdrom = $cdrom if !defined $o_cdrom; eval { fs::mount($o_cdrom, $mountpoint, "iso9660", 'readonly') }; } sub useMedium($) { #- before ejecting the first CD, there are some files to copy! #- does nothing if the function has already been called. $_[0] > 1 and method_allows_medium_change($::o->{method}) and setup_postinstall_rpms($::prefix, $::o->{packages}); $asked_medium eq $_[0] or log::l("selecting new medium '$_[0]'"); $asked_medium = $_[0]; } sub changeMedium($$) { my ($method, $medium_name) = @_; log::l("change to medium $medium_name for method $method (refused by default)"); 0; } sub relGetFile($) { local $_ = $_[0]; if (my ($arch) = m|\.([^\.]*)\.rpm$|) { $_ = "$::o->{packages}{mediums}{$asked_medium}{rpmsdir}/$_"; s/%{ARCH}/$arch/g; s,^/+,,g; } $_; } sub askChangeMedium($$) { my ($method, $medium_name) = @_; my $allow; do { local $::o->{method} = $method = 'cdrom' if $medium_name =~ /^\d+s$/; #- Suppl CD eval { $allow = changeMedium($method, $medium_name) }; } while $@; #- really it is not allowed to die in changeMedium!!! or install will cores with rpmlib!!! log::l($allow ? "accepting medium $medium_name" : "refusing medium $medium_name"); $allow; } sub method_is_from_ISO_images($) { my ($method) = @_; $method eq "disk-iso" || $method eq "nfs-iso"; } sub method_allows_medium_change($) { my ($method) = @_; $method eq "cdrom" || method_is_from_ISO_images($method); } sub look_for_ISO_images() { $iso_images{media} = []; ($iso_images{loopdev}, $iso_images{mountpoint}) = cat_("/proc/mounts") =~ m|(/dev/loop\d+)\s+(/tmp/image) iso9660| or return; my $get_iso_ids = sub { my ($F) = @_; my ($vol_id, $app_id) = c::get_iso_volume_ids(fileno $F); #- the ISO volume names must end in -Disc\d+ my ($cd_set) = $vol_id =~ /^(.*)-Disc\d+$/; $cd_set && { cd_set => $cd_set, app_id => $app_id }; }; sysopen(my $F, $iso_images{loopdev}, 0) or return; put_in_hash(\%iso_images, $get_iso_ids->($F)); my $iso_dir = $ENV{ISOPATH}; #- strip old root and remove iso file from path if present $iso_dir =~ s!^/sysroot!!; $iso_dir =~ s![^/]*\.iso$!!; foreach my $iso_file (glob("$iso_dir/*.iso")) { my $iso_dev = devices::set_loop($iso_file) or return; if (sysopen($F, $iso_dev, 0)) { my $iso_ids = $get_iso_ids->($F); push @{$iso_images{media}}, { file => $iso_file, %$iso_ids } if $iso_ids; close($F); #- needed to delete loop device } devices::del_loop($iso_dev); } 1; } sub find_ISO_image_labelled($) { %iso_images or look_for_ISO_images() or return; my ($iso_label) = @_; find { $_->{app_id} eq $iso_label && $_->{cd_set} eq $iso_images{cd_set} } @{$iso_images{media}}; } sub changeIso($) { my ($iso_label) = @_; my $iso_info = find_ISO_image_labelled($iso_label) or return; eval { fs::umount($iso_images{mountpoint}) }; $@ and warnAboutFilesStillOpen(); devices::del_loop($iso_images{loopdev}); $iso_images{loopdev} = devices::set_loop($iso_info->{file}); eval { fs::mount($iso_images{loopdev}, $iso_images{mountpoint}, "iso9660", 'readonly'); log::l("using ISO image '$iso_label'"); 1; } } sub errorOpeningFile($) { my ($file) = @_; $file eq 'XXX' and return; #- special case to force closing file after rpmlib transaction. $current_medium eq $asked_medium and log::l("errorOpeningFile $file"), return; #- nothing to do in such case. $::o->{packages}{mediums}{$asked_medium}{selected} or return; #- not selected means no need to worry about. my $current_method = $::o->{packages}{mediums}{$asked_medium}{method} || $::o->{method}; my $max = 32; #- always refuse after $max tries. if ($current_method eq "cdrom") { cat_("/proc/mounts") =~ m,(/(?:dev|tmp)/\S+)\s+(?:/mnt/cdrom|/tmp/image), and $cdrom = $1; return unless $cdrom; ejectCdrom($cdrom); while ($max > 0 && askChangeMedium($current_method, $asked_medium)) { $current_medium = $asked_medium; mountCdrom("/tmp/image"); my $getFile = getFile($file); $getFile && @advertising_images and copy_advertising($::o); $getFile and return $getFile; $current_medium = 'unknown'; #- don't know what CD is inserted now. ejectCdrom($cdrom); --$max; } } else { while ($max > 0 && askChangeMedium($current_method, $asked_medium)) { $current_medium = $asked_medium; my $getFile = getFile($file); $getFile and return $getFile; $current_medium = 'unknown'; #- don't know what CD image has been copied. --$max; } } #- Don't unselect supplementary CDs. return if $asked_medium =~ /^\d+s$/; #- keep in mind the asked medium has been refused on this way. #- this means it is no more selected. $::o->{packages}{mediums}{$asked_medium}{selected} = undef; #- on cancel, we can expect the current medium to be undefined too, #- this enables remounting if selecting a package back. $current_medium = 'unknown'; return; } sub getFile { my ($f, $o_method, $o_altroot) = @_; my $current_method = ($asked_medium ? $::o->{packages}{mediums}{$asked_medium}{method} : '') || $::o->{method}; log::l("getFile $f:$o_method ($asked_medium:$current_method)"); my $rel = relGetFile($f); do { if ($f =~ m|^http://|) { require http; http::getFile($f); } elsif ($o_method =~ /crypto|update/i) { require crypto; crypto::getFile($f); } elsif ($current_method eq "ftp") { require ftp; ftp::getFile($rel, @{ $::o->{packages}{mediums}{$asked_medium}{ftp_prefix} || [] }); } elsif ($current_method eq "http") { require http; http::getFile(($ENV{URLPREFIX} || $o_altroot) . "/$rel"); } else { #- try to open the file, but examine if it is present in the repository, #- this allows handling changing a media when some of the files on the #- first CD have been copied to other to avoid media change... my $f2 = "$postinstall_rpms/$f"; $o_altroot ||= '/tmp/image'; $f2 = "$o_altroot/$rel" if !$postinstall_rpms || !-e $f2; #- $f2 = "/$rel" if !$::o->{packages}{mediums}{$asked_medium}{rpmsdir} && !-e $f2; #- not a relative path, should not be necessary with new media layout my $F; open($F, $f2) && $F; } } || errorOpeningFile($f); } sub getAndSaveFile { my ($file, $local) = @_ == 1 ? ("install/stage2/live$_[0]", $_[0]) : @_; local $/ = \ (16 * 1024); my $f = ref($file) ? $file : getFile($file) or return; open(my $F, ">$local") or log::l("getAndSaveFile(opening $local): $!"), return; local $_; while (<$f>) { syswrite($F, $_) or die("getAndSaveFile($local): $!") } 1; } #-###################################################################################### #- Post installation RPMS from cdrom only, functions #-###################################################################################### sub setup_postinstall_rpms($$) { my ($prefix, $packages) = @_; $postinstall_rpms and return; $postinstall_rpms = "$prefix/usr/postinstall-rpm"; require pkgs; log::l("postinstall rpms directory set to $postinstall_rpms"); clean_postinstall_rpms(); #- make sure in case of previous upgrade problem. mkdir_p($postinstall_rpms); my %toCopy; #- compute closure of package that may be copied, use INSTALL category #- in rpmsrate. $packages->{rpmdb} ||= pkgs::rpmDbOpen($prefix); foreach (@{$packages->{needToCopy} || []}) { my $p = pkgs::packageByName($packages, $_) or next; pkgs::selectPackage($packages, $p, 0, \%toCopy); } delete $packages->{rpmdb}; my @toCopy = grep { $_ && !$_->flag_selected } map { $packages->{depslist}[$_] } keys %toCopy; #- extract headers of package, this is necessary for getting #- the complete filename of each package. #- copy the package files in the postinstall RPMS directory. #- last arg is default medium '' known as the CD#1. #- cp_af doesn't handle correctly a missing file. eval { cp_af((grep { -r $_ } map { "/tmp/image/" . relGetFile($_->filename) } @toCopy), $postinstall_rpms) }; log::l("copying Auto Install Floppy"); getAndSaveInstallFloppies($::o, $postinstall_rpms, 'auto_install'); } sub clean_postinstall_rpms() { $postinstall_rpms and -d $postinstall_rpms and rm_rf($postinstall_rpms); } #-###################################################################################### #- Functions #-###################################################################################### sub getNextStep { my ($o) = @_; find { !$o->{steps}{$_}{done} && $o->{steps}{$_}{reachable} } @{$o->{orderedSteps}} } sub spawnShell() { return if $::o->{localInstall} || $::testing; if (my $shellpid = fork()) { output('/var/run/drakx_shell.pid', $shellpid); return; } $ENV{DISPLAY} ||= ":0"; #- why not :pp local *F; sysopen F, "/dev/tty2", 2 or log::l("cannot open /dev/tty2 -- no shell will be provided: $!"), goto cant_spawn; open STDIN, "<&F" or goto cant_spawn; open STDOUT, ">&F" or goto cant_spawn; open STDERR, ">&F" or goto cant_spawn; close F; print any::drakx_version(), "\n"; c::setsid(); ioctl(STDIN, c::TIOCSCTTY(), 0) or warn "could not set new controlling tty: $!"; my @args; -e '/etc/bashrc' and @args = qw(--rcfile /etc/bashrc); foreach (qw(/bin/bash /usr/bin/busybox /bin/sh)) { -x $_ or next; my $program_name = /busybox/ ? "/bin/sh" : $_; #- since perl_checker is too dumb exec { $_ } $program_name, @args or log::l("exec of $_ failed: $!"); } log::l("cannot open any shell"); cant_spawn: c::_exit(1); } sub getAvailableSpace { my ($o) = @_; #- make sure of this place to be available for installation, this could help a lot. #- currently doing a very small install use 36Mb of postinstall-rpm, but installing #- these packages may eat up to 90Mb (of course not all the server may be installed!). #- 65mb may be a good choice to avoid almost all problem of insuficient space left... my $minAvailableSize = 65 * sqr(1024); my $n = !$::testing && getAvailableSpace_mounted($o->{prefix}) || getAvailableSpace_raw($o->{fstab}) * 512 / 1.07; $n - max(0.1 * $n, $minAvailableSize); } sub getAvailableSpace_mounted { my ($prefix) = @_; my $dir = -d "$prefix/usr" ? "$prefix/usr" : $prefix; my (undef, $free) = MDK::Common::System::df($dir) or return; log::l("getAvailableSpace_mounted $free KB"); $free * 1024 || 1; } sub getAvailableSpace_raw { my ($fstab) = @_; do { $_->{mntpoint} eq '/usr' and return $_->{size} } foreach @$fstab; do { $_->{mntpoint} eq '/' and return $_->{size} } foreach @$fstab; if ($::testing) { my $nb = 450; log::l("taking ${nb}MB for testing"); return $nb << 11; } die "missing root partition"; } sub preConfigureTimezone { my ($o) = @_; require timezone; #- can't be done in install cuz' timeconfig %post creates funny things add2hash($o->{timezone}, timezone::read()) if $o->{isUpgrade}; $o->{timezone}{timezone} ||= timezone::bestTimezone($o->{locale}{country}); my $utc = every { !isFat_or_NTFS($_) } @{$o->{fstab}}; my $ntp = timezone::ntp_server(); add2hash_($o->{timezone}, { UTC => $utc, ntp => $ntp }); } sub ask_if_suppl_media { my ($o) = @_; my $suppl = $o->ask_from_list_( '', formatAlaTeX( #-PO: keep the double empty lines between sections, this is formated a la LaTeX N("The following media have been found and will be used during install: %s. Do you have a supplementary installation media to configure?", join ", ", uniq(map { $_->{descr} } values %{$o->{packages}{mediums}})) ), [ N_("None"), N_("CD-ROM"), N_("Network (http)"), N_("Network (ftp)") ], 'None'); return $suppl; } sub selectSupplMedia { my ($o, $suppl_method) = @_; #- ask whether there are supplementary media my $prev_asked_medium = $asked_medium; if ($suppl_method && !$o->{isUpgrade} && (my $suppl = ask_if_suppl_media($o)) ne 'None') { #- translate to method name $suppl_method = { 'CD-ROM' => 'cdrom', 'Network (http)' => 'http', 'Network (ftp)' => 'ftp', }->{$suppl}; #- by convention, the media names for suppl. CDs match /^\d+s$/ my $medium_name = $suppl_method eq 'cdrom' ? '1s' : int(keys %{$o->{packages}{mediums}}) + 1; local $::isWizard = 0; local $o->{method} = $suppl_method; if ($suppl_method eq 'cdrom') { (my $cdromdev) = detect_devices::cdroms(); return '' if !$cdromdev; $cdrom = $cdromdev->{device}; devices::make($cdrom); ejectCdrom($cdrom); if ($o->ask_okcancel('', N("Insert the CD"), 1)) { mountCdrom("/mnt/cdrom", $cdrom); log::l($@) if $@; useMedium($medium_name); #- probe for an hdlists file and then look for all hdlists listed herein eval { pkgs::psUsingHdlists($o->{prefix}, $suppl_method, "/mnt/cdrom/media/media_info/hdlists", $o->{packages}) }; if ($@) { #- no hdlists found on the suppl. CD #- Look directly for a file media/main/hdlist1s.cz my $supplmedium = pkgs::psUsingHdlist( $o->{prefix}, # /mnt $suppl_method, $o->{packages}, "hdlist$medium_name.cz", $medium_name, 'media/main', "Supplementary CD $medium_name", 1, # selected "/mnt/cdrom/media/main/media_info/hdlist$medium_name.cz", ); if ($supplmedium) { log::l("read suppl hdlist on cdrom"); $supplmedium->{prefix} = "removable://mnt/cdrom"; #- for install_urpmi $supplmedium->{selected} = 1; $supplmedium->{method} = 'cdrom'; } else { log::l("no suppl hdlist"); } } } } else { my $url = $o->ask_from_entry('', N("URL of the mirror?")) or return ''; useMedium($medium_name); require "$suppl_method.pm"; my $f = eval { if ($suppl_method eq 'http') { http::getFile("$url/media_info/hdlist.cz"); } elsif ($suppl_method eq 'ftp') { my ($login, $pass, $host, $prefix) = $url =~ m!^ftp://(?:(.*?)(?::(.*?))?@)?([^/]+)/(.*)!; ftp::getFile("media_info/hdlist.cz", $host, $prefix, $login, $pass); } else { undef } }; if (!defined $f) { log::l($@) if $@; $o->ask_warn('', N("Can't find hdlist file on this mirror")); useMedium($prev_asked_medium); return ''; } my $supplmedium = pkgs::psUsingHdlist( $o->{prefix}, $suppl_method, $o->{packages}, "hdlist$medium_name.cz", #- hdlist $medium_name, '', #- rpmsdir "Supplementary media $medium_name", #- description 1, # selected $f, ); close $f; if ($supplmedium) { log::l("read suppl hdlist (via $suppl_method)"); $supplmedium->{prefix} = $url; #- for install_urpmi if ($suppl_method eq 'ftp') { $url =~ m!^ftp://(?:(.*?)(?::(.*?))?@)?([^/]+)/(.*)! and $supplmedium->{ftp_prefix} = [ $3, $4, $1, $2 ]; #- for getFile } $supplmedium->{selected} = 1; $supplmedium->{method} = $suppl_method; $supplmedium->{with_hdlist} = 'media_info/hdlist.cz'; #- for install_urpmi } else { log::l("no suppl hdlist"); } } } else { $suppl_method = ''; } useMedium($prev_asked_medium); #- back to main medium return $suppl_method; } sub setPackages { my ($o, $rebuild_needed) = @_; require pkgs; if (!$o->{packages} || is_empty_array_ref($o->{packages}{depslist})) { my $cdrom; ($o->{packages}, my $suppl_method) = pkgs::psUsingHdlists($o->{prefix}, $o->{method}); $suppl_method = $o->selectSupplMedia($suppl_method); #- open rpm db according to right mode needed. $o->{packages}{rpmdb} ||= pkgs::rpmDbOpen($o->{prefix}, $rebuild_needed); #- always try to select basic kernel (else on upgrade, kernel will never be updated provided a kernel is already #- installed and provides what is necessary). pkgs::selectPackage($o->{packages}, pkgs::bestKernelPackage($o->{packages}) || die("missing kernel package"), 1); pkgs::selectPackage($o->{packages}, pkgs::packageByName($o->{packages}, 'basesystem') || die("missing basesystem package"), 1); #- must be done after getProvides #- if there is a supplementary CD, the rpmsrate/compssUsers are overridable pkgs::read_rpmsrate( $o->{packages}, getFile( $suppl_method eq 'cdrom' && -e "/mnt/cdrom/media/media_info/rpmsrate" ? "/mnt/cdrom/media/media_info/rpmsrate" : "media/media_info/rpmsrate") ); ($o->{compssUsers}, $o->{gtk_display_compssUsers}) = pkgs::readCompssUsers( $o->{meta_class}, ($suppl_method eq 'cdrom' && -e '/mnt/cdrom/media/media_info/compssUsers.pl' ? '/mnt/cdrom/' : '') . 'media/media_info/compssUsers.pl' ); #- preselect default_packages and compssUsers selected. setDefaultPackages($o); pkgs::selectPackage($o->{packages}, pkgs::packageByName($o->{packages}, $_) || next) foreach @{$o->{default_packages}}; #- umount supplementary CD. Will re-ask for it later if ($suppl_method eq 'cdrom') { getFile("XXX"); #- close still opened filehandles log::l("Umounting suppl. CD"); eval { fs::umount("/mnt/cdrom") }; #- re-mount CD 1 if this was a cdrom install if ($o->{method} eq 'cdrom') { eval { my $dev = detect_devices::tryOpen($cdrom); ioctl($dev, c::CDROMEJECT(), 1); }; $o->ask_warn('', N("Insert the CD 1 again")); mountCdrom("/tmp/image", $cdrom); $asked_medium = 1; } } } else { #- this has to be done to make sure necessary files for urpmi are #- present. pkgs::psUpdateHdlistsDeps($o->{prefix}, $o->{method}, $o->{packages}); #- open rpm db (always without rebuilding db, it should be false at this point). $o->{packages}{rpmdb} ||= pkgs::rpmDbOpen($o->{prefix}); } } sub setDefaultPackages { my ($o, $b_clean) = @_; if ($b_clean) { delete $o->{default_packages}; #- clean modified variables. } push @{$o->{default_packages}}, "brltty" if cat_("/proc/cmdline") =~ /brltty=/; push @{$o->{default_packages}}, "nfs-utils-clients" if $o->{method} eq "nfs"; push @{$o->{default_packages}}, "numlock" if $o->{miscellaneous}{numlock}; push @{$o->{default_packages}}, "mdadm" if !is_empty_array_ref($o->{all_hds}{raids}); push @{$o->{default_packages}}, "lvm2" if !is_empty_array_ref($o->{all_hds}{lvms}); push @{$o->{default_packages}}, "alsa", "alsa-utils" if any { $o->{modules_conf}->get_alias("sound-slot-$_") =~ /^snd-/ } 0 .. 4; push @{$o->{default_packages}}, "grub" if isLoopback(fs::get::root($o->{fstab})); push @{$o->{default_packages}}, uniq(grep { $_ } map { fs::format::package_needed_for_partition_type($_) } @{$o->{fstab}}); #- if no cleaning needed, populate by default, clean is used for second or more call to this function. unless ($b_clean) { if ($::auto_install && ($o->{rpmsrate_flags_chosen} || {})->{ALL}) { $o->{rpmsrate_flags_chosen}{$_} = 1 foreach map { @{$_->{flags}} } @{$o->{compssUsers}}; } if (!$o->{rpmsrate_flags_chosen} && !$o->{isUpgrade}) { #- use default selection seen in compssUsers directly. foreach (@{$o->{compssUsers}}) { $_->{selected} = $_->{default_selected} or next; $o->{rpmsrate_flags_chosen}{$_} = 1 foreach @{$_->{flags}}; } } } $o->{rpmsrate_flags_chosen}{uc($_)} = 1 foreach grep { modules::probe_category("multimedia/$_") } modules::sub_categories('multimedia'); $o->{rpmsrate_flags_chosen}{uc($_)} = 1 foreach map { $_->{driver} =~ /Flag:(.*)/ } detect_devices::probeall(); $o->{rpmsrate_flags_chosen}{SYSTEM} = 1; $o->{rpmsrate_flags_chosen}{DOCS} = !$o->{excludedocs}; $o->{rpmsrate_flags_chosen}{UTF8} = $o->{locale}{utf8}; $o->{rpmsrate_flags_chosen}{BURNER} = 1 if detect_devices::burners(); $o->{rpmsrate_flags_chosen}{DVD} = 1 if detect_devices::dvdroms(); $o->{rpmsrate_flags_chosen}{USB} = 1 if $o->{modules_conf}->get_probeall("usb-interface"); $o->{rpmsrate_flags_chosen}{PCMCIA} = 1 if detect_devices::hasPCMCIA(); $o->{rpmsrate_flags_chosen}{HIGH_SECURITY} = 1 if $o->{security} > 3; $o->{rpmsrate_flags_chosen}{BIGMEM} = 1 if !$::oem && availableRamMB() > 800 && arch() !~ /ia64|x86_64/; $o->{rpmsrate_flags_chosen}{SMP} = 1 if detect_devices::hasSMP(); $o->{rpmsrate_flags_chosen}{CDCOM} = 1 if any { $_->{descr} =~ /commercial/i } values %{$o->{packages}{mediums}}; $o->{rpmsrate_flags_chosen}{'3D'} = 1 if detect_devices::matching_desc('Matrox.* G[245][05]0') || detect_devices::matching_desc('Rage X[CL]') || detect_devices::matching_desc('3D Rage (?:LT|Pro)') || detect_devices::matching_desc('Voodoo [35]') || detect_devices::matching_desc('Voodoo Banshee') || detect_devices::matching_desc('8281[05].* CGC') || detect_devices::matching_desc('Rage 128') || detect_devices::matching_desc('Radeon ') || #- all Radeon card are now 3D with 4.3.0 detect_devices::matching_desc('[nN]Vidia.*T[nN]T2') || #- TNT2 cards detect_devices::matching_desc('[nN][vV]idia.*NV[56]') || detect_devices::matching_desc('[nN][vV]idia.*Vanta') || detect_devices::matching_desc('[nN][vV]idia.*[gG]e[fF]orce') || #- GeForce cards detect_devices::matching_desc('[nN][vV]idia.*NV1[15]') || detect_devices::matching_desc('[nN][vV]idia.*Quadro'); my @locale_pkgs = map { pkgs::packagesProviding($o->{packages}, 'locales-' . $_) } lang::langsLANGUAGE($o->{locale}{langs}); unshift @{$o->{default_packages}}, uniq(map { $_->name } @locale_pkgs); foreach (lang::langsLANGUAGE($o->{locale}{langs})) { $o->{rpmsrate_flags_chosen}{qq(LOCALES"$_")} = 1; } $o->{rpmsrate_flags_chosen}{'CHARSET"' . lang::l2charset($o->{locale}{lang}) . '"'} = 1; } sub unselectMostPackages { my ($o) = @_; pkgs::unselectAllPackages($o->{packages}); pkgs::selectPackage($o->{packages}, pkgs::packageByName($o->{packages}, $_) || next) foreach @{$o->{default_packages}}; } sub warnAboutNaughtyServers { my ($o) = @_; my @naughtyServers = pkgs::naughtyServers($o->{packages}) or return 1; my $r = $o->ask_from_list_('', formatAlaTeX( #-PO: keep the double empty lines between sections, this is formated a la LaTeX N("You have selected the following server(s): %s These servers are activated by default. They don't have any known security issues, but some new ones could be found. In that case, you must make sure to upgrade as soon as possible. Do you really want to install these servers? ", join(", ", @naughtyServers))), [ N_("Yes"), N_("No") ], 'Yes') or return; if ($r ne 'Yes') { log::l("unselecting naughty servers"); pkgs::unselectPackage($o->{packages}, pkgs::packageByName($o->{packages}, $_)) foreach @naughtyServers; } 1; } sub warnAboutRemovedPackages { my ($o, $packages) = @_; my @removedPackages = keys %{$packages->{state}{ask_remove} || {}} or return; if (!$o->ask_yesorno('', formatAlaTeX( #-PO: keep the double empty lines between sections, this is formated a la LaTeX N("The following packages will be removed to allow upgrading your system: %s Do you really want to remove these packages? ", join(", ", @removedPackages))), 1)) { $packages->{state}{ask_remove} = {}; } } sub addToBeDone(&$) { my ($f, $step) = @_; return &$f() if $::o->{steps}{$step}{done}; push @{$::o->{steps}{$step}{toBeDone}}, $f; } sub set_authentication { my ($o) = @_; my $when_network_is_up = sub { my ($f) = @_; #- defer running xxx - no network yet addToBeDone { require install_steps; install_steps::upNetwork($o, 'pppAvoided'); $f->(); } 'configureNetwork'; }; require authentication; authentication::set($o, $o->{netc}, $o->{authentication} ||= {}, $when_network_is_up); } sub killCardServices() { my $pid = chomp_(cat_("/tmp/cardmgr.pid")); $pid and kill(15, $pid); #- send SIGTERM } sub unlockCdrom() { my $cdrom = cat_("/proc/mounts") =~ m!(/(?:dev|tmp)/\S+)\s+(?:/mnt/cdrom|/tmp/image)! && $1 or return; eval { ioctl(detect_devices::tryOpen($cdrom), c::CDROM_LOCKDOOR(), 0) }; } sub ejectCdrom { my ($o_cdrom) = @_; getFile("XXX"); #- close still opened filehandle my $cdrom = $o_cdrom || cat_("/proc/mounts") =~ m!(/(?:dev|tmp)/\S+)\s+(?:/mnt/cdrom|/tmp/image)! && $1 or return; #- umount BEFORE opening the cdrom device otherwise the umount will #- D state if the cdrom is already removed eval { fs::umount("/tmp/image") }; $@ and warnAboutFilesStillOpen(); eval { my $dev = detect_devices::tryOpen($cdrom); ioctl($dev, c::CDROMEJECT(), 1) if ioctl($dev, c::CDROM_DRIVE_STATUS(), 0) == c::CDS_DISC_OK(); }; } sub warnAboutFilesStillOpen() { log::l("files still open: ", readlink($_)) foreach map { glob_("$_/fd/*") } glob_("/proc/*"); } sub setupFB { my ($o, $vga) = @_; $vga ||= 785; #- assume at least 640x480x16. require bootloader; foreach (@{$o->{bootloader}{entries}}) { $_->{vga} = $vga if $_->{vga}; #- replace existing vga= with } bootloader::install($o->{bootloader}, $o->{all_hds}); 1; } sub install_urpmi { my ($prefix, $method, $packages, $mediums) = @_; #- rare case where urpmi cannot be installed (no hd install path). $method eq 'disk' && !any::hdInstallPath() and return; #- clean to avoid opening twice the rpm db. delete $packages->{rpmdb}; #- import pubkey in rpmdb. my $db = pkgs::rpmDbOpenForInstall($prefix); $packages->parse_pubkeys(db => $db); foreach my $medium (values %$mediums) { $packages->import_needed_pubkeys($medium->{pubkey}, db => $db, callback => sub { my (undef, undef, $_k, $id, $imported) = @_; if ($id) { log::l(($imported ? "imported" : "found") . " key=$id for medium $medium->{descr}"); $medium->{key_ids}{$id} = undef; } }); } my @cfg;


context:
space:
mode: