package Xconfigurator; # $Id$

use diagnostics;
use strict;
use vars qw($in $install $isLaptop @window_managers @depths @monitorSize2resolution @hsyncranges %min_hsync4wres @vsyncranges %depths @resolutions %serversdriver @svgaservers @accelservers @allbutfbservers @allservers %vgamodes %videomemory @ramdac_name @ramdac_id @clockchip_name @clockchip_id %keymap_translate %standard_monitors $XF86firstchunk_text $XF86firstchunk_text2 $keyboardsection_start $keyboardsection_start_v4 $keyboardsection_part2 $keyboardsection_part3 $keyboardsection_part3_v4 $keyboardsection_end $pointersection_text $pointersection_text_v4 $monitorsection_text1 $monitorsection_text2 $monitorsection_text3 $monitorsection_text4 $modelines_text_Trident_TG_96xx $modelines_text $devicesection_text $devicesection_text_v4 $screensection_text1 %lines @options %xkb_options $default_monitor $layoutsection_v4);

use common qw(:common :file :functional :system);
use log;
use detect_devices;
use run_program;
use Xconfigurator_consts;
use any;
use modules;
use my_gtk qw(:wrappers);

my $tmpconfig = "/tmp/Xconfig";

my ($prefix, %monitors);

1;

sub getVGAMode($) { $_[0]->{card}{vga_mode} || $vgamodes{"640x480x16"}; }

sub readCardsDB {
    my ($file) = @_;
    my ($card, %cards);

    local *F;
    open F, $file or die "file $file not found";

    my ($lineno, $cmd, $val) = 0;
    my $fs = {
        LINE => sub { push @{$card->{lines}}, $val unless $val eq "VideoRam" },
	NAME => sub {
	    $cards{$card->{type}} = $card if $card;
	    $card = { type => $val };
	},
	SEE => sub {
	    my $c = $cards{$val} or die "Error in database, invalid reference $val at line $lineno";

	    push @{$card->{lines}}, @{$c->{lines} || []};
	    add2hash($card->{flags}, $c->{flags});
	    add2hash($card, $c);
	},
	CHIPSET => sub {
	    $card->{chipset} = $val;
	    $card->{flags}{needChipset} = 1 if $val eq 'GeForce DDR';
	    $card->{flags}{needVideoRam} = 1 if member($val, qw(mgag10 mgag200 RIVA128 SiS6326));
	},
	SERVER => sub { $card->{server} = $val; },
	DRIVER => sub { $card->{driver} = $val; },
	RAMDAC => sub { $card->{ramdac} = $val; },
	DACSPEED => sub { $card->{dacspeed} = $val; },
	CLOCKCHIP => sub { $card->{clockchip} = $val; $card->{flags}{noclockprobe} = 1; },
	NOCLOCKPROBE => sub { $card->{flags}{noclockprobe} = 1 },
	UNSUPPORTED => sub { $card->{flags}{unsupported} = 1 },
	COMMENT => sub {},
    };

    local $_;
    while (<F>) { $lineno++;
	s/\s+$//;
	/^#/ and next;
	/^$/ and next;
	/^END/ and last;

	($cmd, $val) = /(\S+)\s*(.*)/ or next; #log::l("bad line $lineno ($_)"), next;

	my $f = $fs->{$cmd};

	$f ? $f->() : log::l("unknown line $lineno ($_)");
    }
    \%cards;
}
sub readCardsNames {
    my $file = "$ENV{SHARE_PATH}/ldetect-lst/CardsNames";
    local *F; open F, $file or die "can't find $file\n";
    map { (split '=>')[0] } grep { !/^#/ } <F>;
}
sub cardName2RealName {
    my $file = "$ENV{SHARE_PATH}/ldetect-lst/CardsNames";
    my ($name) = @_;
    local *F; open F, $file or die "can't find $file\n";
    local $_;
    while (<F>) { 
	chop;
	next if /^#/;	  
	my ($name_, $real) = split '=>';
	return $real if $name eq $name_;
    }
    $name;
}
sub updateCardAccordingName {
    my ($card, $name) = @_;
    my $cards = readCardsDB("$ENV{SHARE_PATH}/ldetect-lst/Cards+");

    add2hash($card->{flags}, $cards->{$name}{flags});
    add2hash($card, $cards->{$name});
    $card;
}

sub readMonitorsDB {
    my ($file) = @_;

    %monitors and return;

    local *F; open F, $file or die "can't open monitors database ($file): $!";
    local $_;
    my $lineno = 0; while (<F>) {
	$lineno++;
	s/\s+$//;
	/^#/ and next;
	/^$/ and next;

	my @fields = qw(vendor type eisa hsyncrange vsyncrange);
	my @l = split /\s*;\s*/;
	@l == @fields or log::l("bad line $lineno ($_)"), next;

	my %l; @l{@fields} = @l;
	if ($monitors{$l{type}}) {
	    my $i; for ($i = 0; $monitors{"$l{type} ($i)"}; $i++) {}
	    $l{type} = "$l{type} ($i)";
	}
	$monitors{"$l{vendor}|$l{type}"} = \%l;
    }
    while (my ($k, $v) = each %standard_monitors) {
	$monitors{'Generic|' . translate($k)} =
	    { hsyncrange => $v->[1], vsyncrange => $v->[2] };
    }
}

sub rewriteInittab {
    my ($runlevel) = @_;
    my $f = "$prefix/etc/inittab";
    -r $f or log::l("missing inittab!!!"), return;
    substInFile { s/^(id:)[35](:initdefault:)\s*$/$1$runlevel$2\n/ } $f;
}

sub keepOnlyLegalModes {
    my ($card, $monitor) = @_;
    my $mem = 1024 * ($card->{memory} || ($card->{server} eq 'FBDev' ? 2048 : 99999));
    my $hsync = max(split(/[,-]/, $monitor->{hsyncrange}));

    while (my ($depth, $res) = each %{$card->{depth}}) {
	@$res = grep {
	    $mem >= product(@$_, $depth / 8) &&
	    $hsync >= ($min_hsync4wres{$_->[0]} || 0) &&
	    ($card->{server} ne 'FBDev' || $vgamodes{"$_->[0]x$_->[1]x$depth"})
	} @$res;
	delete $card->{depth}{$depth} if @$res == 0;
    }
}

sub cardConfigurationAuto() {
    my $card;
    if (my ($c) = grep { $_->{driver} =~ /(Card|Server):/ } detect_devices::probeall()) {
	local $_ = $c->{driver};
	$card->{type} = $1 if /Card:(.*)/;
	$card->{server} = $1 if /Server:(.*)/;
	$card->{flags}{needVideoRam} &&= /86c368/;
	$card->{identifier} = $c->{description};
	push @{$card->{lines}}, @{$lines{$card->{identifier}} || []};
    }
    #- take a default on sparc if nothing has been found.
    if (arch() =~ /^sparc/ && !$card->{server} && !$card->{type}) {
        log::l("Using probe with /proc/fb as nothing has been found!");
	local $_ = cat_("/proc/fb");
	if (/Mach64/) { $card->{server} = "Mach64" }
	elsif (/Permedia2/) { $card->{server} = "3DLabs" }
	else { $card->{server} = "Sun24" }
    }
    $card;
}

sub cardConfiguration(;$$$) {
    my ($card, $noauto, $allowFB) = @_;
    $card ||= {};

    updateCardAccordingName($card, $card->{type}) if $card->{type}; #- try to get info from given type
    undef $card->{type} unless $card->{server}; #- bad type as we can't find the server
    add2hash($card, cardConfigurationAuto()) unless $card->{server} || $noauto;
    $card->{server} = 'FBDev' unless !$allowFB || $card->{server} || $card->{type} || $noauto;
    $card->{type} = cardName2RealName($in->ask_from_treelist(_("Graphic card"), _("Select a graphic card"), '|', ['Other|Unlisted', readCardsNames()])) unless $card->{type} || $card->{server};
    undef $card->{type}, $card->{server} = $in->ask_from_list(_("X server"), _("Choose a X server"), $allowFB ? \@allservers : \@allbutfbservers ) if $card->{type} eq 'Other|Unlisted';

    updateCardAccordingName($card, $card->{type}) if $card->{type};
    add2hash($card, { vendor => "Unknown", board => "Unknown" });

    $card->{memory} = 4096,  delete $card->{depth} if $card->{driver} eq 'i810';
    $card->{memory} = 16384, delete $card->{depth} if $card->{chipset} =~ /PERMEDIA/ && $card->{memory} <= 1024;

    #- 3D acceleration configuration for XFree 3.3 using Utah-GLX.
    $card->{Utah_glx} = ($card->{identifier} =~ /Matrox.* G[24]00/ || #- 8bpp does not work.
			 $card->{identifier} =~ /Riva.*128/ ||
			 $card->{identifier} =~ /Rage X[CL]/ ||
			 $card->{identifier} =~ /Rage Mobility (?:P\/M|L) / ||
			 $card->{identifier} =~ /3D Rage (?:LT|Pro)/);
                         #- NOT WORKING $card->{type} =~ /Intel 810/);
    #- 3D acceleration configuration for XFree 3.3 using Utah-GLX but EXPERIMENTAL that may freeze the machine (FOR INFO NOT USED).
    $card->{Utah_glx_EXPERIMENTAL} = ($card->{type} =~ /RIVA TNT/ || #- all RIVA/GeForce comes from NVIDIA and may freeze (gltron).
				      #$card->{type} =~ /RIVA128/ ||
				      $card->{type} =~ /GeForce 256/ ||
				      $card->{type} =~ /S3 Savage3D/ || #- only this one is evoluting (expect a stable release ?)
				      #- $card->{type} =~ /S3 ViRGE/ || #- 15bits only
				      $card->{type} =~ /SiS /);
    #- 3D acceleration configuration for XFree 4.0 using DRI.
    $card->{DRI_glx} = ($card->{identifier} =~ /Voodoo [35]/ || $card->{identifier} =~ /Voodoo Banshee/ || #- 16bit only
			$card->{identifier} =~ /Matrox.* G[24]00/ || #- prefer 16bit (24bit not well tested according to DRI)
			$card->{identifier} =~ /8281[05].* CGC/ || #- 16bits (Intel 810 & 815).
			$card->{identifier} =~ /Radeon / || #- 16bits preferable ?
			$card->{identifier} =~ /Rage 128/); #- 16 and 32 bits, prefer 16bit as no DMA.

    #- check to use XFree 4.0 or XFree 3.3.
    $card->{use_xf4} = $card->{driver} && !$card->{flags}{unsupported};
    $card->{prefer_xf3} = ($card->{type} =~ /RIVA TNT/ ||
			   $card->{type} =~ /RIVA128/ ||
			   $card->{type} =~ /GeForce/ ||
			   $card->{type} =~ /NeoMagic /);

    #- basic installation, use of XFree 4.0 or XFree 3.3.
    my ($xf4_ver, $xf3_ver) = ("4.0.1", "3.3.6");
    my $xf3_tc = { text => _("XFree %s", $xf3_ver),
		   code => sub { $card->{Utah_glx} = $card->{DRI_glx} = ''; $card->{use_xf4} = '';
				 log::l("Using XFree $xf3_ver") } };
    my $msg = _("Which configuration of XFree do you want to have?");
    my @choices = $card->{use_xf4} ? (if_($card->{prefer_xf3}, $xf3_tc),
				      if_(!$card->{prefer_xf3} || $::expert, 
					  { text => _("XFree %s", $xf4_ver),
					    code => sub { $card->{Utah_glx} = $card->{DRI_glx} = '';
							  log::l("Using XFree $xf4_ver") } }),
				      if_(!$card->{prefer_xf3} && $::expert, $xf3_tc)) : $xf3_tc;

    #- try to figure if 3D acceleration is supported
    #- by XFree 3.3 but not XFree 4.0 then ask user to keep XFree 3.3 ?
    if ($card->{Utah_glx}) {
	$msg = ($card->{use_xf4} && !$card->{DRI_glx} && !$card->{prefer_xf3} ?
_("Your card can have 3D hardware acceleration support but only with XFree %s.
Your card is supported by XFree %s which may have a better support in 2D.", $xf3_ver, $xf4_ver) :
_("Your card can have 3D hardware acceleration support with XFree %s.", $xf3_ver)) . "\n\n\n" . $msg;
	$::beginner and @choices = (); #- keep it by default here as it is the only choice available.
	unshift @choices, { text => _("XFree %s with 3D hardware acceleration", $xf3_ver),
			    code => sub { $card->{use_xf4} = '';
					  log::l("Using XFree $xf3_ver with 3D hardware acceleration") } };
    }

    #- an expert user may want to try to use an EXPERIMENTAL 3D acceleration, currenlty
    #- this is with Utah GLX and so, it can provide a way of testing.
    if ($::expert && $card->{Utah_glx_EXPERIMENTAL}) {
	$msg = ($card->{use_xf4} && !$card->{DRI_glx} && !$card->{prefer_xf3} ?
_("Your card can have 3D hardware acceleration support but only with XFree %s,
NOTE THIS IS EXPERIMENTAL SUPPORT AND MAY FREEZE YOUR COMPUTER.
Your card is supported by XFree %s which may have a better support in 2D.", $xf3_ver, $xf4_ver) :
_("Your card can have 3D hardware acceleration support with XFree %s,
NOTE THIS IS EXPERIMENTAL SUPPORT AND MAY FREEZE YOUR COMPUTER.", $xf3_ver)) . "\n\n\n" . $msg;
	push @choices, { text => _("XFree %s with EXPERIMENTAL 3D hardware acceleration", $xf3_ver),
			 code => sub { $card->{use_xf4} = ''; $card->{Utah_glx} = 'EXPERIMENTAL';
				       log::l("Using XFree $xf3_ver with EXPERIMENTAL 3D hardware acceleration") } };
    }

    #- ask the expert user to enable or not hardware acceleration support.
    if ($card->{use_xf4} && $card->{DRI_glx}) {
	$msg = _("Your card can have 3D hardware acceleration support with XFree %s.", $xf4_ver) . "\n\n\n" . $msg;
	$::expert or @choices = (); #- keep all user by default with XFree 4.0 including 3D acceleration.
	unshift @choices, { text => _("XFree %s with 3D hardware acceleration", $xf4_ver),
			    code => sub { log::l("Using XFree $xf4_ver with 3D hardware acceleration") } };
    }

    #- examine choice of user, beware the list MUST NOT BE REORDERED AS the first item should be the
    #- proposed one by DrakX.
    my $tc = $in->ask_from_listf(_("XFree configuration"), formatAlaTeX($msg), sub { translate($_[0]{text}) }, \@choices);
    #- in case of class discarding, this can help ...
    $tc or $tc = $choices[0];
    $tc->{code} and $tc->{code}();

    $card->{prog} = "/usr/X11R6/bin/" . ($card->{use_xf4} ? 'XFree86' : $card->{server} =~ /Sun (.*)/x ?
					 "Xsun$1" : "XF86_$card->{server}");

    #- additional packages to install according available card.
    #- add XFree86-libs-DRI here if using DRI (future split of XFree86 TODO)
    my @l = ();
    if ($card->{DRI_glx}) {
	push @l, 'Glide_V5' if $card->{identifier} =~ /Voodoo 5/;
	push @l, 'Glide_V3-DRI' if $card->{identifier} =~ /Voodoo (3|Banshee)/;
	push @l, 'Device3Dfx', 'XFree86-glide-module' if $card->{identifier} =~ /Voodoo/;
    }
    if ($card->{Utah_glx}) {
	push @l, 'Mesa' if !$card->{use_xf4};
    }

    -x "$prefix$card->{prog}" or $install && do {
	$in->suspend;
	&$install('server', @l) if $card->{use_xf4};
	&$install($card->{server}, @l) if !$card->{use_xf4};
	$in->resume;
    };
    -x "$prefix$card->{prog}" or die "server $card->{server} is not available (should be in $prefix$card->{prog})";

    $card->{options}{sw_cursor} = 1 if $card->{type} =~ /S3 Trio3D|SiS 6326/;
    unless ($card->{type}) {
	$card->{flags}{noclockprobe} = member($card->{server}, qw(I128 S3 S3V Mach64));
    }
    $card->{options_xf3}{power_saver} = 1;
    $card->{options_xf4}{DPMS} = 1;

    $card->{flags}{needVideoRam} and
      $card->{memory} ||=
	$videomemory{$in->ask_from_list_('',
					 _("Select the memory size of your graphic card"),
					 [ sort { $videomemory{$a} <=> $videomemory{$b} }
					   keys %videomemory])};


    #- hack for ATI Mach64 card where two options should be used if using Utah-GLX.
    if ($card->{identifier} =~ /Rage X[CL]/ ||
	$card->{identifier} =~ /Rage Mobility (?:P\/M|L) / ||
	$card->{identifier} =~ /3D Rage (?:LT|Pro)/) {
	$card->{options_xf3}{no_font_cache} = $card->{Utah_glx};
	$card->{options_xf3}{no_pixmap_cache} = $card->{Utah_glx};
    }

    #- 3D acceleration configuration for XFree 4.0 using DRI, this is enabled by default
    #- but for some there is a need to specify VideoRam (else it won't run).
    if ($card->{DRI_glx}) {
	$card->{identifier} =~ /Matrox.* G[24]00/ and $card->{flags}{needVideoRam} = 'fakeVideoRam';
	$card->{identifier} =~ /8281[05].* CGC/ and ($card->{flags}{needVideoRam}, $card->{memory}) = ('fakeVideoRam', 16384);
    }

    if (!$::isStandalone && $card->{driver} eq 'i810') {
	require modules;
	eval { modules::load("agpgart"); };
    }
    $card;
}

sub optionsConfiguration($) {
    my ($o) = @_;
    my @l;
    my %l;

    foreach (@options) {
	if ($o->{card}{server} eq $_->[1] && $o->{card}{identifier} =~ /$_->[2]/) {
	    my $options = 'options_' . ($o->{card}{server} eq 'XFree86' ? 'xf4' : 'xf3');
	    $o->{card}{$options}{$_->[0]} ||= 0;
	    unless ($l{$_->[0]}) {
		push @l, { label => $_->[0], val => \$o->{card}{$options}{$_->[0]}, type => 'bool' };
		$l{$_->[0]} = 1;
	    }
	}
    }
    @l = @l[0..9] if @l > 9; #- reduce list size to 10 for display

    $in->ask_from_entries_refH('', _("Choose options for server"), \@l);
}

sub monitorConfiguration(;$$) {
    my $monitor = shift || {};
    my $useFB = shift || 0;

    $monitor->{hsyncrange} && $monitor->{vsyncrange} and return $monitor;

    readMonitorsDB("$ENV{SHARE_PATH}/ldetect-lst/MonitorsDB");

    add2hash($monitor, { type => $in->ask_from_treelist(_("Monitor"), _("Choose a monitor"), '|', ['Custom', keys %monitors], 'Generic|' . translate($default_monitor)) }) unless $monitor->{type};
    if ($monitor->{type} eq 'Custom') {
	$in->ask_from_entries_refH('',
_("The two critical parameters are the vertical refresh rate, which is the rate
at which the whole screen is refreshed, and most importantly the horizontal
sync rate, which is the rate at which scanlines are displayed.

It is VERY IMPORTANT that you do not specify a monitor type with a sync range
that is beyond the capabilities of your monitor: you may damage your monitor.
 If in doubt, choose a conservative setting."),
				  [ { val => \$monitor->{hsyncrange}, list => \@hsyncranges, label => _("Horizontal refresh rate") },
				    { val => \$monitor->{vsyncrange}, list => \@vsyncranges, label => _("Vertical refresh rate") }]);
    } else {
	add2hash($monitor, $monitors{$monitor->{type}});
    }
    add2hash($monitor, { type => "Unknown", vendor => "Unknown", model => "Unknown", manual => 1 });
}

sub testConfig($) {
    my ($o) = @_;
    my ($resolutions, $clocklines);

    write_XF86Config($o, $tmpconfig);

    unlink "/tmp/.X9-lock";
    #- restart_xfs;

    my $f = $tmpconfig . ($o->{card}{use_xf4} && "-4");
    local *F; open F, "$prefix$o->{card}{prog} :9 -probeonly -pn -xf86config $f 2>&1 |";
    local $_;
    while (<F>) {
	$o->{card}{memory} ||= $2 if /(videoram|Video RAM):\s*(\d*)/;

	# look for clocks
	push @$clocklines, $1 if /clocks: (.*)/ && !/(pixel |num)clocks:/;

	push @$resolutions, [ $1, $2 ] if /: Mode "(\d+)x(\d+)": mode clock/;
	print;
    }
    close F or die "X probeonly failed";

    ($resolutions, $clocklines);
}

sub testFinalConfig {
    my ($o, $auto, $skiptest, $skip_badcard) = @_;

    $o->{monitor}{hsyncrange} && $o->{monitor}{vsyncrange} or
      $in->ask_warn('', _("Monitor not configured")), return;

    $o->{card}{server} || $o->{card}{driver} or
      $in->ask_warn('', _("Graphic card not configured yet")), return;

    $o->{card}{depth} or
      $in->ask_warn('', _("Resolutions not chosen yet")), return;

    my $f = "/etc/X11/XF86Config.test";
    write_XF86Config($o, $::testing ? $tmpconfig : "$prefix/$f");

    $skiptest || $o->{card}{server} =~ 'FBDev|Sun' and return 1; #- avoid testing with these.

    #- needed for bad cards not restoring cleanly framebuffer
    my $bad_card = $o->{card}{identifier} =~ /i740|ViRGE/;
    $bad_card ||= $o->{card}{identifier} =~ /Rage Mobility (?:P\/M|L) / ||  $o->{card}{identifier} =~ /3D Rage LT/;
    $bad_card ||= $o->{card}{use_xf4}; #- TODO obsoleted to check, when using fbdev of XFree 4.0!
    log::l("the graphic card does not like X in framebuffer") if $bad_card;

    my $verybad_card = $o->{card}{driver} eq 'i810';
    $verybad_card and return 1;

    my $mesg = _("Do you want to test the configuration?");
    my $def = 1;
    if ($bad_card && !$::isStandalone) {
	$skip_badcard and return 1;
	$mesg = $mesg . "\n" . _("Warning: testing this graphic card may freeze your computer");
	$def = 0;
    }
    $auto && $def or $in->ask_yesorno(_("Test of the configuration"), $mesg, $def) or return 1;

    unlink "$prefix/tmp/.X9-lock";

    #- create a link from the non-prefixed /tmp/.X11-unix/X9 to the prefixed one
    #- that way, you can talk to :9 without doing a chroot
    #- but take care of non X11 install :-)
    if (-d "/tmp/.X11-unix") {
	symlinkf "$prefix/tmp/.X11-unix/X9", "/tmp/.X11-unix/X9" if $prefix;
    } else {
	symlinkf "$prefix/tmp/.X11-unix", "/tmp/.X11-unix" if $prefix;
    }
    #- restart_xfs;

    my $f_err = "$prefix/tmp/Xoutput";
    my $pid;
    unless ($pid = fork) {
	open STDERR, ">$f_err";
	chroot $prefix if $prefix;
	exec $o->{card}{prog}, 
	  if_($o->{card}{prog} !~ /Xsun/, "-xf86config", ($::testing ? $tmpconfig : $f) . ($o->{card}{use_xf4} && "-4")),
	  ":9" or c::_exit(0);
    }

    do { sleep 1 } until c::Xtest(":9") || waitpid($pid, c::WNOHANG());

    my $b = before_leaving { unlink $f_err };

    unless (c::Xtest(":9")) {
	local $_;
	local *F; open F, $f_err;
      i: while (<F>) {
	    if (/\b(error|not supported)\b/i) {
		my @msg = !/error/ && $_ ;
		while (<F>) {
		    /not fatal/ and last i;
		    /^$/ and last;
		    push @msg, $_;
		}
		$in->ask_warn('', [ _("An error has occurred:"), " ", @msg, _("\ntry to change some parameters") ]);
		return 0;
	    }
	}
    }

    local *F;
    open F, "|perl" or die '';
    print F "use lib qw(", join(' ', @INC), ");\n";
    print F q{
	use interactive_gtk;
        use my_gtk qw(:wrappers);

	$ENV{DISPLAY} = ":9";

        gtkset_background(200 * 257, 210 * 257, 210 * 257);
        my ($h, $w) = Gtk::Gdk::Window->new_foreign(Gtk::Gdk->ROOT_WINDOW)->get_size;
        $my_gtk::force_position = [ $w / 3, $h / 2.4 ];
	$my_gtk::force_focus = 1;
        my $text = Gtk::Label->new;
        my $time = 8;
        Gtk->timeout_add(1000, sub {
	    $text->set(_("Leaving in %d seconds", $time));
	    $time-- or Gtk->main_quit;
            1;
	});

        my $background = "/usr/share/pixmaps/backgrounds/linux-mandrake/XFdrake-image-test.jpg";
        my $qiv = "/usr/bin/qiv";
        -r "} . $prefix . q{/$background" && -x "} . $prefix . q{/$qiv" and
            system(($::testing ? "} . $prefix . q{" : "chroot } . $prefix . q{/ ") . "$qiv -y $background");

	exit (interactive_gtk->new->ask_yesorno('', [ _("Is this the correct setting?"), $text ], 0) ? 0 : 222);
    };
    my $rc = close F;
    my $err = $?;

    unlink "/tmp/.X11-unix/X9" if $prefix;
    kill 2, $pid;

    $rc || $err == 222 << 8 or $in->ask_warn('', _("An error has occurred, try to change some parameters"));
    $rc;
}

sub autoDefaultDepth($$) {
    my ($card, $wres_wanted) = @_;
    my ($best, $depth);

    return 24 if $card->{identifier} =~ /SiS/; #- assume 24 bit even for 3D acceleration (not enabled currently).
    return 16 if $card->{Utah_glx} || $card->{DRI_glx}; #- assume 16bit as most of them need 16.
    
    for ($card->{server}) {
	/FBDev/   and return 16; #- this should work by default, FBDev is allowed only if install currently uses it at 16bpp.
	/Sun24/   and return 24;
	/SunMono/ and return 2;
	/Sun/     and return 8;
    }

    while (my ($d, $r) = each %{$card->{depth}}) {
	$depth = max($depth || 0, $d);

	#- try to have resolution_wanted
	$best = max($best || 0, $d) if $r->[0][0] >= $wres_wanted;
	$best = $card->{suggest_depth}, last if $r->[0][0] >= $wres_wanted || $r->[0][0] >= $card->{suggest_wres};
    }
    $best || $depth or die "no valid modes";
}

sub autoDefaultResolution {
    return "1024x768" if $isLaptop;

    my ($size) = @_;
    $monitorSize2resolution[round($size || 14)] || #- assume a small monitor (size is in inch)
      $monitorSize2resolution[-1]; #- no corresponding resolution for this size. It means a big monitor, take biggest we have
}

sub chooseResolutionsGtk($$;$) {
    my ($card, $chosen_depth, $chosen_w) = @_;
    my $W = my_gtk->new(_("Resolution"));
    my %txt2depth = reverse %depths;
    my ($r, $depth_combo, %w2depth, %w2h, %w2widget);

    my $best_w;
    while (my ($depth, $res) = each %{$card->{depth}}) {
	foreach (@$res) {
	    $w2h{$_->[0]} = $_->[1];
	    push @{$w2depth{$_->[0]}}, $depth;

	    $best_w = max($_->[0], $best_w) if $_->[0] <= $chosen_w;
	}
    }
    $chosen_w = $best_w;

    my $set_depth = sub { $depth_combo->entry->set_text(translate($depths{$chosen_depth})) };

    #- the set function is usefull to toggle the CheckButton with the callback being ignored
    my $ignore;
    my $set = sub { $ignore = 1; $_[0]->set_active(1); $ignore = 0; };

    while (my ($w, $h) = each %w2h) {
	my $V = $w . "x" . $h;
	$w2widget{$w} = $r = new Gtk::RadioButton($r ? ($V, $r) : $V);
	&$set($r) if $chosen_w == $w;
	$r->signal_connect("clicked" => sub {
			       $ignore and return;
			       $chosen_w = $w;
			       unless (member($chosen_depth, @{$w2depth{$w}})) {
				   $chosen_depth = max(@{$w2depth{$w}});
				   &$set_depth();
			       }
			   });
    }
    gtkadd($W->{window},
	   gtkpack_($W->create_box_with_title(_("Choose the resolution and the color depth"),
					      "(" . ($card->{type} ? 
						     _("Graphic card: %s", $card->{type}) :
						     _("XFree86 server: %s", $card->{server})) . ")"
					     ),
		    1, gtkpack(new Gtk::HBox(0,20),
			       $depth_combo = new Gtk::Combo,
			       gtkpack_(new Gtk::VBox(0,0),
					map {; 0, $w2widget{$_} } ikeys(%w2widget),
					),
			       ),
		    0, gtkadd($W->create_okcancel,
			      gtksignal_connect(new Gtk::Button(_("Show all")), clicked => sub { $W->{retval} = 1; $chosen_w = 0; Gtk->main_quit })),
		    ));
    $depth_combo->disable_activate;
    $depth_combo->set_use_arrows_always(1);
    $depth_combo->entry->set_editable(0);
    $depth_combo->set_popdown_strings(map { translate($depths{$_}) } ikeys(%{$card->{depth}}));
    $depth_combo->entry->signal_connect(changed => sub {
       $chosen_depth = $txt2depth{untranslate($depth_combo->entry->get_text, keys %txt2depth)};
       my $w = $card->{depth}{$chosen_depth}[0][0];
       $chosen_w > $w and &$set($w2widget{$chosen_w = $w});
    });
    &$set_depth();
    $W->{ok}->grab_focus;

    $W->main or return;
    ($chosen_depth, $chosen_w);
}

sub chooseResolutions($$;$) {
    goto &chooseResolutionsGtk if ref($in) =~ /gtk/;

    my ($card, $chosen_depth, $chosen_w) = @_;

    my $best_w;
    local $_ = $in->ask_from_list(_("Resolutions"), "", 
				  [ map_each { map { "$_->[0]x$_->[1] ${main::a}bpp" } @$::b } %{$card->{depth}} ]) or return;
    reverse /(\d+)x\S+ (\d+)/;
}


sub resolutionsConfiguration {
    my ($o, $auto) = @_;
    my $card = $o->{card};

    #- For the mono and vga16 server, no further configuration is required.
    if (member($card->{server}, "Mono", "VGA16")) {
	$card->{depth}{8} = [[ 640, 480 ]];
	return;
    } elsif ($card->{server} =~ /Sun/) {
	$card->{depth}{2} = [[ 1152, 864 ]] if $card->{server} =~ /^(SunMono)$/;
	$card->{depth}{8} = [[ 1152, 864 ]] if $card->{server} =~ /^(SunMono|Sun)$/;
	$card->{depth}{24} = [[ 1152, 864 ]] if $card->{server} =~ /^(SunMono|Sun|Sun24)$/;
	$card->{default_wres} = 1152;
	$o->{default_depth} = max(keys %{$card->{depth}});
	return 1; #- aka we cannot test, assumed as good (should be).
    }
    if (is_empty_hash_ref($card->{depth})) {
	$card->{depth}{$_} = [ map { [ split "x" ] } @resolutions ]
	  foreach @depths;
    }
    #- sort resolutions in each depth
    foreach (values %{$card->{depth}}) {
	my $i = 0;
	@$_ = grep { first($i != $_->[0], $i = $_->[0]) }
	  sort { $b->[0] <=> $a->[0] } @$_;
    }

    #- remove unusable resolutions (based on the video memory size and the monitor hsync rate)
    keepOnlyLegalModes($card, $o->{monitor});

    my $res = $o->{resolution_wanted} || $card->{suggest_wres} || autoDefaultResolution($o->{monitor}{size});
    my $wres = first(split 'x', $res);

    #- take the first available resolution <= the wanted resolution
    $wres = max map { first(grep { $_->[0] <= $wres } @$_)->[0] } values %{$card->{depth}};
    my $depth = eval { $o->{default_depth} || autoDefaultDepth($card, $wres) };

    $auto or ($depth, $wres) = chooseResolutions($card, $depth, $wres) or return;

    unless ($wres) {
	delete $card->{depth};
	return resolutionsConfiguration($o);
    }

    #- needed in auto mode when all has been provided by the user
    $card->{depth}{$depth} or die "you selected an unusable depth";

    #- remove all biggest resolution (keep the small ones for ctl-alt-+)
    #- otherwise there'll be a virtual screen :(
    $_ = [ grep { $_->[0] <= $wres } @$_ ] foreach values %{$card->{depth}};
    $card->{default_wres} = $wres;
    $card->{vga_mode} = $vgamodes{"${wres}xx$depth"} || $vgamodes{"${res}x$depth"}; #- for use with frame buffer.
    $o->{default_depth} = $depth;
    1;
}


#- Create the XF86Config file.
sub write_XF86Config {
    my ($o, $file) = @_;
    my $O;

    local (*F, *G);
    open F, ">$file"   or die "can't write XF86Config in $file: $!";
    open G, ">$file-4" or die "can't write XF86Config in $file-4: $!";

    print F $XF86firstchunk_text, $XF86firstchunk_text2;
    print G $XF86firstchunk_text;
    print G qq(    Option "Pixmap"  "24"\n) if $o->{card}{type} eq "SiS 6326";
    print G $XF86firstchunk_text2;

    #- Write keyboard section.
    $O = $o->{keyboard};
    print F $keyboardsection_start;
    print G $keyboardsection_start_v4;
    print F qq(    XkbDisable\n) unless $O->{xkb_keymap};
    print G qq(    Option "XkbDisable"\n) unless $O->{xkb_keymap};
    print F $keyboardsection_part3;
    print G $keyboardsection_part3_v4;
    print F qq(    XkbLayout       "$O->{xkb_keymap}"\n);
    print G qq(    Option "XkbLayout" "$O->{xkb_keymap}"\n);
    print F join '', map { "    $_\n" } @{$xkb_options{$O->{xkb_keymap}} || []};
    print G join '', map { /(\S+)(.*)/; qq(    Option "$1" $2\n) } @{$xkb_options{$O->{xkb_keymap}} || []};
    print F $keyboardsection_end;
    print G $keyboardsection_end;

    #- Write pointer section.
    $O = $o->{mouse};
    print F $pointersection_text;
    print G $pointersection_text_v4;
    print F qq(    Protocol    "$O->{XMOUSETYPE}"\n);
    print G qq(    Option "Protocol"    "$O->{XMOUSETYPE}"\n);
    print F qq(    Device      "/dev/$O->{device}"\n);
    print G qq(    Option "Device"      "/dev/$O->{device}"\n);
    #- this will enable the "wheel" or "knob" functionality if the mouse supports it
    print F "    ZAxisMapping 4 5\n" if $O->{nbuttons} > 3;
    print F "    ZAxisMapping 6 7\n" if $O->{nbuttons} > 5;
    print G qq(    Option "ZAxisMapping" "4 5"\n) if $O->{nbuttons} > 3;
    print G qq(    Option "ZAxisMapping" "6 7"\n) if $O->{nbuttons} > 5;

    print F "#" unless $O->{nbuttons} < 3;
    print G "#" unless $O->{nbuttons} < 3;
    print F qq(    Emulate3Buttons\n);
    print G qq(    Option "Emulate3Buttons"\n);
    print F "#" unless $O->{nbuttons} < 3;
    print G "#" unless $O->{nbuttons} < 3;
    print F qq(    Emulate3Timeout    50\n\n);
    print G qq(    Option "Emulate3Timeout"    "50"\n\n);
    print F "# ChordMiddle is an option for some 3-button Logitech mice\n\n";
    print G "# ChordMiddle is an option for some 3-button Logitech mice\n\n";
    print F "#" unless $O->{chordmiddle};
    print G "#" unless $O->{chordmiddle};
    print F qq(    ChordMiddle\n\n);
    print G qq(    Option "ChordMiddle"\n\n);
    print F "    ClearDTR\n" if $O->{cleardtrrts};
    print F "    ClearRTS\n\n"  if $O->{cleardtrrts};
    print F "EndSection\n\n\n";
    print G "EndSection\n\n\n";

    #- write module section for version 3.
    if ($o->{wacom} || $o->{card}{Utah_glx}) {
	print F qq(Section "Module"
);
	print F qq(    Load "xf86Wacom.so"\n) if $o->{wacom};
	print F qq(    Load "glx-3.so"\n) if $o->{card}{Utah_glx}; #- glx.so may clash with server version 4.
	print F qq(EndSection

);
    }

    #- write wacom device support.
    print F qq(
Section "XInput"
    SubSection "WacomStylus"
        Port "/dev/$o->{wacom}"
        AlwaysCore
        Mode Absolute
    EndSubSection
    SubSection "WacomCursor"
        Port "/dev/$o->{wacom}"
        AlwaysCore
        Mode Relative
    EndSubSection
    SubSection "WacomEraser"
        Port "/dev/$o->{wacom}"
        AlwaysCore
        Mode Absolute
    EndSubSection
EndSection

) if $o->{wacom};

    print G qq(
Section "InputDevice"
    Identifier	"stylus"
    Driver	"wacom"
    Option	"Type" "stylus"
    Option	"Device" "/dev/$o->{wacom}"
    Option	"Mode" "Absolute"
EndSection
Section "InputDevice"
    Identifier	"eraser"
    Driver	"wacom"
    Option	"Type" "eraser"
    Option	"Device" "/dev/$o->{wacom}"
    Option	"Mode" "Absolute"
EndSection
Section "InputDevice"
    Identifier	"cursor"
    Driver	"wacom"
    Option	"Type" "cursor"
    Option	"Device" "/dev/$o->{wacom}"
    Option	"Mode" "Relative"
EndSection
) if $o->{wacom};

    #- write modules section for version 4.
    print G qq(
Section "Module"

# This loads the DBE extension module.

    Load	"dbe"
);
    print G qq(
    Load	"glx"
    Load	"dri"
) if $o->{card}{DRI_glx};
    print G qq(

# This loads the miscellaneous extensions module, and disables
# initialisation of the XFree86-DGA extension within that module.

    SubSection	"extmod"
	#Option	"omit xfree86-dga"
    EndSubSection

# This loads the Type1 and FreeType font modules

    Load	"type1"
    Load	"freetype"
EndSection
);
    print G qq(

Section "DRI"
    Mode	0666
EndSection
) if $o->{card}{DRI_glx};

    #- Write monitor section.
    $O = $o->{monitor};
    print F $monitorsection_text1;
    print G $monitorsection_text1;
    print F qq(    Identifier "$O->{type}"\n);
    print G qq(    Identifier "$O->{type}"\n);
    print F qq(    VendorName "$O->{vendor}"\n);
    print G qq(    VendorName "$O->{vendor}"\n);
    print F qq(    ModelName  "$O->{model}"\n\n);
    print G qq(    ModelName  "$O->{model}"\n\n);
    print F $monitorsection_text2;
    print G $monitorsection_text2;
    print F qq(    HorizSync  $O->{hsyncrange}\n\n);
    print G qq(    HorizSync  $O->{hsyncrange}\n\n);
    print F $monitorsection_text3;
    print G $monitorsection_text3;
    print F qq(    VertRefresh $O->{vsyncrange}\n\n);
    print G qq(    VertRefresh $O->{vsyncrange}\n\n);
    print F $monitorsection_text4;
    print F ($O->{modelines} || '') . ($o->{card}{type} eq "TG 96" ? $modelines_text_Trident_TG_96xx : $modelines_text);
    print F "\nEndSection\n\n\n";
    print G "\nEndSection\n\n\n";

    #- Write Device section.
    $O = $o->{card};
    print F $devicesection_text;
    print G $devicesection_text_v4;
    print F qq(Section "Device"\n);
    print G qq(Section "Device"\n);
    print F qq(    Identifier  "$O->{type}"\n);
    print G qq(    Identifier  "$O->{type}"\n);
    print F qq(    VendorName  "$O->{vendor}"\n);
    print G qq(    VendorName  "$O->{vendor}"\n);
    print F qq(    BoardName   "$O->{board}"\n);
    print G qq(    BoardName   "$O->{board}"\n);

    print F "#" if $O->{chipset} && !$O->{flags}{needChipset};
    print F qq(    Chipset     "$O->{chipset}"\n) if $O->{chipset};
    print G qq(    Driver      "$O->{driver}"\n);

    print F "#" if $O->{memory} && !$O->{flags}{needVideoRam};
    print G "#" if $O->{memory} && !$O->{flags}{needVideoRam};
    print F "    VideoRam    $O->{memory}\n" if $O->{memory};
    print G "    VideoRam    $O->{memory}\n" if $O->{memory};

    print F map { "    $_\n" } @{$O->{lines} || []};
    print G map { "    $_\n" } @{$O->{lines} || []};

    print F qq(    Ramdac      "$O->{ramdac}"\n) if $O->{ramdac};
    print G qq(    Ramdac      "$O->{ramdac}"\n) if $O->{ramdac};
    print F qq(    Dacspeed    "$O->{dacspeed}"\n) if $O->{dacspeed};
    print G qq(    Dacspeed    "$O->{dacspeed}"\n) if $O->{dacspeed};

    if ($O->{clockchip}) {
	print F qq(    Clockchip   "$O->{clockchip}"\n);
	print G qq(    Clockchip   "$O->{clockchip}"\n);
    } else {
	print F "    # Clock lines\n";
	print G "    # Clock lines\n";
	print F "    Clocks $_\n" foreach (@{$O->{clocklines}});
	print G "    Clocks $_\n" foreach (@{$O->{clocklines}});
    }
    do { print F; print G } for qq(

    # Uncomment following option if you see a big white block        
    # instead of the cursor!                                          
    #    Option      "sw_cursor"

);
    my $p = sub {
	my $l = $O->{$_[0]};
	map { (!$l->{$_} && '#') . qq(    Option      "$_"\n) } keys %{$l || {}};
    };
    print F $p->('options');
    print F $p->('options_xf3');
    print G $p->('options');
    print G $p->('options_xf4');
    print F "EndSection\n\n\n";
    print G "EndSection\n\n\n";

    #- Write Screen sections.
    print F $screensection_text1, "\n";
    print G $screensection_text1, "\n";

    my $subscreen = sub {
	my ($f, $server, $defdepth, $depths) = @_;
	print $f "    DefaultColorDepth $defdepth\n" if $defdepth;

        foreach (ikeys(%$depths)) {
	    my $m = $server ne "fbdev" ? join(" ", map { qq("$_->[0]x$_->[1]") } @{$depths->{$_}}) : qq("default"); #-"
	    print $f qq(    Subsection "Display"\n);
	    print $f qq(        Depth       $_\n) if $_;
	    print $f qq(        Modes       $m\n);
	    print $f qq(        ViewPort    0 0\n);
	    print $f qq(    EndSubsection\n);
	}
	print $f "EndSection\n";
    };

    my $screen = sub {
	my ($server, $defdepth, $device, $depths) = @_;
	print F qq(
Section "Screen"
    Driver "$server"
    Device      "$device"
    Monitor     "$o->{monitor}{type}"
); #-"
	$subscreen->(*F, $server, $defdepth, $depths);
    };

    #- SVGA screen section.
    print F qq(
# The Colour SVGA server
);

    if (member($O->{server}, @svgaservers)) {
	&$screen("svga", $o->{default_depth}, $O->{type}, $O->{depth});
    } else {
	&$screen("svga", '', "Generic VGA", { 8 => [[ 320, 200 ]] });
    }

    &$screen("vga16", '',
	     (member($O->{server}, "Mono", "VGA16") ? $O->{type} : "Generic VGA"),
	     { '' => [[ 640, 480 ], [ 800, 600 ]]});

    &$screen("vga2", '',
	     (member($O->{server}, "Mono", "VGA16") ? $O->{type} : "Generic VGA"),
	     { '' => [[ 640, 480 ], [ 800, 600 ]]});

    &$screen("accel", $o->{default_depth}, $O->{type}, $O->{depth});

    &$screen("fbdev", $o->{default_depth}, $O->{type}, $O->{depth});


    print G qq(
Section "Screen"
    Identifier "screen1"
    Device      "$O->{type}"
    Monitor     "$o->{monitor}{type}"
);
    #- bpp 32 not handled by XF4
    $subscreen->(*G, "svga", min($o->{default_depth}, 24), $O->{depth});

    print G '

Section "ServerLayout"
    Identifier "layout1"
    Screen     "screen1"
    InputDevice "Mouse1" "CorePointer"
';
    print G '
    InputDevice "stylus" "AlwaysCore"
    InputDevice "eraser" "AlwaysCore"
    InputDevice "cursor" "AlwaysCore"
' if $o->{wacom};
    print G '
    InputDevice "Keyboard1" "CoreKeyboard"
EndSection
'; #-"

    close F;
    close G;
}

sub XF86check_link {
    my ($ext) = @_;

    my $f = "$prefix/etc/X11/XF86Config$ext";
    touch($f);

    my $l = "$prefix/usr/X11R6/lib/X11/XF86Config$ext";

    if (-e $l && (stat($f))[1] != (stat($l))[1]) { #- compare the inode, must be the sames
	-e $l and unlink($l) || die "can't remove bad $l";
	symlinkf "../../../../etc/X11/XF86Config$ext", $l;
    }
}

sub info {
    my ($o) = @_;
    my $info;

    $info .= _("Keyboard layout: %s\n", $o->{keyboard}{xkb_keymap});
    $info .= _("Mouse type: %s\n", $o->{mouse}{XMOUSETYPE});
    $info .= _("Mouse device: %s\n", $o->{mouse}{device}) if $::expert;
    $info .= _("Monitor: %s\n", $o->{monitor}{type});
    $info .= _("Monitor HorizSync: %s\n", $o->{monitor}{hsyncrange}) if $::expert;
    $info .= _("Monitor VertRefresh: %s\n", $o->{monitor}{vsyncrange}) if $::expert;
    $info .= _("Graphic card: %s\n", $o->{card}{type});
    $info .= _("Graphic memory: %s kB\n", $o->{card}{memory}) if $o->{card}{memory};
    if ($o->{default_depth} and my $depth = $o->{card}{depth}{$o->{default_depth}}) {
	$info .= _("Color depth: %s\n", translate($depths{$o->{default_depth}}));
	$info .= _("Resolution: %s\n", join "x", @{$depth->[0]}) if $depth && !is_empty_array_ref($depth->[0]);
    }
    $info .= _("XFree86 server: %s\n", $o->{card}{server}) if $o->{card}{server};
    $info .= _("XFree86 driver: %s\n", $o->{card}{driver}) if $o->{card}{driver};
    $info;
}

sub show_info {
    my ($o) = @_;
    $in->ask_warn('', info($o));
}

#- Program entry point.
sub main {
    my ($o, $allowFB);
    ($prefix, $o, $in, $allowFB, $isLaptop, $install) = @_;
    $o ||= {};

    XF86check_link('');
    XF86check_link('-4');

    {
	my $w = $in->wait_message('', _("Preparing X-Window configuration"), 1);

	$o->{card} = cardConfiguration($o->{card}, $::noauto, $allowFB);

	$o->{monitor} = monitorConfiguration($o->{monitor}, $o->{card}{server} eq 'FBDev');
    }
    my $ok = resolutionsConfiguration($o, $::auto);

    $ok &&= testFinalConfig($o, $::auto, $o->{skiptest}, $::auto);

    my $quit;
    until ($ok || $quit) {

	my %c = my @c = (
	   __("Change Monitor") => sub { $o->{monitor} = monitorConfiguration() },
           __("Change Graphic card") => sub { $o->{card} = cardConfiguration('', 'noauto', $allowFB) },
                    if_($::expert, 
           __("Change Server options") => sub { optionsConfiguration($o) }),
	   __("Change Resolution") => sub { resolutionsConfiguration($o) },
	   __("Show information") => sub { show_info($o) },
	   __("Test again") => sub { $ok = testFinalConfig($o, 1) },
	   __("Quit") => sub { $quit = 1 },
        );
	$in->set_help('configureXmain') unless $::isStandalone;
	my $f = $in->ask_from_list_(['XFdrake'],
				 _("What do you want to do?"),
				 [ grep { !ref } @c ]);
	eval { &{$c{$f}} };
	!$@ || $@ =~ /ask_from_list cancel/ or die;
	$in->kill;
    }
    if (!$ok) {
	$ok = $in->ask_yesorno('', _("Keep the changes?
Current configuration is:

%s", info($o)));
    }
    if ($ok) {
	unless ($::testing) {
	    my $f = "$prefix/etc/X11/XF86Config";
	    if (-e "$f.test") {
		rename $f, "$f.old" or die "unable to make a backup of XF86Config";
		rename "$f-4", "$f-4.old";
		rename "$f.test", $f;
		rename "$f.test-4", "$f-4";
		symlinkf "../..$o->{card}{prog}", "$prefix/etc/X11/X";
	    }
	}

	if ($::isStandalone && $0 =~ /Xdrakres/) {
	    my $found;
	    foreach (@window_managers) {
		if (`pidof "$_"` > 0) {
		    if ($in->ask_okcancel('', _("Please relog into %s to activate the changes", ucfirst $_), 1)) {
			fork and $in->exit;
			system("kwmcom logout") if /kwm/;
			system("dcop kdesktop default logout") if /kwin/;
			system("save-session --kill") if /gnome-session/;
			system("killall -QUIT icewm") if /icewm/;

			open STDIN, "</dev/zero";
			open STDOUT, ">/dev/null";
			open STDERR, ">&STDERR";
			c::setsid();
		        exec qw(perl -e), q{
                          my $wm = shift;
  		          for (my $nb = 30; $nb && `pidof "$wm"` > 0; $nb--) { sleep 1 }
  		          system("killall X ; killall -15 xdm gdm kdm prefdm") unless `pidof "$wm"` > 0;
  		        }, $_;
		    }
		    $found = 1; last;
		}
	    }
	    $in->ask_warn('', _("Please log out and then use Ctrl-Alt-BackSpace")) unless $found;
	} else {
	    $in->set_help('configureXxdm') unless $::isStandalone;
	    my $run = exists $o->{xdm} ? $o->{xdm} : $::auto || $in->ask_yesorno(_("X at startup"),
_("I can set up your computer to automatically start X upon booting.
Would you like X to start when you reboot?"), 1);
	    rewriteInittab($run ? 5 : 3) unless $::testing;
	}
	autologin($prefix, $o, $in, $install);
    }
}

sub autologin {
    my ($prefix, $o, $in, $install) = @_;
    my $cmd = $prefix ? "chroot $prefix" : "";
    my @wm = (split (' ', `$cmd /usr/sbin/chksession -l`));
    my @etc_pass_fields = qw(name pw uid gid realname home shell);
    my @users = mapgrep {
	my %l; @l{@etc_pass_fields} = split ':';
	$l{uid} > 500, $l{name};
    } cat_("$prefix/etc/passwd");
    my @runlevel = mapgrep {
	/^id:([35]):initdefault:\s*$/ > 0, $1;
    } cat_("$prefix/etc/inittab");
    if (!($::isStandalone && $0 =~ /Xdrakres/) && !($::auto && $o->{skiptest}) && first(@runlevel, 0) == 5 &&
	@wm && @users && !$o->{authentication}{NIS} && $ENV{SECURE_LEVEL} <= 3) {
	my %l = getVarsFromSh("$prefix/etc/sysconfig/autologin");
	$o->{autologin} ||= $l{USER};
	$in->ask_from_entries_refH(_("Autologin"),
				   _("I can set up your computer to automatically log on one user.
If you don't want to use this feature, click on the cancel button."),
				   [ { label => _("Choose the default user:"), val => \$o->{autologin}, list => [ '', @users ] },
 				     { label => _("Choose the window manager to run:"), val => \$o->{desktop}, list => \@wm }, ]) or delete $o->{autologin};
    }
    $o->{autologin} and $::isStandalone ? do { $in->suspend; system("urpmi --auto --best-output autologin"); $in->resume; } : $in->pkg_install("autologin");
    any::setAutologin($prefix, $o->{autologin}, $o->{desktop});
    run_program::rooted($prefix, "chkconfig", "--del", "gpm") if $o->{mouse}{device} =~ /ttyS/ && !$::isStandalone;
}

<a id='n1085' href='#n1085'>1085</a>
<a id='n1086' href='#n1086'>1086</a>
<a id='n1087' href='#n1087'>1087</a>
<a id='n1088' href='#n1088'>1088</a>
<a id='n1089' href='#n1089'>1089</a>
<a id='n1090' href='#n1090'>1090</a>
<a id='n1091' href='#n1091'>1091</a>
<a id='n1092' href='#n1092'>1092</a>
<a id='n1093' href='#n1093'>1093</a>
<a id='n1094' href='#n1094'>1094</a>
<a id='n1095' href='#n1095'>1095</a>
<a id='n1096' href='#n1096'>1096</a>
<a id='n1097' href='#n1097'>1097</a>
<a id='n1098' href='#n1098'>1098</a>
<a id='n1099' href='#n1099'>1099</a>
<a id='n1100' href='#n1100'>1100</a>
<a id='n1101' href='#n1101'>1101</a>
<a id='n1102' href='#n1102'>1102</a>
<a id='n1103' href='#n1103'>1103</a>
<a id='n1104' href='#n1104'>1104</a>
<a id='n1105' href='#n1105'>1105</a>
<a id='n1106' href='#n1106'>1106</a>
<a id='n1107' href='#n1107'>1107</a>
<a id='n1108' href='#n1108'>1108</a>
<a id='n1109' href='#n1109'>1109</a>
<a id='n1110' href='#n1110'>1110</a>
<a id='n1111' href='#n1111'>1111</a>
<a id='n1112' href='#n1112'>1112</a>
<a id='n1113' href='#n1113'>1113</a>
<a id='n1114' href='#n1114'>1114</a>
<a id='n1115' href='#n1115'>1115</a>
<a id='n1116' href='#n1116'>1116</a>
<a id='n1117' href='#n1117'>1117</a>
<a id='n1118' href='#n1118'>1118</a>
<a id='n1119' href='#n1119'>1119</a>
<a id='n1120' href='#n1120'>1120</a>
<a id='n1121' href='#n1121'>1121</a>
<a id='n1122' href='#n1122'>1122</a>
<a id='n1123' href='#n1123'>1123</a>
<a id='n1124' href='#n1124'>1124</a>
<a id='n1125' href='#n1125'>1125</a>
<a id='n1126' href='#n1126'>1126</a>
<a id='n1127' href='#n1127'>1127</a>
<a id='n1128' href='#n1128'>1128</a>
<a id='n1129' href='#n1129'>1129</a>
<a id='n1130' href='#n1130'>1130</a>
<a id='n1131' href='#n1131'>1131</a>
<a id='n1132' href='#n1132'>1132</a>
<a id='n1133' href='#n1133'>1133</a>
<a id='n1134' href='#n1134'>1134</a>
<a id='n1135' href='#n1135'>1135</a>
<a id='n1136' href='#n1136'>1136</a>
<a id='n1137' href='#n1137'>1137</a>
<a id='n1138' href='#n1138'>1138</a>
<a id='n1139' href='#n1139'>1139</a>
<a id='n1140' href='#n1140'>1140</a>
<a id='n1141' href='#n1141'>1141</a>
<a id='n1142' href='#n1142'>1142</a>
<a id='n1143' href='#n1143'>1143</a>
<a id='n1144' href='#n1144'>1144</a>
<a id='n1145' href='#n1145'>1145</a>
<a id='n1146' href='#n1146'>1146</a>
<a id='n1147' href='#n1147'>1147</a>
<a id='n1148' href='#n1148'>1148</a>
<a id='n1149' href='#n1149'>1149</a>
<a id='n1150' href='#n1150'>1150</a>
<a id='n1151' href='#n1151'>1151</a>
<a id='n1152' href='#n1152'>1152</a>
<a id='n1153' href='#n1153'>1153</a>
<a id='n1154' href='#n1154'>1154</a>
<a id='n1155' href='#n1155'>1155</a>
<a id='n1156' href='#n1156'>1156</a>
<a id='n1157' href='#n1157'>1157</a>
<a id='n1158' href='#n1158'>1158</a>
<a id='n1159' href='#n1159'>1159</a>
<a id='n1160' href='#n1160'>1160</a>
<a id='n1161' href='#n1161'>1161</a>
<a id='n1162' href='#n1162'>1162</a>
<a id='n1163' href='#n1163'>1163</a>
<a id='n1164' href='#n1164'>1164</a>
<a id='n1165' href='#n1165'>1165</a>
<a id='n1166' href='#n1166'>1166</a>
<a id='n1167' href='#n1167'>1167</a>
<a id='n1168' href='#n1168'>1168</a>
<a id='n1169' href='#n1169'>1169</a>
<a id='n1170' href='#n1170'>1170</a>
<a id='n1171' href='#n1171'>1171</a>
<a id='n1172' href='#n1172'>1172</a>
<a id='n1173' href='#n1173'>1173</a>
<a id='n1174' href='#n1174'>1174</a>
<a id='n1175' href='#n1175'>1175</a>
<a id='n1176' href='#n1176'>1176</a>
<a id='n1177' href='#n1177'>1177</a>
<a id='n1178' href='#n1178'>1178</a>
<a id='n1179' href='#n1179'>1179</a>
<a id='n1180' href='#n1180'>1180</a>
<a id='n1181' href='#n1181'>1181</a>
<a id='n1182' href='#n1182'>1182</a>
<a id='n1183' href='#n1183'>1183</a>
<a id='n1184' href='#n1184'>1184</a>
<a id='n1185' href='#n1185'>1185</a>
<a id='n1186' href='#n1186'>1186</a>
<a id='n1187' href='#n1187'>1187</a>
<a id='n1188' href='#n1188'>1188</a>
<a id='n1189' href='#n1189'>1189</a>
<a id='n1190' href='#n1190'>1190</a>
<a id='n1191' href='#n1191'>1191</a>
<a id='n1192' href='#n1192'>1192</a>
<a id='n1193' href='#n1193'>1193</a>
<a id='n1194' href='#n1194'>1194</a>
<a id='n1195' href='#n1195'>1195</a>
<a id='n1196' href='#n1196'>1196</a>
<a id='n1197' href='#n1197'>1197</a>
<a id='n1198' href='#n1198'>1198</a>
<a id='n1199' href='#n1199'>1199</a>
<a id='n1200' href='#n1200'>1200</a>
<a id='n1201' href='#n1201'>1201</a>
<a id='n1202' href='#n1202'>1202</a>
<a id='n1203' href='#n1203'>1203</a>
<a id='n1204' href='#n1204'>1204</a>
<a id='n1205' href='#n1205'>1205</a>
<a id='n1206' href='#n1206'>1206</a>
<a id='n1207' href='#n1207'>1207</a>
<a id='n1208' href='#n1208'>1208</a>
<a id='n1209' href='#n1209'>1209</a>
<a id='n1210' href='#n1210'>1210</a>
<a id='n1211' href='#n1211'>1211</a>
<a id='n1212' href='#n1212'>1212</a>
<a id='n1213' href='#n1213'>1213</a>
<a id='n1214' href='#n1214'>1214</a>
<a id='n1215' href='#n1215'>1215</a>
<a id='n1216' href='#n1216'>1216</a>
<a id='n1217' href='#n1217'>1217</a>
<a id='n1218' href='#n1218'>1218</a>
<a id='n1219' href='#n1219'>1219</a>
<a id='n1220' href='#n1220'>1220</a>
<a id='n1221' href='#n1221'>1221</a>
<a id='n1222' href='#n1222'>1222</a>
<a id='n1223' href='#n1223'>1223</a>
<a id='n1224' href='#n1224'>1224</a>
<a id='n1225' href='#n1225'>1225</a>
<a id='n1226' href='#n1226'>1226</a>
<a id='n1227' href='#n1227'>1227</a>
<a id='n1228' href='#n1228'>1228</a>
<a id='n1229' href='#n1229'>1229</a>
<a id='n1230' href='#n1230'>1230</a>
<a id='n1231' href='#n1231'>1231</a>
<a id='n1232' href='#n1232'>1232</a>
<a id='n1233' href='#n1233'>1233</a>
<a id='n1234' href='#n1234'>1234</a>
<a id='n1235' href='#n1235'>1235</a>
<a id='n1236' href='#n1236'>1236</a>
<a id='n1237' href='#n1237'>1237</a>
<a id='n1238' href='#n1238'>1238</a>
<a id='n1239' href='#n1239'>1239</a>
<a id='n1240' href='#n1240'>1240</a>
<a id='n1241' href='#n1241'>1241</a>
<a id='n1242' href='#n1242'>1242</a>
<a id='n1243' href='#n1243'>1243</a>
<a id='n1244' href='#n1244'>1244</a>
<a id='n1245' href='#n1245'>1245</a>
<a id='n1246' href='#n1246'>1246</a>
<a id='n1247' href='#n1247'>1247</a>
<a id='n1248' href='#n1248'>1248</a>
<a id='n1249' href='#n1249'>1249</a>
<a id='n1250' href='#n1250'>1250</a>
<a id='n1251' href='#n1251'>1251</a>
<a id='n1252' href='#n1252'>1252</a>
<a id='n1253' href='#n1253'>1253</a>
<a id='n1254' href='#n1254'>1254</a>
<a id='n1255' href='#n1255'>1255</a>
<a id='n1256' href='#n1256'>1256</a>
<a id='n1257' href='#n1257'>1257</a>
<a id='n1258' href='#n1258'>1258</a>
<a id='n1259' href='#n1259'>1259</a>
<a id='n1260' href='#n1260'>1260</a>
<a id='n1261' href='#n1261'>1261</a>
<a id='n1262' href='#n1262'>1262</a>
<a id='n1263' href='#n1263'>1263</a>
<a id='n1264' href='#n1264'>1264</a>
<a id='n1265' href='#n1265'>1265</a>
<a id='n1266' href='#n1266'>1266</a>
<a id='n1267' href='#n1267'>1267</a>
<a id='n1268' href='#n1268'>1268</a>
<a id='n1269' href='#n1269'>1269</a>
<a id='n1270' href='#n1270'>1270</a>
<a id='n1271' href='#n1271'>1271</a>
<a id='n1272' href='#n1272'>1272</a>
<a id='n1273' href='#n1273'>1273</a>
<a id='n1274' href='#n1274'>1274</a>
<a id='n1275' href='#n1275'>1275</a>
<a id='n1276' href='#n1276'>1276</a>
<a id='n1277' href='#n1277'>1277</a>
<a id='n1278' href='#n1278'>1278</a>
<a id='n1279' href='#n1279'>1279</a>
<a id='n1280' href='#n1280'>1280</a>
<a id='n1281' href='#n1281'>1281</a>
<a id='n1282' href='#n1282'>1282</a>
<a id='n1283' href='#n1283'>1283</a>
<a id='n1284' href='#n1284'>1284</a>
<a id='n1285' href='#n1285'>1285</a>
<a id='n1286' href='#n1286'>1286</a>
<a id='n1287' href='#n1287'>1287</a>
<a id='n1288' href='#n1288'>1288</a>
<a id='n1289' href='#n1289'>1289</a>
<a id='n1290' href='#n1290'>1290</a>
<a id='n1291' href='#n1291'>1291</a>
<a id='n1292' href='#n1292'>1292</a>
<a id='n1293' href='#n1293'>1293</a>
<a id='n1294' href='#n1294'>1294</a>
<a id='n1295' href='#n1295'>1295</a>
<a id='n1296' href='#n1296'>1296</a>
<a id='n1297' href='#n1297'>1297</a>
<a id='n1298' href='#n1298'>1298</a>
<a id='n1299' href='#n1299'>1299</a>
<a id='n1300' href='#n1300'>1300</a>
<a id='n1301' href='#n1301'>1301</a>
<a id='n1302' href='#n1302'>1302</a>
<a id='n1303' href='#n1303'>1303</a>
<a id='n1304' href='#n1304'>1304</a>
<a id='n1305' href='#n1305'>1305</a>
<a id='n1306' href='#n1306'>1306</a>
<a id='n1307' href='#n1307'>1307</a>
<a id='n1308' href='#n1308'>1308</a>
<a id='n1309' href='#n1309'>1309</a>
<a id='n1310' href='#n1310'>1310</a>
<a id='n1311' href='#n1311'>1311</a>
<a id='n1312' href='#n1312'>1312</a>
<a id='n1313' href='#n1313'>1313</a>
<a id='n1314' href='#n1314'>1314</a>
<a id='n1315' href='#n1315'>1315</a>
<a id='n1316' href='#n1316'>1316</a>
<a id='n1317' href='#n1317'>1317</a>
<a id='n1318' href='#n1318'>1318</a>
<a id='n1319' href='#n1319'>1319</a>
<a id='n1320' href='#n1320'>1320</a>
<a id='n1321' href='#n1321'>1321</a>
<a id='n1322' href='#n1322'>1322</a>
<a id='n1323' href='#n1323'>1323</a>
<a id='n1324' href='#n1324'>1324</a>
<a id='n1325' href='#n1325'>1325</a>
<a id='n1326' href='#n1326'>1326</a>
<a id='n1327' href='#n1327'>1327</a>
<a id='n1328' href='#n1328'>1328</a>
<a id='n1329' href='#n1329'>1329</a>
<a id='n1330' href='#n1330'>1330</a>
<a id='n1331' href='#n1331'>1331</a>
<a id='n1332' href='#n1332'>1332</a>
<a id='n1333' href='#n1333'>1333</a>
<a id='n1334' href='#n1334'>1334</a>
<a id='n1335' href='#n1335'>1335</a>
<a id='n1336' href='#n1336'>1336</a>
<a id='n1337' href='#n1337'>1337</a>
<a id='n1338' href='#n1338'>1338</a>
<a id='n1339' href='#n1339'>1339</a>
<a id='n1340' href='#n1340'>1340</a>
<a id='n1341' href='#n1341'>1341</a>
<a id='n1342' href='#n1342'>1342</a>
<a id='n1343' href='#n1343'>1343</a>
<a id='n1344' href='#n1344'>1344</a>
<a id='n1345' href='#n1345'>1345</a>
<a id='n1346' href='#n1346'>1346</a>
<a id='n1347' href='#n1347'>1347</a>
<a id='n1348' href='#n1348'>1348</a>
<a id='n1349' href='#n1349'>1349</a>
<a id='n1350' href='#n1350'>1350</a>
<a id='n1351' href='#n1351'>1351</a>
<a id='n1352' href='#n1352'>1352</a>
<a id='n1353' href='#n1353'>1353</a>
<a id='n1354' href='#n1354'>1354</a>
<a id='n1355' href='#n1355'>1355</a>
<a id='n1356' href='#n1356'>1356</a>
<a id='n1357' href='#n1357'>1357</a>
<a id='n1358' href='#n1358'>1358</a>
<a id='n1359' href='#n1359'>1359</a>
<a id='n1360' href='#n1360'>1360</a>
<a id='n1361' href='#n1361'>1361</a>
<a id='n1362' href='#n1362'>1362</a>
<a id='n1363' href='#n1363'>1363</a>
<a id='n1364' href='#n1364'>1364</a>
<a id='n1365' href='#n1365'>1365</a>
<a id='n1366' href='#n1366'>1366</a>
<a id='n1367' href='#n1367'>1367</a>
<a id='n1368' href='#n1368'>1368</a>
<a id='n1369' href='#n1369'>1369</a>
<a id='n1370' href='#n1370'>1370</a>
<a id='n1371' href='#n1371'>1371</a>
<a id='n1372' href='#n1372'>1372</a>
<a id='n1373' href='#n1373'>1373</a>
<a id='n1374' href='#n1374'>1374</a>
<a id='n1375' href='#n1375'>1375</a>
<a id='n1376' href='#n1376'>1376</a>
<a id='n1377' href='#n1377'>1377</a>
<a id='n1378' href='#n1378'>1378</a>
<a id='n1379' href='#n1379'>1379</a>
<a id='n1380' href='#n1380'>1380</a>
<a id='n1381' href='#n1381'>1381</a>
<a id='n1382' href='#n1382'>1382</a>
<a id='n1383' href='#n1383'>1383</a>
<a id='n1384' href='#n1384'>1384</a>
<a id='n1385' href='#n1385'>1385</a>
<a id='n1386' href='#n1386'>1386</a>
<a id='n1387' href='#n1387'>1387</a>
<a id='n1388' href='#n1388'>1388</a>
<a id='n1389' href='#n1389'>1389</a>
<a id='n1390' href='#n1390'>1390</a>
<a id='n1391' href='#n1391'>1391</a>
<a id='n1392' href='#n1392'>1392</a>
<a id='n1393' href='#n1393'>1393</a>
<a id='n1394' href='#n1394'>1394</a>
<a id='n1395' href='#n1395'>1395</a>
<a id='n1396' href='#n1396'>1396</a>
<a id='n1397' href='#n1397'>1397</a>
<a id='n1398' href='#n1398'>1398</a>
<a id='n1399' href='#n1399'>1399</a>
<a id='n1400' href='#n1400'>1400</a>
<a id='n1401' href='#n1401'>1401</a>
<a id='n1402' href='#n1402'>1402</a>
<a id='n1403' href='#n1403'>1403</a>
<a id='n1404' href='#n1404'>1404</a>
<a id='n1405' href='#n1405'>1405</a>
<a id='n1406' href='#n1406'>1406</a>
<a id='n1407' href='#n1407'>1407</a>
<a id='n1408' href='#n1408'>1408</a>
<a id='n1409' href='#n1409'>1409</a>
<a id='n1410' href='#n1410'>1410</a>
<a id='n1411' href='#n1411'>1411</a>
<a id='n1412' href='#n1412'>1412</a>
<a id='n1413' href='#n1413'>1413</a>
<a id='n1414' href='#n1414'>1414</a>
<a id='n1415' href='#n1415'>1415</a>
<a id='n1416' href='#n1416'>1416</a>
<a id='n1417' href='#n1417'>1417</a>
<a id='n1418' href='#n1418'>1418</a>
<a id='n1419' href='#n1419'>1419</a>
<a id='n1420' href='#n1420'>1420</a>
<a id='n1421' href='#n1421'>1421</a>
<a id='n1422' href='#n1422'>1422</a>
<a id='n1423' href='#n1423'>1423</a>
<a id='n1424' href='#n1424'>1424</a>
<a id='n1425' href='#n1425'>1425</a>
<a id='n1426' href='#n1426'>1426</a>
<a id='n1427' href='#n1427'>1427</a>
<a id='n1428' href='#n1428'>1428</a>
<a id='n1429' href='#n1429'>1429</a>
<a id='n1430' href='#n1430'>1430</a>
<a id='n1431' href='#n1431'>1431</a>
<a id='n1432' href='#n1432'>1432</a>
<a id='n1433' href='#n1433'>1433</a>
<a id='n1434' href='#n1434'>1434</a>
<a id='n1435' href='#n1435'>1435</a>
<a id='n1436' href='#n1436'>1436</a>
<a id='n1437' href='#n1437'>1437</a>
<a id='n1438' href='#n1438'>1438</a>
<a id='n1439' href='#n1439'>1439</a>
<a id='n1440' href='#n1440'>1440</a>
<a id='n1441' href='#n1441'>1441</a>
<a id='n1442' href='#n1442'>1442</a>
<a id='n1443' href='#n1443'>1443</a>
<a id='n1444' href='#n1444'>1444</a>
<a id='n1445' href='#n1445'>1445</a>
<a id='n1446' href='#n1446'>1446</a>
<a id='n1447' href='#n1447'>1447</a>
<a id='n1448' href='#n1448'>1448</a>
<a id='n1449' href='#n1449'>1449</a>
<a id='n1450' href='#n1450'>1450</a>
<a id='n1451' href='#n1451'>1451</a>
<a id='n1452' href='#n1452'>1452</a>
<a id='n1453' href='#n1453'>1453</a>
<a id='n1454' href='#n1454'>1454</a>
<a id='n1455' href='#n1455'>1455</a>
<a id='n1456' href='#n1456'>1456</a>
<a id='n1457' href='#n1457'>1457</a>
<a id='n1458' href='#n1458'>1458</a>
<a id='n1459' href='#n1459'>1459</a>
<a id='n1460' href='#n1460'>1460</a>
<a id='n1461' href='#n1461'>1461</a>
<a id='n1462' href='#n1462'>1462</a>
<a id='n1463' href='#n1463'>1463</a>
<a id='n1464' href='#n1464'>1464</a>
<a id='n1465' href='#n1465'>1465</a>
<a id='n1466' href='#n1466'>1466</a>
<a id='n1467' href='#n1467'>1467</a>
<a id='n1468' href='#n1468'>1468</a>
<a id='n1469' href='#n1469'>1469</a>
<a id='n1470' href='#n1470'>1470</a>
<a id='n1471' href='#n1471'>1471</a>
<a id='n1472' href='#n1472'>1472</a>
<a id='n1473' href='#n1473'>1473</a>
<a id='n1474' href='#n1474'>1474</a>
<a id='n1475' href='#n1475'>1475</a>
<a id='n1476' href='#n1476'>1476</a>
<a id='n1477' href='#n1477'>1477</a>
<a id='n1478' href='#n1478'>1478</a>
<a id='n1479' href='#n1479'>1479</a>
<a id='n1480' href='#n1480'>1480</a>
<a id='n1481' href='#n1481'>1481</a>
<a id='n1482' href='#n1482'>1482</a>
<a id='n1483' href='#n1483'>1483</a>
<a id='n1484' href='#n1484'>1484</a>
<a id='n1485' href='#n1485'>1485</a>
<a id='n1486' href='#n1486'>1486</a>
<a id='n1487' href='#n1487'>1487</a>
<a id='n1488' href='#n1488'>1488</a>
<a id='n1489' href='#n1489'>1489</a>
<a id='n1490' href='#n1490'>1490</a>
<a id='n1491' href='#n1491'>1491</a>
<a id='n1492' href='#n1492'>1492</a>
<a id='n1493' href='#n1493'>1493</a>
<a id='n1494' href='#n1494'>1494</a>
<a id='n1495' href='#n1495'>1495</a>
<a id='n1496' href='#n1496'>1496</a>
<a id='n1497' href='#n1497'>1497</a>
<a id='n1498' href='#n1498'>1498</a>
<a id='n1499' href='#n1499'>1499</a>
<a id='n1500' href='#n1500'>1500</a>
<a id='n1501' href='#n1501'>1501</a>
<a id='n1502' href='#n1502'>1502</a>
<a id='n1503' href='#n1503'>1503</a>
<a id='n1504' href='#n1504'>1504</a>
<a id='n1505' href='#n1505'>1505</a>
<a id='n1506' href='#n1506'>1506</a>
<a id='n1507' href='#n1507'>1507</a>
<a id='n1508' href='#n1508'>1508</a>
<a id='n1509' href='#n1509'>1509</a>
<a id='n1510' href='#n1510'>1510</a>
<a id='n1511' href='#n1511'>1511</a>
<a id='n1512' href='#n1512'>1512</a>
<a id='n1513' href='#n1513'>1513</a>
<a id='n1514' href='#n1514'>1514</a>
<a id='n1515' href='#n1515'>1515</a>
<a id='n1516' href='#n1516'>1516</a>
<a id='n1517' href='#n1517'>1517</a>
<a id='n1518' href='#n1518'>1518</a>
<a id='n1519' href='#n1519'>1519</a>
<a id='n1520' href='#n1520'>1520</a>
<a id='n1521' href='#n1521'>1521</a>
<a id='n1522' href='#n1522'>1522</a>
<a id='n1523' href='#n1523'>1523</a>
<a id='n1524' href='#n1524'>1524</a>
<a id='n1525' href='#n1525'>1525</a>
<a id='n1526' href='#n1526'>1526</a>
<a id='n1527' href='#n1527'>1527</a>
<a id='n1528' href='#n1528'>1528</a>
<a id='n1529' href='#n1529'>1529</a>
<a id='n1530' href='#n1530'>1530</a>
<a id='n1531' href='#n1531'>1531</a>
<a id='n1532' href='#n1532'>1532</a>
<a id='n1533' href='#n1533'>1533</a>
<a id='n1534' href='#n1534'>1534</a>
<a id='n1535' href='#n1535'>1535</a>
<a id='n1536' href='#n1536'>1536</a>
<a id='n1537' href='#n1537'>1537</a>
<a id='n1538' href='#n1538'>1538</a>
<a id='n1539' href='#n1539'>1539</a>
<a id='n1540' href='#n1540'>1540</a>
<a id='n1541' href='#n1541'>1541</a>
<a id='n1542' href='#n1542'>1542</a>
<a id='n1543' href='#n1543'>1543</a>
<a id='n1544' href='#n1544'>1544</a>
<a id='n1545' href='#n1545'>1545</a>
<a id='n1546' href='#n1546'>1546</a>
<a id='n1547' href='#n1547'>1547</a>
<a id='n1548' href='#n1548'>1548</a>
<a id='n1549' href='#n1549'>1549</a>
<a id='n1550' href='#n1550'>1550</a>
<a id='n1551' href='#n1551'>1551</a>
<a id='n1552' href='#n1552'>1552</a>
<a id='n1553' href='#n1553'>1553</a>
<a id='n1554' href='#n1554'>1554</a>
<a id='n1555' href='#n1555'>1555</a>
<a id='n1556' href='#n1556'>1556</a>
<a id='n1557' href='#n1557'>1557</a>
<a id='n1558' href='#n1558'>1558</a>
<a id='n1559' href='#n1559'>1559</a>
<a id='n1560' href='#n1560'>1560</a>
<a id='n1561' href='#n1561'>1561</a>
<a id='n1562' href='#n1562'>1562</a>
<a id='n1563' href='#n1563'>1563</a>
<a id='n1564' href='#n1564'>1564</a>
<a id='n1565' href='#n1565'>1565</a>
<a id='n1566' href='#n1566'>1566</a>
<a id='n1567' href='#n1567'>1567</a>
<a id='n1568' href='#n1568'>1568</a>
<a id='n1569' href='#n1569'>1569</a>
<a id='n1570' href='#n1570'>1570</a>
<a id='n1571' href='#n1571'>1571</a>
<a id='n1572' href='#n1572'>1572</a>
<a id='n1573' href='#n1573'>1573</a>
<a id='n1574' href='#n1574'>1574</a>
<a id='n1575' href='#n1575'>1575</a>
<a id='n1576' href='#n1576'>1576</a>
<a id='n1577' href='#n1577'>1577</a>
<a id='n1578' href='#n1578'>1578</a>
<a id='n1579' href='#n1579'>1579</a>
<a id='n1580' href='#n1580'>1580</a>
<a id='n1581' href='#n1581'>1581</a>
<a id='n1582' href='#n1582'>1582</a>
<a id='n1583' href='#n1583'>1583</a>
<a id='n1584' href='#n1584'>1584</a>
<a id='n1585' href='#n1585'>1585</a>
<a id='n1586' href='#n1586'>1586</a>
<a id='n1587' href='#n1587'>1587</a>
<a id='n1588' href='#n1588'>1588</a>
<a id='n1589' href='#n1589'>1589</a>
<a id='n1590' href='#n1590'>1590</a>
<a id='n1591' href='#n1591'>1591</a>
<a id='n1592' href='#n1592'>1592</a>
<a id='n1593' href='#n1593'>1593</a>
<a id='n1594' href='#n1594'>1594</a>
<a id='n1595' href='#n1595'>1595</a>
<a id='n1596' href='#n1596'>1596</a>
<a id='n1597' href='#n1597'>1597</a>
<a id='n1598' href='#n1598'>1598</a>
<a id='n1599' href='#n1599'>1599</a>
<a id='n1600' href='#n1600'>1600</a>
<a id='n1601' href='#n1601'>1601</a>
<a id='n1602' href='#n1602'>1602</a>
<a id='n1603' href='#n1603'>1603</a>
<a id='n1604' href='#n1604'>1604</a>
<a id='n1605' href='#n1605'>1605</a>
<a id='n1606' href='#n1606'>1606</a>
<a id='n1607' href='#n1607'>1607</a>
<a id='n1608' href='#n1608'>1608</a>
<a id='n1609' href='#n1609'>1609</a>
<a id='n1610' href='#n1610'>1610</a>
<a id='n1611' href='#n1611'>1611</a>
<a id='n1612' href='#n1612'>1612</a>
<a id='n1613' href='#n1613'>1613</a>
<a id='n1614' href='#n1614'>1614</a>
<a id='n1615' href='#n1615'>1615</a>
<a id='n1616' href='#n1616'>1616</a>
<a id='n1617' href='#n1617'>1617</a>
<a id='n1618' href='#n1618'>1618</a>
<a id='n1619' href='#n1619'>1619</a>
<a id='n1620' href='#n1620'>1620</a>
<a id='n1621' href='#n1621'>1621</a>
<a id='n1622' href='#n1622'>1622</a>
<a id='n1623' href='#n1623'>1623</a>
<a id='n1624' href='#n1624'>1624</a>
<a id='n1625' href='#n1625'>1625</a>
<a id='n1626' href='#n1626'>1626</a>
<a id='n1627' href='#n1627'>1627</a>
<a id='n1628' href='#n1628'>1628</a>
<a id='n1629' href='#n1629'>1629</a>
<a id='n1630' href='#n1630'>1630</a>
<a id='n1631' href='#n1631'>1631</a>
<a id='n1632' href='#n1632'>1632</a>
<a id='n1633' href='#n1633'>1633</a>
<a id='n1634' href='#n1634'>1634</a>
<a id='n1635' href='#n1635'>1635</a>
<a id='n1636' href='#n1636'>1636</a>
<a id='n1637' href='#n1637'>1637</a>
<a id='n1638' href='#n1638'>1638</a>
<a id='n1639' href='#n1639'>1639</a>
<a id='n1640' href='#n1640'>1640</a>
<a id='n1641' href='#n1641'>1641</a>
<a id='n1642' href='#n1642'>1642</a>
<a id='n1643' href='#n1643'>1643</a>
<a id='n1644' href='#n1644'>1644</a>
<a id='n1645' href='#n1645'>1645</a>
<a id='n1646' href='#n1646'>1646</a>
<a id='n1647' href='#n1647'>1647</a>
<a id='n1648' href='#n1648'>1648</a>
<a id='n1649' href='#n1649'>1649</a>
<a id='n1650' href='#n1650'>1650</a>
<a id='n1651' href='#n1651'>1651</a>
<a id='n1652' href='#n1652'>1652</a>
<a id='n1653' href='#n1653'>1653</a>
<a id='n1654' href='#n1654'>1654</a>
<a id='n1655' href='#n1655'>1655</a>
<a id='n1656' href='#n1656'>1656</a>
<a id='n1657' href='#n1657'>1657</a>
<a id='n1658' href='#n1658'>1658</a>
<a id='n1659' href='#n1659'>1659</a>
<a id='n1660' href='#n1660'>1660</a>
<a id='n1661' href='#n1661'>1661</a>
<a id='n1662' href='#n1662'>1662</a>
<a id='n1663' href='#n1663'>1663</a>
<a id='n1664' href='#n1664'>1664</a>
<a id='n1665' href='#n1665'>1665</a>
<a id='n1666' href='#n1666'>1666</a>
<a id='n1667' href='#n1667'>1667</a>
<a id='n1668' href='#n1668'>1668</a>
<a id='n1669' href='#n1669'>1669</a>
<a id='n1670' href='#n1670'>1670</a>
<a id='n1671' href='#n1671'>1671</a>
<a id='n1672' href='#n1672'>1672</a>
<a id='n1673' href='#n1673'>1673</a>
<a id='n1674' href='#n1674'>1674</a>
<a id='n1675' href='#n1675'>1675</a>
<a id='n1676' href='#n1676'>1676</a>
<a id='n1677' href='#n1677'>1677</a>
<a id='n1678' href='#n1678'>1678</a>
<a id='n1679' href='#n1679'>1679</a>
<a id='n1680' href='#n1680'>1680</a>
<a id='n1681' href='#n1681'>1681</a>
<a id='n1682' href='#n1682'>1682</a>
<a id='n1683' href='#n1683'>1683</a>
<a id='n1684' href='#n1684'>1684</a>
<a id='n1685' href='#n1685'>1685</a>
<a id='n1686' href='#n1686'>1686</a>
<a id='n1687' href='#n1687'>1687</a>
<a id='n1688' href='#n1688'>1688</a>
<a id='n1689' href='#n1689'>1689</a>
<a id='n1690' href='#n1690'>1690</a>
<a id='n1691' href='#n1691'>1691</a>
<a id='n1692' href='#n1692'>1692</a>
<a id='n1693' href='#n1693'>1693</a>
<a id='n1694' href='#n1694'>1694</a>
<a id='n1695' href='#n1695'>1695</a>
<a id='n1696' href='#n1696'>1696</a>
<a id='n1697' href='#n1697'>1697</a>
<a id='n1698' href='#n1698'>1698</a>
<a id='n1699' href='#n1699'>1699</a>
<a id='n1700' href='#n1700'>1700</a>
<a id='n1701' href='#n1701'>1701</a>
<a id='n1702' href='#n1702'>1702</a>
<a id='n1703' href='#n1703'>1703</a>
<a id='n1704' href='#n1704'>1704</a>
<a id='n1705' href='#n1705'>1705</a>
<a id='n1706' href='#n1706'>1706</a>
<a id='n1707' href='#n1707'>1707</a>
<a id='n1708' href='#n1708'>1708</a>
<a id='n1709' href='#n1709'>1709</a>
<a id='n1710' href='#n1710'>1710</a>
<a id='n1711' href='#n1711'>1711</a>
<a id='n1712' href='#n1712'>1712</a>
<a id='n1713' href='#n1713'>1713</a>
<a id='n1714' href='#n1714'>1714</a>
<a id='n1715' href='#n1715'>1715</a>
<a id='n1716' href='#n1716'>1716</a>
<a id='n1717' href='#n1717'>1717</a>
<a id='n1718' href='#n1718'>1718</a>
<a id='n1719' href='#n1719'>1719</a>
<a id='n1720' href='#n1720'>1720</a>
<a id='n1721' href='#n1721'>1721</a>
<a id='n1722' href='#n1722'>1722</a>
<a id='n1723' href='#n1723'>1723</a>
<a id='n1724' href='#n1724'>1724</a>
<a id='n1725' href='#n1725'>1725</a>
<a id='n1726' href='#n1726'>1726</a>
<a id='n1727' href='#n1727'>1727</a>
<a id='n1728' href='#n1728'>1728</a>
<a id='n1729' href='#n1729'>1729</a>
<a id='n1730' href='#n1730'>1730</a>
<a id='n1731' href='#n1731'>1731</a>
<a id='n1732' href='#n1732'>1732</a>
<a id='n1733' href='#n1733'>1733</a>
<a id='n1734' href='#n1734'>1734</a>
<a id='n1735' href='#n1735'>1735</a>
<a id='n1736' href='#n1736'>1736</a>
<a id='n1737' href='#n1737'>1737</a>
<a id='n1738' href='#n1738'>1738</a>
<a id='n1739' href='#n1739'>1739</a>
<a id='n1740' href='#n1740'>1740</a>
<a id='n1741' href='#n1741'>1741</a>
<a id='n1742' href='#n1742'>1742</a>
<a id='n1743' href='#n1743'>1743</a>
<a id='n1744' href='#n1744'>1744</a>
<a id='n1745' href='#n1745'>1745</a>
<a id='n1746' href='#n1746'>1746</a>
<a id='n1747' href='#n1747'>1747</a>
<a id='n1748' href='#n1748'>1748</a>
<a id='n1749' href='#n1749'>1749</a>
<a id='n1750' href='#n1750'>1750</a>
<a id='n1751' href='#n1751'>1751</a>
<a id='n1752' href='#n1752'>1752</a>
<a id='n1753' href='#n1753'>1753</a>
<a id='n1754' href='#n1754'>1754</a>
<a id='n1755' href='#n1755'>1755</a>
<a id='n1756' href='#n1756'>1756</a>
<a id='n1757' href='#n1757'>1757</a>
<a id='n1758' href='#n1758'>1758</a>
<a id='n1759' href='#n1759'>1759</a>
<a id='n1760' href='#n1760'>1760</a>
<a id='n1761' href='#n1761'>1761</a>
<a id='n1762' href='#n1762'>1762</a>
<a id='n1763' href='#n1763'>1763</a>
<a id='n1764' href='#n1764'>1764</a>
<a id='n1765' href='#n1765'>1765</a>
<a id='n1766' href='#n1766'>1766</a>
<a id='n1767' href='#n1767'>1767</a>
<a id='n1768' href='#n1768'>1768</a>
<a id='n1769' href='#n1769'>1769</a>
<a id='n1770' href='#n1770'>1770</a>
<a id='n1771' href='#n1771'>1771</a>
<a id='n1772' href='#n1772'>1772</a>
<a id='n1773' href='#n1773'>1773</a>
<a id='n1774' href='#n1774'>1774</a>
<a id='n1775' href='#n1775'>1775</a>
<a id='n1776' href='#n1776'>1776</a>
<a id='n1777' href='#n1777'>1777</a>
<a id='n1778' href='#n1778'>1778</a>
<a id='n1779' href='#n1779'>1779</a>
<a id='n1780' href='#n1780'>1780</a>
<a id='n1781' href='#n1781'>1781</a>
<a id='n1782' href='#n1782'>1782</a>
<a id='n1783' href='#n1783'>1783</a>
<a id='n1784' href='#n1784'>1784</a>
<a id='n1785' href='#n1785'>1785</a>
<a id='n1786' href='#n1786'>1786</a>
<a id='n1787' href='#n1787'>1787</a>
<a id='n1788' href='#n1788'>1788</a>
<a id='n1789' href='#n1789'>1789</a>
<a id='n1790' href='#n1790'>1790</a>
<a id='n1791' href='#n1791'>1791</a>
<a id='n1792' href='#n1792'>1792</a>
<a id='n1793' href='#n1793'>1793</a>
<a id='n1794' href='#n1794'>1794</a>
<a id='n1795' href='#n1795'>1795</a>
</pre></td>
<td class='lines'><pre><code><span class="hl kwa">package</span> install_any<span class="hl opt">;</span> <span class="hl slc"># $Id$</span>

<span class="hl kwa">use</span> strict<span class="hl opt">;</span>

<span class="hl kwa">use</span> vars <span class="hl str">qw(</span><span class="hl ipl">&#64;ISA</span> <span class="hl str"></span><span class="hl ipl">%EXPORT_TAGS</span> <span class="hl str"></span><span class="hl ipl">&#64;EXPORT_OK</span> <span class="hl str"></span><span class="hl ipl">$boot_medium</span> <span class="hl str"></span><span class="hl ipl">$current_medium</span> <span class="hl str"></span><span class="hl ipl">$asked_medium</span> <span class="hl str"></span><span class="hl ipl">&#64;advertising_images</span><span class="hl str">)</span><span class="hl opt">;</span>

<span class="hl kwb">&#64;ISA</span> <span class="hl opt">=</span> <span class="hl str">qw(Exporter)</span><span class="hl opt">;</span>
<span class="hl kwb">%EXPORT_TAGS</span> <span class="hl opt">= (</span>
    all <span class="hl opt">=&gt; [</span> <span class="hl str">qw(getNextStep spawnShell addToBeDone)</span> <span class="hl opt">],</span>
<span class="hl opt">);</span>
<span class="hl kwb">&#64;EXPORT_OK</span> <span class="hl opt">=</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl kwb">&#64;$_</span> <span class="hl opt">}</span> <span class="hl kwc">values</span> <span class="hl kwb">%EXPORT_TAGS</span><span class="hl opt">;</span>

<span class="hl slc">#-######################################################################################</span>
<span class="hl slc">#- misc imports</span>
<span class="hl slc">#-######################################################################################</span>
<span class="hl kwa">use</span> MDK<span class="hl opt">::</span>Common<span class="hl opt">::</span>System<span class="hl opt">;</span>
<span class="hl kwa">use</span> common<span class="hl opt">;</span>
<span class="hl kwa">use</span> run_program<span class="hl opt">;</span>
<span class="hl kwa">use</span> fs<span class="hl opt">::</span>type<span class="hl opt">;</span>
<span class="hl kwa">use</span> fs<span class="hl opt">::</span>format<span class="hl opt">;</span>
<span class="hl kwa">use</span> partition_table<span class="hl opt">;</span>
<span class="hl kwa">use</span> devices<span class="hl opt">;</span>
<span class="hl kwa">use</span> fsedit<span class="hl opt">;</span>
<span class="hl kwa">use</span> modules<span class="hl opt">;</span>
<span class="hl kwa">use</span> detect_devices<span class="hl opt">;</span>
<span class="hl kwa">use</span> lang<span class="hl opt">;</span>
<span class="hl kwa">use</span> any<span class="hl opt">;</span>
<span class="hl kwa">use</span> <span class="hl kwc">log</span><span class="hl opt">;</span>

<span class="hl slc">#- boot medium (the first medium to take into account).</span>
<span class="hl kwb">$boot_medium</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl kwb">$current_medium</span> <span class="hl opt">=</span> <span class="hl kwb">$boot_medium</span><span class="hl opt">;</span>
<span class="hl kwb">$asked_medium</span> <span class="hl opt">=</span> <span class="hl kwb">$boot_medium</span><span class="hl opt">;</span>

<span class="hl kwc">our</span> <span class="hl kwb">$global_ftp_prefix</span><span class="hl opt">;</span>

<span class="hl kwa">sub</span> drakx_version<span class="hl opt">() {</span> 
    <span class="hl opt">$::</span>move ? <span class="hl kwc">sprintf</span> <span class="hl str">&quot;DrakX-move v</span><span class="hl ipl">%s</span><span class="hl str">&quot;</span><span class="hl opt">,</span> cat_<span class="hl opt">(</span><span class="hl str">&apos;/usr/bin/stage2/move.pm&apos;</span><span class="hl opt">) =~</span> <span class="hl kwd">/move\.pm,v (\S+ \S+ \S+)/</span>
	    <span class="hl opt">:</span> <span class="hl kwc">sprintf</span> <span class="hl str">&quot;DrakX v</span><span class="hl ipl">%s</span> <span class="hl str">built</span> <span class="hl ipl">%s</span><span class="hl str">&quot;</span><span class="hl opt">, $::</span>testing ? <span class="hl opt">(</span><span class="hl str">&apos;TEST&apos;</span><span class="hl opt">,</span> <span class="hl kwc">scalar gmtime</span><span class="hl opt">()) : (</span><span class="hl kwc">split</span><span class="hl opt">(</span><span class="hl str">&apos;/&apos;</span><span class="hl opt">,</span> cat__<span class="hl opt">(</span>getFile<span class="hl opt">(</span><span class="hl str">&quot;install/stage2/VERSION&quot;</span><span class="hl opt">))))[</span><span class="hl num">2</span><span class="hl opt">,</span><span class="hl num">3</span><span class="hl opt">];</span>
<span class="hl opt">}</span>

<span class="hl slc">#-######################################################################################</span>
<span class="hl slc">#- Media change variables&amp;functions</span>
<span class="hl slc">#-######################################################################################</span>
<span class="hl kwc">my</span> <span class="hl kwb">$postinstall_rpms</span> <span class="hl opt">=</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">;</span>
<span class="hl kwc">my</span> <span class="hl kwb">$cdrom</span><span class="hl opt">;</span>
<span class="hl kwc">my</span> <span class="hl kwb">%iso_images</span><span class="hl opt">;</span>

<span class="hl kwa">sub</span> mountCdrom <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$mountpoint, $o_cdrom</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwb">$o_cdrom</span> <span class="hl opt">=</span> <span class="hl kwb">$cdrom</span> <span class="hl kwa">if</span> <span class="hl opt">!</span><span class="hl kwc">defined</span> <span class="hl kwb">$o_cdrom</span><span class="hl opt">;</span>
    <span class="hl kwc">eval</span> <span class="hl opt">{</span> fs<span class="hl opt">::</span>mount<span class="hl opt">(</span><span class="hl kwb">$o_cdrom, $mountpoint,</span> <span class="hl str">&quot;iso9660&quot;</span><span class="hl opt">,</span> <span class="hl str">&apos;readonly&apos;</span><span class="hl opt">) };</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> useMedium<span class="hl opt">($) {</span>
    <span class="hl slc">#- before ejecting the first CD, there are some files to copy!</span>
    <span class="hl slc">#- does nothing if the function has already been called.</span>
    <span class="hl kwb">$_</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">] &gt;</span> <span class="hl num">1</span> <span class="hl kwc">and</span> method_allows_medium_change<span class="hl opt">($::</span>o-<span class="hl opt">&gt;{</span><span class="hl kwa">method</span><span class="hl opt">})</span> <span class="hl kwc">and</span> setup_postinstall_rpms<span class="hl opt">($::</span>prefix<span class="hl opt">, $::</span>o-<span class="hl opt">&gt;{</span>packages<span class="hl opt">});</span>

    <span class="hl kwb">$asked_medium</span> <span class="hl kwc">eq</span> <span class="hl kwb">$_</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">]</span> <span class="hl kwc">or log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;selecting new medium &apos;</span><span class="hl ipl">$_</span><span class="hl str">[0]&apos;&quot;</span><span class="hl opt">);</span>
    <span class="hl kwb">$asked_medium</span> <span class="hl opt">=</span> <span class="hl kwb">$_</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">];</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> changeMedium<span class="hl opt">(</span><span class="hl kwb">$$</span><span class="hl opt">) {</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$method, $medium_name</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;change to medium</span> <span class="hl ipl">$medium_name</span> <span class="hl str">for method</span> <span class="hl ipl">$method</span> <span class="hl str">(refused by default)&quot;</span><span class="hl opt">);</span>
    <span class="hl num">0</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> relGetFile<span class="hl opt">($) {</span>
    <span class="hl kwc">local</span> <span class="hl kwb">$_</span> <span class="hl opt">=</span> <span class="hl kwb">$_</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">];</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$arch</span><span class="hl opt">) =</span> m<span class="hl opt">|</span>\<span class="hl opt">.([^</span>\<span class="hl opt">.]*)</span>\<span class="hl opt">.</span>rpm<span class="hl opt">$|) {</span>
	<span class="hl kwb">$_</span> <span class="hl opt">=</span> <span class="hl str">&quot;$::o-&gt;{packages}{mediums}{</span><span class="hl ipl">$asked_medium</span><span class="hl str">}{rpmsdir}/</span><span class="hl ipl">$_</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
	<span class="hl kwd">s/%{ARCH}/$arch/g</span><span class="hl opt">;</span>
	s<span class="hl opt">,^/+,,</span>g<span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl kwb">$_</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> askChangeMedium<span class="hl opt">(</span><span class="hl kwb">$$</span><span class="hl opt">) {</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$method, $medium_name</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$allow</span><span class="hl opt">;</span>
    <span class="hl kwa">do</span> <span class="hl opt">{</span>
	<span class="hl kwc">local</span> <span class="hl opt">$::</span>o-<span class="hl opt">&gt;{</span><span class="hl kwa">method</span><span class="hl opt">} =</span> <span class="hl kwb">$method</span> <span class="hl opt">=</span> <span class="hl str">&apos;cdrom&apos;</span> <span class="hl kwa">if</span> <span class="hl kwb">$medium_name</span> <span class="hl opt">=~</span> <span class="hl kwd">/^\d+s$/</span><span class="hl opt">;</span> <span class="hl slc">#- Suppl CD</span>
	<span class="hl kwc">eval</span> <span class="hl opt">{</span> <span class="hl kwb">$allow</span> <span class="hl opt">=</span> changeMedium<span class="hl opt">(</span><span class="hl kwb">$method, $medium_name</span><span class="hl opt">) };</span>
    <span class="hl opt">}</span> <span class="hl kwa">while</span> <span class="hl kwb">$&#64;</span><span class="hl opt">;</span> <span class="hl slc">#- really it is not allowed to die in changeMedium!!! or install will core with rpmlib!!!</span>
    <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl kwb">$allow</span> ? <span class="hl str">&quot;accepting medium</span> <span class="hl ipl">$medium_name</span><span class="hl str">&quot;</span> <span class="hl opt">:</span> <span class="hl str">&quot;refusing medium</span> <span class="hl ipl">$medium_name</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
    <span class="hl kwb">$allow</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> method_is_from_ISO_images<span class="hl opt">($) {</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$method</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwb">$method</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;disk-iso&quot;</span> <span class="hl opt">||</span> <span class="hl kwb">$method</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;nfs-iso&quot;</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> method_allows_medium_change<span class="hl opt">($) {</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$method</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwb">$method</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;cdrom&quot;</span> <span class="hl opt">||</span> method_is_from_ISO_images<span class="hl opt">(</span><span class="hl kwb">$method</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> look_for_ISO_images<span class="hl opt">() {</span>
    <span class="hl kwb">$iso_images</span><span class="hl opt">{</span>media<span class="hl opt">} = [];</span>

    <span class="hl opt">(</span><span class="hl kwb">$iso_images</span><span class="hl opt">{</span>loopdev<span class="hl opt">},</span> <span class="hl kwb">$iso_images</span><span class="hl opt">{</span>mountpoint<span class="hl opt">}) =</span> cat_<span class="hl opt">(</span><span class="hl str">&quot;/proc/mounts&quot;</span><span class="hl opt">) =~</span> m<span class="hl opt">|(</span><span class="hl kwd">/dev/loop</span>\d<span class="hl opt">+)</span>\s<span class="hl opt">+(</span><span class="hl kwd">/tmp/imag</span>e<span class="hl opt">)</span> iso9660<span class="hl opt">|</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$get_iso_ids</span> <span class="hl opt">=</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
	<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$F</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
	<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$vol_id, $app_id</span><span class="hl opt">) =</span> c<span class="hl opt">::</span>get_iso_volume_ids<span class="hl opt">(</span><span class="hl kwc">fileno</span> <span class="hl kwb">$F</span><span class="hl opt">);</span>
	<span class="hl slc">#- the ISO volume names must end in -Disc\d+</span>
	<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$cd_set</span><span class="hl opt">) =</span> <span class="hl kwb">$vol_id</span> <span class="hl opt">=~</span> <span class="hl kwd">/^(.*)-Disc\d+$/</span><span class="hl opt">;</span>
	<span class="hl kwb">$cd_set</span> <span class="hl opt">&amp;&amp; {</span> cd_set <span class="hl opt">=&gt;</span> <span class="hl kwb">$cd_set,</span> app_id <span class="hl opt">=&gt;</span> <span class="hl kwb">$app_id</span> <span class="hl opt">};</span>
    <span class="hl opt">};</span>

    <span class="hl kwc">sysopen</span><span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$F, $iso_images</span><span class="hl opt">{</span>loopdev<span class="hl opt">},</span> <span class="hl num">0</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
    put_in_hash<span class="hl opt">(</span>\<span class="hl kwb">%iso_images, $get_iso_ids</span><span class="hl opt">-&gt;(</span><span class="hl kwb">$F</span><span class="hl opt">));</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$iso_dir</span> <span class="hl opt">=</span> <span class="hl kwb">$ENV</span><span class="hl opt">{</span>ISOPATH<span class="hl opt">};</span>
    <span class="hl slc">#- strip old root and remove iso file from path if present</span>
    <span class="hl kwb">$iso_dir</span> <span class="hl opt">=~</span> <span class="hl kwd">s!^/sysroot!!</span><span class="hl opt">;</span> <span class="hl kwb">$iso_dir</span> <span class="hl opt">=~</span> <span class="hl kwd">s![^/]*\.iso$!!</span><span class="hl opt">;</span>

    <span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$iso_file</span> <span class="hl opt">(</span><span class="hl kwc">glob</span><span class="hl opt">(</span><span class="hl str">&quot;</span><span class="hl ipl">$iso_dir/*</span><span class="hl str">.iso&quot;</span><span class="hl opt">)) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$iso_dev</span> <span class="hl opt">=</span> devices<span class="hl opt">::</span>set_loop<span class="hl opt">(</span><span class="hl kwb">$iso_file</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">sysopen</span><span class="hl opt">(</span><span class="hl kwb">$F, $iso_dev,</span> <span class="hl num">0</span><span class="hl opt">)) {</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$iso_ids</span> <span class="hl opt">=</span> <span class="hl kwb">$get_iso_ids</span><span class="hl opt">-&gt;(</span><span class="hl kwb">$F</span><span class="hl opt">);</span>
	    <span class="hl kwc">push</span> <span class="hl opt">&#64;{</span><span class="hl kwb">$iso_images</span><span class="hl opt">{</span>media<span class="hl opt">}}, {</span> file <span class="hl opt">=&gt;</span> <span class="hl kwb">$iso_file, %$iso_ids</span> <span class="hl opt">}</span> <span class="hl kwa">if</span> <span class="hl kwb">$iso_ids</span><span class="hl opt">;</span>
	    <span class="hl kwc">close</span><span class="hl opt">(</span><span class="hl kwb">$F</span><span class="hl opt">);</span> <span class="hl slc">#- needed to delete loop device</span>
	<span class="hl opt">}</span>
	devices<span class="hl opt">::</span>del_loop<span class="hl opt">(</span><span class="hl kwb">$iso_dev</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> find_ISO_image_labelled<span class="hl opt">($) {</span>
    <span class="hl kwb">%iso_images</span> <span class="hl kwc">or</span> look_for_ISO_images<span class="hl opt">()</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$iso_label</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    find <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>app_id<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl kwb">$iso_label</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>cd_set<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl kwb">$iso_images</span><span class="hl opt">{</span>cd_set<span class="hl opt">} } &#64;{</span><span class="hl kwb">$iso_images</span><span class="hl opt">{</span>media<span class="hl opt">}};</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> changeIso<span class="hl opt">($) {</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$iso_label</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$iso_info</span> <span class="hl opt">=</span> find_ISO_image_labelled<span class="hl opt">(</span><span class="hl kwb">$iso_label</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>

    <span class="hl kwc">eval</span> <span class="hl opt">{</span> fs<span class="hl opt">::</span>umount<span class="hl opt">(</span><span class="hl kwb">$iso_images</span><span class="hl opt">{</span>mountpoint<span class="hl opt">}) };</span>
    <span class="hl kwb">$&#64;</span> <span class="hl kwc">and</span> warnAboutFilesStillOpen<span class="hl opt">();</span>
    devices<span class="hl opt">::</span>del_loop<span class="hl opt">(</span><span class="hl kwb">$iso_images</span><span class="hl opt">{</span>loopdev<span class="hl opt">});</span>

    <span class="hl kwb">$iso_images</span><span class="hl opt">{</span>loopdev<span class="hl opt">} =</span> devices<span class="hl opt">::</span>set_loop<span class="hl opt">(</span><span class="hl kwb">$iso_info</span><span class="hl opt">-&gt;{</span>file<span class="hl opt">});</span>
    <span class="hl kwc">eval</span> <span class="hl opt">{</span> 
	fs<span class="hl opt">::</span>mount<span class="hl opt">(</span><span class="hl kwb">$iso_images</span><span class="hl opt">{</span>loopdev<span class="hl opt">},</span> <span class="hl kwb">$iso_images</span><span class="hl opt">{</span>mountpoint<span class="hl opt">},</span> <span class="hl str">&quot;iso9660&quot;</span><span class="hl opt">,</span> <span class="hl str">&apos;readonly&apos;</span><span class="hl opt">);</span>
	<span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;using ISO image &apos;</span><span class="hl ipl">$iso_label</span><span class="hl str">&apos;&quot;</span><span class="hl opt">);</span>
	<span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl opt">};</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> errorOpeningFile<span class="hl opt">($) {</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$file</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwb">$file</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;XXX&apos;</span> <span class="hl kwc">and</span> <span class="hl kwa">return</span><span class="hl opt">;</span> <span class="hl slc">#- special case to force closing file after rpmlib transaction.</span>
    <span class="hl kwb">$current_medium</span> <span class="hl kwc">eq</span> <span class="hl kwb">$asked_medium</span> <span class="hl kwc">and log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;errorOpeningFile</span> <span class="hl ipl">$file</span><span class="hl str">&quot;</span><span class="hl opt">),</span> <span class="hl kwa">return</span><span class="hl opt">;</span> <span class="hl slc">#- nothing to do in such case.</span>
    <span class="hl opt">$::</span>o-<span class="hl opt">&gt;{</span>packages<span class="hl opt">}{</span>mediums<span class="hl opt">}{</span><span class="hl kwb">$asked_medium</span><span class="hl opt">}{</span>selected<span class="hl opt">}</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span> <span class="hl slc">#- not selected means no need to worry about.</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$current_method</span> <span class="hl opt">= $::</span>o-<span class="hl opt">&gt;{</span>packages<span class="hl opt">}{</span>mediums<span class="hl opt">}{</span><span class="hl kwb">$asked_medium</span><span class="hl opt">}{</span><span class="hl kwa">method</span><span class="hl opt">} || $::</span>o-<span class="hl opt">&gt;{</span><span class="hl kwa">method</span><span class="hl opt">};</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$max</span> <span class="hl opt">=</span> <span class="hl num">32</span><span class="hl opt">;</span> <span class="hl slc">#- always refuse after $max tries.</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$current_method</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;cdrom&quot;</span><span class="hl opt">) {</span>
	cat_<span class="hl opt">(</span><span class="hl str">&quot;/proc/mounts&quot;</span><span class="hl opt">) =~</span> m<span class="hl opt">,(</span><span class="hl kwd">/dev/</span>\S<span class="hl opt">+)</span>\s<span class="hl opt">+(</span><span class="hl kwd">/mnt/cd</span>rom<span class="hl opt">|</span><span class="hl kwd">/tmp/imag</span>e<span class="hl opt">),</span>
	    <span class="hl kwc">and</span> <span class="hl opt">(</span><span class="hl kwb">$cdrom,</span> <span class="hl kwc">my</span> <span class="hl kwb">$mountpoint</span><span class="hl opt">) = (</span><span class="hl kwb">$1, $2</span><span class="hl opt">);</span>
	<span class="hl kwa">return unless</span> <span class="hl kwb">$cdrom</span><span class="hl opt">;</span>
	ejectCdrom<span class="hl opt">(</span><span class="hl kwb">$cdrom, $mountpoint</span><span class="hl opt">);</span>
	<span class="hl kwa">while</span> <span class="hl opt">(</span><span class="hl kwb">$max</span> <span class="hl opt">&gt;</span> <span class="hl num">0</span> <span class="hl opt">&amp;&amp;</span> askChangeMedium<span class="hl opt">(</span><span class="hl kwb">$current_method, $asked_medium</span><span class="hl opt">)) {</span>
	    <span class="hl kwb">$current_medium</span> <span class="hl opt">=</span> <span class="hl kwb">$asked_medium</span><span class="hl opt">;</span>
	    mountCdrom<span class="hl opt">(</span><span class="hl str">&quot;/tmp/image&quot;</span><span class="hl opt">);</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$getFile</span> <span class="hl opt">=</span> getFile<span class="hl opt">(</span><span class="hl kwb">$file</span><span class="hl opt">);</span> 
	    <span class="hl kwb">$getFile</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">&#64;advertising_images</span> <span class="hl kwc">and</span> copy_advertising<span class="hl opt">($::</span>o<span class="hl opt">);</span>
	    <span class="hl kwb">$getFile</span> <span class="hl kwc">and</span> <span class="hl kwa">return</span> <span class="hl kwb">$getFile</span><span class="hl opt">;</span>
	    <span class="hl kwb">$current_medium</span> <span class="hl opt">=</span> <span class="hl str">&apos;unknown&apos;</span><span class="hl opt">;</span> <span class="hl slc">#- do not know what CD is inserted now.</span>
	    ejectCdrom<span class="hl opt">(</span><span class="hl kwb">$cdrom, $mountpoint</span><span class="hl opt">);</span>
	    <span class="hl opt">--</span><span class="hl kwb">$max</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl kwa">while</span> <span class="hl opt">(</span><span class="hl kwb">$max</span> <span class="hl opt">&gt;</span> <span class="hl num">0</span> <span class="hl opt">&amp;&amp;</span> askChangeMedium<span class="hl opt">(</span><span class="hl kwb">$current_method, $asked_medium</span><span class="hl opt">)) {</span>
	    <span class="hl kwb">$current_medium</span> <span class="hl opt">=</span> <span class="hl kwb">$asked_medium</span><span class="hl opt">;</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$getFile</span> <span class="hl opt">=</span> getFile<span class="hl opt">(</span><span class="hl kwb">$file</span><span class="hl opt">);</span> <span class="hl kwb">$getFile</span> <span class="hl kwc">and</span> <span class="hl kwa">return</span> <span class="hl kwb">$getFile</span><span class="hl opt">;</span>
	    <span class="hl kwb">$current_medium</span> <span class="hl opt">=</span> <span class="hl str">&apos;unknown&apos;</span><span class="hl opt">;</span> <span class="hl slc">#- do not know what CD image has been copied.</span>
	    <span class="hl opt">--</span><span class="hl kwb">$max</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>

    <span class="hl slc">#- Do not unselect supplementary CDs.</span>
    <span class="hl kwa">return if</span> <span class="hl kwb">$asked_medium</span> <span class="hl opt">=~</span> <span class="hl kwd">/^\d+s$/</span><span class="hl opt">;</span>

    <span class="hl slc">#- keep in mind the asked medium has been refused on this way.</span>
    <span class="hl slc">#- this means it is no more selected.</span>
    <span class="hl opt">$::</span>o-<span class="hl opt">&gt;{</span>packages<span class="hl opt">}{</span>mediums<span class="hl opt">}{</span><span class="hl kwb">$asked_medium</span><span class="hl opt">}{</span>selected<span class="hl opt">} =</span> <span class="hl kwc">undef</span><span class="hl opt">;</span>

    <span class="hl slc">#- on cancel, we can expect the current medium to be undefined too,</span>
    <span class="hl slc">#- this enables remounting if selecting a package back.</span>
    <span class="hl kwb">$current_medium</span> <span class="hl opt">=</span> <span class="hl str">&apos;unknown&apos;</span><span class="hl opt">;</span>

    <span class="hl kwa">return</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> getFile <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$f, $o_method, $o_altroot</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$current_method</span> <span class="hl opt">= (</span><span class="hl kwb">$asked_medium</span> ? <span class="hl opt">$::</span>o-<span class="hl opt">&gt;{</span>packages<span class="hl opt">}{</span>mediums<span class="hl opt">}{</span><span class="hl kwb">$asked_medium</span><span class="hl opt">}{</span><span class="hl kwa">method</span><span class="hl opt">} :</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">) || $::</span>o-<span class="hl opt">&gt;{</span><span class="hl kwa">method</span><span class="hl opt">};</span>
    <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;getFile</span> <span class="hl ipl">$f</span><span class="hl str">:</span><span class="hl ipl">$o_method</span> <span class="hl str">(</span><span class="hl ipl">$asked_medium</span><span class="hl str">:</span><span class="hl ipl">$current_method</span><span class="hl str">)&quot;</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$rel</span> <span class="hl opt">=</span> relGetFile<span class="hl opt">(</span><span class="hl kwb">$f</span><span class="hl opt">);</span>
    <span class="hl kwa">do</span> <span class="hl opt">{</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$f</span> <span class="hl opt">=~</span> m<span class="hl opt">|^</span>http<span class="hl opt">:</span><span class="hl kwd">//</span><span class="hl opt">|) {</span>
	    <span class="hl kwa">require</span> http<span class="hl opt">;</span>
	    http<span class="hl opt">::</span>getFile<span class="hl opt">(</span><span class="hl kwb">$f</span><span class="hl opt">);</span>
	<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$o_method</span> <span class="hl opt">=~</span> <span class="hl kwd">/crypto|update/i</span><span class="hl opt">) {</span>
	    <span class="hl kwa">require</span> crypto<span class="hl opt">;</span>
	    crypto<span class="hl opt">::</span>getFile<span class="hl opt">(</span><span class="hl kwb">$f</span><span class="hl opt">);</span>
	<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$current_method</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;ftp&quot;</span><span class="hl opt">) {</span>
	    <span class="hl kwa">require</span> ftp<span class="hl opt">;</span>
	    ftp<span class="hl opt">::</span>getFile<span class="hl opt">(</span><span class="hl kwb">$rel,</span> <span class="hl opt">&#64;{ $::</span>o-<span class="hl opt">&gt;{</span>packages<span class="hl opt">}{</span>mediums<span class="hl opt">}{</span><span class="hl kwb">$asked_medium</span><span class="hl opt">}{</span>ftp_prefix<span class="hl opt">} ||</span> <span class="hl kwb">$global_ftp_prefix</span> <span class="hl opt">|| [] });</span>
	<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$current_method</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;http&quot;</span><span class="hl opt">) {</span>
	    <span class="hl kwa">require</span> http<span class="hl opt">;</span>
	    http<span class="hl opt">::</span>getFile<span class="hl opt">((</span><span class="hl kwb">$ENV</span><span class="hl opt">{</span>URLPREFIX<span class="hl opt">} ||</span> <span class="hl kwb">$o_altroot</span><span class="hl opt">) .</span> <span class="hl str">&quot;/</span><span class="hl ipl">$rel</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl slc">#- try to open the file, but examine if it is present in the repository,</span>
	    <span class="hl slc">#- this allows handling changing a media when some of the files on the</span>
	    <span class="hl slc">#- first CD have been copied to other to avoid media change...</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$f2</span> <span class="hl opt">=</span> <span class="hl str">&quot;</span><span class="hl ipl">$postinstall_rpms/$f</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
	    <span class="hl kwb">$o_altroot</span> <span class="hl opt">||=</span> <span class="hl str">&apos;/tmp/image&apos;</span><span class="hl opt">;</span>
	    <span class="hl kwb">$f2</span> <span class="hl opt">=</span> <span class="hl str">&quot;</span><span class="hl ipl">$o_altroot/$rel</span><span class="hl str">&quot;</span> <span class="hl kwa">if</span> <span class="hl kwb">$rel</span> <span class="hl opt">!~</span> m<span class="hl opt">,^/, &amp;&amp; (!</span><span class="hl kwb">$postinstall_rpms</span> <span class="hl opt">|| !-</span>e <span class="hl kwb">$f2</span><span class="hl opt">);</span>
	    <span class="hl slc">#- $f2 = &quot;/$rel&quot; if !$::o-&gt;{packages}{mediums}{$asked_medium}{rpmsdir} &amp;&amp; !-e $f2; #- not a relative path, should not be necessary with new media layout</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$F</span><span class="hl opt">;</span> <span class="hl kwc">open</span><span class="hl opt">(</span><span class="hl kwb">$F, $f2</span><span class="hl opt">)</span> ? <span class="hl kwb">$F</span> <span class="hl opt">:</span> <span class="hl kwa">do</span> <span class="hl opt">{</span> <span class="hl kwb">$f2</span> <span class="hl opt">!~</span> <span class="hl kwd">/XXX/</span> <span class="hl kwc">and log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;Can not open</span> <span class="hl ipl">$f2</span><span class="hl str">:</span> <span class="hl ipl">$!</span><span class="hl str">&quot;</span><span class="hl opt">);</span> <span class="hl kwc">undef</span> <span class="hl opt">};</span>
	<span class="hl opt">}</span>
    <span class="hl opt">} ||</span> errorOpeningFile<span class="hl opt">(</span><span class="hl kwb">$f</span><span class="hl opt">);</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> getAndSaveFile <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$file, $local</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span> <span class="hl opt">==</span> <span class="hl num">1</span> ? <span class="hl opt">(</span><span class="hl str">&quot;install/stage2/live</span><span class="hl ipl">$_</span><span class="hl str">[0]&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$_</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">]) :</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">local</span> <span class="hl kwb">$/</span> <span class="hl opt">=</span> \ <span class="hl opt">(</span><span class="hl num">16</span> <span class="hl opt">*</span> <span class="hl num">1024</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$f</span> <span class="hl opt">=</span> <span class="hl kwc">ref</span><span class="hl opt">(</span><span class="hl kwb">$file</span><span class="hl opt">)</span> ? <span class="hl kwb">$file</span> <span class="hl opt">:</span> getFile<span class="hl opt">(</span><span class="hl kwb">$file</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl kwc">open</span><span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$F,</span> <span class="hl str">&quot;&gt;</span><span class="hl ipl">$local</span><span class="hl str">&quot;</span><span class="hl opt">)</span> <span class="hl kwc">or log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;getAndSaveFile(opening</span> <span class="hl ipl">$local</span><span class="hl str">):</span> <span class="hl ipl">$!</span><span class="hl str">&quot;</span><span class="hl opt">),</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl kwc">local</span> <span class="hl kwb">$_</span><span class="hl opt">;</span>
    <span class="hl kwa">while</span> <span class="hl opt">(&lt;</span><span class="hl kwb">$f</span><span class="hl opt">&gt;) {</span> <span class="hl kwc">syswrite</span><span class="hl opt">(</span><span class="hl kwb">$F, $_</span><span class="hl opt">)</span> <span class="hl kwc">or die</span><span class="hl opt">(</span><span class="hl str">&quot;getAndSaveFile(</span><span class="hl ipl">$local</span><span class="hl str">):</span> <span class="hl ipl">$!</span><span class="hl str">&quot;</span><span class="hl opt">) }</span>
    <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>


<span class="hl slc">#-######################################################################################</span>
<span class="hl slc">#- Post installation RPMS from cdrom only, functions</span>
<span class="hl slc">#-######################################################################################</span>
<span class="hl kwa">sub</span> setup_postinstall_rpms<span class="hl opt">(</span><span class="hl kwb">$$</span><span class="hl opt">) {</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$prefix, $packages</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwb">$postinstall_rpms</span> <span class="hl kwc">and</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl kwb">$postinstall_rpms</span> <span class="hl opt">=</span> <span class="hl str">&quot;</span><span class="hl ipl">$prefix/usr/postinstall</span><span class="hl str">-rpm&quot;</span><span class="hl opt">;</span>

    <span class="hl kwa">require</span> pkgs<span class="hl opt">;</span>

    <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;postinstall rpms directory set to</span> <span class="hl ipl">$postinstall_rpms</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
    clean_postinstall_rpms<span class="hl opt">();</span> <span class="hl slc">#- make sure in case of previous upgrade problem.</span>
    mkdir_p<span class="hl opt">(</span><span class="hl kwb">$postinstall_rpms</span><span class="hl opt">);</span>

    <span class="hl kwc">my</span> <span class="hl kwb">%toCopy</span><span class="hl opt">;</span>
    <span class="hl slc">#- compute closure of package that may be copied, use INSTALL category</span>
    <span class="hl slc">#- in rpmsrate.</span>
    <span class="hl kwb">$packages</span><span class="hl opt">-&gt;{</span>rpmdb<span class="hl opt">} ||=</span> pkgs<span class="hl opt">::</span>rpmDbOpen<span class="hl opt">();</span>
    <span class="hl kwa">foreach</span> <span class="hl opt">(&#64;{</span><span class="hl kwb">$packages</span><span class="hl opt">-&gt;{</span>needToCopy<span class="hl opt">} || []}) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$p</span> <span class="hl opt">=</span> pkgs<span class="hl opt">::</span>packageByName<span class="hl opt">(</span><span class="hl kwb">$packages, $_</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">next</span><span class="hl opt">;</span>
	pkgs<span class="hl opt">::</span>selectPackage<span class="hl opt">(</span><span class="hl kwb">$packages, $p,</span> <span class="hl num">0</span><span class="hl opt">,</span> \<span class="hl kwb">%toCopy</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwc">delete</span> <span class="hl kwb">$packages</span><span class="hl opt">-&gt;{</span>rpmdb<span class="hl opt">};</span>

    <span class="hl kwc">my</span> <span class="hl kwb">&#64;toCopy</span> <span class="hl opt">=</span> <span class="hl kwc">grep</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span> <span class="hl opt">&amp;&amp; !</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;</span><span class="hl kwd">flag_selected</span> <span class="hl opt">}</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl kwb">$packages</span><span class="hl opt">-&gt;{</span>depslist<span class="hl opt">}[</span><span class="hl kwb">$_</span><span class="hl opt">] }</span> <span class="hl kwc">keys</span> <span class="hl kwb">%toCopy</span><span class="hl opt">;</span>

    <span class="hl slc">#- extract headers of package, this is necessary for getting</span>
    <span class="hl slc">#- the complete filename of each package.</span>
    <span class="hl slc">#- copy the package files in the postinstall RPMS directory.</span>
    <span class="hl slc">#- last arg is default medium &apos;&apos; known as the CD#1.</span>
    <span class="hl slc">#- cp_af does not handle correctly a missing file.</span>
    <span class="hl kwc">eval</span> <span class="hl opt">{</span> cp_af<span class="hl opt">((</span><span class="hl kwc">grep</span> <span class="hl opt">{ -</span>r <span class="hl kwb">$_</span> <span class="hl opt">}</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl str">&quot;/tmp/image/&quot;</span> <span class="hl opt">.</span> relGetFile<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;</span><span class="hl kwd">filename</span><span class="hl opt">) }</span> <span class="hl kwb">&#64;toCopy</span><span class="hl opt">),</span> <span class="hl kwb">$postinstall_rpms</span><span class="hl opt">) };</span>

    <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;copying Auto Install Floppy&quot;</span><span class="hl opt">);</span>
    getAndSaveInstallFloppies<span class="hl opt">($::</span>o<span class="hl opt">,</span> <span class="hl kwb">$postinstall_rpms,</span> <span class="hl str">&apos;auto_install&apos;</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> clean_postinstall_rpms<span class="hl opt">() {</span>
    <span class="hl kwb">$postinstall_rpms</span> <span class="hl kwc">and</span> <span class="hl opt">-</span>d <span class="hl kwb">$postinstall_rpms</span> <span class="hl kwc">and</span> rm_rf<span class="hl opt">(</span><span class="hl kwb">$postinstall_rpms</span><span class="hl opt">);</span>
<span class="hl opt">}</span>


<span class="hl slc">#-######################################################################################</span>
<span class="hl slc">#- Functions</span>
<span class="hl slc">#-######################################################################################</span>
<span class="hl kwa">sub</span> getNextStep <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    find <span class="hl opt">{ !</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>steps<span class="hl opt">}{</span><span class="hl kwb">$_</span><span class="hl opt">}{</span>done<span class="hl opt">} &amp;&amp;</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>steps<span class="hl opt">}{</span><span class="hl kwb">$_</span><span class="hl opt">}{</span>reachable<span class="hl opt">} } &#64;{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>orderedSteps<span class="hl opt">}};</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> dont_run_directly_stage2<span class="hl opt">() {</span>
    <span class="hl kwc">readlink</span><span class="hl opt">(</span><span class="hl str">&quot;/usr/bin/runinstall2&quot;</span><span class="hl opt">)</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;runinstall2.sh&quot;</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> spawnShell<span class="hl opt">() {</span>
    <span class="hl kwa">return if</span> <span class="hl opt">$::</span>o-<span class="hl opt">&gt;{</span>localInstall<span class="hl opt">} || $::</span>testing <span class="hl opt">||</span> dont_run_directly_stage2<span class="hl opt">();</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$shellpid</span> <span class="hl opt">=</span> <span class="hl kwc">fork</span><span class="hl opt">()) {</span>
        output<span class="hl opt">(</span><span class="hl str">&apos;/var/run/drakx_shell.pid&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$shellpid</span><span class="hl opt">);</span>
        <span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl kwb">$ENV</span><span class="hl opt">{</span>DISPLAY<span class="hl opt">} ||=</span> <span class="hl str">&quot;:0&quot;</span><span class="hl opt">;</span> <span class="hl slc">#- why not :pp</span>

    <span class="hl kwc">local</span> <span class="hl opt">*</span>F<span class="hl opt">;</span>
    <span class="hl kwc">sysopen</span> F<span class="hl opt">,</span> <span class="hl str">&quot;/dev/tty2&quot;</span><span class="hl opt">,</span> <span class="hl num">2</span> <span class="hl kwc">or log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;cannot open /dev/tty2 -- no shell will be provided:</span> <span class="hl ipl">$!</span><span class="hl str">&quot;</span><span class="hl opt">),</span> <span class="hl kwa">goto</span> cant_spawn<span class="hl opt">;</span>

    <span class="hl kwc">open</span> STDIN<span class="hl opt">,</span> <span class="hl str">&quot;&lt;&amp;F&quot;</span> <span class="hl kwc">or</span> <span class="hl kwa">goto</span> cant_spawn<span class="hl opt">;</span>
    <span class="hl kwc">open</span> STDOUT<span class="hl opt">,</span> <span class="hl str">&quot;&gt;&amp;F&quot;</span> <span class="hl kwc">or</span> <span class="hl kwa">goto</span> cant_spawn<span class="hl opt">;</span>
    <span class="hl kwc">open</span> STDERR<span class="hl opt">,</span> <span class="hl str">&quot;&gt;&amp;F&quot;</span> <span class="hl kwc">or</span> <span class="hl kwa">goto</span> cant_spawn<span class="hl opt">;</span>
    <span class="hl kwc">close</span> F<span class="hl opt">;</span>

    <span class="hl kwc">print</span> drakx_version<span class="hl opt">(),</span> <span class="hl str">&quot;</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">;</span>

    c<span class="hl opt">::</span>setsid<span class="hl opt">();</span>

    <span class="hl kwc">ioctl</span><span class="hl opt">(</span>STDIN<span class="hl opt">,</span> c<span class="hl opt">::</span>TIOCSCTTY<span class="hl opt">(),</span> <span class="hl num">0</span><span class="hl opt">)</span> <span class="hl kwc">or warn</span> <span class="hl str">&quot;could not set new controlling tty:</span> <span class="hl ipl">$!</span><span class="hl str">&quot;</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">&#64;args</span><span class="hl opt">; -</span>e <span class="hl str">&apos;/etc/bashrc&apos;</span> <span class="hl kwc">and</span> <span class="hl kwb">&#64;args</span> <span class="hl opt">=</span> <span class="hl str">qw(--rcfile /etc/bashrc)</span><span class="hl opt">;</span>
    <span class="hl kwa">foreach</span> <span class="hl opt">(</span><span class="hl str">qw(/bin/bash /usr/bin/busybox /bin/sh)</span><span class="hl opt">) {</span>
        <span class="hl opt">-</span>x <span class="hl kwb">$_</span> <span class="hl kwc">or</span> <span class="hl kwa">next</span><span class="hl opt">;</span>
        <span class="hl kwc">my</span> <span class="hl kwb">$program_name</span> <span class="hl opt">=</span> <span class="hl kwd">/busybox/</span> ? <span class="hl str">&quot;/bin/sh&quot;</span> <span class="hl opt">:</span> <span class="hl kwb">$_</span><span class="hl opt">;</span>  <span class="hl slc">#- since perl_checker is too dumb</span>
        <span class="hl kwc">exec</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span> <span class="hl opt">}</span> <span class="hl kwb">$program_name, &#64;args</span> <span class="hl kwc">or log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;exec of</span> <span class="hl ipl">$_</span> <span class="hl str">failed:</span> <span class="hl ipl">$!</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>

    <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;cannot open any shell&quot;</span><span class="hl opt">);</span>
cant_spawn<span class="hl opt">:</span>
    c<span class="hl opt">::</span>_exit<span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> getAvailableSpace <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl slc">#- make sure of this place to be available for installation, this could help a lot.</span>
    <span class="hl slc">#- currently doing a very small install use 36Mb of postinstall-rpm, but installing</span>
    <span class="hl slc">#- these packages may eat up to 90Mb (of course not all the server may be installed!).</span>
    <span class="hl slc">#- 65mb may be a good choice to avoid almost all problem of insuficient space left...</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$minAvailableSize</span> <span class="hl opt">=</span> <span class="hl num">65</span> <span class="hl opt">*</span> sqr<span class="hl opt">(</span><span class="hl num">1024</span><span class="hl opt">);</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$n</span> <span class="hl opt">= !$::</span>testing <span class="hl opt">&amp;&amp;</span> getAvailableSpace_mounted<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>prefix<span class="hl opt">}) ||</span> 
            getAvailableSpace_raw<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>fstab<span class="hl opt">}) *</span> <span class="hl num">512</span> <span class="hl opt">/</span> <span class="hl num">1.07</span><span class="hl opt">;</span>
    <span class="hl kwb">$n</span> <span class="hl opt">-</span> max<span class="hl opt">(</span><span class="hl num">0.1</span> <span class="hl opt">*</span> <span class="hl kwb">$n, $minAvailableSize</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> getAvailableSpace_mounted <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$prefix</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$dir</span> <span class="hl opt">= -</span>d <span class="hl str">&quot;</span><span class="hl ipl">$prefix/usr</span><span class="hl str">&quot;</span> ? <span class="hl str">&quot;</span><span class="hl ipl">$prefix/usr</span><span class="hl str">&quot;</span> <span class="hl opt">:</span> <span class="hl kwb">$prefix</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl kwb">$free</span><span class="hl opt">) =</span> MDK<span class="hl opt">::</span>Common<span class="hl opt">::</span>System<span class="hl opt">::</span>df<span class="hl opt">(</span><span class="hl kwb">$dir</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;getAvailableSpace_mounted</span> <span class="hl ipl">$free</span> <span class="hl str">KB&quot;</span><span class="hl opt">);</span>
    <span class="hl kwb">$free</span> <span class="hl opt">*</span> <span class="hl num">1024</span> <span class="hl opt">||</span> <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> getAvailableSpace_raw <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$fstab</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwa">do</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>mntpoint<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;/usr&apos;</span> <span class="hl kwc">and</span> <span class="hl kwa">return</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>size<span class="hl opt">} }</span> <span class="hl kwa">foreach</span> <span class="hl kwb">&#64;$fstab</span><span class="hl opt">;</span>
    <span class="hl kwa">do</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>mntpoint<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;/&apos;</span>    <span class="hl kwc">and</span> <span class="hl kwa">return</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>size<span class="hl opt">} }</span> <span class="hl kwa">foreach</span> <span class="hl kwb">&#64;$fstab</span><span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">($::</span>testing<span class="hl opt">) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$nb</span> <span class="hl opt">=</span> <span class="hl num">450</span><span class="hl opt">;</span>
	<span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;taking ${nb}MB for testing&quot;</span><span class="hl opt">);</span>
	<span class="hl kwa">return</span> <span class="hl kwb">$nb</span> <span class="hl opt">&lt;&lt;</span> <span class="hl num">11</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl kwc">die</span> <span class="hl str">&quot;missing root partition&quot;</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> preConfigureTimezone <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwa">require</span> timezone<span class="hl opt">;</span>
   
    <span class="hl slc">#- can not be done in install cuz&apos; timeconfig %post creates funny things</span>
    add2hash<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>timezone<span class="hl opt">},</span> timezone<span class="hl opt">::</span><span class="hl kwc">read</span><span class="hl opt">())</span> <span class="hl kwa">if</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>isUpgrade<span class="hl opt">};</span>

    <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>timezone<span class="hl opt">}{</span>timezone<span class="hl opt">} ||=</span> timezone<span class="hl opt">::</span>bestTimezone<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>locale<span class="hl opt">}{</span>country<span class="hl opt">});</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$utc</span> <span class="hl opt">=</span> every <span class="hl opt">{ !</span>isFat_or_NTFS<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">) } &#64;{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>fstab<span class="hl opt">}};</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$ntp</span> <span class="hl opt">=</span> timezone<span class="hl opt">::</span>ntp_server<span class="hl opt">();</span>
    add2hash_<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>timezone<span class="hl opt">}, {</span> UTC <span class="hl opt">=&gt;</span> <span class="hl kwb">$utc,</span> ntp <span class="hl opt">=&gt;</span> <span class="hl kwb">$ntp</span> <span class="hl opt">});</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> ask_if_suppl_media <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">our</span> <span class="hl kwb">$suppl_already_asked</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$msg</span> <span class="hl opt">=</span> <span class="hl kwb">$suppl_already_asked</span>
      ? N<span class="hl opt">(</span><span class="hl str">&quot;Do you have further supplementary media?&quot;</span><span class="hl opt">)</span>
      <span class="hl opt">:</span> formatAlaTeX<span class="hl opt">(</span>
<span class="hl slc">#-PO: keep the double empty lines between sections, this is formatted a la LaTeX</span>
	    N<span class="hl opt">(</span><span class="hl str">&quot;The following media have been found and will be used during install:</span> <span class="hl ipl">%s</span><span class="hl str">.</span>
<span class="hl str"></span>
<span class="hl str"></span>
<span class="hl str">Do you have a supplementary installation media to configure?&quot;</span><span class="hl opt">,</span>
	    <span class="hl kwc">join</span> <span class="hl str">&quot;, &quot;</span><span class="hl opt">,</span> <span class="hl kwc">sort</span> uniq<span class="hl opt">(</span><span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>descr<span class="hl opt">} }</span> <span class="hl kwc">values</span> <span class="hl opt">%{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">}{</span>mediums<span class="hl opt">}})));</span>
    <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from</span><span class="hl opt">(</span>
	<span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$msg,</span>
	<span class="hl opt">[ {</span>
	    val <span class="hl opt">=&gt;</span> \<span class="hl kwc">my</span> <span class="hl kwb">$suppl,</span>
	    list <span class="hl opt">=&gt; [</span> N_<span class="hl opt">(</span><span class="hl str">&quot;None&quot;</span><span class="hl opt">),</span> N_<span class="hl opt">(</span><span class="hl str">&quot;CD-ROM&quot;</span><span class="hl opt">),</span> N_<span class="hl opt">(</span><span class="hl str">&quot;Network (http)&quot;</span><span class="hl opt">),</span> N_<span class="hl opt">(</span><span class="hl str">&quot;Network (ftp)&quot;</span><span class="hl opt">) ],</span>
	    type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;list&apos;</span><span class="hl opt">,</span>
	    format <span class="hl opt">=&gt;</span> \<span class="hl opt">&amp;</span>translate<span class="hl opt">,</span>
	<span class="hl opt">} ],</span>
    <span class="hl opt">);</span>
    <span class="hl kwb">$suppl_already_asked</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl kwa">return</span> <span class="hl kwb">$suppl</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl slc">#- if the supplementary media is networked, but not the main one, network</span>
<span class="hl slc">#- support must be installed and network started.</span>
<span class="hl kwa">sub</span> prep_net_suppl_media <span class="hl opt">{</span>
    <span class="hl kwa">return if</span> <span class="hl kwc">our</span> <span class="hl kwb">$net_suppl_media_configured</span><span class="hl opt">;</span>
    <span class="hl kwb">$net_suppl_media_configured</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl slc">#- install basesystem now</span>
    <span class="hl opt">$::</span>o-<span class="hl opt">&gt;</span><span class="hl kwd">do_pkgs</span><span class="hl opt">-&gt;</span><span class="hl kwd">ensure_is_installed</span><span class="hl opt">(</span><span class="hl str">&apos;basesystem&apos;</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl num">1</span><span class="hl opt">);</span>
    <span class="hl slc">#- from install_steps_interactive:</span>
    <span class="hl kwc">local</span> <span class="hl opt">$::</span>expert <span class="hl opt">= $::</span>expert<span class="hl opt">;</span>
    <span class="hl kwa">require</span> network<span class="hl opt">::</span>netconnect<span class="hl opt">;</span>
    network<span class="hl opt">::</span>netconnect<span class="hl opt">::</span>main<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>netcnx<span class="hl opt">} ||= {},</span> <span class="hl kwb">$o, $o</span><span class="hl opt">-&gt;{</span>modules_conf<span class="hl opt">},</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>netc<span class="hl opt">},</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>mouse<span class="hl opt">},</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>intf<span class="hl opt">},</span> <span class="hl num">0</span><span class="hl opt">,</span> <span class="hl num">1</span><span class="hl opt">);</span>
    <span class="hl kwa">require</span> install_interactive<span class="hl opt">;</span>
    install_interactive<span class="hl opt">::</span>upNetwork<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">);</span>
    <span class="hl kwc">sleep</span><span class="hl opt">(</span><span class="hl num">3</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> selectSupplMedia <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o, $suppl_method</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl slc">#- ask whether there are supplementary media</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$prev_asked_medium</span> <span class="hl opt">=</span> <span class="hl kwb">$asked_medium</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$suppl_method</span> <span class="hl opt">&amp;&amp; (</span><span class="hl kwc">my</span> <span class="hl kwb">$suppl</span> <span class="hl opt">=</span> ask_if_suppl_media<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">))</span> <span class="hl kwc">ne</span> <span class="hl str">&apos;None&apos;</span><span class="hl opt">) {</span>
	<span class="hl slc">#- translate to method name</span>
	<span class="hl kwb">$suppl_method</span> <span class="hl opt">= {</span>
	    <span class="hl str">&apos;CD-ROM&apos;</span> <span class="hl opt">=&gt;</span> <span class="hl str">&apos;cdrom&apos;</span><span class="hl opt">,</span>
	    <span class="hl str">&apos;Network (http)&apos;</span> <span class="hl opt">=&gt;</span> <span class="hl str">&apos;http&apos;</span><span class="hl opt">,</span>
	    <span class="hl str">&apos;Network (ftp)&apos;</span> <span class="hl opt">=&gt;</span> <span class="hl str">&apos;ftp&apos;</span><span class="hl opt">,</span>
	<span class="hl opt">}-&gt;{</span><span class="hl kwb">$suppl</span><span class="hl opt">};</span>
	<span class="hl slc">#- by convention, the media names for suppl. CDs match /^\d+s$/</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$medium_name</span> <span class="hl opt">=</span> <span class="hl kwb">$suppl_method</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;cdrom&apos;</span>
	    ? <span class="hl opt">(</span>max<span class="hl opt">(</span><span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>medium<span class="hl opt">} =~</span> <span class="hl kwd">/^(\d+)s$/</span> ? <span class="hl kwb">$1</span> <span class="hl opt">:</span> <span class="hl num">0</span> <span class="hl opt">}</span> <span class="hl kwc">values</span> <span class="hl opt">%{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">}{</span>mediums<span class="hl opt">}}) +</span> <span class="hl num">1</span><span class="hl opt">) .</span> <span class="hl str">&quot;s&quot;</span>
	    <span class="hl opt">:</span> <span class="hl kwc">int</span><span class="hl opt">(</span><span class="hl kwc">keys</span> <span class="hl opt">%{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">}{</span>mediums<span class="hl opt">}}) +</span> <span class="hl num">1</span><span class="hl opt">;</span>
	<span class="hl slc">#- configure network if needed</span>
	prep_net_suppl_media<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl opt">!</span><span class="hl kwc">scalar keys</span> <span class="hl opt">%{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>intf<span class="hl opt">}} &amp;&amp;</span> <span class="hl kwb">$suppl_method</span> <span class="hl opt">!~</span> <span class="hl kwd">/^(?:cdrom|disk)/</span><span class="hl opt">;</span>
	<span class="hl kwc">local</span> <span class="hl opt">$::</span>isWizard <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$main_method</span> <span class="hl opt">=</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span><span class="hl kwa">method</span><span class="hl opt">};</span>
	<span class="hl kwc">local</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span><span class="hl kwa">method</span><span class="hl opt">} =</span> <span class="hl kwb">$suppl_method</span><span class="hl opt">;</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$suppl_method</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;cdrom&apos;</span><span class="hl opt">) {</span>
	    <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$cdromdev</span><span class="hl opt">) =</span> detect_devices<span class="hl opt">::</span>cdroms<span class="hl opt">();</span>
	    <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;No device found&quot;</span><span class="hl opt">)),</span> <span class="hl kwa">return</span> <span class="hl str">&apos;error&apos;</span> <span class="hl kwa">if</span> <span class="hl opt">!</span><span class="hl kwb">$cdromdev</span><span class="hl opt">;</span>
	    <span class="hl kwb">$cdrom</span> <span class="hl opt">=</span> <span class="hl kwb">$cdromdev</span><span class="hl opt">-&gt;{</span>device<span class="hl opt">};</span>
	    devices<span class="hl opt">::</span>make<span class="hl opt">(</span><span class="hl kwb">$cdrom</span><span class="hl opt">);</span>
	    ejectCdrom<span class="hl opt">(</span><span class="hl kwb">$cdrom</span><span class="hl opt">);</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_okcancel</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;Insert the CD&quot;</span><span class="hl opt">),</span> <span class="hl num">1</span><span class="hl opt">)) {</span>
		<span class="hl slc">#- mount suppl CD in /mnt/cdrom to avoid umounting /tmp/image</span>
		mountCdrom<span class="hl opt">(</span><span class="hl str">&quot;/mnt/cdrom&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$cdrom</span><span class="hl opt">);</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$&#64;</span><span class="hl opt">) {</span>
		    <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl kwb">$&#64;</span><span class="hl opt">);</span>
		    <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;Unable to mount CD-ROM&quot;</span><span class="hl opt">));</span>
		    <span class="hl kwa">return</span> <span class="hl str">&apos;error&apos;</span><span class="hl opt">;</span>
		<span class="hl opt">}</span>
		useMedium<span class="hl opt">(</span><span class="hl kwb">$medium_name</span><span class="hl opt">);</span>

		<span class="hl slc">#- probe for an hdlists file and then look for all hdlists listed herein</span>
		<span class="hl kwc">eval</span> <span class="hl opt">{</span> pkgs<span class="hl opt">::</span>psUsingHdlists<span class="hl opt">(</span><span class="hl kwb">$o, $suppl_method,</span> <span class="hl str">&quot;/mnt/cdrom&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">},</span> <span class="hl kwb">$medium_name</span><span class="hl opt">) };</span>
		<span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;psUsingHdlists failed:</span> <span class="hl ipl">$&#64;</span><span class="hl str">&quot;</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl kwb">$&#64;</span><span class="hl opt">;</span>

		<span class="hl slc">#- copy latest compssUsers.pl and rpmsrate somewhere locally</span>
		getAndSaveFile<span class="hl opt">(</span><span class="hl str">&quot;/mnt/cdrom/media/media_info/compssUsers.pl&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;/tmp/compssUsers.pl&quot;</span><span class="hl opt">);</span>
		getAndSaveFile<span class="hl opt">(</span><span class="hl str">&quot;/mnt/cdrom/media/media_info/rpmsrate&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;/tmp/rpmsrate&quot;</span><span class="hl opt">);</span>

		<span class="hl slc">#- umount supplementary CD. Will re-ask for it later</span>
		getFile<span class="hl opt">(</span><span class="hl str">&quot;XXX&quot;</span><span class="hl opt">);</span> <span class="hl slc">#- close still opened filehandles</span>
		<span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;Umounting suppl. CD, back to medium 1&quot;</span><span class="hl opt">);</span>
		<span class="hl kwc">eval</span> <span class="hl opt">{</span> fs<span class="hl opt">::</span>umount<span class="hl opt">(</span><span class="hl str">&quot;/mnt/cdrom&quot;</span><span class="hl opt">) };</span>
		<span class="hl slc">#- re-mount CD 1 if this was a cdrom install</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$main_method</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;cdrom&apos;</span><span class="hl opt">) {</span>
		    <span class="hl kwc">eval</span> <span class="hl opt">{</span> 
			<span class="hl kwc">my</span> <span class="hl kwb">$dev</span> <span class="hl opt">=</span> detect_devices<span class="hl opt">::</span>tryOpen<span class="hl opt">(</span><span class="hl kwb">$cdrom</span><span class="hl opt">);</span>	    
			<span class="hl kwc">ioctl</span><span class="hl opt">(</span><span class="hl kwb">$dev,</span> c<span class="hl opt">::</span>CDROMEJECT<span class="hl opt">(),</span> <span class="hl num">1</span><span class="hl opt">);</span>
		    <span class="hl opt">};</span>
		    <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;Insert the CD 1 again&quot;</span><span class="hl opt">));</span>
		    mountCdrom<span class="hl opt">(</span><span class="hl str">&quot;/tmp/image&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$cdrom</span><span class="hl opt">);</span>
		    <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl kwb">$&#64;</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl kwb">$&#64;</span><span class="hl opt">;</span>
		    <span class="hl kwb">$asked_medium</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
		<span class="hl opt">}</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$url</span><span class="hl opt">;</span>
	    <span class="hl kwc">local</span> <span class="hl kwb">$global_ftp_prefix</span><span class="hl opt">;</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$suppl_method</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;ftp&apos;</span><span class="hl opt">) {</span> <span class="hl slc">#- mirrors are ftp only (currently)</span>
		<span class="hl kwb">$url</span> <span class="hl opt">=</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">askSupplMirror</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;URL of the mirror?&quot;</span><span class="hl opt">))</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span> <span class="hl str">&apos;error&apos;</span><span class="hl opt">;</span>
		<span class="hl kwb">$url</span> <span class="hl opt">=~</span> <span class="hl kwd">m!^ftp://(?:(.*?)(?::(.*?))?\&#64;)?([^/]+)/(.*)!</span>
		    <span class="hl kwc">and</span> <span class="hl kwb">$global_ftp_prefix</span> <span class="hl opt">= [</span> <span class="hl kwb">$3, $4, $1, $2</span> <span class="hl opt">];</span> <span class="hl slc">#- for getFile</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		<span class="hl kwb">$url</span> <span class="hl opt">=</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_entry</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;URL of the mirror?&quot;</span><span class="hl opt">))</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span> <span class="hl str">&apos;error&apos;</span><span class="hl opt">;</span>
		<span class="hl kwb">$url</span> <span class="hl opt">=~</span> <span class="hl kwd">s!/+\z!!</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	    useMedium<span class="hl opt">(</span><span class="hl kwb">$medium_name</span><span class="hl opt">);</span>
	    <span class="hl kwa">require</span> http <span class="hl kwa">if</span> <span class="hl kwb">$suppl_method</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;http&apos;</span><span class="hl opt">;</span>
	    <span class="hl kwa">require</span> ftp <span class="hl kwa">if</span> <span class="hl kwb">$suppl_method</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;ftp&apos;</span><span class="hl opt">;</span>
	    <span class="hl slc">#- first, try to find an hdlists file</span>
	    <span class="hl kwc">eval</span> <span class="hl opt">{</span> pkgs<span class="hl opt">::</span>psUsingHdlists<span class="hl opt">(</span><span class="hl kwb">$o, $suppl_method, $url, $o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">},</span> <span class="hl kwb">$medium_name,</span> \<span class="hl opt">&amp;</span>setup_suppl_medium<span class="hl opt">) };</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$&#64;</span><span class="hl opt">) {</span>
		<span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;psUsingHdlists failed:</span> <span class="hl ipl">$&#64;</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		<span class="hl slc">#- copy latest compssUsers.pl and rpmsrate somewhere locally</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$suppl_method</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;ftp&apos;</span><span class="hl opt">) {</span>
		    getAndSaveFile<span class="hl opt">(</span><span class="hl str">&quot;media/media_info/compssUsers.pl&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;/tmp/compssUsers.pl&quot;</span><span class="hl opt">);</span>
		    getAndSaveFile<span class="hl opt">(</span><span class="hl str">&quot;media/media_info/rpmsrate&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;/tmp/rpmsrate&quot;</span><span class="hl opt">);</span>
		<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		    getAndSaveFile<span class="hl opt">(</span><span class="hl str">&quot;</span><span class="hl ipl">$url/media/media_info/compssUsers</span><span class="hl str">.pl&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;/tmp/compssUsers.pl&quot;</span><span class="hl opt">);</span>
		    getAndSaveFile<span class="hl opt">(</span><span class="hl str">&quot;</span><span class="hl ipl">$url/media/media_info/rpmsrate</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;/tmp/rpmsrate&quot;</span><span class="hl opt">);</span>
		<span class="hl opt">}</span>
		useMedium<span class="hl opt">(</span><span class="hl kwb">$prev_asked_medium</span><span class="hl opt">);</span> <span class="hl slc">#- back to main medium</span>
		<span class="hl kwa">return</span> <span class="hl kwb">$suppl_method</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	    <span class="hl slc">#- then probe for an hdlist.cz</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$f</span> <span class="hl opt">=</span> <span class="hl kwc">eval</span> <span class="hl opt">{</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$suppl_method</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;http&apos;</span><span class="hl opt">) {</span>
		    http<span class="hl opt">::</span>getFile<span class="hl opt">(</span><span class="hl str">&quot;</span><span class="hl ipl">$url/media_info/hdlist</span><span class="hl str">.cz&quot;</span><span class="hl opt">);</span>
		<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$suppl_method</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;ftp&apos;</span><span class="hl opt">) {</span>
		    getFile<span class="hl opt">(</span><span class="hl str">&quot;media_info/hdlist.cz&quot;</span><span class="hl opt">);</span>
		<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span> <span class="hl kwc">undef</span> <span class="hl opt">}</span>
	    <span class="hl opt">};</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwc">defined</span> <span class="hl kwb">$f</span><span class="hl opt">) {</span>
		<span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl kwb">$&#64;</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl kwb">$&#64;</span><span class="hl opt">;</span>
		<span class="hl slc">#- no hdlist found</span>
		<span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;Can&apos;t find a package list file on this mirror. Make sure the location is correct.&quot;</span><span class="hl opt">));</span>
		useMedium<span class="hl opt">(</span><span class="hl kwb">$prev_asked_medium</span><span class="hl opt">);</span>
		<span class="hl kwa">return</span> <span class="hl str">&apos;error&apos;</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$supplmedium</span> <span class="hl opt">=</span> pkgs<span class="hl opt">::</span>psUsingHdlist<span class="hl opt">(</span>
		<span class="hl kwb">$suppl_method,</span>
		<span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">},</span>
		<span class="hl str">&quot;hdlist</span><span class="hl ipl">$medium_name</span><span class="hl str">.cz&quot;</span><span class="hl opt">,</span> <span class="hl slc">#- hdlist</span>
		<span class="hl kwb">$medium_name,</span>
		<span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> <span class="hl slc">#- rpmsdir</span>
		<span class="hl str">&quot;Supplementary media</span> <span class="hl ipl">$medium_name</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl slc">#- description</span>
		<span class="hl num">1</span><span class="hl opt">,</span> <span class="hl slc"># selected</span>
		<span class="hl kwb">$f,</span>
	    <span class="hl opt">);</span>
	    <span class="hl kwc">close</span> <span class="hl kwb">$f</span><span class="hl opt">;</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$supplmedium</span><span class="hl opt">) {</span>
		<span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;read suppl hdlist (via</span> <span class="hl ipl">$suppl_method</span><span class="hl str">)&quot;</span><span class="hl opt">);</span>
		setup_suppl_medium<span class="hl opt">(</span><span class="hl kwb">$supplmedium, $url, $suppl_method</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		<span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;no suppl hdlist&quot;</span><span class="hl opt">);</span>
		<span class="hl kwb">$suppl_method</span> <span class="hl opt">=</span> <span class="hl str">&apos;error&apos;</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl kwb">$suppl_method</span> <span class="hl opt">=</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    useMedium<span class="hl opt">(</span><span class="hl kwb">$prev_asked_medium</span><span class="hl opt">);</span> <span class="hl slc">#- back to main medium</span>
    <span class="hl kwa">return</span> <span class="hl kwb">$suppl_method</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> setup_suppl_medium <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$supplmedium, $url, $suppl_method</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwb">$supplmedium</span><span class="hl opt">-&gt;{</span>prefix<span class="hl opt">} =</span> <span class="hl kwb">$url</span><span class="hl opt">;</span> <span class="hl slc">#- for install_urpmi</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$suppl_method</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;ftp&apos;</span><span class="hl opt">) {</span>
	<span class="hl kwb">$url</span> <span class="hl opt">=~</span> <span class="hl kwd">m!^ftp://(?:(.*?)(?::(.*?))?\&#64;)?([^/]+)/(.*)!</span>
	    <span class="hl kwc">and</span> <span class="hl kwb">$supplmedium</span><span class="hl opt">-&gt;{</span>ftp_prefix<span class="hl opt">} = [</span> <span class="hl kwb">$3, $4, $1, $2</span> <span class="hl opt">];</span> <span class="hl slc">#- for getFile</span>
    <span class="hl opt">}</span>
    <span class="hl kwb">$supplmedium</span><span class="hl opt">-&gt;{</span>selected<span class="hl opt">} =</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl kwb">$supplmedium</span><span class="hl opt">-&gt;{</span><span class="hl kwa">method</span><span class="hl opt">} =</span> <span class="hl kwb">$suppl_method</span><span class="hl opt">;</span>
    <span class="hl kwb">$supplmedium</span><span class="hl opt">-&gt;{</span>with_hdlist<span class="hl opt">} =</span> <span class="hl str">&apos;media_info/hdlist.cz&apos;</span><span class="hl opt">;</span> <span class="hl slc">#- for install_urpmi</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> _media_rank <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$x</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$y, $s</span><span class="hl opt">) =</span> <span class="hl kwb">$x</span> <span class="hl opt">=~</span> <span class="hl kwd">/(\d+)(s?)\)\.cz/</span><span class="hl opt">;</span>
    <span class="hl kwb">$s</span> <span class="hl kwc">and</span> <span class="hl kwb">$y</span> <span class="hl opt">+=</span> <span class="hl num">100</span><span class="hl opt">;</span>
    <span class="hl kwb">$y</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> load_rate_files <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl slc">#- must be done after getProvides</span>
    <span class="hl slc">#- if there is a supplementary media, the rpmsrate/compssUsers are overridable</span>
    pkgs<span class="hl opt">::</span>read_rpmsrate<span class="hl opt">(</span>
	<span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">},</span>
	<span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>rpmsrate_flags_chosen<span class="hl opt">},</span>
	getFile<span class="hl opt">(-</span>e <span class="hl str">&quot;/tmp/rpmsrate&quot;</span> ? <span class="hl str">&quot;/tmp/rpmsrate&quot;</span> <span class="hl opt">:</span> <span class="hl str">&quot;media/media_info/rpmsrate&quot;</span><span class="hl opt">)</span>
    <span class="hl opt">);</span>
    <span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>compssUsers<span class="hl opt">},</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>gtk_display_compssUsers<span class="hl opt">}) =</span> pkgs<span class="hl opt">::</span>readCompssUsers<span class="hl opt">(</span>
	<span class="hl opt">-</span>e <span class="hl str">&apos;/tmp/compssUsers.pl&apos;</span> ? <span class="hl str">&apos;/tmp/compssUsers.pl&apos;</span> <span class="hl opt">:</span> <span class="hl str">&apos;media/media_info/compssUsers.pl&apos;</span>
    <span class="hl opt">);</span>
    <span class="hl kwc">defined</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>compssUsers<span class="hl opt">}</span> <span class="hl kwc">or die</span> <span class="hl str">&quot;Can&apos;t read compssUsers.pl file, aborting installation</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> setPackages <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o, $rebuild_needed</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwa">require</span> pkgs<span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">} ||</span> is_empty_array_ref<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">}{</span>depslist<span class="hl opt">})) {</span>
	<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">},</span> <span class="hl kwc">my</span> <span class="hl kwb">$suppl_method,</span> <span class="hl kwc">my</span> <span class="hl kwb">$copy_rpms_on_disk</span><span class="hl opt">) =</span> pkgs<span class="hl opt">::</span>psUsingHdlists<span class="hl opt">(</span><span class="hl kwb">$o, $o</span><span class="hl opt">-&gt;{</span><span class="hl kwa">method</span><span class="hl opt">});</span>

	<span class="hl num">1</span> <span class="hl kwa">while</span> <span class="hl kwb">$suppl_method</span> <span class="hl opt">=</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">selectSupplMedia</span><span class="hl opt">(</span><span class="hl kwb">$suppl_method</span><span class="hl opt">);</span>

	<span class="hl slc">#- open rpm db according to right mode needed.</span>
	<span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">}{</span>rpmdb<span class="hl opt">} ||=</span> pkgs<span class="hl opt">::</span>rpmDbOpen<span class="hl opt">(</span><span class="hl kwb">$rebuild_needed</span><span class="hl opt">);</span>

	<span class="hl slc">#- always try to select basic kernel (else on upgrade, kernel will never be updated provided a kernel is already</span>
	<span class="hl slc">#- installed and provides what is necessary).</span>
	pkgs<span class="hl opt">::</span>selectPackage<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">},</span>
			    pkgs<span class="hl opt">::</span>bestKernelPackage<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">}) ||</span> <span class="hl kwc">die</span><span class="hl opt">(</span><span class="hl str">&quot;missing kernel package&quot;</span><span class="hl opt">),</span> <span class="hl num">1</span><span class="hl opt">);</span>

	pkgs<span class="hl opt">::</span>selectPackage<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">},</span>
			    pkgs<span class="hl opt">::</span>packageByName<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">},</span> <span class="hl str">&apos;basesystem&apos;</span><span class="hl opt">) ||</span> <span class="hl kwc">die</span><span class="hl opt">(</span><span class="hl str">&quot;missing basesystem package&quot;</span><span class="hl opt">),</span> <span class="hl num">1</span><span class="hl opt">);</span>

	<span class="hl kwc">my</span> <span class="hl kwb">$rpmsrate_flags_was_chosen</span> <span class="hl opt">=</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>rpmsrate_flags_chosen<span class="hl opt">};</span>

	put_in_hash<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>rpmsrate_flags_chosen<span class="hl opt">} ||= {},</span> rpmsrate_always_flags<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">));</span> <span class="hl slc">#- must be done before pkgs::read_rpmsrate()</span>
	load_rate_files<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">);</span>

	copy_rpms_on_disk<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl kwb">$copy_rpms_on_disk</span><span class="hl opt">;</span>

	set_rpmsrate_default_category_flags<span class="hl opt">(</span><span class="hl kwb">$o, $rpmsrate_flags_was_chosen</span><span class="hl opt">);</span>

	<span class="hl kwc">push</span> <span class="hl opt">&#64;{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>default_packages<span class="hl opt">}},</span> default_packages<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">);</span>
	select_default_packages<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">);</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl slc">#- this has to be done to make sure necessary files for urpmi are</span>
	<span class="hl slc">#- present.</span>
	pkgs<span class="hl opt">::</span>psUpdateHdlistsDeps<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">});</span>

	<span class="hl slc">#- open rpm db (always without rebuilding db, it should be false at this point).</span>
	<span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">}{</span>rpmdb<span class="hl opt">} ||=</span> pkgs<span class="hl opt">::</span>rpmDbOpen<span class="hl opt">();</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> copy_rpms_on_disk <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">mkdir</span> <span class="hl str">&quot;</span><span class="hl ipl">$o</span><span class="hl str">-&gt;{prefix}/</span><span class="hl ipl">$_</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl num">0755</span> <span class="hl kwa">foreach</span> <span class="hl str">qw(var var/ftp var/ftp/pub var/ftp/pub/Mandrakelinux var/ftp/pub/Mandrakelinux/media)</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$wait_w</span><span class="hl opt">;</span>
    <span class="hl kwc">local</span> <span class="hl opt">*</span>changeMedium <span class="hl opt">=</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
	<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$method, $medium</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$name</span> <span class="hl opt">=</span> pkgs<span class="hl opt">::</span>mediumDescr<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">},</span> <span class="hl kwb">$medium</span><span class="hl opt">);</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span>method_allows_medium_change<span class="hl opt">(</span><span class="hl kwb">$method</span><span class="hl opt">)) {</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$r</span><span class="hl opt">;</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$method</span> <span class="hl opt">=~</span> <span class="hl kwd">/-iso$/</span><span class="hl opt">) {</span>
		<span class="hl kwb">$r</span> <span class="hl opt">=</span> install_any<span class="hl opt">::</span>changeIso<span class="hl opt">(</span><span class="hl kwb">$name</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		cat_<span class="hl opt">(</span><span class="hl str">&quot;/proc/mounts&quot;</span><span class="hl opt">) =~</span> m<span class="hl opt">,(</span><span class="hl kwd">/dev/</span>\S<span class="hl opt">+)</span>\s<span class="hl opt">+(</span><span class="hl kwd">/mnt/cd</span>rom<span class="hl opt">|</span><span class="hl kwd">/tmp/imag</span>e<span class="hl opt">),</span>
		    <span class="hl kwc">and</span> <span class="hl opt">(</span><span class="hl kwb">$cdrom,</span> <span class="hl kwc">my</span> <span class="hl kwb">$mountpoint</span><span class="hl opt">) = (</span><span class="hl kwb">$1, $2</span><span class="hl opt">);</span>
		ejectCdrom<span class="hl opt">(</span><span class="hl kwb">$cdrom, $mountpoint</span><span class="hl opt">);</span>
		<span class="hl kwc">undef</span> <span class="hl kwb">$wait_w</span><span class="hl opt">;</span>
		<span class="hl kwb">$r</span> <span class="hl opt">=</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_okcancel</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;Change your Cd-Rom!</span>
<span class="hl str">Please insert the Cd-Rom labelled</span> <span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s\</span><span class="hl str">&quot;</span> <span class="hl kwa">in</span> your drive <span class="hl kwc">and</span> press Ok <span class="hl kwa">when</span> done<span class="hl opt">.</span><span class="hl str">&quot;,</span> <span class="hl ipl">$name</span><span class="hl str">), 1);</span>
<span class="hl str"></span>		<span class="hl ipl">$wait_w</span> <span class="hl str">=</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;wait_message(N(&quot;</span>Please <span class="hl kwc">wait</span><span class="hl str">&quot;), N(&quot;</span>Copying <span class="hl kwa">in</span> progress<span class="hl str">&quot;));</span>
<span class="hl str">	    }</span>
<span class="hl str">	    return</span> <span class="hl ipl">$r</span><span class="hl str">;</span>
<span class="hl str">	} else {</span>
<span class="hl str">	    return 1;</span>
<span class="hl str">	}</span>
<span class="hl str">    };</span>
<span class="hl str">    my</span> <span class="hl ipl">$total</span> <span class="hl str">=</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;{mediumsize};</span>
<span class="hl str">    log::l(&quot;</span>totalsize<span class="hl opt">=</span><span class="hl kwb">$total</span><span class="hl str">&quot;);</span>
<span class="hl str">    my</span> <span class="hl ipl">$pid</span><span class="hl str">;</span>
<span class="hl str">    #- will we show a progress bar?</span>
<span class="hl str">    my</span> <span class="hl ipl">$copy_has_progress_bar</span> <span class="hl str">= !method_allows_medium_change(</span><span class="hl ipl">$o</span><span class="hl str">-&gt;{method}) ||</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;{method} =~ /-iso</span><span class="hl ipl">$/</span><span class="hl str">;</span>
<span class="hl str">    if (</span><span class="hl ipl">$copy_has_progress_bar</span><span class="hl str">) {</span>
<span class="hl str">	#- display the progress bar only for non-cdrom installation methods</span>
<span class="hl str"></span>	<span class="hl ipl">$pid</span> <span class="hl str">= fork();</span>
<span class="hl str">	if (!</span><span class="hl ipl">$pid</span> <span class="hl str">&amp;&amp; defined</span> <span class="hl ipl">$pid</span><span class="hl str">) { #- child</span>
<span class="hl str">	    (</span><span class="hl ipl">$wait_w,</span> <span class="hl str">my</span> <span class="hl ipl">$wait_message</span><span class="hl str">) = fs::format::wait_message(</span><span class="hl ipl">$o</span><span class="hl str">); #- nb, this is only called when interactive</span>
<span class="hl str"></span>	    <span class="hl ipl">$wait_message</span><span class="hl str">-&gt;(N(&quot;</span>Copying <span class="hl kwa">in</span> progress<span class="hl str">&quot;));</span>
<span class="hl str">	    #- from commands.pm. TODO: factorize, possibly in MDK::Common.</span>
<span class="hl str">	    my</span> <span class="hl ipl">$f</span><span class="hl str">;</span> <span class="hl ipl">$f</span> <span class="hl str">= sub {</span>
<span class="hl str">		my (</span><span class="hl ipl">$e</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str">		my</span> <span class="hl ipl">$s</span> <span class="hl str">= (lstat(</span><span class="hl ipl">$e</span><span class="hl str">))[12];</span>
<span class="hl str"></span>		<span class="hl ipl">$s</span> <span class="hl str">+= sum(map { &amp;</span><span class="hl ipl">$f</span><span class="hl str">(</span><span class="hl ipl">$_</span><span class="hl str">) } glob_(&quot;</span><span class="hl kwb">$e/*</span><span class="hl str">&quot;)) if !-l _ &amp;&amp; -d _;</span>
<span class="hl str"></span>		<span class="hl ipl">$s</span><span class="hl str">;</span>
<span class="hl str">	    };</span>
<span class="hl str">	    while (1) {</span>
<span class="hl str">		my</span> <span class="hl ipl">$s</span> <span class="hl str">=</span> <span class="hl ipl">$f</span><span class="hl str">-&gt;(&quot;</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>prefix<span class="hl opt">}</span><span class="hl kwd">/var/</span>ftp<span class="hl kwd">/pub/</span>Mandrakelinux<span class="hl kwd">/media&quot;) /</span> <span class="hl num">1024</span><span class="hl opt">;</span>
		<span class="hl kwb">$wait_message</span><span class="hl opt">-&gt;(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$s, $total</span><span class="hl opt">);</span>
		<span class="hl kwc">sleep</span> <span class="hl num">1</span><span class="hl opt">;</span>
		<span class="hl kwa">last if</span> <span class="hl kwb">$s</span> <span class="hl opt">&gt;</span> <span class="hl kwb">$total</span> <span class="hl opt">-</span> <span class="hl num">100</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	    <span class="hl kwc">undef</span> <span class="hl kwb">$wait_w</span><span class="hl opt">;</span>
	    c<span class="hl opt">::</span>_exit<span class="hl opt">(</span><span class="hl num">0</span><span class="hl opt">);</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$k</span> <span class="hl opt">(</span>pkgs<span class="hl opt">::</span>allMediums<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">})) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$m</span> <span class="hl opt">=</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">}{</span>mediums<span class="hl opt">}{</span><span class="hl kwb">$k</span><span class="hl opt">};</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$k</span> <span class="hl opt">!=</span> <span class="hl kwb">$current_medium</span><span class="hl opt">) {</span>
	    <span class="hl kwa">do</span> <span class="hl opt">{</span>
		askChangeMedium<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span><span class="hl kwa">method</span><span class="hl opt">},</span> <span class="hl kwb">$k</span><span class="hl opt">)</span>
		    <span class="hl kwc">or</span> <span class="hl kwa">next</span><span class="hl opt">;</span>
		mountCdrom<span class="hl opt">(</span><span class="hl str">&quot;/tmp/image&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$cdrom</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span> <span class="hl kwa">while</span> <span class="hl opt">!-</span>d <span class="hl str">&quot;/tmp/image/</span><span class="hl ipl">$m</span><span class="hl str">-&gt;{rpmsdir}&quot;</span><span class="hl opt">;</span>
	    <span class="hl kwb">$current_medium</span> <span class="hl opt">=</span> <span class="hl kwb">$k</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
	<span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;copying /tmp/image/</span><span class="hl ipl">$m</span><span class="hl str">-&gt;{rpmsdir} to</span> <span class="hl ipl">$o</span><span class="hl str">-&gt;{prefix}/var/ftp/pub/Mandrakelinux/media&quot;</span><span class="hl opt">);</span>
	<span class="hl kwa">unless</span> <span class="hl opt">(</span><span class="hl kwb">$copy_has_progress_bar</span><span class="hl opt">) {</span> <span class="hl kwb">$wait_w</span> <span class="hl opt">=</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Please wait&quot;</span><span class="hl opt">),</span> N<span class="hl opt">(</span><span class="hl str">&quot;Copying in progress&quot;</span><span class="hl opt">)) }</span>
	<span class="hl kwc">eval</span> <span class="hl opt">{</span>
	    cp_af<span class="hl opt">(</span><span class="hl str">&quot;/tmp/image/</span><span class="hl ipl">$m</span><span class="hl str">-&gt;{rpmsdir}&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;</span><span class="hl ipl">$o</span><span class="hl str">-&gt;{prefix}/var/ftp/pub/Mandrakelinux/media&quot;</span><span class="hl opt">);</span>
	<span class="hl opt">};</span>
	<span class="hl kwc">undef</span> <span class="hl kwb">$wait_w</span><span class="hl opt">;</span>
	<span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl kwb">$&#64;</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl kwb">$&#64;</span><span class="hl opt">;</span>
	<span class="hl kwb">$m</span><span class="hl opt">-&gt;{</span>prefix<span class="hl opt">} =</span> <span class="hl str">&quot;</span><span class="hl ipl">$o</span><span class="hl str">-&gt;{prefix}/var/ftp/pub/Mandrakelinux&quot;</span><span class="hl opt">;</span>
	<span class="hl kwb">$m</span><span class="hl opt">-&gt;{</span><span class="hl kwa">method</span><span class="hl opt">} =</span> <span class="hl str">&apos;disk&apos;</span><span class="hl opt">;</span>
	<span class="hl kwb">$m</span><span class="hl opt">-&gt;{</span>with_hdlist<span class="hl opt">} =</span> <span class="hl str">&apos;media_info/hdlist.cz&apos;</span><span class="hl opt">;</span> <span class="hl slc">#- for install_urpmi</span>
    <span class="hl opt">}</span>
    <span class="hl kwc">kill</span> <span class="hl num">15</span><span class="hl opt">,</span> <span class="hl kwb">$pid</span> <span class="hl kwa">if</span> <span class="hl kwc">defined</span> <span class="hl kwb">$pid</span><span class="hl opt">;</span>
    ejectCdrom<span class="hl opt">()</span> <span class="hl kwa">if</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span><span class="hl kwa">method</span><span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;cdrom&quot;</span><span class="hl opt">;</span>
    <span class="hl slc">#- now the install will continue as &apos;disk&apos;</span>
    <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span><span class="hl kwa">method</span><span class="hl opt">} =</span> <span class="hl str">&apos;disk&apos;</span><span class="hl opt">;</span>
    <span class="hl slc">#- shoud be enough to fool errorOpeningFile</span>
    <span class="hl kwb">$current_medium</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl kwc">our</span> <span class="hl kwb">$copied_rpms_on_disk</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> set_rpmsrate_default_category_flags <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o, $rpmsrate_flags_was_chosen</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl slc">#- if no cleaning needed, populate by default, clean is used for second or more call to this function.</span>
    <span class="hl kwa">if</span> <span class="hl opt">($::</span>auto_install <span class="hl opt">&amp;&amp; (</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>rpmsrate_flags_chosen<span class="hl opt">} || {})-&gt;{</span>CAT_ALL<span class="hl opt">}) {</span>
	<span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>rpmsrate_flags_chosen<span class="hl opt">}{</span><span class="hl str">&quot;CAT_</span><span class="hl ipl">$_</span><span class="hl str">&quot;</span><span class="hl opt">} =</span> <span class="hl num">1</span> <span class="hl kwa">foreach</span> <span class="hl kwc">map</span> <span class="hl opt">{ &#64;{</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>flags<span class="hl opt">}} } &#64;{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>compssUsers<span class="hl opt">}};</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$rpmsrate_flags_was_chosen</span> <span class="hl opt">&amp;&amp; !</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>isUpgrade<span class="hl opt">}) {</span>
	<span class="hl slc">#- use default selection seen in compssUsers directly.</span>
	<span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>selected<span class="hl opt">} =</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>default_selected<span class="hl opt">}</span> <span class="hl kwa">foreach</span> <span class="hl opt">&#64;{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>compssUsers<span class="hl opt">}};</span>
	set_rpmsrate_category_flags<span class="hl opt">(</span><span class="hl kwb">$o, $o</span><span class="hl opt">-&gt;{</span>compssUsers<span class="hl opt">});</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> set_rpmsrate_category_flags <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o, $compssUsers</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>rpmsrate_flags_chosen<span class="hl opt">}{</span><span class="hl kwb">$_</span><span class="hl opt">} =</span> <span class="hl num">0</span> <span class="hl kwa">foreach</span> <span class="hl kwc">grep</span> <span class="hl opt">{</span> <span class="hl kwd">/^CAT_/</span> <span class="hl opt">}</span> <span class="hl kwc">keys</span> <span class="hl opt">%{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>rpmsrate_flags_chosen<span class="hl opt">}};</span>
    <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>rpmsrate_flags_chosen<span class="hl opt">}{</span><span class="hl str">&quot;CAT_</span><span class="hl ipl">$_</span><span class="hl str">&quot;</span><span class="hl opt">} =</span> <span class="hl num">1</span> <span class="hl kwa">foreach</span> <span class="hl kwc">map</span> <span class="hl opt">{ &#64;{</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>flags<span class="hl opt">}} }</span> <span class="hl kwc">grep</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>selected<span class="hl opt">} }</span> <span class="hl kwb">&#64;$compssUsers</span><span class="hl opt">;</span>
    <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>rpmsrate_flags_chosen<span class="hl opt">}{</span>CAT_SYSTEM<span class="hl opt">} =</span> <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>


<span class="hl kwa">sub</span> rpmsrate_always_flags <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$rpmsrate_flags_chosen</span> <span class="hl opt">= {};</span>
    <span class="hl kwb">$rpmsrate_flags_chosen</span><span class="hl opt">-&gt;{</span><span class="hl kwc">uc</span><span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">)} =</span> <span class="hl num">1</span> <span class="hl kwa">foreach</span> <span class="hl kwc">grep</span> <span class="hl opt">{</span> modules<span class="hl opt">::</span>probe_category<span class="hl opt">(</span><span class="hl str">&quot;multimedia/</span><span class="hl ipl">$_</span><span class="hl str">&quot;</span><span class="hl opt">) }</span> modules<span class="hl opt">::</span>sub_categories<span class="hl opt">(</span><span class="hl str">&apos;multimedia&apos;</span><span class="hl opt">);</span>
    <span class="hl kwb">$rpmsrate_flags_chosen</span><span class="hl opt">-&gt;{</span><span class="hl kwc">uc</span><span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">)} =</span> <span class="hl num">1</span> <span class="hl kwa">foreach</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>driver<span class="hl opt">} =~</span> <span class="hl kwd">/Flag:(.*)/</span> <span class="hl opt">}</span> detect_devices<span class="hl opt">::</span>probeall<span class="hl opt">();</span>
    <span class="hl kwb">$rpmsrate_flags_chosen</span><span class="hl opt">-&gt;{</span>DOCS<span class="hl opt">} = !</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>excludedocs<span class="hl opt">};</span>
    <span class="hl kwb">$rpmsrate_flags_chosen</span><span class="hl opt">-&gt;{</span>UTF8<span class="hl opt">} =</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>locale<span class="hl opt">}{</span>utf8<span class="hl opt">};</span>
    <span class="hl kwb">$rpmsrate_flags_chosen</span><span class="hl opt">-&gt;{</span>BURNER<span class="hl opt">} =</span> <span class="hl num">1</span> <span class="hl kwa">if</span> detect_devices<span class="hl opt">::</span>burners<span class="hl opt">();</span>
    <span class="hl kwb">$rpmsrate_flags_chosen</span><span class="hl opt">-&gt;{</span>DVD<span class="hl opt">} =</span> <span class="hl num">1</span> <span class="hl kwa">if</span> detect_devices<span class="hl opt">::</span>dvdroms<span class="hl opt">();</span>
    <span class="hl kwb">$rpmsrate_flags_chosen</span><span class="hl opt">-&gt;{</span>USB<span class="hl opt">} =</span> <span class="hl num">1</span> <span class="hl kwa">if</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>modules_conf<span class="hl opt">}-&gt;</span><span class="hl kwd">get_probeall</span><span class="hl opt">(</span><span class="hl str">&quot;usb-interface&quot;</span><span class="hl opt">);</span>
    <span class="hl kwb">$rpmsrate_flags_chosen</span><span class="hl opt">-&gt;{</span>PCMCIA<span class="hl opt">} =</span> <span class="hl num">1</span> <span class="hl kwa">if</span> detect_devices<span class="hl opt">::</span>hasPCMCIA<span class="hl opt">();</span>
    <span class="hl kwb">$rpmsrate_flags_chosen</span><span class="hl opt">-&gt;{</span>HIGH_SECURITY<span class="hl opt">} =</span> <span class="hl num">1</span> <span class="hl kwa">if</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>security<span class="hl opt">} &gt;</span> <span class="hl num">3</span><span class="hl opt">;</span>
    <span class="hl kwb">$rpmsrate_flags_chosen</span><span class="hl opt">-&gt;{</span>BIGMEM<span class="hl opt">} =</span> <span class="hl num">1</span> <span class="hl kwa">if</span> detect_devices<span class="hl opt">::</span>BIGMEM<span class="hl opt">();</span>
    <span class="hl kwb">$rpmsrate_flags_chosen</span><span class="hl opt">-&gt;{</span>SMP<span class="hl opt">} =</span> <span class="hl num">1</span> <span class="hl kwa">if</span> detect_devices<span class="hl opt">::</span>hasSMP<span class="hl opt">();</span>
    <span class="hl kwb">$rpmsrate_flags_chosen</span><span class="hl opt">-&gt;{</span>CDCOM<span class="hl opt">} =</span> <span class="hl num">1</span> <span class="hl kwa">if</span> any <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>descr<span class="hl opt">} =~</span> <span class="hl kwd">/commercial/i</span> <span class="hl opt">}</span> <span class="hl kwc">values</span> <span class="hl opt">%{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">}{</span>mediums<span class="hl opt">}};</span>
    <span class="hl kwb">$rpmsrate_flags_chosen</span><span class="hl opt">-&gt;{</span>TV<span class="hl opt">} =</span> <span class="hl num">1</span> <span class="hl kwa">if</span> detect_devices<span class="hl opt">::</span>getTVcards<span class="hl opt">();</span>
    <span class="hl kwb">$rpmsrate_flags_chosen</span><span class="hl opt">-&gt;{</span><span class="hl str">&apos;3D&apos;</span><span class="hl opt">} =</span> <span class="hl num">1</span> <span class="hl kwa">if</span> 
      detect_devices<span class="hl opt">::</span>matching_desc__regexp<span class="hl opt">(</span><span class="hl str">&apos;Matrox.* G[245][05]0&apos;</span><span class="hl opt">) ||</span>
      detect_devices<span class="hl opt">::</span>matching_desc__regexp<span class="hl opt">(</span><span class="hl str">&apos;Rage X[CL]&apos;</span><span class="hl opt">) ||</span>
      detect_devices<span class="hl opt">::</span>matching_desc__regexp<span class="hl opt">(</span><span class="hl str">&apos;3D Rage (?:LT|Pro)&apos;</span><span class="hl opt">) ||</span>
      detect_devices<span class="hl opt">::</span>matching_desc__regexp<span class="hl opt">(</span><span class="hl str">&apos;Voodoo [35]&apos;</span><span class="hl opt">) ||</span>
      detect_devices<span class="hl opt">::</span>matching_desc__regexp<span class="hl opt">(</span><span class="hl str">&apos;Voodoo Banshee&apos;</span><span class="hl opt">) ||</span>
      detect_devices<span class="hl opt">::</span>matching_desc__regexp<span class="hl opt">(</span><span class="hl str">&apos;8281[05].* CGC&apos;</span><span class="hl opt">) ||</span>
      detect_devices<span class="hl opt">::</span>matching_desc__regexp<span class="hl opt">(</span><span class="hl str">&apos;Rage 128&apos;</span><span class="hl opt">) ||</span>
      detect_devices<span class="hl opt">::</span>matching_desc__regexp<span class="hl opt">(</span><span class="hl str">&apos;Radeon &apos;</span><span class="hl opt">) ||</span> <span class="hl slc">#- all Radeon card are now 3D with 4.3.0</span>
      detect_devices<span class="hl opt">::</span>matching_desc__regexp<span class="hl opt">(</span><span class="hl str">&apos;[nN]Vidia.*T[nN]T2&apos;</span><span class="hl opt">) ||</span> <span class="hl slc">#- TNT2 cards</span>
      detect_devices<span class="hl opt">::</span>matching_desc__regexp<span class="hl opt">(</span><span class="hl str">&apos;[nN][vV]idia.*NV[56]&apos;</span><span class="hl opt">) ||</span>
      detect_devices<span class="hl opt">::</span>matching_desc__regexp<span class="hl opt">(</span><span class="hl str">&apos;[nN][vV]idia.*Vanta&apos;</span><span class="hl opt">) ||</span>
      detect_devices<span class="hl opt">::</span>matching_desc__regexp<span class="hl opt">(</span><span class="hl str">&apos;[nN][vV]idia.*[gG]e[fF]orce&apos;</span><span class="hl opt">) ||</span> <span class="hl slc">#- GeForce cards</span>
      detect_devices<span class="hl opt">::</span>matching_desc__regexp<span class="hl opt">(</span><span class="hl str">&apos;[nN][vV]idia.*NV1[15]&apos;</span><span class="hl opt">) ||</span>
      detect_devices<span class="hl opt">::</span>matching_desc__regexp<span class="hl opt">(</span><span class="hl str">&apos;[nN][vV]idia.*Quadro&apos;</span><span class="hl opt">);</span>

    <span class="hl kwa">foreach</span> <span class="hl opt">(</span>lang<span class="hl opt">::</span>langsLANGUAGE<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>locale<span class="hl opt">}{</span>langs<span class="hl opt">})) {</span>
	<span class="hl kwb">$rpmsrate_flags_chosen</span><span class="hl opt">-&gt;{</span><span class="hl str">qq(LOCALES&quot;</span><span class="hl ipl">$_</span><span class="hl str">&quot;)</span><span class="hl opt">} =</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl kwb">$rpmsrate_flags_chosen</span><span class="hl opt">-&gt;{</span><span class="hl str">&apos;CHARSET&quot;&apos;</span> <span class="hl opt">.</span> lang<span class="hl opt">::</span>l2charset<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>locale<span class="hl opt">}{</span>lang<span class="hl opt">}) .</span> <span class="hl str">&apos;&quot;&apos;</span><span class="hl opt">} =</span> <span class="hl num">1</span><span class="hl opt">;</span>

    <span class="hl kwb">$rpmsrate_flags_chosen</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> default_packages <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;l</span><span class="hl opt">;</span>

    <span class="hl kwc">push</span> <span class="hl kwb">&#64;l,</span> <span class="hl str">&quot;brltty&quot;</span> <span class="hl kwa">if</span> cat_<span class="hl opt">(</span><span class="hl str">&quot;/proc/cmdline&quot;</span><span class="hl opt">) =~</span> <span class="hl kwd">/brltty=/</span><span class="hl opt">;</span>
    <span class="hl kwc">push</span> <span class="hl kwb">&#64;l,</span> <span class="hl str">&quot;nfs-utils-clients&quot;</span> <span class="hl kwa">if</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span><span class="hl kwa">method</span><span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;nfs&quot;</span><span class="hl opt">;</span>
    <span class="hl kwc">push</span> <span class="hl kwb">&#64;l,</span> <span class="hl str">&quot;numlock&quot;</span> <span class="hl kwa">if</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>miscellaneous<span class="hl opt">}{</span>numlock<span class="hl opt">};</span>
    <span class="hl kwc">push</span> <span class="hl kwb">&#64;l,</span> <span class="hl str">&quot;mdadm&quot;</span> <span class="hl kwa">if</span> <span class="hl opt">!</span>is_empty_array_ref<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>all_hds<span class="hl opt">}{</span>raids<span class="hl opt">});</span>
    <span class="hl kwc">push</span> <span class="hl kwb">&#64;l,</span> <span class="hl str">&quot;lvm2&quot;</span> <span class="hl kwa">if</span> <span class="hl opt">!</span>is_empty_array_ref<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>all_hds<span class="hl opt">}{</span>lvms<span class="hl opt">});</span>
    <span class="hl kwc">push</span> <span class="hl kwb">&#64;l,</span> <span class="hl str">&quot;alsa&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;alsa-utils&quot;</span> <span class="hl kwa">if</span> any <span class="hl opt">{</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>modules_conf<span class="hl opt">}-&gt;</span><span class="hl kwd">get_alias</span><span class="hl opt">(</span><span class="hl str">&quot;sound-slot-</span><span class="hl ipl">$_</span><span class="hl str">&quot;</span><span class="hl opt">) =~</span> <span class="hl kwd">/^snd-/</span> <span class="hl opt">}</span> <span class="hl num">0</span> <span class="hl opt">..</span> <span class="hl num">4</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$dmi_System</span> <span class="hl opt">=</span> detect_devices<span class="hl opt">::</span>dmidecode_category<span class="hl opt">(</span><span class="hl str">&apos;System&apos;</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$dmi_BIOS</span> <span class="hl opt">=</span> detect_devices<span class="hl opt">::</span>dmidecode_category<span class="hl opt">(</span><span class="hl str">&apos;BIOS&apos;</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$dmi_Base_Board</span> <span class="hl opt">=</span> detect_devices<span class="hl opt">::</span>dmidecode_category<span class="hl opt">(</span><span class="hl str">&apos;Base Board&apos;</span><span class="hl opt">);</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$dmi_System</span><span class="hl opt">-&gt;{</span>Manufacturer<span class="hl opt">} =~</span> <span class="hl kwd">/Dell Computer/</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$dmi_System</span><span class="hl opt">-&gt;{</span><span class="hl str">&apos;Product Name&apos;</span><span class="hl opt">} =~</span> <span class="hl kwd">/Inspiron|Latitude/</span><span class="hl opt">) {</span>
        modules<span class="hl opt">::</span>append_to_modules_loaded_at_startup_for_all_kernels<span class="hl opt">(</span><span class="hl str">&apos;i8k&apos;</span><span class="hl opt">);</span>
        <span class="hl kwc">push</span> <span class="hl kwb">&#64;l,</span> <span class="hl str">&quot;i8kutils&quot;</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$dmi_System</span><span class="hl opt">-&gt;{</span>Manufacturer<span class="hl opt">} =~</span> <span class="hl kwd">/TOSHIBA/</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$dmi_BIOS</span><span class="hl opt">-&gt;{</span>Vendor<span class="hl opt">} =~</span> <span class="hl kwd">/TOSHIBA/</span><span class="hl opt">) {</span>
        modules<span class="hl opt">::</span>append_to_modules_loaded_at_startup_for_all_kernels<span class="hl opt">(</span><span class="hl str">&apos;toshiba&apos;</span><span class="hl opt">);</span>
        <span class="hl kwc">push</span> <span class="hl kwb">&#64;l,</span> <span class="hl str">&quot;toshutils&quot;</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$dmi_BIOS</span><span class="hl opt">-&gt;{</span>Vendor<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;COMPAL&apos;</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$dmi_BIOS</span><span class="hl opt">-&gt;{</span>Characteristics<span class="hl opt">} =~</span> <span class="hl kwd">/Function key-initiated network boot is supported/</span>
          <span class="hl opt">||</span> <span class="hl kwb">$dmi_Base_Board</span><span class="hl opt">-&gt;{</span>Manufacturer<span class="hl opt">} =~</span> <span class="hl kwd">/^ACER/</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$dmi_Base_Board</span><span class="hl opt">-&gt;{</span><span class="hl str">&apos;Product Name&apos;</span><span class="hl opt">} =~</span> <span class="hl kwd">/TravelMate 610/</span><span class="hl opt">) {</span>
        modules<span class="hl opt">::</span>append_to_modules_loaded_at_startup_for_all_kernels<span class="hl opt">(</span><span class="hl str">&apos;acerhk&apos;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>

    <span class="hl kwc">push</span> <span class="hl kwb">&#64;l,</span> <span class="hl str">&quot;grub&quot;</span> <span class="hl kwa">if</span> isLoopback<span class="hl opt">(</span>fs<span class="hl opt">::</span>get<span class="hl opt">::</span>root<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>fstab<span class="hl opt">}));</span>
    <span class="hl kwc">push</span> <span class="hl kwb">&#64;l,</span> uniq<span class="hl opt">(</span><span class="hl kwc">grep</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span> <span class="hl opt">}</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> fs<span class="hl opt">::</span>format<span class="hl opt">::</span>package_needed_for_partition_type<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">) } &#64;{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>fstab<span class="hl opt">}});</span>

    <span class="hl kwc">my</span> <span class="hl kwb">&#64;locale_pkgs</span> <span class="hl opt">=</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> pkgs<span class="hl opt">::</span>packagesProviding<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">},</span> <span class="hl str">&apos;locales-&apos;</span> <span class="hl opt">.</span> <span class="hl kwb">$_</span><span class="hl opt">) }</span> lang<span class="hl opt">::</span>langsLANGUAGE<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>locale<span class="hl opt">}{</span>langs<span class="hl opt">});</span>
    <span class="hl kwc">unshift</span> <span class="hl kwb">&#64;l,</span> uniq<span class="hl opt">(</span><span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;</span><span class="hl kwd">name</span> <span class="hl opt">}</span> <span class="hl kwb">&#64;locale_pkgs</span><span class="hl opt">);</span>

    <span class="hl kwb">&#64;l</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> select_default_packages <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    pkgs<span class="hl opt">::</span>selectPackage<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">},</span> pkgs<span class="hl opt">::</span>packageByName<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">},</span> <span class="hl kwb">$_</span><span class="hl opt">) ||</span> <span class="hl kwa">next</span><span class="hl opt">)</span> <span class="hl kwa">foreach</span> <span class="hl opt">&#64;{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>default_packages<span class="hl opt">}};</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> unselectMostPackages <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    pkgs<span class="hl opt">::</span>unselectAllPackages<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">});</span>
    select_default_packages<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> warnAboutNaughtyServers <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;naughtyServers</span> <span class="hl opt">=</span> pkgs<span class="hl opt">::</span>naughtyServers<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">})</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$r</span> <span class="hl opt">=</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_list_</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> 
formatAlaTeX<span class="hl opt">(</span>
             <span class="hl slc">#-PO: keep the double empty lines between sections, this is formatted a la LaTeX</span>
             N<span class="hl opt">(</span><span class="hl str">&quot;You have selected the following server(s):</span> <span class="hl ipl">%s</span>
<span class="hl str"></span>
<span class="hl str"></span>
<span class="hl str">These servers are activated by default. They do not have any known security</span>
<span class="hl str">issues, but some new ones could be found. In that case, you must make sure</span>
<span class="hl str">to upgrade as soon as possible.</span>
<span class="hl str"></span>
<span class="hl str"></span>
<span class="hl str">Do you really want to install these servers?</span>
<span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwc">join</span><span class="hl opt">(</span><span class="hl str">&quot;, &quot;</span><span class="hl opt">,</span> <span class="hl kwb">&#64;naughtyServers</span><span class="hl opt">))), [</span> N_<span class="hl opt">(</span><span class="hl str">&quot;Yes&quot;</span><span class="hl opt">),</span> N_<span class="hl opt">(</span><span class="hl str">&quot;No&quot;</span><span class="hl opt">) ],</span> <span class="hl str">&apos;Yes&apos;</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$r</span> <span class="hl kwc">ne</span> <span class="hl str">&apos;Yes&apos;</span><span class="hl opt">) {</span>
	<span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;unselecting naughty servers&quot;</span><span class="hl opt">);</span>
	pkgs<span class="hl opt">::</span>unselectPackage<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">},</span> pkgs<span class="hl opt">::</span>packageByName<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">},</span> <span class="hl kwb">$_</span><span class="hl opt">))</span> <span class="hl kwa">foreach</span> <span class="hl kwb">&#64;naughtyServers</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> warnAboutRemovedPackages <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o, $packages</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;removedPackages</span> <span class="hl opt">=</span> <span class="hl kwc">keys</span> <span class="hl opt">%{</span><span class="hl kwb">$packages</span><span class="hl opt">-&gt;{</span><span class="hl kwc">state</span><span class="hl opt">}{</span>ask_remove<span class="hl opt">} || {}}</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_yesorno</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> 
formatAlaTeX<span class="hl opt">(</span>
             <span class="hl slc">#-PO: keep the double empty lines between sections, this is formatted a la LaTeX</span>
             N<span class="hl opt">(</span><span class="hl str">&quot;The following packages will be removed to allow upgrading your system:</span> <span class="hl ipl">%s</span>
<span class="hl str"></span>
<span class="hl str"></span>
<span class="hl str">Do you really want to remove these packages?</span>
<span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwc">join</span><span class="hl opt">(</span><span class="hl str">&quot;, &quot;</span><span class="hl opt">,</span> <span class="hl kwb">&#64;removedPackages</span><span class="hl opt">))),</span> <span class="hl num">1</span><span class="hl opt">)) {</span>
	<span class="hl kwb">$packages</span><span class="hl opt">-&gt;{</span><span class="hl kwc">state</span><span class="hl opt">}{</span>ask_remove<span class="hl opt">} = {};</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> addToBeDone<span class="hl opt">(&amp;$) {</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$f, $step</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwa">return</span> <span class="hl opt">&amp;</span><span class="hl kwb">$f</span><span class="hl opt">()</span> <span class="hl kwa">if</span> <span class="hl opt">$::</span>o-<span class="hl opt">&gt;{</span>steps<span class="hl opt">}{</span><span class="hl kwb">$step</span><span class="hl opt">}{</span>done<span class="hl opt">};</span>

    <span class="hl kwc">push</span> <span class="hl opt">&#64;{$::</span>o-<span class="hl opt">&gt;{</span>steps<span class="hl opt">}{</span><span class="hl kwb">$step</span><span class="hl opt">}{</span>toBeDone<span class="hl opt">}},</span> <span class="hl kwb">$f</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> set_authentication <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$when_network_is_up</span> <span class="hl opt">=</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
	<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$f</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
	<span class="hl slc">#- defer running xxx - no network yet</span>
	addToBeDone <span class="hl opt">{</span>
	    <span class="hl kwa">require</span> install_steps<span class="hl opt">;</span>
	    install_steps<span class="hl opt">::</span>upNetwork<span class="hl opt">(</span><span class="hl kwb">$o,</span> <span class="hl str">&apos;pppAvoided&apos;</span><span class="hl opt">);</span>
	    <span class="hl kwb">$f</span><span class="hl opt">-&gt;();</span>
	<span class="hl opt">}</span> <span class="hl str">&apos;configureNetwork&apos;</span><span class="hl opt">;</span>
    <span class="hl opt">};</span>
    <span class="hl kwa">require</span> authentication<span class="hl opt">;</span>
    authentication<span class="hl opt">::</span>set<span class="hl opt">(</span><span class="hl kwb">$o, $o</span><span class="hl opt">-&gt;{</span>netc<span class="hl opt">},</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>authentication<span class="hl opt">} ||= {},</span> <span class="hl kwb">$when_network_is_up</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> killCardServices<span class="hl opt">() {</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$pid</span> <span class="hl opt">=</span> chomp_<span class="hl opt">(</span>cat_<span class="hl opt">(</span><span class="hl str">&quot;/tmp/cardmgr.pid&quot;</span><span class="hl opt">));</span>
    <span class="hl kwb">$pid</span> <span class="hl kwc">and kill</span><span class="hl opt">(</span><span class="hl num">15</span><span class="hl opt">,</span> <span class="hl kwb">$pid</span><span class="hl opt">);</span> <span class="hl slc">#- send SIGTERM</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> unlockCdrom<span class="hl opt">() {</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$cdrom</span> <span class="hl opt">=</span> cat_<span class="hl opt">(</span><span class="hl str">&quot;/proc/mounts&quot;</span><span class="hl opt">) =~</span> <span class="hl kwd">m!(/dev/\S+)\s+(?:/mnt/cdrom|/tmp/image)!</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$1</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl kwc">eval</span> <span class="hl opt">{</span> <span class="hl kwc">ioctl</span><span class="hl opt">(</span>detect_devices<span class="hl opt">::</span>tryOpen<span class="hl opt">(</span><span class="hl kwb">$cdrom</span><span class="hl opt">),</span> c<span class="hl opt">::</span>CDROM_LOCKDOOR<span class="hl opt">(),</span> <span class="hl num">0</span><span class="hl opt">) };</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> ejectCdrom <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o_cdrom, $o_mountpoint</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    getFile<span class="hl opt">(</span><span class="hl str">&quot;XXX&quot;</span><span class="hl opt">);</span> <span class="hl slc">#- close still opened filehandle</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$cdrom</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$o_mountpoint</span><span class="hl opt">) {</span>
	<span class="hl kwb">$cdrom</span> <span class="hl opt">=</span> <span class="hl kwb">$o_cdrom</span> <span class="hl opt">||</span> cat_<span class="hl opt">(</span><span class="hl str">&quot;/proc/mounts&quot;</span><span class="hl opt">) =~</span> <span class="hl kwd">m!(/dev/\S+)\s+(/mnt/cdrom|/tmp/image)!</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$1</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl kwb">$cdrom</span> <span class="hl opt">=</span> cat_<span class="hl opt">(</span><span class="hl str">&quot;/proc/mounts&quot;</span><span class="hl opt">) =~</span> <span class="hl kwd">m!(/dev/$o_cdrom)\s+(/mnt/cdrom|/tmp/image)!</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$1</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
	<span class="hl kwb">$o_mountpoint</span> <span class="hl opt">||=</span> <span class="hl kwb">$2</span> <span class="hl opt">||</span> <span class="hl str">&apos;/tmp/image&apos;</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl slc">#- umount BEFORE opening the cdrom device otherwise the umount will</span>
    <span class="hl slc">#- D state if the cdrom is already removed</span>
    <span class="hl kwc">eval</span> <span class="hl opt">{</span> fs<span class="hl opt">::</span>umount<span class="hl opt">(</span><span class="hl kwb">$o_mountpoint</span><span class="hl opt">) };</span>
    <span class="hl kwb">$&#64;</span> <span class="hl kwc">and</span> warnAboutFilesStillOpen<span class="hl opt">();</span>
    <span class="hl kwc">eval</span> <span class="hl opt">{</span> 
	<span class="hl kwc">my</span> <span class="hl kwb">$dev</span> <span class="hl opt">=</span> detect_devices<span class="hl opt">::</span>tryOpen<span class="hl opt">(</span><span class="hl kwb">$cdrom</span><span class="hl opt">);</span>
	<span class="hl kwc">ioctl</span><span class="hl opt">(</span><span class="hl kwb">$dev,</span> c<span class="hl opt">::</span>CDROMEJECT<span class="hl opt">(),</span> <span class="hl num">1</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl kwc">ioctl</span><span class="hl opt">(</span><span class="hl kwb">$dev,</span> c<span class="hl opt">::</span>CDROM_DRIVE_STATUS<span class="hl opt">(),</span> <span class="hl num">0</span><span class="hl opt">) ==</span> c<span class="hl opt">::</span>CDS_DISC_OK<span class="hl opt">();</span>
    <span class="hl opt">};</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> warnAboutFilesStillOpen<span class="hl opt">() {</span>
    <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;files still open: &quot;</span><span class="hl opt">,</span> <span class="hl kwc">readlink</span><span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">))</span> <span class="hl kwa">foreach</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> glob_<span class="hl opt">(</span><span class="hl str">&quot;</span><span class="hl ipl">$_/fd/*</span><span class="hl str">&quot;</span><span class="hl opt">) }</span> glob_<span class="hl opt">(</span><span class="hl str">&quot;/proc/*&quot;</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> install_urpmi <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$method, $packages, $mediums</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$hdInstallPath</span> <span class="hl opt">=</span> any<span class="hl opt">::</span>hdInstallPath<span class="hl opt">();</span>

    <span class="hl slc">#- rare case where urpmi cannot be installed (no hd install path).</span>
    <span class="hl kwc">our</span> <span class="hl kwb">$copied_rpms_on_disk</span><span class="hl opt">;</span>
    <span class="hl kwb">$method</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;disk&apos;</span> <span class="hl opt">&amp;&amp; !</span><span class="hl kwb">$hdInstallPath</span> <span class="hl opt">&amp;&amp; !</span><span class="hl kwb">$copied_rpms_on_disk</span> <span class="hl kwc">and</span> <span class="hl kwa">return</span><span class="hl opt">;</span>

    <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;install_urpmi</span> <span class="hl ipl">$method</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
    <span class="hl slc">#- clean to avoid opening twice the rpm db.</span>
    <span class="hl kwc">delete</span> <span class="hl kwb">$packages</span><span class="hl opt">-&gt;{</span>rpmdb<span class="hl opt">};</span>

    <span class="hl slc">#- import pubkey in rpmdb.</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$db</span> <span class="hl opt">=</span> pkgs<span class="hl opt">::</span>rpmDbOpenForInstall<span class="hl opt">();</span>
    <span class="hl kwb">$packages</span><span class="hl opt">-&gt;</span><span class="hl kwd">parse_pubkeys</span><span class="hl opt">(</span>db <span class="hl opt">=&gt;</span> <span class="hl kwb">$db</span><span class="hl opt">);</span>
    <span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$medium</span> <span class="hl opt">(</span><span class="hl kwc">values</span> <span class="hl kwb">%$mediums</span><span class="hl opt">) {</span>
	<span class="hl kwb">$packages</span><span class="hl opt">-&gt;</span><span class="hl kwd">import_needed_pubkeys</span><span class="hl opt">(</span><span class="hl kwb">$medium</span><span class="hl opt">-&gt;{</span>pubkey<span class="hl opt">},</span> db <span class="hl opt">=&gt;</span> <span class="hl kwb">$db,</span> callback <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
					     <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl kwb">$_k, $id, $imported</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
					     <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$id</span><span class="hl opt">) {</span>
						 <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">((</span><span class="hl kwb">$imported</span> ? <span class="hl str">&quot;imported&quot;</span> <span class="hl opt">:</span> <span class="hl str">&quot;found&quot;</span><span class="hl opt">) .</span> <span class="hl str">&quot; key=</span><span class="hl ipl">$id</span> <span class="hl str">for medium</span> <span class="hl ipl">$medium</span><span class="hl str">-&gt;{descr}&quot;</span><span class="hl opt">);</span>
						 <span class="hl kwb">$medium</span><span class="hl opt">-&gt;{</span>key_ids<span class="hl opt">}{</span><span class="hl kwb">$id</span><span class="hl opt">} =</span> <span class="hl kwc">undef</span><span class="hl opt">;</span>
					     <span class="hl opt">}</span>
					 <span class="hl opt">});</span>
    <span class="hl opt">}</span>

    <span class="hl kwc">my</span> <span class="hl kwb">&#64;cfg</span><span class="hl opt">;</span>
    <span class="hl kwa">foreach</span> <span class="hl opt">(</span><span class="hl kwc">sort</span> <span class="hl opt">{</span> <span class="hl kwb">$a</span><span class="hl opt">-&gt;{</span>medium<span class="hl opt">} &lt;=&gt;</span> <span class="hl kwb">$b</span><span class="hl opt">-&gt;{</span>medium<span class="hl opt">} }</span> <span class="hl kwc">values</span> <span class="hl kwb">%$mediums</span><span class="hl opt">) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$name</span> <span class="hl opt">=</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>fakemedium<span class="hl opt">};</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>ignored<span class="hl opt">} ||</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>selected<span class="hl opt">}) {</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$curmethod</span> <span class="hl opt">=</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span><span class="hl kwa">method</span><span class="hl opt">} || $::</span>o-<span class="hl opt">&gt;{</span><span class="hl kwa">method</span><span class="hl opt">};</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$dir</span> <span class="hl opt">= ((</span><span class="hl kwb">$copied_rpms_on_disk</span> ? <span class="hl str">&quot;/var/ftp/pub/Mandrakelinux&quot;</span> <span class="hl opt">:</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">)</span>
		<span class="hl opt">||</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>prefix<span class="hl opt">} || ${{</span> nfs <span class="hl opt">=&gt;</span> <span class="hl str">&quot;file://mnt/nfs&quot;</span><span class="hl opt">,</span> 
					   disk <span class="hl opt">=&gt;</span> <span class="hl str">&quot;file:/&quot;</span> <span class="hl opt">.</span> <span class="hl kwb">$hdInstallPath,</span>
					   ftp <span class="hl opt">=&gt;</span> <span class="hl kwb">$ENV</span><span class="hl opt">{</span>URLPREFIX<span class="hl opt">},</span>
					   http <span class="hl opt">=&gt;</span> <span class="hl kwb">$ENV</span><span class="hl opt">{</span>URLPREFIX<span class="hl opt">},</span>
					   cdrom <span class="hl opt">=&gt;</span> <span class="hl str">&quot;removable://mnt/cdrom&quot;</span> <span class="hl opt">}}{</span><span class="hl kwb">$curmethod</span><span class="hl opt">} ||</span>
		       <span class="hl slc">#- for live_update or live_install script.</span>
		       <span class="hl kwc">readlink</span><span class="hl opt">(</span><span class="hl str">&quot;/tmp/image/media&quot;</span><span class="hl opt">) =~</span> m<span class="hl opt">,^(/.*)</span><span class="hl kwd">/media/</span><span class="hl opt">*</span><span class="hl kwb">$,</span> <span class="hl opt">&amp;&amp;</span> <span class="hl str">&quot;removable:/</span><span class="hl ipl">$1</span><span class="hl str">&quot;</span><span class="hl opt">) .</span> <span class="hl str">&quot;/</span><span class="hl ipl">$_</span><span class="hl str">-&gt;{rpmsdir}&quot;</span><span class="hl opt">;</span>
	    <span class="hl slc">#- use list file only if visible password or macro.</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$need_list</span> <span class="hl opt">=</span> <span class="hl kwb">$dir</span> <span class="hl opt">=~</span> m<span class="hl opt">,^(</span>?<span class="hl opt">:[^:]*:</span><span class="hl kwd">//</span><span class="hl opt">[^</span><span class="hl kwd">/:\&#64;]*:[^/</span><span class="hl opt">:</span>\<span class="hl opt">&#64;]+</span>\<span class="hl opt">&#64;|.*%{),;</span> <span class="hl slc">#- }</span>

            <span class="hl kwc">my</span> <span class="hl kwb">$removable_device</span><span class="hl opt">;</span>

            <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$curmethod</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;disk-iso&apos;</span><span class="hl opt">) {</span>
                <span class="hl kwc">my</span> <span class="hl kwb">$p</span> <span class="hl opt">=</span> find <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>real_mntpoint<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;/tmp/hdimage&apos;</span> <span class="hl opt">} &#64;{$::</span>o-<span class="hl opt">&gt;{</span>fstab<span class="hl opt">}}</span> <span class="hl kwc">or</span>
                  <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;unable to find ISO image mountpoint, not adding urpmi media&quot;</span><span class="hl opt">),</span> <span class="hl kwa">next</span><span class="hl opt">;</span>
                <span class="hl kwc">my</span> <span class="hl kwb">$iso_info</span> <span class="hl opt">=</span> find_ISO_image_labelled<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>descr<span class="hl opt">})</span> <span class="hl kwc">or</span>
                  <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;unable to find ISO image labelled</span> <span class="hl ipl">$name,</span> <span class="hl str">not adding urpmi media&quot;</span><span class="hl opt">),</span> <span class="hl kwa">next</span><span class="hl opt">;</span>
                <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$iso_path</span><span class="hl opt">) =</span> <span class="hl kwb">$iso_info</span><span class="hl opt">-&gt;{</span>file<span class="hl opt">} =~</span> m<span class="hl opt">,^</span><span class="hl kwd">/tmp/</span>hdimage<span class="hl opt">/+(.*),</span> <span class="hl kwc">or</span>
                  <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;unable to find ISO image file name (</span><span class="hl ipl">$iso_info</span><span class="hl str">-&gt;{file}), not adding urpmi media&quot;</span><span class="hl opt">),</span> <span class="hl kwa">next</span><span class="hl opt">;</span>
                <span class="hl kwc">my</span> <span class="hl kwb">$dest</span> <span class="hl opt">=</span> <span class="hl str">&quot;/mnt/inst_iso&quot;</span><span class="hl opt">;</span>
                <span class="hl kwb">$dir</span> <span class="hl opt">=</span> <span class="hl str">&quot;removable:/</span><span class="hl ipl">$dest/$_</span><span class="hl str">-&gt;{rpmsdir}&quot;</span><span class="hl opt">;</span>
                <span class="hl opt">-</span>d <span class="hl str">&quot;$::prefix</span><span class="hl ipl">$dest</span><span class="hl str">&quot;</span> <span class="hl kwc">or</span> mkdir_p<span class="hl opt">(</span><span class="hl str">&quot;$::prefix</span><span class="hl ipl">$dest</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
                <span class="hl kwb">$removable_device</span> <span class="hl opt">=</span> <span class="hl str">&quot;</span><span class="hl ipl">$p</span><span class="hl str">-&gt;{mntpoint}/</span><span class="hl ipl">$iso_path</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
            <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$curmethod</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;cdrom&apos;</span><span class="hl opt">) {</span>
                <span class="hl kwb">$removable_device</span> <span class="hl opt">=</span> <span class="hl str">&apos;/dev/cdrom&apos;</span><span class="hl opt">;</span>
            <span class="hl opt">}</span>

	    <span class="hl slc">#- build a list file if needed.</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$need_list</span><span class="hl opt">) {</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$mask</span> <span class="hl opt">=</span> <span class="hl kwc">umask</span> <span class="hl num">077</span><span class="hl opt">;</span>
		<span class="hl kwc">open</span><span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$LIST,</span> <span class="hl str">&quot;&gt;$::prefix/var/lib/urpmi/list.</span><span class="hl ipl">$name</span><span class="hl str">&quot;</span><span class="hl opt">)</span> <span class="hl kwc">or log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;failed to write list.</span><span class="hl ipl">$name</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
		<span class="hl kwc">umask</span> <span class="hl kwb">$mask</span><span class="hl opt">;</span>

		<span class="hl slc">#- build list file using internal data, synthesis file should exist.</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>end<span class="hl opt">} &gt;</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>start<span class="hl opt">}) {</span>
		    <span class="hl slc">#- WARNING this method of build only works because synthesis (or hdlist)</span>
		    <span class="hl slc">#-         has been read.</span>
		    <span class="hl kwa">foreach</span> <span class="hl opt">(&#64;{</span><span class="hl kwb">$packages</span><span class="hl opt">-&gt;{</span>depslist<span class="hl opt">}}[</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>start<span class="hl opt">} ..</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>end<span class="hl opt">}]) {</span>
			<span class="hl kwc">my</span> <span class="hl kwb">$arch</span> <span class="hl opt">=</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;</span><span class="hl kwd">arch</span><span class="hl opt">;</span>
			<span class="hl kwc">my</span> <span class="hl kwb">$ldir</span> <span class="hl opt">=</span> <span class="hl kwb">$dir</span><span class="hl opt">;</span>
			<span class="hl kwb">$ldir</span> <span class="hl opt">=~</span> s<span class="hl opt">|</span><span class="hl kwd">/([^/</span><span class="hl opt">]*)%{</span>ARCH<span class="hl opt">}|</span><span class="hl kwd">/./</span><span class="hl kwb">$1$arch</span><span class="hl opt">|;</span> <span class="hl kwb">$ldir</span> <span class="hl opt">=~</span> s<span class="hl opt">|%{</span>ARCH<span class="hl opt">}|</span><span class="hl kwb">$arch</span><span class="hl opt">|</span>g<span class="hl opt">;</span>
			<span class="hl kwc">print</span> <span class="hl kwb">$LIST</span> <span class="hl str">&quot;</span><span class="hl ipl">$ldir/</span><span class="hl str">&quot;</span> <span class="hl opt">.</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;</span><span class="hl kwd">filename</span> <span class="hl opt">.</span> <span class="hl str">&quot;</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
		    <span class="hl opt">}</span>
		<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		    <span class="hl slc">#- need to use another method here to build list file.</span>
		    <span class="hl kwc">open</span><span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$F,</span> <span class="hl str">&quot;parsehdlist &apos;$::prefix/var/lib/urpmi/hdlist.</span><span class="hl ipl">$name</span><span class="hl str">.cz&apos; |&quot;</span><span class="hl opt">);</span>
		    <span class="hl kwc">local</span> <span class="hl kwb">$_</span><span class="hl opt">;</span> 
		    <span class="hl kwa">while</span> <span class="hl opt">(&lt;</span><span class="hl kwb">$F</span><span class="hl opt">&gt;) {</span>
                        <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$arch</span><span class="hl opt">) =</span> <span class="hl kwd">/\.([^\.]+)\.rpm$/</span><span class="hl opt">;</span>
			<span class="hl kwc">my</span> <span class="hl kwb">$ldir</span> <span class="hl opt">=</span> <span class="hl kwb">$dir</span><span class="hl opt">;</span>
			<span class="hl kwb">$ldir</span> <span class="hl opt">=~</span> s<span class="hl opt">|</span><span class="hl kwd">/([^/</span><span class="hl opt">]*)%{</span>ARCH<span class="hl opt">}|</span><span class="hl kwd">/./</span><span class="hl kwb">$1$arch</span><span class="hl opt">|;</span> <span class="hl kwb">$ldir</span> <span class="hl opt">=~</span> s<span class="hl opt">|%{</span>ARCH<span class="hl opt">}|</span><span class="hl kwb">$arch</span><span class="hl opt">|</span>g<span class="hl opt">;</span>
			<span class="hl kwc">print</span> <span class="hl kwb">$LIST</span> <span class="hl str">&quot;</span><span class="hl ipl">$ldir/$_</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
		    <span class="hl opt">}</span>
		    <span class="hl kwc">close</span> <span class="hl kwb">$F</span><span class="hl opt">;</span>
		<span class="hl opt">}</span>
		<span class="hl kwc">close</span> <span class="hl kwb">$LIST</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>

	    <span class="hl slc">#- build a names file</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">open my</span> <span class="hl kwb">$F,</span> <span class="hl str">&quot;&gt;&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;$::prefix/var/lib/urpmi/names.</span><span class="hl ipl">$name</span><span class="hl str">&quot;</span><span class="hl opt">) {</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">defined</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>start<span class="hl opt">} &amp;&amp;</span> <span class="hl kwc">defined</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>end<span class="hl opt">}) {</span>
		    <span class="hl kwa">foreach</span> <span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>start<span class="hl opt">} ..</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>end<span class="hl opt">}) {</span>
			<span class="hl kwc">print</span> <span class="hl kwb">$F $packages</span><span class="hl opt">-&gt;{</span>depslist<span class="hl opt">}[</span><span class="hl kwb">$_</span><span class="hl opt">]-&gt;</span><span class="hl kwd">name</span> <span class="hl opt">.</span> <span class="hl str">&quot;</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
		    <span class="hl opt">}</span>
		<span class="hl opt">}</span>
		<span class="hl kwc">close</span> <span class="hl kwb">$F</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>

	    <span class="hl slc">#- touch a MD5SUM file</span>
	    <span class="hl kwc">eval</span> <span class="hl opt">{</span> output<span class="hl opt">(</span><span class="hl str">&quot;$::prefix/var/lib/urpmi/MD5SUM&quot;</span><span class="hl opt">,</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">) };</span>

	    <span class="hl slc">#- build synthesis file if there are still not existing (ie not copied from mirror).</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(-</span>s <span class="hl str">&quot;$::prefix/var/lib/urpmi/synthesis.hdlist.</span><span class="hl ipl">$name</span><span class="hl str">.cz&quot;</span> <span class="hl opt">&lt;=</span> <span class="hl num">32</span><span class="hl opt">) {</span>
		<span class="hl kwc">unlink</span> <span class="hl str">&quot;$::prefix/var/lib/urpmi/synthesis.hdlist.</span><span class="hl ipl">$name</span><span class="hl str">.cz&quot;</span><span class="hl opt">;</span>
		run_program<span class="hl opt">::</span>rooted<span class="hl opt">($::</span>prefix<span class="hl opt">,</span> <span class="hl str">&quot;parsehdlist&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;&gt;&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;/var/lib/urpmi/synthesis.hdlist.</span><span class="hl ipl">$name</span><span class="hl str">&quot;</span><span class="hl opt">,</span>
				    <span class="hl str">&quot;--synthesis&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;/var/lib/urpmi/hdlist.</span><span class="hl ipl">$name</span><span class="hl str">.cz&quot;</span><span class="hl opt">);</span>
		run_program<span class="hl opt">::</span>rooted<span class="hl opt">($::</span>prefix<span class="hl opt">,</span> <span class="hl str">&quot;gzip&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;-S&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;.cz&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;/var/lib/urpmi/synthesis.hdlist.</span><span class="hl ipl">$name</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span>

	    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$qname, $qdir</span><span class="hl opt">) = (</span><span class="hl kwb">$name, $dir</span><span class="hl opt">);</span>
	    <span class="hl kwb">$qname</span> <span class="hl opt">=~</span> <span class="hl kwd">s/(\s)/\\$1/g</span><span class="hl opt">;</span> <span class="hl kwb">$qdir</span> <span class="hl opt">=~</span> <span class="hl kwd">s/(\s)/\\$1/g</span><span class="hl opt">;</span>

	    <span class="hl slc">#- compute correctly reference to media/media_info</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$with</span><span class="hl opt">;</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>update<span class="hl opt">}) {</span>
		<span class="hl kwb">$with</span> <span class="hl opt">=</span> <span class="hl str">&quot;media_info/hdlist.cz&quot;</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>with_hdlist<span class="hl opt">}) {</span>
		<span class="hl kwb">$with</span> <span class="hl opt">=</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>with_hdlist<span class="hl opt">};</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		<span class="hl kwb">$with</span> <span class="hl opt">=</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>rpmsdir<span class="hl opt">};</span>
		<span class="hl kwb">$with</span> <span class="hl opt">=~</span> s<span class="hl opt">|</span><span class="hl kwd">/[^/</span><span class="hl opt">]*%{</span>ARCH<span class="hl opt">}.*||;</span>
		<span class="hl kwb">$with</span> <span class="hl opt">=~</span> s<span class="hl opt">|</span><span class="hl kwd">/+|/</span><span class="hl opt">|</span>g<span class="hl opt">;</span> <span class="hl kwb">$with</span> <span class="hl opt">=~</span> s<span class="hl opt">|</span><span class="hl kwd">/$||; $with =~ s|[^/</span><span class="hl opt">]||</span>g<span class="hl opt">;</span> <span class="hl kwb">$with</span> <span class="hl opt">=~</span> <span class="hl kwd">s!/!../!g</span><span class="hl opt">;</span>
		<span class="hl kwb">$with</span> <span class="hl opt">.=</span> <span class="hl str">&quot;../media/media_info/</span><span class="hl ipl">$_</span><span class="hl str">-&gt;{hdlist}&quot;</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>

	    <span class="hl slc">#- output new urpmi.cfg format here.</span>
	    <span class="hl kwc">push</span> <span class="hl kwb">&#64;cfg,</span> <span class="hl str">&quot;</span><span class="hl ipl">$qname</span> <span class="hl str">&quot;</span> <span class="hl opt">. (</span><span class="hl kwb">$need_list</span> ? <span class="hl str">&quot;&quot;</span> <span class="hl opt">:</span> <span class="hl kwb">$qdir</span><span class="hl opt">) .</span> <span class="hl str">&quot; {</span>
<span class="hl str">  hdlist: hdlist.</span><span class="hl ipl">$name</span><span class="hl str">.cz</span>
<span class="hl str">  with_hdlist:</span> <span class="hl ipl">$with</span><span class="hl str">&quot;</span> <span class="hl opt">. (</span><span class="hl kwb">$need_list</span> ? <span class="hl str">&quot;</span>
<span class="hl str">  list: list.</span><span class="hl ipl">$name</span><span class="hl str">&quot;</span> <span class="hl opt">:</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">) . (</span><span class="hl kwc">keys</span><span class="hl opt">(%{</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>key_ids<span class="hl opt">}})</span> ? <span class="hl str">&quot;</span>
<span class="hl str">  key-ids: &quot;</span> <span class="hl opt">.</span> <span class="hl kwc">join</span><span class="hl opt">(</span><span class="hl str">&apos;,&apos;</span><span class="hl opt">,</span> <span class="hl kwc">keys</span><span class="hl opt">(%{</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>key_ids<span class="hl opt">}})) :</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">) . (</span><span class="hl kwc">defined</span> <span class="hl kwb">$removable_device</span> <span class="hl opt">&amp;&amp;</span> <span class="hl str">&quot;</span>
<span class="hl str">  removable:</span> <span class="hl ipl">$removable_device</span><span class="hl str">&quot;</span><span class="hl opt">) . (</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>update<span class="hl opt">}</span> ? <span class="hl str">&quot;</span>
<span class="hl str">  update&quot;</span> <span class="hl opt">:</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">) .</span> <span class="hl str">&quot;</span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">&quot;</span><span class="hl opt">;</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl slc">#- remove not selected media by removing hdlist and synthesis files copied.</span>
	    <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;removing media</span> <span class="hl ipl">$name</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
	    <span class="hl kwc">unlink</span> <span class="hl str">&quot;$::prefix/var/lib/urpmi/hdlist.</span><span class="hl ipl">$name</span><span class="hl str">.cz&quot;</span><span class="hl opt">;</span>
	    <span class="hl kwc">unlink</span> <span class="hl str">&quot;$::prefix/var/lib/urpmi/synthesis.hdlist.</span><span class="hl ipl">$name</span><span class="hl str">.cz&quot;</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
    <span class="hl kwc">eval</span> <span class="hl opt">{</span> output <span class="hl str">&quot;$::prefix/etc/urpmi/urpmi.cfg&quot;</span><span class="hl opt">,</span> <span class="hl kwb">&#64;cfg</span> <span class="hl opt">};</span>
<span class="hl opt">}</span>


<span class="hl slc">#-###############################################################################</span>
<span class="hl slc">#- kde stuff</span>
<span class="hl slc">#-###############################################################################</span>
<span class="hl kwa">sub</span> kderc_largedisplay <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$prefix</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    update_gnomekderc<span class="hl opt">(</span><span class="hl kwb">$_,</span> <span class="hl str">&apos;KDE&apos;</span><span class="hl opt">,</span> 
		     Contrast <span class="hl opt">=&gt;</span> <span class="hl num">7</span><span class="hl opt">,</span>
		     kfmIconStyle <span class="hl opt">=&gt;</span> <span class="hl str">&quot;Large&quot;</span><span class="hl opt">,</span>
		     kpanelIconStyle <span class="hl opt">=&gt;</span> <span class="hl str">&quot;Normal&quot;</span><span class="hl opt">,</span> <span class="hl slc">#- to change to Large when icons looks better</span>
		     KDEIconStyle <span class="hl opt">=&gt;</span> <span class="hl str">&quot;Large&quot;</span><span class="hl opt">)</span> <span class="hl kwa">foreach</span> list_skels<span class="hl opt">(</span><span class="hl kwb">$prefix,</span> <span class="hl str">&apos;.kderc&apos;</span><span class="hl opt">);</span>

    substInFile <span class="hl opt">{</span>
	<span class="hl kwd">s/^(GridWidth)=85/$1=100/</span><span class="hl opt">;</span>
	<span class="hl kwd">s/^(GridHeight)=70/$1=75/</span><span class="hl opt">;</span>
    <span class="hl opt">}</span> <span class="hl kwb">$_</span> <span class="hl kwa">foreach</span> list_skels<span class="hl opt">(</span><span class="hl kwb">$prefix,</span> <span class="hl str">&apos;.kde/share/config/kfmrc&apos;</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> kdemove_desktop_file <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$prefix</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;toMove</span> <span class="hl opt">=</span> <span class="hl str">qw(doc.kdelnk news.kdelnk updates.kdelnk home.kdelnk printer.kdelnk floppy.kdelnk cdrom.kdelnk FLOPPY.kdelnk CDROM.kdelnk)</span><span class="hl opt">;</span>

    <span class="hl slc">#- remove any existing save in Trash of each user and</span>
    <span class="hl slc">#- move appropriate file there after an upgrade.</span>
    <span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$dir</span> <span class="hl opt">(</span><span class="hl kwc">grep</span> <span class="hl opt">{ -</span>d <span class="hl kwb">$_</span> <span class="hl opt">}</span> list_skels<span class="hl opt">(</span><span class="hl kwb">$prefix,</span> <span class="hl str">&apos;Desktop&apos;</span><span class="hl opt">)) {</span>
	renamef<span class="hl opt">(</span><span class="hl str">&quot;</span><span class="hl ipl">$dir/$_</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;</span><span class="hl ipl">$dir/Trash/$_</span><span class="hl str">&quot;</span><span class="hl opt">)</span> 
	  <span class="hl kwa">foreach</span> <span class="hl kwc">grep</span> <span class="hl opt">{ -</span>e <span class="hl str">&quot;</span><span class="hl ipl">$dir/$_</span><span class="hl str">&quot;</span> <span class="hl opt">}</span> <span class="hl kwb">&#64;toMove,</span> <span class="hl kwc">grep</span> <span class="hl opt">{ /</span>\<span class="hl opt">.</span>rpmorig<span class="hl kwb">$/</span> <span class="hl opt">}</span> all<span class="hl opt">(</span><span class="hl kwb">$dir</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>


<span class="hl slc">#-###############################################################################</span>
<span class="hl slc">#- auto_install stuff</span>
<span class="hl slc">#-###############################################################################</span>
<span class="hl kwa">sub</span> auto_inst_file<span class="hl opt">() {</span> <span class="hl str">&quot;$::prefix/root/drakx/auto_inst.cfg.pl&quot;</span> <span class="hl opt">}</span>

<span class="hl kwa">sub</span> report_bug<span class="hl opt">() {</span>
    any<span class="hl opt">::</span>report_bug<span class="hl opt">(</span><span class="hl str">&apos;auto_inst&apos;</span> <span class="hl opt">=&gt;</span> g_auto_install<span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> <span class="hl num">1</span><span class="hl opt">));</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> g_auto_install <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$b_replay, $b_respect_privacy</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$o</span> <span class="hl opt">= {};</span>

    <span class="hl kwa">require</span> pkgs<span class="hl opt">;</span>
    <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>default_packages<span class="hl opt">} =</span> pkgs<span class="hl opt">::</span>selected_leaves<span class="hl opt">($::</span>o-<span class="hl opt">&gt;{</span>packages<span class="hl opt">});</span>

    <span class="hl kwc">my</span> <span class="hl kwb">&#64;fields</span> <span class="hl opt">=</span> <span class="hl str">qw(mntpoint fs_type size)</span><span class="hl opt">;</span>
    <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>partitions<span class="hl opt">} = [</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> 
	<span class="hl kwc">my</span> <span class="hl kwb">%l</span><span class="hl opt">;</span> <span class="hl kwb">&#64;l</span><span class="hl opt">{</span><span class="hl kwb">&#64;fields</span><span class="hl opt">} =</span> <span class="hl kwb">&#64;$_</span><span class="hl opt">{</span><span class="hl kwb">&#64;fields</span><span class="hl opt">};</span> \<span class="hl kwb">%l</span><span class="hl opt">;</span>
    <span class="hl opt">}</span> <span class="hl kwc">grep</span> <span class="hl opt">{</span> 
	<span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>mntpoint<span class="hl opt">} &amp;&amp;</span> fs<span class="hl opt">::</span>format<span class="hl opt">::</span>known_type<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">);</span>
    <span class="hl opt">} &#64;{$::</span>o-<span class="hl opt">&gt;{</span>fstab<span class="hl opt">}} ];</span>
    
    <span class="hl kwc">exists</span> <span class="hl opt">$::</span>o-<span class="hl opt">&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">}</span> <span class="hl kwc">and</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">} = $::</span>o-<span class="hl opt">&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">}</span> <span class="hl kwa">foreach</span> <span class="hl str">qw(locale authentication mouse netc timezone superuser intf keyboard users partitioning isUpgrade manualFstab nomouseprobe crypto security security_user libsafe netcnx useSupermount autoExitInstall X services)</span><span class="hl opt">;</span> <span class="hl slc">#- TODO modules bootloader </span>

    <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>printer<span class="hl opt">} = $::</span>o-<span class="hl opt">&gt;{</span>printer<span class="hl opt">}</span> <span class="hl kwa">if</span> <span class="hl opt">$::</span>o-<span class="hl opt">&gt;{</span>printer<span class="hl opt">};</span>

    <span class="hl kwc">local</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>partitioning<span class="hl opt">}{</span>auto_allocate<span class="hl opt">} = !</span><span class="hl kwb">$b_replay</span><span class="hl opt">;</span>
    <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>autoExitInstall<span class="hl opt">} = !</span><span class="hl kwb">$b_replay</span><span class="hl opt">;</span>
    <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>interactiveSteps<span class="hl opt">} = [</span> <span class="hl str">&apos;doPartitionDisks&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;formatPartitions&apos;</span> <span class="hl opt">]</span> <span class="hl kwa">if</span> <span class="hl kwb">$b_replay</span><span class="hl opt">;</span>

    <span class="hl slc">#- deep copy because we&apos;re modifying it below</span>
    <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>users<span class="hl opt">} = [ &#64;{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>users<span class="hl opt">} || []} ];</span>

    <span class="hl kwc">my</span> <span class="hl kwb">&#64;user_info_to_remove</span> <span class="hl opt">= (</span>
	if_<span class="hl opt">(</span><span class="hl kwb">$b_respect_privacy,</span> <span class="hl str">qw(name realname home pw)</span><span class="hl opt">),</span> 
	<span class="hl str">qw(oldu oldg password password2)</span><span class="hl opt">,</span>
    <span class="hl opt">);</span>
    <span class="hl kwb">$_</span> <span class="hl opt">= { %{</span><span class="hl kwb">$_</span> <span class="hl opt">|| {}} },</span> <span class="hl kwc">delete</span> <span class="hl kwb">&#64;$_</span><span class="hl opt">{</span><span class="hl kwb">&#64;user_info_to_remove</span><span class="hl opt">}</span> <span class="hl kwa">foreach</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>superuser<span class="hl opt">}, &#64;{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>users<span class="hl opt">} || []};</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$b_respect_privacy</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>netcnx<span class="hl opt">}) {</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$type</span> <span class="hl opt">=</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>netcnx<span class="hl opt">}{</span>type<span class="hl opt">}) {</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">&#64;netcnx_type_to_remove</span> <span class="hl opt">=</span> <span class="hl str">qw(passwd passwd2 login phone_in phone_out)</span><span class="hl opt">;</span>
	    <span class="hl kwb">$_</span> <span class="hl opt">= { %{</span><span class="hl kwb">$_</span> <span class="hl opt">|| {}} },</span> <span class="hl kwc">delete</span> <span class="hl kwb">&#64;$_</span><span class="hl opt">{</span><span class="hl kwb">&#64;netcnx_type_to_remove</span><span class="hl opt">}</span> <span class="hl kwa">foreach</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>netcnx<span class="hl opt">}{</span><span class="hl kwb">$type</span><span class="hl opt">};</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
    
    <span class="hl kwa">require</span> Data<span class="hl opt">::</span>Dumper<span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$str</span> <span class="hl opt">=</span> <span class="hl kwc">join</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> 
<span class="hl str">&quot;#!/usr/bin/perl -cw</span>
<span class="hl str">#</span>
<span class="hl str"># You should check the syntax of this file before using it in an auto-install.</span>
<span class="hl str"># You can do this with &apos;perl -cw auto_inst.cfg.pl&apos; or by executing this file</span>
<span class="hl str"># (note the &apos;#!/usr/bin/perl -cw&apos; on the first line).</span>
<span class="hl str">&quot;</span><span class="hl opt">,</span> Data<span class="hl opt">::</span>Dumper-<span class="hl opt">&gt;</span><span class="hl kwd">Dump</span><span class="hl opt">([</span><span class="hl kwb">$o</span><span class="hl opt">], [</span><span class="hl str">&apos;</span><span class="hl ipl">$o</span><span class="hl str">&apos;</span><span class="hl opt">]),</span> <span class="hl str">&quot;\0&quot;</span><span class="hl opt">);</span>
    <span class="hl kwb">$str</span> <span class="hl opt">=~</span> <span class="hl kwd">s/ {8}/\t/g</span><span class="hl opt">;</span> <span class="hl slc">#- replace all 8 space char by only one tabulation, this reduces file size so much :-)</span>
    <span class="hl kwb">$str</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> getAndSaveInstallFloppies <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o, $dest_dir, $name</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>    

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$postinstall_rpms</span> <span class="hl opt">&amp;&amp; -</span>d <span class="hl kwb">$postinstall_rpms</span> <span class="hl opt">&amp;&amp; -</span>r <span class="hl str">&quot;</span><span class="hl ipl">$postinstall_rpms/auto_install</span><span class="hl str">.img&quot;</span><span class="hl opt">) {</span>
	<span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;getAndSaveInstallFloppies: using file saved as</span> <span class="hl ipl">$postinstall_rpms/auto_install</span><span class="hl str">.img&quot;</span><span class="hl opt">);</span>
	cp_af<span class="hl opt">(</span><span class="hl str">&quot;</span><span class="hl ipl">$postinstall_rpms/auto_install</span><span class="hl str">.img&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;</span><span class="hl ipl">$dest_dir/$name</span><span class="hl str">.img&quot;</span><span class="hl opt">);</span>
	<span class="hl str">&quot;</span><span class="hl ipl">$dest_dir/$name</span><span class="hl str">.img&quot;</span><span class="hl opt">;</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$image</span> <span class="hl opt">=</span> cat_<span class="hl opt">(</span><span class="hl str">&quot;/proc/cmdline&quot;</span><span class="hl opt">) =~</span> <span class="hl kwd">/pcmcia/</span> ? <span class="hl str">&quot;pcmcia&quot;</span> <span class="hl opt">:</span>
	  arch<span class="hl opt">() =~</span> <span class="hl kwd">/ia64|ppc/</span> ? <span class="hl str">&quot;all&quot;</span>  <span class="hl opt">:</span> <span class="hl slc">#- we only use all.img there</span>
	  <span class="hl opt">${{</span> disk <span class="hl opt">=&gt;</span> <span class="hl str">&apos;hd_grub&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;disk-iso&apos;</span> <span class="hl opt">=&gt;</span> <span class="hl str">&apos;hd_grub&apos;</span><span class="hl opt">,</span> cdrom <span class="hl opt">=&gt;</span> <span class="hl str">&apos;cdrom&apos;</span><span class="hl opt">,</span> ftp <span class="hl opt">=&gt;</span> <span class="hl str">&apos;network&apos;</span><span class="hl opt">,</span> nfs <span class="hl opt">=&gt;</span> <span class="hl str">&apos;network&apos;</span><span class="hl opt">,</span> http <span class="hl opt">=&gt;</span> <span class="hl str">&apos;network&apos;</span> <span class="hl opt">}}{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span><span class="hl kwa">method</span><span class="hl opt">}};</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$have_drivers</span> <span class="hl opt">=</span> <span class="hl kwb">$image</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;network&apos;</span><span class="hl opt">;</span>
	<span class="hl kwb">$image</span> <span class="hl opt">.=</span> arch<span class="hl opt">() =~</span> <span class="hl kwd">/sparc64/</span> <span class="hl opt">&amp;&amp;</span> <span class="hl str">&quot;64&quot;</span><span class="hl opt">;</span> <span class="hl slc">#- for sparc64 there are a specific set of image.</span>

	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$have_drivers</span><span class="hl opt">) {</span>
	    getAndSaveFile<span class="hl opt">(</span><span class="hl str">&quot;install/images/${image}_drivers.img&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;</span><span class="hl ipl">$dest_dir/$</span><span class="hl str">{name}_drivers.img&quot;</span><span class="hl opt">)</span> <span class="hl kwc">or log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;failed to write Install Floppy (${image}_drivers.img) to</span> <span class="hl ipl">$dest_dir/$</span><span class="hl str">{name}_drivers.img&quot;</span><span class="hl opt">),</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
	getAndSaveFile<span class="hl opt">(</span><span class="hl str">&quot;install/images/</span><span class="hl ipl">$image</span><span class="hl str">.img&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;</span><span class="hl ipl">$dest_dir/$name</span><span class="hl str">.img&quot;</span><span class="hl opt">)</span> <span class="hl kwc">or log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;failed to write Install Floppy (</span><span class="hl ipl">$image</span><span class="hl str">.img) to</span> <span class="hl ipl">$dest_dir/$name</span><span class="hl str">.img&quot;</span><span class="hl opt">),</span> <span class="hl kwa">return</span><span class="hl opt">;</span>

	<span class="hl str">&quot;</span><span class="hl ipl">$dest_dir/$name</span><span class="hl str">.img&quot;</span><span class="hl opt">,</span> if_<span class="hl opt">(</span><span class="hl kwb">$have_drivers,</span> <span class="hl str">&quot;</span><span class="hl ipl">$dest_dir/$</span><span class="hl str">{name}_drivers.img&quot;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> getAndSaveAutoInstallFloppies <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o, $replay</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$name</span> <span class="hl opt">= (</span><span class="hl kwb">$replay</span> ? <span class="hl str">&apos;replay&apos;</span> <span class="hl opt">:</span> <span class="hl str">&apos;auto&apos;</span><span class="hl opt">) .</span> <span class="hl str">&apos;_install&apos;</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$dest_dir</span> <span class="hl opt">=</span> <span class="hl str">&quot;</span><span class="hl ipl">$o</span><span class="hl str">-&gt;{prefix}/root/drakx&quot;</span><span class="hl opt">;</span>

    <span class="hl kwc">eval</span> <span class="hl opt">{</span> modules<span class="hl opt">::</span>load<span class="hl opt">(</span><span class="hl str">&apos;loop&apos;</span><span class="hl opt">) };</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>arch<span class="hl opt">() =~</span> <span class="hl kwd">/ia64/</span><span class="hl opt">) {</span>
	<span class="hl slc">#- nothing yet</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$mountdir</span> <span class="hl opt">=</span> <span class="hl str">&quot;</span><span class="hl ipl">$o</span><span class="hl str">-&gt;{prefix}/root/aif-mount&quot;</span><span class="hl opt">; -</span>d <span class="hl kwb">$mountdir</span> <span class="hl kwc">or mkdir</span> <span class="hl kwb">$mountdir,</span> <span class="hl num">0755</span><span class="hl opt">;</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$param</span> <span class="hl opt">=</span> <span class="hl str">&apos;kickstart=floppy &apos;</span> <span class="hl opt">.</span> generate_automatic_stage1_params<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">);</span>

	<span class="hl kwc">my</span> <span class="hl kwb">&#64;imgs</span> <span class="hl opt">=</span> getAndSaveInstallFloppies<span class="hl opt">(</span><span class="hl kwb">$o, $dest_dir, $name</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>

	<span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$img</span> <span class="hl opt">(</span><span class="hl kwb">&#64;imgs</span><span class="hl opt">) {</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$dev</span> <span class="hl opt">=</span> devices<span class="hl opt">::</span>set_loop<span class="hl opt">(</span><span class="hl kwb">$img</span><span class="hl opt">)</span> <span class="hl kwc">or log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;couldn&apos;t set loopback device&quot;</span><span class="hl opt">),</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
	    find <span class="hl opt">{</span> <span class="hl kwc">eval</span> <span class="hl opt">{</span> fs<span class="hl opt">::</span>mount<span class="hl opt">(</span><span class="hl kwb">$dev, $mountdir, $_,</span> <span class="hl num">0</span><span class="hl opt">);</span> <span class="hl num">1</span> <span class="hl opt">} }</span> <span class="hl str">qw(ext2 vfat)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>

	    <span class="hl kwa">if</span> <span class="hl opt">(-</span>e <span class="hl str">&quot;</span><span class="hl ipl">$mountdir/menu</span><span class="hl str">.lst&quot;</span><span class="hl opt">) {</span>
		<span class="hl slc"># hd_grub boot disk is different than others</span>
		substInFile <span class="hl opt">{</span>
		    <span class="hl kwd">s/^(\s*timeout.*)/timeout 1/</span><span class="hl opt">;</span>
		    <span class="hl kwd">s/\bautomatic=method:disk/$param/</span><span class="hl opt">;</span>
		<span class="hl opt">}</span> <span class="hl str">&quot;</span><span class="hl ipl">$mountdir/menu</span><span class="hl str">.lst&quot;</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(-</span>e <span class="hl str">&quot;</span><span class="hl ipl">$mountdir/syslinux</span><span class="hl str">.cfg&quot;</span><span class="hl opt">) {</span>
		<span class="hl slc">#- make room first</span>
		<span class="hl kwc">unlink</span> <span class="hl str">&quot;</span><span class="hl ipl">$mountdir/help</span><span class="hl str">.msg&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;</span><span class="hl ipl">$mountdir/boot</span><span class="hl str">.msg&quot;</span><span class="hl opt">;</span>

		substInFile <span class="hl opt">{</span> 
		    <span class="hl kwd">s/timeout.*/$replay ? &apos;timeout 1&apos; : &apos;&apos;/e</span><span class="hl opt">;</span>
		    <span class="hl kwd">s/^(\s*append)/$1 $param/</span><span class="hl opt">;</span> 
		<span class="hl opt">}</span> <span class="hl str">&quot;</span><span class="hl ipl">$mountdir/syslinux</span><span class="hl str">.cfg&quot;</span><span class="hl opt">;</span>

		output <span class="hl str">&quot;</span><span class="hl ipl">$mountdir/boot</span><span class="hl str">.msg&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$replay</span> ? <span class="hl str">&apos;&apos;</span> <span class="hl opt">:</span> <span class="hl str">&quot;</span><span class="hl esc">\n</span><span class="hl str">0c&quot;</span> <span class="hl opt">.</span>
<span class="hl str">&quot;!! If you press enter, an auto-install is going to start.</span>
<span class="hl str">   All data on this computer is going to be lost,</span>
<span class="hl str">   including any Windows partitions !!</span>
<span class="hl str">&quot;</span> <span class="hl opt">.</span> <span class="hl str">&quot;07</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>

	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">&#64;imgs</span> <span class="hl opt">==</span> <span class="hl num">1</span> <span class="hl opt">||</span> <span class="hl kwb">$img</span> <span class="hl opt">=~</span> <span class="hl kwd">/drivers/</span><span class="hl opt">) {</span>
		<span class="hl kwc">local</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>partitioning<span class="hl opt">}{</span>clearall<span class="hl opt">} = !</span><span class="hl kwb">$replay</span><span class="hl opt">;</span>
		<span class="hl kwc">eval</span> <span class="hl opt">{</span> output<span class="hl opt">(</span><span class="hl str">&quot;</span><span class="hl ipl">$mountdir/auto_inst</span><span class="hl str">.cfg&quot;</span><span class="hl opt">,</span> g_auto_install<span class="hl opt">(</span><span class="hl kwb">$replay</span><span class="hl opt">)) };</span>
		<span class="hl kwb">$&#64;</span> <span class="hl kwc">and log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;Warning: &lt;&quot;</span><span class="hl opt">,</span> formatError<span class="hl opt">(</span><span class="hl kwb">$&#64;</span><span class="hl opt">),</span> <span class="hl str">&quot;&gt;&quot;</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	
	    fs<span class="hl opt">::</span>umount<span class="hl opt">(</span><span class="hl kwb">$mountdir</span><span class="hl opt">);</span>
	    devices<span class="hl opt">::</span>del_loop<span class="hl opt">(</span><span class="hl kwb">$dev</span><span class="hl opt">);</span>
	<span class="hl opt">}</span>
	<span class="hl kwc">rmdir</span> <span class="hl kwb">$mountdir</span><span class="hl opt">;</span>
	<span class="hl kwb">&#64;imgs</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>


<span class="hl kwa">sub</span> g_default_packages <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$_h, $fh</span><span class="hl opt">) =</span> media_browser<span class="hl opt">(</span><span class="hl kwb">$o,</span> <span class="hl str">&apos;save&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;package_list.pl&apos;</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>

    <span class="hl kwa">require</span> Data<span class="hl opt">::</span>Dumper<span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$str</span> <span class="hl opt">=</span> Data<span class="hl opt">::</span>Dumper-<span class="hl opt">&gt;</span><span class="hl kwd">Dump</span><span class="hl opt">([ {</span> default_packages <span class="hl opt">=&gt;</span> pkgs<span class="hl opt">::</span>selected_leaves<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>packages<span class="hl opt">}) } ], [</span><span class="hl str">&apos;</span><span class="hl ipl">$o</span><span class="hl str">&apos;</span><span class="hl opt">]);</span>
    <span class="hl kwb">$str</span> <span class="hl opt">=~</span> <span class="hl kwd">s/ {8}/\t/g</span><span class="hl opt">;</span>
    <span class="hl kwc">print</span> <span class="hl kwb">$fh</span>
	   <span class="hl str">&quot;# You should always check the syntax with &apos;perl -cw auto_inst.cfg.pl&apos;</span><span class="hl esc">\n</span><span class="hl str">&quot;</span> <span class="hl opt">.</span>
	   <span class="hl str">&quot;# before testing.  To use it, boot with ``linux defcfg=floppy&apos;&apos;</span><span class="hl esc">\n</span><span class="hl str">&quot;</span> <span class="hl opt">.</span>
	   <span class="hl kwb">$str</span> <span class="hl opt">.</span> <span class="hl str">&quot;\0&quot;</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> loadO <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$O, $f</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span> <span class="hl kwb">$f</span> <span class="hl opt">||=</span> auto_inst_file<span class="hl opt">();</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$o</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$f</span> <span class="hl opt">=~</span> <span class="hl kwd">/^(floppy|patch)$/</span><span class="hl opt">) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$f</span> <span class="hl opt">=</span> <span class="hl kwb">$f</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;floppy&quot;</span> ? <span class="hl str">&apos;auto_inst.cfg&apos;</span> <span class="hl opt">:</span> <span class="hl str">&quot;patch&quot;</span><span class="hl opt">;</span>
	<span class="hl kwa">unless</span> <span class="hl opt">($::</span>testing<span class="hl opt">) {</span>
            <span class="hl kwc">my</span> <span class="hl kwb">$dev</span> <span class="hl opt">=</span> devices<span class="hl opt">::</span>make<span class="hl opt">(</span>detect_devices<span class="hl opt">::</span>floppy<span class="hl opt">());</span>
            <span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$fs</span> <span class="hl opt">(</span>arch<span class="hl opt">() =~</span> <span class="hl kwd">/sparc/</span> ? <span class="hl str">&apos;romfs&apos;</span> <span class="hl opt">: (</span><span class="hl str">&apos;ext2&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;vfat&apos;</span><span class="hl opt">)) {</span>
                <span class="hl kwc">eval</span> <span class="hl opt">{</span> fs<span class="hl opt">::</span>mount<span class="hl opt">(</span><span class="hl kwb">$dev,</span> <span class="hl str">&apos;/mnt&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$fs,</span> <span class="hl str">&apos;readonly&apos;</span><span class="hl opt">);</span> <span class="hl num">1</span> <span class="hl opt">}</span> <span class="hl kwc">and</span> <span class="hl kwa">goto</span> mount_ok<span class="hl opt">;</span>
            <span class="hl opt">}</span>
            <span class="hl kwc">die</span> <span class="hl str">&quot;Could not mount floppy [</span><span class="hl ipl">$dev</span><span class="hl str">]&quot;</span><span class="hl opt">;</span>
          mount_ok<span class="hl opt">:</span>
	    <span class="hl kwb">$f</span> <span class="hl opt">=</span> <span class="hl str">&quot;/mnt/</span><span class="hl ipl">$f</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
	<span class="hl opt">-</span>e <span class="hl kwb">$f</span> <span class="hl kwc">or</span> <span class="hl kwb">$f</span> <span class="hl opt">.=</span> <span class="hl str">&apos;.pl&apos;</span><span class="hl opt">;</span>

	<span class="hl kwc">my</span> <span class="hl kwb">$_b</span> <span class="hl opt">=</span> before_leaving <span class="hl opt">{</span>
	    fs<span class="hl opt">::</span>umount<span class="hl opt">(</span><span class="hl str">&quot;/mnt&quot;</span><span class="hl opt">)</span> <span class="hl kwa">unless</span> <span class="hl opt">$::</span>testing<span class="hl opt">;</span>
	    modules<span class="hl opt">::</span>unload<span class="hl opt">(</span><span class="hl str">qw(vfat fat)</span><span class="hl opt">);</span>
	<span class="hl opt">};</span>
	<span class="hl kwb">$o</span> <span class="hl opt">=</span> loadO<span class="hl opt">(</span><span class="hl kwb">$O, $f</span><span class="hl opt">);</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$fh</span><span class="hl opt">;</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">ref</span> <span class="hl kwb">$f</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$fh</span> <span class="hl opt">=</span> <span class="hl kwb">$f</span><span class="hl opt">;</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl opt">-</span>e <span class="hl str">&quot;</span><span class="hl ipl">$f</span><span class="hl str">.pl&quot;</span> <span class="hl kwc">and</span> <span class="hl kwb">$f</span> <span class="hl opt">.=</span> <span class="hl str">&quot;.pl&quot;</span> <span class="hl kwa">unless</span> <span class="hl opt">-</span>e <span class="hl kwb">$f</span><span class="hl opt">;</span>

	    <span class="hl kwa">if</span> <span class="hl opt">(-</span>e <span class="hl kwb">$f</span><span class="hl opt">) {</span> <span class="hl kwc">open</span> <span class="hl kwb">$fh, $f</span> <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span> <span class="hl kwb">$fh</span> <span class="hl opt">=</span> getFile<span class="hl opt">(</span><span class="hl kwb">$f</span><span class="hl opt">)</span> <span class="hl kwc">or die</span> N<span class="hl opt">(</span><span class="hl str">&quot;Error reading file</span> <span class="hl ipl">%s</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$f</span><span class="hl opt">) }</span>
	<span class="hl opt">}</span>
	<span class="hl opt">{</span>
	    <span class="hl kwc">local</span> <span class="hl kwb">$/</span> <span class="hl opt">=</span> <span class="hl str">&quot;\0&quot;</span><span class="hl opt">;</span>
	    <span class="hl kwa">no</span> strict<span class="hl opt">;</span>
	    <span class="hl kwc">eval</span> <span class="hl opt">&lt;</span><span class="hl kwb">$fh</span><span class="hl opt">&gt;;</span>
	    <span class="hl kwc">close</span> <span class="hl kwb">$fh</span><span class="hl opt">;</span>
	    <span class="hl kwb">$&#64;</span> <span class="hl kwc">and die</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
	<span class="hl kwb">$O</span> <span class="hl kwc">and</span> add2hash_<span class="hl opt">(</span><span class="hl kwb">$o</span> <span class="hl opt">||= {},</span> <span class="hl kwb">$O</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwb">$O</span> <span class="hl kwc">and bless</span> <span class="hl kwb">$o,</span> <span class="hl kwc">ref</span> <span class="hl kwb">$O</span><span class="hl opt">;</span>

    <span class="hl slc">#- handle backward compatibility for things that changed</span>
    <span class="hl kwa">foreach</span> <span class="hl opt">(&#64;{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>partitions<span class="hl opt">} || []}, &#64;{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>manualFstab<span class="hl opt">} || []}) {</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$type</span> <span class="hl opt">=</span> <span class="hl kwc">delete</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>type<span class="hl opt">}) {</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$type</span> <span class="hl opt">=~</span> <span class="hl kwd">/^(0x)?(\d*)$/</span><span class="hl opt">) {</span>
		fs<span class="hl opt">::</span>type<span class="hl opt">::</span>set_pt_type<span class="hl opt">(</span><span class="hl kwb">$_, $type</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		fs<span class="hl opt">::</span>type<span class="hl opt">::</span>set_fs_type<span class="hl opt">(</span><span class="hl kwb">$_, $type</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
    <span class="hl slc">#- {rpmsrate_flags_chosen} was called {compssUsersChoice}</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$rpmsrate_flags_chosen</span> <span class="hl opt">=</span> <span class="hl kwc">delete</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>compssUsersChoice<span class="hl opt">}) {</span>
	<span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>rpmsrate_flags_chosen<span class="hl opt">} =</span> <span class="hl kwb">$rpmsrate_flags_chosen</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl slc">#- compssUsers flags are now named CAT_XXX</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>rpmsrate_flags_chosen<span class="hl opt">} &amp;&amp;</span>
	<span class="hl opt">!</span> any <span class="hl opt">{</span> <span class="hl kwd">/^CAT_/</span> <span class="hl opt">}</span> <span class="hl kwc">keys</span> <span class="hl opt">%{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>rpmsrate_flags_chosen<span class="hl opt">}}) {</span>
	<span class="hl slc">#- we don&apos;t really know if this is needed for compatibility, but it won&apos;t hurt :)</span>
	<span class="hl kwa">foreach</span> <span class="hl opt">(</span><span class="hl kwc">keys</span> <span class="hl opt">%{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>rpmsrate_flags_chosen<span class="hl opt">}}) {</span>
	    <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>rpmsrate_flags_chosen<span class="hl opt">}{</span><span class="hl str">&quot;CAT_</span><span class="hl ipl">$_</span><span class="hl str">&quot;</span><span class="hl opt">} =</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>rpmsrate_flags_chosen<span class="hl opt">}{</span><span class="hl kwb">$_</span><span class="hl opt">};</span>
	<span class="hl opt">}</span>
	<span class="hl slc">#- it used to be always selected</span>
	<span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>rpmsrate_flags_chosen<span class="hl opt">}{</span>CAT_SYSTEM<span class="hl opt">} =</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl kwb">$o</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> generate_automatic_stage1_params <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$method</span> <span class="hl opt">=</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span><span class="hl kwa">method</span><span class="hl opt">};</span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;ks</span><span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span><span class="hl kwa">method</span><span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;http&apos;</span><span class="hl opt">) {</span>
	<span class="hl kwb">$ENV</span><span class="hl opt">{</span>URLPREFIX<span class="hl opt">} =~</span> <span class="hl kwd">m!(http|ftp)://([^/:]+)(.*)!</span> <span class="hl kwc">or die</span><span class="hl opt">;</span>
	<span class="hl kwb">$method</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span><span class="hl opt">;</span> <span class="hl slc">#- in stage1, FTP via HTTP proxy is available through FTP config, not HTTP</span>
	<span class="hl kwb">&#64;ks</span> <span class="hl opt">= (</span>server <span class="hl opt">=&gt;</span> <span class="hl kwb">$2,</span> directory <span class="hl opt">=&gt;</span> <span class="hl kwb">$3</span><span class="hl opt">);</span>
    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span><span class="hl kwa">method</span><span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;ftp&apos;</span><span class="hl opt">) {</span>
	<span class="hl kwb">&#64;ks</span> <span class="hl opt">= (</span>server <span class="hl opt">=&gt;</span> <span class="hl kwb">$ENV</span><span class="hl opt">{</span>HOST<span class="hl opt">},</span> directory <span class="hl opt">=&gt;</span> <span class="hl kwb">$ENV</span><span class="hl opt">{</span>PREFIX<span class="hl opt">},</span> user <span class="hl opt">=&gt;</span> <span class="hl kwb">$ENV</span><span class="hl opt">{</span>LOGIN<span class="hl opt">},</span> pass <span class="hl opt">=&gt;</span> <span class="hl kwb">$ENV</span><span class="hl opt">{</span>PASSWORD<span class="hl opt">});</span>
    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span><span class="hl kwa">method</span><span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;nfs&apos;</span><span class="hl opt">) {</span>
	cat_<span class="hl opt">(</span><span class="hl str">&quot;/proc/mounts&quot;</span><span class="hl opt">) =~</span> m<span class="hl opt">|(</span>\S<span class="hl opt">+):(</span>\S<span class="hl opt">+)</span>\s<span class="hl opt">+</span><span class="hl kwd">/tmp/</span>nfsimage<span class="hl opt">|</span> <span class="hl kwc">or</span> internal_error<span class="hl opt">(</span><span class="hl str">&quot;can not find nfsimage&quot;</span><span class="hl opt">);</span>
	<span class="hl kwb">&#64;ks</span> <span class="hl opt">= (</span>server <span class="hl opt">=&gt;</span> <span class="hl kwb">$1,</span> directory <span class="hl opt">=&gt;</span> <span class="hl kwb">$2</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwb">&#64;ks</span> <span class="hl opt">= (</span><span class="hl kwa">method</span> <span class="hl opt">=&gt;</span> <span class="hl kwb">$method, &#64;ks</span><span class="hl opt">);</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>member<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span><span class="hl kwa">method</span><span class="hl opt">},</span> <span class="hl str">qw(http ftp nfs)</span><span class="hl opt">)) {</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$ENV</span><span class="hl opt">{</span>PROXY<span class="hl opt">}) {</span>
	    <span class="hl kwc">push</span> <span class="hl kwb">&#64;ks,</span> proxy_host <span class="hl opt">=&gt;</span> <span class="hl kwb">$ENV</span><span class="hl opt">{</span>PROXY<span class="hl opt">},</span> proxy_port <span class="hl opt">=&gt;</span> <span class="hl kwb">$ENV</span><span class="hl opt">{</span>PROXYPORT<span class="hl opt">};</span>
	<span class="hl opt">}</span>
	<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$intf</span><span class="hl opt">) =</span> <span class="hl kwc">values</span> <span class="hl opt">%{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>intf<span class="hl opt">}};</span>
	<span class="hl kwc">push</span> <span class="hl kwb">&#64;ks,</span> interface <span class="hl opt">=&gt;</span> <span class="hl kwb">$intf</span><span class="hl opt">-&gt;{</span>DEVICE<span class="hl opt">};</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$intf</span><span class="hl opt">-&gt;{</span>BOOTPROTO<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;dhcp&apos;</span><span class="hl opt">) {</span>
	    <span class="hl kwc">push</span> <span class="hl kwb">&#64;ks,</span> network <span class="hl opt">=&gt;</span> <span class="hl str">&apos;dhcp&apos;</span><span class="hl opt">;</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl kwc">push</span> <span class="hl kwb">&#64;ks,</span> network <span class="hl opt">=&gt;</span> <span class="hl str">&apos;static&apos;</span><span class="hl opt">,</span> ip <span class="hl opt">=&gt;</span> <span class="hl kwb">$intf</span><span class="hl opt">-&gt;{</span>IPADDR<span class="hl opt">},</span> netmask <span class="hl opt">=&gt;</span> <span class="hl kwb">$intf</span><span class="hl opt">-&gt;{</span>NETMASK<span class="hl opt">},</span> gateway <span class="hl opt">=&gt;</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>netc<span class="hl opt">}{</span>GATEWAY<span class="hl opt">};</span>
	    <span class="hl kwa">require</span> network<span class="hl opt">::</span>network<span class="hl opt">;</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">&#64;dnss</span> <span class="hl opt">=</span> network<span class="hl opt">::</span>network<span class="hl opt">::</span>dnsServers<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>netc<span class="hl opt">})) {</span>
		<span class="hl kwc">push</span> <span class="hl kwb">&#64;ks,</span> dns <span class="hl opt">=&gt;</span> <span class="hl kwb">$dnss</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">];</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>

    <span class="hl slc">#- sync it with ../mdk-stage1/automatic.c</span>
    <span class="hl kwc">my</span> <span class="hl kwb">%aliases</span> <span class="hl opt">= (</span><span class="hl kwa">method</span> <span class="hl opt">=&gt;</span> <span class="hl str">&apos;met&apos;</span><span class="hl opt">,</span> network <span class="hl opt">=&gt;</span> <span class="hl str">&apos;netw&apos;</span><span class="hl opt">,</span> interface <span class="hl opt">=&gt;</span> <span class="hl str">&apos;int&apos;</span><span class="hl opt">,</span> gateway <span class="hl opt">=&gt;</span> <span class="hl str">&apos;gat&apos;</span><span class="hl opt">,</span> netmask <span class="hl opt">=&gt;</span> <span class="hl str">&apos;netm&apos;</span><span class="hl opt">,</span>
		   adsluser <span class="hl opt">=&gt;</span> <span class="hl str">&apos;adslu&apos;</span><span class="hl opt">,</span> adslpass <span class="hl opt">=&gt;</span> <span class="hl str">&apos;adslp&apos;</span><span class="hl opt">,</span> hostname <span class="hl opt">=&gt;</span> <span class="hl str">&apos;hos&apos;</span><span class="hl opt">,</span> domain <span class="hl opt">=&gt;</span> <span class="hl str">&apos;dom&apos;</span><span class="hl opt">,</span> server <span class="hl opt">=&gt;</span> <span class="hl str">&apos;ser&apos;</span><span class="hl opt">,</span>
		   directory <span class="hl opt">=&gt;</span> <span class="hl str">&apos;dir&apos;</span><span class="hl opt">,</span> user <span class="hl opt">=&gt;</span> <span class="hl str">&apos;use&apos;</span><span class="hl opt">,</span> pass <span class="hl opt">=&gt;</span> <span class="hl str">&apos;pas&apos;</span><span class="hl opt">,</span> disk <span class="hl opt">=&gt;</span> <span class="hl str">&apos;dis&apos;</span><span class="hl opt">,</span> partition <span class="hl opt">=&gt;</span> <span class="hl str">&apos;par&apos;</span><span class="hl opt">);</span>
    
    <span class="hl str">&apos;automatic=&apos;</span> <span class="hl opt">.</span> <span class="hl kwc">join</span><span class="hl opt">(</span><span class="hl str">&apos;,&apos;</span><span class="hl opt">,</span> <span class="hl kwc">map</span> <span class="hl opt">{ (</span><span class="hl kwb">$aliases</span><span class="hl opt">{</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;[</span><span class="hl num">0</span><span class="hl opt">]} ||</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;[</span><span class="hl num">0</span><span class="hl opt">]) .</span> <span class="hl str">&apos;:&apos;</span> <span class="hl opt">.</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;[</span><span class="hl num">1</span><span class="hl opt">] }</span> group_by2<span class="hl opt">(</span><span class="hl kwb">&#64;ks</span><span class="hl opt">));</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> guess_mount_point <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$part, $prefix, $user</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">%l</span> <span class="hl opt">= (</span>
	     <span class="hl str">&apos;/&apos;</span>     <span class="hl opt">=&gt;</span> <span class="hl str">&apos;etc/fstab&apos;</span><span class="hl opt">,</span>
	     <span class="hl str">&apos;/boot&apos;</span> <span class="hl opt">=&gt;</span> <span class="hl str">&apos;vmlinuz&apos;</span><span class="hl opt">,</span>
	     <span class="hl str">&apos;/tmp&apos;</span>  <span class="hl opt">=&gt;</span> <span class="hl str">&apos;.X11-unix&apos;</span><span class="hl opt">,</span>
	     <span class="hl str">&apos;/usr&apos;</span>  <span class="hl opt">=&gt;</span> <span class="hl str">&apos;X11R6&apos;</span><span class="hl opt">,</span>
	     <span class="hl str">&apos;/var&apos;</span>  <span class="hl opt">=&gt;</span> <span class="hl str">&apos;catman&apos;</span><span class="hl opt">,</span>
	    <span class="hl opt">);</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$handle</span> <span class="hl opt">=</span> any<span class="hl opt">::</span>inspect<span class="hl opt">(</span><span class="hl kwb">$part, $prefix</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$d</span> <span class="hl opt">=</span> <span class="hl kwb">$handle</span><span class="hl opt">-&gt;{</span>dir<span class="hl opt">};</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$mnt</span> <span class="hl opt">=</span> find <span class="hl opt">{ -</span>e <span class="hl str">&quot;</span><span class="hl ipl">$d/$l</span><span class="hl str">{</span><span class="hl ipl">$_</span><span class="hl str">}&quot;</span> <span class="hl opt">}</span> <span class="hl kwc">keys</span> <span class="hl kwb">%l</span><span class="hl opt">;</span>
    <span class="hl kwb">$mnt</span> <span class="hl opt">||= (</span><span class="hl kwc">stat</span><span class="hl opt">(</span><span class="hl str">&quot;</span><span class="hl ipl">$d/</span><span class="hl str">.bashrc&quot;</span><span class="hl opt">))[</span><span class="hl num">4</span><span class="hl opt">]</span> ? <span class="hl str">&apos;/root&apos;</span> <span class="hl opt">:</span> <span class="hl str">&apos;/home/user&apos;</span> <span class="hl opt">. ++</span><span class="hl kwb">$$user</span> <span class="hl kwa">if</span> <span class="hl opt">-</span>e <span class="hl str">&quot;</span><span class="hl ipl">$d/</span><span class="hl str">.bashrc&quot;</span><span class="hl opt">;</span>
    <span class="hl kwb">$mnt</span> <span class="hl opt">||= (</span>any <span class="hl opt">{ -</span>d <span class="hl kwb">$_</span> <span class="hl opt">&amp;&amp; (</span><span class="hl kwc">stat</span><span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">))[</span><span class="hl num">4</span><span class="hl opt">] &gt;=</span> <span class="hl num">500</span> <span class="hl opt">&amp;&amp; -</span>e <span class="hl str">&quot;</span><span class="hl ipl">$_/</span><span class="hl str">.bashrc&quot;</span> <span class="hl opt">}</span> glob_<span class="hl opt">(</span><span class="hl kwb">$d</span><span class="hl opt">))</span> ? <span class="hl str">&apos;/home&apos;</span> <span class="hl opt">:</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">;</span>
    <span class="hl opt">(</span><span class="hl kwb">$mnt, $handle</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> suggest_mount_points <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$fstab, $prefix, $uniq</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$user</span><span class="hl opt">;</span>
    <span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$part</span> <span class="hl opt">(</span><span class="hl kwc">grep</span> <span class="hl opt">{</span> isTrueFS<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">) }</span> <span class="hl kwb">&#64;$fstab</span><span class="hl opt">) {</span>
	<span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>mntpoint<span class="hl opt">} &amp;&amp; !</span><span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>unsafeMntpoint<span class="hl opt">}</span> <span class="hl kwc">and</span> <span class="hl kwa">next</span><span class="hl opt">;</span> <span class="hl slc">#- if already found via an fstab</span>

	<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$mnt, $handle</span><span class="hl opt">) =</span> guess_mount_point<span class="hl opt">(</span><span class="hl kwb">$part, $prefix,</span> \<span class="hl kwb">$user</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">next</span><span class="hl opt">;</span>

	<span class="hl kwa">next if</span> <span class="hl kwb">$uniq</span> <span class="hl opt">&amp;&amp;</span> fs<span class="hl opt">::</span>get<span class="hl opt">::</span>mntpoint2part<span class="hl opt">(</span><span class="hl kwb">$mnt, $fstab</span><span class="hl opt">);</span>
	<span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>mntpoint<span class="hl opt">} =</span> <span class="hl kwb">$mnt</span><span class="hl opt">;</span> <span class="hl kwc">delete</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>unsafeMntpoint<span class="hl opt">};</span>

	<span class="hl slc">#- try to find other mount points via fstab</span>
	fs<span class="hl opt">::</span>merge_info_from_fstab<span class="hl opt">(</span><span class="hl kwb">$fstab, $handle</span><span class="hl opt">-&gt;{</span>dir<span class="hl opt">},</span> <span class="hl kwb">$uniq,</span> <span class="hl str">&apos;loose&apos;</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl kwb">$mnt</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;/&apos;</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>mntpoint<span class="hl opt">}</span> <span class="hl kwc">and log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;suggest_mount_points:</span> <span class="hl ipl">$_</span><span class="hl str">-&gt;{device} -&gt;</span> <span class="hl ipl">$_</span><span class="hl str">-&gt;{mntpoint}&quot;</span><span class="hl opt">)</span> <span class="hl kwa">foreach</span> <span class="hl kwb">&#64;$fstab</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> find_root_parts <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$fstab, $prefix</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">map</span> <span class="hl opt">{</span> 
	<span class="hl kwc">my</span> <span class="hl kwb">$handle</span> <span class="hl opt">=</span> any<span class="hl opt">::</span>inspect<span class="hl opt">(</span><span class="hl kwb">$_, $prefix</span><span class="hl opt">);</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$f</span> <span class="hl opt">=</span> <span class="hl kwb">$handle</span> <span class="hl opt">&amp;&amp; (</span>find <span class="hl opt">{ -</span>f <span class="hl kwb">$_</span> <span class="hl opt">}</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl str">&quot;</span><span class="hl ipl">$handle</span><span class="hl str">-&gt;{dir}/etc/</span><span class="hl ipl">$_</span><span class="hl str">&quot;</span> <span class="hl opt">}</span> <span class="hl str">&apos;mandrakelinux-release&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;mandrake-release&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;redhat-release&apos;</span><span class="hl opt">);</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$f</span><span class="hl opt">) {</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$s</span> <span class="hl opt">=</span> cat_<span class="hl opt">(</span><span class="hl kwb">$f</span><span class="hl opt">);</span>
	    <span class="hl kwc">chomp</span><span class="hl opt">(</span><span class="hl kwb">$s</span><span class="hl opt">);</span>
	    <span class="hl kwb">$s</span> <span class="hl opt">=~</span> <span class="hl kwd">s/\s+for\s+\S+//</span><span class="hl opt">;</span>
	    <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;find_root_parts found</span> <span class="hl ipl">$_</span><span class="hl str">-&gt;{device}:</span> <span class="hl ipl">$s</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
	    <span class="hl opt">{</span> release <span class="hl opt">=&gt;</span> <span class="hl kwb">$s,</span> part <span class="hl opt">=&gt;</span> <span class="hl kwb">$_,</span> release_file <span class="hl opt">=&gt;</span> <span class="hl kwb">$f</span> <span class="hl opt">};</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{ () }</span>
    <span class="hl opt">}</span> <span class="hl kwb">&#64;$fstab</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> migrate_device_names <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$all_hds, $from_fstab, $new_root, $root_from_fstab, $o_in</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;warning: fstab says root partition is</span> <span class="hl ipl">$root_from_fstab</span><span class="hl str">-&gt;{device}, whereas we were reading fstab from</span> <span class="hl ipl">$new_root</span><span class="hl str">-&gt;{device}&quot;</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$old_prefix, $old_part_number</span><span class="hl opt">) =</span> devices<span class="hl opt">::</span>simple_partition_scan<span class="hl opt">(</span><span class="hl kwb">$root_from_fstab</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$new_prefix, $new_part_number</span><span class="hl opt">) =</span> devices<span class="hl opt">::</span>simple_partition_scan<span class="hl opt">(</span><span class="hl kwb">$new_root</span><span class="hl opt">);</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$old_part_number</span> <span class="hl opt">!=</span> <span class="hl kwb">$new_part_number</span><span class="hl opt">) {</span>
	<span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;argh,</span> <span class="hl ipl">$root_from_fstab</span><span class="hl str">-&gt;{device} and</span> <span class="hl ipl">$old_part_number</span><span class="hl str">-&gt;{device} are not the same partition number&quot;</span><span class="hl opt">);</span>
	<span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;replacing</span> <span class="hl ipl">$old_prefix</span> <span class="hl str">with</span> <span class="hl ipl">$new_prefix</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
    
    <span class="hl kwc">my</span> <span class="hl kwb">%h</span><span class="hl opt">;</span>
    <span class="hl kwa">foreach</span> <span class="hl opt">(</span><span class="hl kwb">&#64;$from_fstab</span><span class="hl opt">) {</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>device<span class="hl opt">} =~</span> <span class="hl kwd">s!^\Q$old_prefix!$new_prefix!</span><span class="hl opt">) {</span>
	    <span class="hl slc">#- this is simple to handle, nothing more to do</span>
	<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>part_number<span class="hl opt">}) {</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$device_prefix</span> <span class="hl opt">=</span> devices<span class="hl opt">::</span>part_prefix<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">);</span>
	    <span class="hl kwc">push</span> <span class="hl opt">&#64;{</span><span class="hl kwb">$h</span><span class="hl opt">{</span><span class="hl kwb">$device_prefix</span><span class="hl opt">}},</span> <span class="hl kwb">$_</span><span class="hl opt">;</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl slc">#- hopefully this does not need anything special</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;from_fstab_per_hds</span> <span class="hl opt">=</span> <span class="hl kwc">values</span> <span class="hl kwb">%h</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>


    <span class="hl kwc">my</span> <span class="hl kwb">&#64;current_hds</span> <span class="hl opt">=</span> <span class="hl kwc">grep</span> <span class="hl opt">{</span> <span class="hl kwb">$new_root</span><span class="hl opt">-&gt;{</span>rootDevice<span class="hl opt">}</span> <span class="hl kwc">ne</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>device<span class="hl opt">} }</span> fs<span class="hl opt">::</span>get<span class="hl opt">::</span>hds<span class="hl opt">(</span><span class="hl kwb">$all_hds</span><span class="hl opt">);</span>

    found_one<span class="hl opt">:</span>
    <span class="hl kwb">&#64;from_fstab_per_hds</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>

    <span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$from_fstab_per_hd</span> <span class="hl opt">(</span><span class="hl kwb">&#64;from_fstab_per_hds</span><span class="hl opt">) {</span>
	<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$matching, $other</span><span class="hl opt">) =</span> partition <span class="hl opt">{</span> 
	    <span class="hl kwc">my</span> <span class="hl kwb">$hd</span> <span class="hl opt">=</span> <span class="hl kwb">$_</span><span class="hl opt">;</span>
	    every <span class="hl opt">{</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$wanted</span> <span class="hl opt">=</span> <span class="hl kwb">$_</span><span class="hl opt">;</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$part</span> <span class="hl opt">=</span> find <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>part_number<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl kwb">$wanted</span><span class="hl opt">-&gt;{</span>part_number<span class="hl opt">} }</span> partition_table<span class="hl opt">::</span>get_normal_parts<span class="hl opt">(</span><span class="hl kwb">$hd</span><span class="hl opt">);</span>
		<span class="hl kwb">$part</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>fs_type<span class="hl opt">} &amp;&amp;</span> fs<span class="hl opt">::</span>type<span class="hl opt">::</span>can_be_this_fs_type<span class="hl opt">(</span><span class="hl kwb">$wanted, $part</span><span class="hl opt">-&gt;{</span>fs_type<span class="hl opt">});</span>
	    <span class="hl opt">}</span> <span class="hl kwb">&#64;$from_fstab_per_hd</span><span class="hl opt">;</span>
	<span class="hl opt">}</span> <span class="hl kwb">&#64;current_hds</span><span class="hl opt">;</span>
	<span class="hl kwb">&#64;$matching</span> <span class="hl opt">==</span> <span class="hl num">1</span> <span class="hl kwc">or</span> <span class="hl kwa">next</span><span class="hl opt">;</span>

	<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$hd</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;$matching</span><span class="hl opt">;</span>
	<span class="hl kwb">&#64;current_hds</span> <span class="hl opt">=</span> <span class="hl kwb">&#64;$other</span><span class="hl opt">;</span>
	<span class="hl kwb">&#64;from_fstab_per_hds</span> <span class="hl opt">=</span> <span class="hl kwc">grep</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span> <span class="hl opt">!=</span> <span class="hl kwb">$from_fstab_per_hd</span> <span class="hl opt">}</span> <span class="hl kwb">&#64;from_fstab_per_hds</span><span class="hl opt">;</span>

	<span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;</span><span class="hl ipl">$hd</span><span class="hl str">-&gt;{device} nicely corresponds to &quot;</span> <span class="hl opt">.</span> <span class="hl kwc">join</span><span class="hl opt">(</span><span class="hl str">&apos; &apos;</span><span class="hl opt">,</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>device<span class="hl opt">} }</span> <span class="hl kwb">&#64;$from_fstab_per_hd</span><span class="hl opt">));</span>
	<span class="hl kwa">foreach</span> <span class="hl opt">(</span><span class="hl kwb">&#64;$from_fstab_per_hd</span><span class="hl opt">) {</span>
	    partition_table<span class="hl opt">::</span>compute_device_name<span class="hl opt">(</span><span class="hl kwb">$_, $hd</span><span class="hl opt">);</span>
	<span class="hl opt">}</span>
	<span class="hl kwa">goto</span> found_one<span class="hl opt">;</span>
    <span class="hl opt">}</span>
	
    <span class="hl slc">#- we can not find one and only one matching hd</span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;from_fstab_not_handled</span> <span class="hl opt">=</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl kwb">&#64;$_</span> <span class="hl opt">}</span> <span class="hl kwb">&#64;from_fstab_per_hds</span><span class="hl opt">;</span>
    <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;we still do not know what to do with: &quot;</span> <span class="hl opt">.</span> <span class="hl kwc">join</span><span class="hl opt">(</span><span class="hl str">&apos; &apos;</span><span class="hl opt">,</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>device<span class="hl opt">} }</span> <span class="hl kwb">&#64;from_fstab_not_handled</span><span class="hl opt">));</span>


    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$o_in</span><span class="hl opt">) {</span>
	<span class="hl kwc">die</span> <span class="hl str">&apos;still have&apos;</span><span class="hl opt">;</span>
	<span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;well, ignoring them!&quot;</span><span class="hl opt">);</span>
	<span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$propositions_valid</span> <span class="hl opt">=</span> every <span class="hl opt">{</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$wanted</span> <span class="hl opt">=</span> <span class="hl kwb">$_</span><span class="hl opt">;</span>
	<span class="hl kwc">my</span> <span class="hl kwb">&#64;parts</span> <span class="hl opt">=</span> <span class="hl kwc">grep</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>part_number<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl kwb">$wanted</span><span class="hl opt">-&gt;{</span>part_number<span class="hl opt">}</span>
			     <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>fs_type<span class="hl opt">} &amp;&amp;</span> fs<span class="hl opt">::</span>type<span class="hl opt">::</span>can_be_this_fs_type<span class="hl opt">(</span><span class="hl kwb">$wanted, $_</span><span class="hl opt">-&gt;{</span>fs_type<span class="hl opt">}) }</span> fs<span class="hl opt">::</span>get<span class="hl opt">::</span>hds_fstab<span class="hl opt">(</span><span class="hl kwb">&#64;current_hds</span><span class="hl opt">);</span>
	<span class="hl kwb">$wanted</span><span class="hl opt">-&gt;{</span>propositions<span class="hl opt">} =</span> \<span class="hl kwb">&#64;parts</span><span class="hl opt">;</span>
	<span class="hl kwb">&#64;parts</span> <span class="hl opt">&gt;</span> <span class="hl num">0</span><span class="hl opt">;</span>
    <span class="hl opt">}</span> <span class="hl kwb">&#64;from_fstab_not_handled</span><span class="hl opt">;</span>

    <span class="hl kwb">$o_in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> 
		    N<span class="hl opt">(</span><span class="hl str">&quot;The following disk(s) were renamed:&quot;</span><span class="hl opt">),</span>
		    <span class="hl opt">[</span> <span class="hl kwc">map</span> <span class="hl opt">{</span>
			<span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;</span><span class="hl ipl">%s</span> <span class="hl str">(previously named as</span> <span class="hl ipl">%s</span><span class="hl str">)&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>mntpoint<span class="hl opt">},</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>device<span class="hl opt">}),</span>
			  val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>device<span class="hl opt">},</span> format <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">] &amp;&amp;</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>device<span class="hl opt">} },</span>
			  list <span class="hl opt">=&gt; [</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> 
				    <span class="hl kwb">$propositions_valid</span> ? <span class="hl opt">&#64;{</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>propositions<span class="hl opt">}} :</span> 
				    fs<span class="hl opt">::</span>get<span class="hl opt">::</span>hds_fstab<span class="hl opt">(</span><span class="hl kwb">&#64;current_hds</span><span class="hl opt">) ] };</span>
		    <span class="hl opt">}</span> <span class="hl kwb">&#64;from_fstab_not_handled</span> <span class="hl opt">]);</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> use_root_part <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$all_hds, $part, $o_in</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$migrate_device_names</span><span class="hl opt">;</span>
    <span class="hl opt">{</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$handle</span> <span class="hl opt">=</span> any<span class="hl opt">::</span>inspect<span class="hl opt">(</span><span class="hl kwb">$part,</span> <span class="hl opt">$::</span>prefix<span class="hl opt">)</span> <span class="hl kwc">or die</span><span class="hl opt">;</span>

	<span class="hl kwc">my</span> <span class="hl kwb">&#64;from_fstab</span> <span class="hl opt">=</span> fs<span class="hl opt">::</span>read_fstab<span class="hl opt">(</span><span class="hl kwb">$handle</span><span class="hl opt">-&gt;{</span>dir<span class="hl opt">},</span> <span class="hl str">&apos;/etc/fstab&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;keep_default&apos;</span><span class="hl opt">);</span>

	<span class="hl kwc">my</span> <span class="hl kwb">$root_from_fstab</span> <span class="hl opt">=</span> fs<span class="hl opt">::</span>get<span class="hl opt">::</span>root_<span class="hl opt">(</span>\<span class="hl kwb">&#64;from_fstab</span><span class="hl opt">);</span>
	<span class="hl kwa">if</span> <span class="hl opt">(!</span>fsedit<span class="hl opt">::</span>is_same_hd<span class="hl opt">(</span><span class="hl kwb">$root_from_fstab, $part</span><span class="hl opt">)) {</span>
	    <span class="hl kwb">$migrate_device_names</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
	    <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;from_fstab contained:</span> <span class="hl ipl">$_</span><span class="hl str">-&gt;{device}</span> <span class="hl ipl">$_</span><span class="hl str">-&gt;{mntpoint}&quot;</span><span class="hl opt">)</span> <span class="hl kwa">foreach</span> <span class="hl kwb">&#64;from_fstab</span><span class="hl opt">;</span>
	    migrate_device_names<span class="hl opt">(</span><span class="hl kwb">$all_hds,</span> \<span class="hl kwb">&#64;from_fstab, $part, $root_from_fstab, $o_in</span><span class="hl opt">);</span>
	    <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;from_fstab now contains:</span> <span class="hl ipl">$_</span><span class="hl str">-&gt;{device}</span> <span class="hl ipl">$_</span><span class="hl str">-&gt;{mntpoint}&quot;</span><span class="hl opt">)</span> <span class="hl kwa">foreach</span> <span class="hl kwb">&#64;from_fstab</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
	fs<span class="hl opt">::</span>add2all_hds<span class="hl opt">(</span><span class="hl kwb">$all_hds, &#64;from_fstab</span><span class="hl opt">);</span>
	<span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;fstab is now:</span> <span class="hl ipl">$_</span><span class="hl str">-&gt;{device}</span> <span class="hl ipl">$_</span><span class="hl str">-&gt;{mntpoint}&quot;</span><span class="hl opt">)</span> <span class="hl kwa">foreach</span> fs<span class="hl opt">::</span>get<span class="hl opt">::</span>fstab<span class="hl opt">(</span><span class="hl kwb">$all_hds</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    isSwap<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">)</span> <span class="hl kwc">and</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>mntpoint<span class="hl opt">} =</span> <span class="hl str">&apos;swap&apos;</span> <span class="hl kwa">foreach</span> fs<span class="hl opt">::</span>get<span class="hl opt">::</span>really_all_fstab<span class="hl opt">(</span><span class="hl kwb">$all_hds</span><span class="hl opt">);</span> <span class="hl slc">#- use all available swap.</span>
    <span class="hl kwb">$migrate_device_names</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> getHds <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o, $o_in</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

  getHds<span class="hl opt">:</span> 
    <span class="hl kwc">my</span> <span class="hl kwb">$all_hds</span> <span class="hl opt">=</span> fsedit<span class="hl opt">::</span>get_hds<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>partitioning<span class="hl opt">},</span> <span class="hl kwb">$o_in</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$hds</span> <span class="hl opt">=</span> <span class="hl kwb">$all_hds</span><span class="hl opt">-&gt;{</span>hds<span class="hl opt">};</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>is_empty_array_ref<span class="hl opt">(</span><span class="hl kwb">$hds</span><span class="hl opt">) &amp;&amp; !$::</span>move<span class="hl opt">) {</span> <span class="hl slc">#- no way</span>
	<span class="hl kwc">die</span> N<span class="hl opt">(</span><span class="hl str">&quot;An error occurred - no valid devices were found on which to create new filesystems. Please check your hardware for the cause of this problem&quot;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>

    <span class="hl slc">#- try to figure out if the same number of hds is available, use them if ok.</span>
    <span class="hl opt">&#64;{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>all_hds<span class="hl opt">}{</span>hds<span class="hl opt">} || []} ==</span> <span class="hl kwb">&#64;$hds</span> <span class="hl kwc">and</span> <span class="hl kwa">return</span> <span class="hl num">1</span><span class="hl opt">;</span>

    fs<span class="hl opt">::</span>get_raw_hds<span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$all_hds</span><span class="hl opt">);</span>
    fs<span class="hl opt">::</span>add2all_hds<span class="hl opt">(</span><span class="hl kwb">$all_hds,</span> <span class="hl opt">&#64;{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>manualFstab<span class="hl opt">}});</span>

    <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>all_hds<span class="hl opt">} =</span> <span class="hl kwb">$all_hds</span><span class="hl opt">;</span>
    <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>fstab<span class="hl opt">} = [</span> fs<span class="hl opt">::</span>get<span class="hl opt">::</span>really_all_fstab<span class="hl opt">(</span><span class="hl kwb">$all_hds</span><span class="hl opt">) ];</span>
    fs<span class="hl opt">::</span>merge_info_from_mtab<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>fstab<span class="hl opt">});</span>

    <span class="hl kwc">my</span> <span class="hl kwb">&#64;win</span> <span class="hl opt">=</span> <span class="hl kwc">grep</span> <span class="hl opt">{</span> isFat_or_NTFS<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">) &amp;&amp;</span> maybeFormatted<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">) &amp;&amp; !</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>is_removable<span class="hl opt">} } &#64;{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>fstab<span class="hl opt">}};</span>
    <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;win parts: &quot;</span><span class="hl opt">,</span> <span class="hl kwc">join</span> <span class="hl str">&quot;,&quot;</span><span class="hl opt">,</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>device<span class="hl opt">} }</span> <span class="hl kwb">&#64;win</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl kwb">&#64;win</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">&#64;win</span> <span class="hl opt">==</span> <span class="hl num">1</span><span class="hl opt">) {</span>
	<span class="hl slc">#- Suggest /boot/efi on ia64.</span>
	<span class="hl kwb">$win</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">]{</span>mntpoint<span class="hl opt">} =</span> arch<span class="hl opt">() =~</span> <span class="hl kwd">/ia64/</span> ? <span class="hl str">&quot;/boot/efi&quot;</span> <span class="hl opt">:</span> <span class="hl str">&quot;/mnt/windows&quot;</span><span class="hl opt">;</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl kwc">my</span> <span class="hl kwb">%w</span><span class="hl opt">;</span> <span class="hl kwa">foreach</span> <span class="hl opt">(</span><span class="hl kwb">&#64;win</span><span class="hl opt">) {</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$v</span> <span class="hl opt">=</span> <span class="hl kwb">$w</span><span class="hl opt">{</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>device_windobe<span class="hl opt">}}++;</span>
	    <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>mntpoint<span class="hl opt">} =</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>unsafeMntpoint<span class="hl opt">} =</span> <span class="hl str">&quot;/mnt/win_&quot;</span> <span class="hl opt">.</span> <span class="hl kwc">lc</span><span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>device_windobe<span class="hl opt">}) . (</span><span class="hl kwb">$v</span> ? <span class="hl kwb">$v+1</span> <span class="hl opt">:</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">);</span> <span class="hl slc">#- lc cuz of StartOffice(!) cf dadou</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>

    <span class="hl kwc">my</span> <span class="hl kwb">&#64;sunos</span> <span class="hl opt">=</span> <span class="hl kwc">grep</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>pt_type<span class="hl opt">} ==</span> <span class="hl num">2</span> <span class="hl opt">} &#64;{</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>fstab<span class="hl opt">}};</span> <span class="hl slc">#- take only into account root partitions.</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">&#64;sunos</span><span class="hl opt">) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$v</span> <span class="hl opt">=</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">;</span>
	<span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>mntpoint<span class="hl opt">} =</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>unsafeMntpoint<span class="hl opt">} =</span> <span class="hl str">&quot;/mnt/sunos&quot;</span> <span class="hl opt">. (</span><span class="hl kwb">$v</span> <span class="hl opt">&amp;&amp; ++</span><span class="hl kwb">$v</span><span class="hl opt">) }</span> <span class="hl kwb">&#64;sunos</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl slc">#- a good job is to mount SunOS root partition, and to use mount point described here in /etc/vfstab.</span>

    <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwc">my</span> <span class="hl kwb">%media_browser</span><span class="hl opt">;</span>
<span class="hl kwa">sub</span> media_browser <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in, $save, $o_suggested_name</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">%media_type2text</span> <span class="hl opt">= (</span>
	fd <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Floppy&quot;</span><span class="hl opt">),</span>
	hd <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Hard Disk&quot;</span><span class="hl opt">),</span>
	cdrom <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;CDROM&quot;</span><span class="hl opt">),</span>
    <span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;network_protocols</span> <span class="hl opt">= (</span>if_<span class="hl opt">(!</span><span class="hl kwb">$save,</span> N_<span class="hl opt">(</span><span class="hl str">&quot;HTTP&quot;</span><span class="hl opt">)),</span> N_<span class="hl opt">(</span><span class="hl str">&quot;FTP&quot;</span><span class="hl opt">),</span> N_<span class="hl opt">(</span><span class="hl str">&quot;NFS&quot;</span><span class="hl opt">));</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$to_text</span> <span class="hl opt">=</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
	<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$hd</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
	<span class="hl opt">(</span><span class="hl kwb">$media_type2text</span><span class="hl opt">{</span><span class="hl kwb">$hd</span><span class="hl opt">-&gt;{</span>media_type<span class="hl opt">}} ||</span> <span class="hl kwb">$hd</span><span class="hl opt">-&gt;{</span>media_type<span class="hl opt">}) .</span> <span class="hl str">&apos;: &apos;</span> <span class="hl opt">.</span> partition_table<span class="hl opt">::</span>description<span class="hl opt">(</span><span class="hl kwb">$hd</span><span class="hl opt">);</span>
    <span class="hl opt">};</span>

  ask_media<span class="hl opt">:</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$all_hds</span> <span class="hl opt">=</span> fsedit<span class="hl opt">::</span>get_hds<span class="hl opt">({},</span> <span class="hl kwb">$in</span><span class="hl opt">);</span>
    fs<span class="hl opt">::</span>get_raw_hds<span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$all_hds</span><span class="hl opt">);</span>

    <span class="hl kwc">my</span> <span class="hl kwb">&#64;raw_hds</span> <span class="hl opt">=</span> <span class="hl kwc">grep</span> <span class="hl opt">{ !</span><span class="hl kwb">$save</span> <span class="hl opt">||</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>media_type<span class="hl opt">}</span> <span class="hl kwc">ne</span> <span class="hl str">&apos;cdrom&apos;</span> <span class="hl opt">} &#64;{</span><span class="hl kwb">$all_hds</span><span class="hl opt">-&gt;{</span>raw_hds<span class="hl opt">}};</span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;dev_and_text</span> <span class="hl opt">=</span> group_by2<span class="hl opt">(</span>
	<span class="hl opt">(</span><span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span> <span class="hl opt">=&gt;</span> <span class="hl kwb">$to_text</span><span class="hl opt">-&gt;(</span><span class="hl kwb">$_</span><span class="hl opt">) }</span> <span class="hl kwb">&#64;raw_hds</span><span class="hl opt">),</span>
	<span class="hl opt">(</span><span class="hl kwc">map</span> <span class="hl opt">{</span> 
	    <span class="hl kwc">my</span> <span class="hl kwb">$hd</span> <span class="hl opt">=</span> <span class="hl kwb">$to_text</span><span class="hl opt">-&gt;(</span><span class="hl kwb">$_</span><span class="hl opt">);</span>
	    <span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span> <span class="hl opt">=&gt;</span> <span class="hl kwc">join</span><span class="hl opt">(</span><span class="hl str">&apos;\1&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$hd,</span> partition_table<span class="hl opt">::</span>description<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">)) }</span> <span class="hl kwc">grep</span> <span class="hl opt">{</span> isTrueFS<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">) ||</span> isOtherAvailableFS<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">) }</span> fs<span class="hl opt">::</span>get<span class="hl opt">::</span>hds_fstab<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">);</span>
	<span class="hl opt">}</span> fs<span class="hl opt">::</span>get<span class="hl opt">::</span>hds<span class="hl opt">(</span><span class="hl kwb">$all_hds</span><span class="hl opt">)),</span>
	if_<span class="hl opt">(</span>member<span class="hl opt">($::</span>o-<span class="hl opt">&gt;{</span><span class="hl kwa">method</span><span class="hl opt">},</span> <span class="hl str">qw(ftp http nfs)</span><span class="hl opt">) ||</span> install_steps<span class="hl opt">::</span>hasNetwork<span class="hl opt">($::</span>o<span class="hl opt">),</span>
	    <span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span> <span class="hl opt">=&gt;</span> <span class="hl kwc">join</span><span class="hl opt">(</span><span class="hl str">&apos;\1&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;Network&quot;</span><span class="hl opt">),</span> translate<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">)) }</span> <span class="hl kwb">&#64;network_protocols</span><span class="hl opt">),</span>
    <span class="hl opt">);</span>

    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_</span><span class="hl opt">({</span>
	messages <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Please choose a media&quot;</span><span class="hl opt">),</span>
    <span class="hl opt">}, [</span> 
	<span class="hl opt">{</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$media_browser</span><span class="hl opt">{</span>dev<span class="hl opt">},</span> separator <span class="hl opt">=&gt;</span> <span class="hl str">&apos;\1&apos;</span><span class="hl opt">,</span> list <span class="hl opt">=&gt; [</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;[</span><span class="hl num">1</span><span class="hl opt">] }</span> <span class="hl kwb">&#64;dev_and_text</span> <span class="hl opt">] },</span>
    <span class="hl opt">])</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$dev</span> <span class="hl opt">= (</span>find <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;[</span><span class="hl num">1</span><span class="hl opt">]</span> <span class="hl kwc">eq</span> <span class="hl kwb">$media_browser</span><span class="hl opt">{</span>dev<span class="hl opt">} }</span> <span class="hl kwb">&#64;dev_and_text</span><span class="hl opt">)-&gt;[</span><span class="hl num">0</span><span class="hl opt">];</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>member<span class="hl opt">(</span><span class="hl kwb">$dev, &#64;network_protocols</span><span class="hl opt">)) {</span>
	install_interactive<span class="hl opt">::</span>upNetwork<span class="hl opt">($::</span>o<span class="hl opt">);</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$dev</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;HTTP&apos;</span><span class="hl opt">) {</span>
	    <span class="hl kwa">require</span> http<span class="hl opt">;</span>
	    <span class="hl kwb">$media_browser</span><span class="hl opt">{</span>network<span class="hl opt">} ||=</span> <span class="hl str">&apos;http://&apos;</span><span class="hl opt">;</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;todo&apos;</span><span class="hl opt">);</span>
	    <span class="hl kwa">goto</span> ask_media<span class="hl opt">;</span>
	<span class="hl opt">}</span>
	<span class="hl kwa">while</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;URL&apos;</span><span class="hl opt">, [</span>
		<span class="hl opt">{</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$media_browser</span><span class="hl opt">{</span>network<span class="hl opt">} }</span>
	    <span class="hl opt">])</span> <span class="hl kwc">or</span> <span class="hl kwa">last</span><span class="hl opt">;</span>
		    
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$dev</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;HTTP&apos;</span><span class="hl opt">) {</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$fh</span> <span class="hl opt">=</span> http<span class="hl opt">::</span>getFile<span class="hl opt">(</span><span class="hl kwb">$media_browser</span><span class="hl opt">{</span>network<span class="hl opt">});</span>
		<span class="hl kwb">$fh</span> <span class="hl kwc">and</span> <span class="hl kwa">return</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$fh</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$dev</span><span class="hl opt">-&gt;{</span>fs_type<span class="hl opt">} ||</span> <span class="hl kwb">$dev</span><span class="hl opt">-&gt;{</span>fs_type<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;auto&apos;</span> <span class="hl opt">||</span> <span class="hl kwb">$dev</span><span class="hl opt">-&gt;{</span>fs_type<span class="hl opt">} =~</span> <span class="hl kwd">/:/</span><span class="hl opt">) {</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$p</span> <span class="hl opt">=</span> fs<span class="hl opt">::</span>type<span class="hl opt">::</span>type_subpart_from_magic<span class="hl opt">(</span><span class="hl kwb">$dev</span><span class="hl opt">)) {</span>
		add2hash<span class="hl opt">(</span><span class="hl kwb">$p, $dev</span><span class="hl opt">);</span>
		<span class="hl kwb">$dev</span> <span class="hl opt">=</span> <span class="hl kwb">$p</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Error&quot;</span><span class="hl opt">),</span> N<span class="hl opt">(</span><span class="hl str">&quot;Bad media</span> <span class="hl ipl">%s</span><span class="hl str">&quot;</span><span class="hl opt">,</span> partition_table<span class="hl opt">::</span>description<span class="hl opt">(</span><span class="hl kwb">$dev</span><span class="hl opt">)));</span>
		<span class="hl kwa">goto</span> ask_media<span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$file</span><span class="hl opt">;</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$h</span> <span class="hl opt">=</span> any<span class="hl opt">::</span>inspect<span class="hl opt">(</span><span class="hl kwb">$dev,</span> <span class="hl opt">$::</span>prefix<span class="hl opt">,</span> <span class="hl kwb">$save</span><span class="hl opt">)) {</span>
	    <span class="hl kwa">while</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">) {</span>
		<span class="hl kwb">$file</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_filename</span><span class="hl opt">({</span> save <span class="hl opt">=&gt;</span> <span class="hl kwb">$save,</span> 
					    directory <span class="hl opt">=&gt;</span> <span class="hl kwb">$h</span><span class="hl opt">-&gt;{</span>dir<span class="hl opt">},</span> 
					    if_<span class="hl opt">(</span><span class="hl kwb">$o_suggested_name,</span> file <span class="hl opt">=&gt;</span> <span class="hl str">&quot;</span><span class="hl ipl">$h</span><span class="hl str">-&gt;{dir}/</span><span class="hl ipl">$o_suggested_name</span><span class="hl str">&quot;</span><span class="hl opt">),</span>
					<span class="hl opt">})</span> <span class="hl kwc">or</span> <span class="hl kwa">last</span><span class="hl opt">;</span>
		<span class="hl kwa">if</span> <span class="hl opt">(-</span>e <span class="hl kwb">$file</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$save</span><span class="hl opt">) {</span>
		    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_yesorno</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;File already exists. Overwrite it?&quot;</span><span class="hl opt">))</span> <span class="hl kwc">or</span> <span class="hl kwa">next</span><span class="hl opt">;</span>
		<span class="hl opt">}</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$save</span><span class="hl opt">) {</span>
		    <span class="hl kwa">return</span> <span class="hl kwb">$h, $file</span><span class="hl opt">;</span>
		<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		    <span class="hl kwc">my</span> <span class="hl kwb">$fh</span><span class="hl opt">;</span>
		    <span class="hl kwc">open</span><span class="hl opt">(</span><span class="hl kwb">$fh, $file</span><span class="hl opt">)</span> <span class="hl kwc">and</span> <span class="hl kwa">return</span> <span class="hl kwb">$h, $fh</span><span class="hl opt">;</span>
		<span class="hl opt">}</span>
	    <span class="hl opt">}</span>
	    <span class="hl kwc">undef</span> <span class="hl kwb">$h</span><span class="hl opt">;</span> <span class="hl slc">#- help perl</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Error&quot;</span><span class="hl opt">),</span> formatError<span class="hl opt">(</span><span class="hl kwb">$&#64;</span><span class="hl opt">));</span>
	<span class="hl opt">}</span>
	<span class="hl kwa">goto</span> ask_media<span class="hl opt">;</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> log_sizes <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;df</span> <span class="hl opt">=</span> MDK<span class="hl opt">::</span>Common<span class="hl opt">::</span>System<span class="hl opt">::</span>df<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>prefix<span class="hl opt">});</span>
    <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl kwc">sprintf</span> <span class="hl str">&quot;Installed:</span> <span class="hl ipl">%s</span><span class="hl str">(df),</span> <span class="hl ipl">%s</span><span class="hl str">(rpm)&quot;</span><span class="hl opt">,</span>
	   formatXiB<span class="hl opt">(</span><span class="hl kwb">$df</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">] -</span> <span class="hl kwb">$df</span><span class="hl opt">[</span><span class="hl num">1</span><span class="hl opt">],</span> <span class="hl num">1024</span><span class="hl opt">),</span>
	   formatXiB<span class="hl opt">(</span>sum<span class="hl opt">(</span>run_program<span class="hl opt">::</span>rooted_get_stdout<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>prefix<span class="hl opt">},</span> <span class="hl str">&apos;rpm&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;-qa&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;--queryformat&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;%{size}</span><span class="hl esc">\n</span><span class="hl str">&apos;</span><span class="hl opt">))))</span> <span class="hl kwa">if</span> <span class="hl opt">-</span>x <span class="hl str">&quot;</span><span class="hl ipl">$o</span><span class="hl str">-&gt;{prefix}/bin/rpm&quot;</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> X_options_from_o <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl opt">{</span> 
	freedriver <span class="hl opt">=&gt;</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>freedriver<span class="hl opt">},</span>
	allowFB <span class="hl opt">=&gt;</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>allowFB<span class="hl opt">},</span>
    <span class="hl opt">};</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> screenshot_dir__and_move<span class="hl opt">() {</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$dir1, $dir2</span><span class="hl opt">) = (</span><span class="hl str">&quot;$::prefix/root&quot;</span><span class="hl opt">,</span> <span class="hl str">&apos;/tmp&apos;</span><span class="hl opt">);</span>
    <span class="hl kwa">if</span> <span class="hl opt">(-</span>e <span class="hl kwb">$dir1</span><span class="hl opt">) {</span>
	<span class="hl kwa">if</span> <span class="hl opt">(-</span>e <span class="hl str">&quot;</span><span class="hl ipl">$dir2/DrakX</span><span class="hl str">-screenshots&quot;</span><span class="hl opt">) {</span>
	    cp_af<span class="hl opt">(</span><span class="hl str">&quot;</span><span class="hl ipl">$dir2/DrakX</span><span class="hl str">-screenshots&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$dir1</span><span class="hl opt">);</span>
	    rm_rf<span class="hl opt">(</span><span class="hl str">&quot;</span><span class="hl ipl">$dir2/DrakX</span><span class="hl str">-screenshots&quot;</span><span class="hl opt">);</span>
	<span class="hl opt">}</span>
	<span class="hl kwb">$dir1</span><span class="hl opt">;</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl kwb">$dir2</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> take_screenshot <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$dir</span> <span class="hl opt">=</span> screenshot_dir__and_move<span class="hl opt">() .</span> <span class="hl str">&apos;/DrakX-screenshots&apos;</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$warn</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!-</span>e <span class="hl kwb">$dir</span><span class="hl opt">) {</span>
	<span class="hl kwc">mkdir</span> <span class="hl kwb">$dir</span> <span class="hl kwc">or</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;Can not make screenshots before partitioning&quot;</span><span class="hl opt">)),</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
	<span class="hl kwb">$warn</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$nb</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl kwb">$nb++</span> <span class="hl kwa">while</span> <span class="hl opt">-</span>e <span class="hl str">&quot;</span><span class="hl ipl">$dir/$nb</span><span class="hl str">.png&quot;</span><span class="hl opt">;</span>
    <span class="hl kwc">system</span><span class="hl opt">(</span><span class="hl str">&quot;fb2png /dev/fb0</span> <span class="hl ipl">$dir/$nb</span><span class="hl str">.png 0&quot;</span><span class="hl opt">);</span>

    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;Screenshots will be available after install in</span> <span class="hl ipl">%s</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;/root/DrakX-screenshots&quot;</span><span class="hl opt">))</span> <span class="hl kwa">if</span> <span class="hl kwb">$warn</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> copy_advertising <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwa">return if</span> <span class="hl opt">$::</span>rootwidth <span class="hl opt">&lt;</span> <span class="hl num">800</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$f</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$source_dir</span> <span class="hl opt">=</span> <span class="hl str">&quot;install/extra/advertising&quot;</span><span class="hl opt">;</span>
    <span class="hl kwa">foreach</span> <span class="hl opt">(</span><span class="hl str">&quot;.&quot;</span> <span class="hl opt">.</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>locale<span class="hl opt">}{</span>lang<span class="hl opt">},</span> <span class="hl str">&quot;.&quot;</span> <span class="hl opt">.</span> <span class="hl kwc">substr</span><span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>locale<span class="hl opt">}{</span>lang<span class="hl opt">},</span><span class="hl num">0</span><span class="hl opt">,</span><span class="hl num">2</span><span class="hl opt">),</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">) {</span>
	<span class="hl kwb">$f</span> <span class="hl opt">=</span> getFile<span class="hl opt">(</span><span class="hl str">&quot;</span><span class="hl ipl">$source_dir$_/list</span><span class="hl str">&quot;</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">next</span><span class="hl opt">;</span>
	<span class="hl kwb">$source_dir</span> <span class="hl opt">=</span> <span class="hl str">&quot;</span><span class="hl ipl">$source_dir$_</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">&#64;files</span> <span class="hl opt">= &lt;</span><span class="hl kwb">$f</span><span class="hl opt">&gt;) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$dir</span> <span class="hl opt">=</span> <span class="hl str">&quot;</span><span class="hl ipl">$o</span><span class="hl str">-&gt;{prefix}/tmp/drakx-images&quot;</span><span class="hl opt">;</span>
	<span class="hl kwc">mkdir</span> <span class="hl kwb">$dir</span><span class="hl opt">;</span>
	<span class="hl kwc">unlink</span> glob_<span class="hl opt">(</span><span class="hl str">&quot;</span><span class="hl ipl">$dir/*</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
	<span class="hl kwa">foreach</span> <span class="hl opt">(</span><span class="hl kwb">&#64;files</span><span class="hl opt">) {</span>
	    <span class="hl kwc">chomp</span><span class="hl opt">;</span>
	    getAndSaveFile<span class="hl opt">(</span><span class="hl str">&quot;</span><span class="hl ipl">$source_dir/$_</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;</span><span class="hl ipl">$dir/$_</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
	    <span class="hl kwd">s/\.png/.pl/</span><span class="hl opt">;</span>
	    getAndSaveFile<span class="hl opt">(</span><span class="hl str">&quot;</span><span class="hl ipl">$source_dir/$_</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;</span><span class="hl ipl">$dir/$_</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
	    <span class="hl kwd">s/\.pl/_icon.png/</span><span class="hl opt">;</span>
	    getAndSaveFile<span class="hl opt">(</span><span class="hl str">&quot;</span><span class="hl ipl">$source_dir/$_</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;</span><span class="hl ipl">$dir/$_</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
	    <span class="hl kwd">s/_icon\.png/.png/</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
	<span class="hl kwb">&#64;advertising_images</span> <span class="hl opt">=</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl str">&quot;</span><span class="hl ipl">$dir/$_</span><span class="hl str">&quot;</span> <span class="hl opt">}</span> <span class="hl kwb">&#64;files</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> remove_advertising <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">eval</span> <span class="hl opt">{</span> rm_rf<span class="hl opt">(</span><span class="hl str">&quot;</span><span class="hl ipl">$o</span><span class="hl str">-&gt;{prefix}/tmp/drakx-images&quot;</span><span class="hl opt">) };</span>
    <span class="hl kwb">&#64;advertising_images</span> <span class="hl opt">= ();</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> disable_user_view<span class="hl opt">() {</span>
    substInFile <span class="hl opt">{</span> <span class="hl kwd">s/^UserView=.*/UserView=true/</span> <span class="hl opt">}</span> <span class="hl str">&quot;$::prefix/usr/share/config/kdm/kdmrc&quot;</span><span class="hl opt">;</span>
    substInFile <span class="hl opt">{</span> <span class="hl kwd">s/^Browser=.*/Browser=0/</span> <span class="hl opt">}</span> <span class="hl str">&quot;$::prefix/etc/X11/gdm/gdm.conf&quot;</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> set_security <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl opt">{</span>
	<span class="hl kwc">local</span> <span class="hl kwb">$ENV</span><span class="hl opt">{</span>DRAKX_PASSWORD<span class="hl opt">} =</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>bootloader<span class="hl opt">}{</span>password<span class="hl opt">};</span>
	<span class="hl kwc">local</span> <span class="hl kwb">$ENV</span><span class="hl opt">{</span>DURING_INSTALL<span class="hl opt">} =</span> <span class="hl num">1</span><span class="hl opt">;</span>
	security<span class="hl opt">::</span>level<span class="hl opt">::</span>set<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>security<span class="hl opt">});</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">require</span> security<span class="hl opt">::</span>various<span class="hl opt">;</span>
    security<span class="hl opt">::</span>various<span class="hl opt">::</span>config_libsafe<span class="hl opt">($::</span>prefix<span class="hl opt">,</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>libsafe<span class="hl opt">});</span>
    security<span class="hl opt">::</span>various<span class="hl opt">::</span>config_security_user<span class="hl opt">($::</span>prefix<span class="hl opt">,</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>security_user<span class="hl opt">});</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> write_fstab <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    fs<span class="hl opt">::</span>write_fstab<span class="hl opt">(</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>all_hds<span class="hl opt">},</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>prefix<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl opt">!</span><span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>isUpgrade<span class="hl opt">} ||</span> <span class="hl kwb">$o</span><span class="hl opt">-&gt;{</span>migrate_device_names<span class="hl opt">};</span>
<span class="hl opt">}</span>

<span class="hl kwc">my</span> <span class="hl kwb">$clp_name</span> <span class="hl opt">=</span> <span class="hl str">&apos;mdkinst.clp&apos;</span><span class="hl opt">;</span>
<span class="hl kwa">sub</span> clp_on_disk<span class="hl opt">() {</span> <span class="hl str">&quot;$::prefix/tmp/</span><span class="hl ipl">$clp_name</span><span class="hl str">&quot;</span> <span class="hl opt">}</span>

<span class="hl kwa">sub</span> move_clp_to_disk<span class="hl opt">() {</span>
    <span class="hl kwa">return if</span> <span class="hl opt">-</span>e clp_on_disk<span class="hl opt">();</span>

    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$loop, $current_clp</span><span class="hl opt">) =</span> devices<span class="hl opt">::</span>find_clp_loop<span class="hl opt">(</span><span class="hl kwb">$clp_name</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;move_clp_to_disk: copying</span> <span class="hl ipl">$current_clp</span> <span class="hl str">to &quot;</span><span class="hl opt">,</span> clp_on_disk<span class="hl opt">());</span>
    cp_af<span class="hl opt">(</span><span class="hl kwb">$current_clp,</span> clp_on_disk<span class="hl opt">());</span>
    run_program<span class="hl opt">::</span>run<span class="hl opt">(</span><span class="hl str">&apos;losetup&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;-r&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$loop,</span> clp_on_disk<span class="hl opt">());</span>

    <span class="hl slc">#- in $current_clp eq &quot;/tmp/$clp_name&quot;</span>
    <span class="hl kwc">unlink</span> <span class="hl str">&quot;/tmp/</span><span class="hl ipl">$clp_name</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
<span class="hl opt">}</span>