path: root/perl-install/pkgs.pm

package pkgs; # $Id$

use strict;

use MDK::Common::System;
use URPM;
use URPM::Resolve;
use URPM::Signature;
use common;
use install_any;
use run_program;
use detect_devices;
use log;
use fs;
use loopback;
use c;


our %preferred = map { $_ => undef } qw(lilo perl-base gstreamer-oss openjade ctags glibc curl sane-backends perl-GTK postfix mdkkdm gcc gcc-cpp gcc-c++ proftpd ghostscript-X vim-minimal kernel db1 db2 libxpm4 zlib1 libncurses5 harddrake cups apache);

#- lower bound on the left ( aka 90 means [90-100[ )
our %compssListDesc = (
   5 => N_("must have"),
   4 => N_("important"),
   3 => N_("very nice"),
   2 => N_("nice"),
   1 => N_("maybe"),
);

#- constant for small transaction.
our $limitMinTrans = 13;


#- package to ignore, typically in Application CD. OBSOLETED ?
my %ignoreBadPkg = (
		    'civctp-demo'   => 1,
		    'eus-demo'      => 1,
		    'myth2-demo'    => 1,
		    'heretic2-demo' => 1,
		    'heroes3-demo'  => 1,
		    'rt2-demo'      => 1,
		   );

sub packageMedium {
   my ($packages, $p) = @_; $p or die "invalid package from\n" . backtrace();
   foreach (values %{$packages->{mediums}}) {
       defined $_->{start} && defined $_->{end} or next;
       $p->id >= $_->{start} && $p->id <= $_->{end} and return $_;
   }
   return {};
}

sub cleanHeaders {
    my ($prefix) = @_;
    rm_rf("$prefix/tmp/headers") if -e "$prefix/tmp/headers";
}

#- get all headers from an hdlist file.
sub extractHeaders {
    my ($prefix, $pkgs, $media) = @_;
    my %medium2pkgs;

    cleanHeaders($prefix);

    foreach (@$pkgs) {
	foreach my $medium (values %$media) {
	    $_->id >= $medium->{start} && $_->id <= $medium->{end} or next;
	    push @{$medium2pkgs{$medium->{medium}} ||= []}, $_;
	}
    }

    foreach (keys %medium2pkgs) {
	my $medium = $media->{$_};

	eval {
	    require packdrake;
	    my $packer = new packdrake("/tmp/$medium->{hdlist}", quiet => 1);
	    $packer->extract_archive("$prefix/tmp/headers", map { $_->header_filename } @{$medium2pkgs{$_}});
	};
    }

    foreach (@$pkgs) {
	my $f = "$prefix/tmp/headers/" . $_->header_filename;
	$_->update_header($f) or log::l("unable to open header file $f"), next;
	log::l("read header file $f");
    }
}

sub isSupplCDMedium($) {
    my ($medium) = @_;
    $medium->{method} eq 'cdrom' && $medium->{medium} =~ /^\d+s$/;
}

#- TODO BEFORE TODO
#- size and correction size functions for packages.
my $B = 1.20873;
my $C = 4.98663; #- doesn't take hdlist's into account as getAvailableSpace will do it.
sub correctSize { $B * $_[0] + $C }
sub invCorrectSize { ($_[0] - $C) / $B }

sub selectedSize {
    my ($packages) = @_;
    my $size = 0;
    my %skip;
    #- take care of packages selected...
    foreach (@{$packages->{depslist}}) {
	if ($_->flag_selected) {
	    $size += $_->size;
	    #- if a package is obsoleted with the same name it should
	    #- have been selected, so a selected new package obsoletes
	    #- all the old package.
	    exists $skip{$_->name} and next; $skip{$_->name} = undef;
	    $size -= $packages->{sizes}{$_->name};
	}
    }
    #- but remove size of package being obsoleted or removed.
    foreach (keys %{$packages->{state}{rejected}}) {
	my ($name) = /(.*)-[^\-]*-[^\-]*$/ or next;
	exists $skip{$name} and next; $skip{$name} = undef;
	$size -= $packages->{sizes}{$name};
    }
    $size;
}
sub correctedSelectedSize { correctSize(selectedSize($_[0]) / sqr(1024)) }

sub size2time {
    my ($x, $max) = @_;
    my $A = 7e-07;
    my $limit = min($max * 3 / 4, 9e8);
    if ($x < $limit) {
	$A * $x;
    } else { 
	$x -= $limit;
	my $B = 6e-16;
	my $C = 15e-07;
	$B * $x ** 2 + $C * $x + $A * $limit;
    }
}


sub packagesProviding {
    my ($packages, $name) = @_;
    map { $packages->{depslist}[$_] } keys %{$packages->{provides}{$name} || {}};
}

#- searching and grouping methods.
#- package is a reference to list that contains
#- a hash to search by name and
#- a list to search by id.
sub packageByName {
    my ($packages, $name) = @_;
    #- search package with given name and compatible with current architecture.
    #- take the best one found (most up-to-date).
    my @packages;
    foreach my $pkg (packagesProviding($packages, $name)) {
	$pkg->is_arch_compat or next;
	$pkg->name eq $name or next;
	push @packages, $pkg;
    }
    my $best;
    foreach (@packages) {
	if ($best && $best != $_) {
	    $_->compare_pkg($best) > 0 and $best = $_;
	} else {
	    $best = $_;
	}
    }
    $best or log::l("unknown package `$name'");
    $best;
}
sub packageById {
    my ($packages, $id) = @_;
    my $pkg = $packages->{depslist}[$id]; #- do not log as id unsupported are still in depslist.
    $pkg->is_arch_compat && $pkg;
}

sub analyse_kernel_name {
    my $kernels = join('|', map { "-$_" }
	'(p3|i586|i686)-(up|smp)-(1GB|4GB|64GB)', 
	qw(enterprise secure smp multimedia multimedia-smp),
    );
    my @l = $_[0] =~ /kernel[^\-]*($kernels)?(-([^\-]+))?$/ or return;
    $l[0], $l[-1];
}

sub packages2kernels {
    my ($packages) = @_;

    map { 
	if (my ($ext, $version) = analyse_kernel_name($_->name)) {
	    { pkg => $_, ext => $ext, version => $version };
	} else {
	    log::l("ERROR: unknown package " . $_->name . " providing kernel");
	    ();
	}
    } packagesProviding($packages, 'kernel');
}

sub bestKernelPackage {
    my ($packages) = @_;

    my @kernels = packages2kernels($packages) or internal_error('no kernel available');
    my ($version_BOOT) = c::kernel_version() =~ /^(\d+\.\d+)/;
    if (my @l = grep { $_->{version} =~ /\Q$version_BOOT/ } @kernels) {
	#- favour versions corresponding to current BOOT version
	@kernels = @l;
    }
    my @prefered_exts = 
      detect_devices::is_i586() ? '-i586-up-1GB' :
      (arch() !~ /x86_64|ia64/ && c::dmiDetectMemory() > 4 * 1024) ? ('-enterprise', '-smp') : 
      detect_devices::hasSMP() ? '-smp' : 
      '';
    foreach my $prefered_ext (@prefered_exts, '') {
	if (my @l = grep { $_->{ext} eq $prefered_ext } @kernels) {
	    @kernels = @l;
	}
    }
    
    log::l("bestKernelPackage (" . join(':', @prefered_exts) . "): " . join(' ', map { $_->{pkg}->name } @kernels) . (@kernels > 1 ? ' (choosing the first)' : ''));
    $preferred{'kernel-source-' . $kernels[0]{version}} = undef;
    $kernels[0]{pkg};
}

sub packagesOfMedium {
    my ($packages, $medium) = @_;
    defined $medium->{start} && defined $medium->{end} ? @{$packages->{depslist}}[$medium->{start} .. $medium->{end}] : ();
}
sub packagesToInstall {
    my ($packages) = @_;
    my @packages;
    foreach (values %{$packages->{mediums}}) {
	$_->{selected} or next;
	log::l("examining packagesToInstall of medium $_->{descr}");
	push @packages, grep { $_->flag_selected } packagesOfMedium($packages, $_);
    }
    log::l("found " . scalar(@packages) . " packages to install");
    @packages;
}

sub allMediums {
    my ($packages) = @_;
    sort { $a <=> $b } keys %{$packages->{mediums}};
}
sub mediumDescr {
    my ($packages, $medium_name) = @_;
    $packages->{mediums}{$medium_name}{descr};
}

sub packageRequest {
    my ($packages, $pkg) = @_;

    #- check if the same or better version is installed,
    #- do not select in such case.
    $pkg && ($pkg->flag_upgrade || !$pkg->flag_installed) or return;

    #- check for medium selection, if the medium has not been
    #- selected, the package cannot be selected.
    foreach (values %{$packages->{mediums}}) {
	!$_->{selected} && $pkg->id >= $_->{start} && $pkg->id <= $_->{end} and return;
    }

    return { $pkg->id => 1 };
}

sub packageCallbackChoices {
    my ($urpm, $_db, $state, $choices) = @_;
    if (my $prefer = find { $_->arch ne 'src' && exists $preferred{$_->name} } @$choices) {
	$prefer;
    } else {
	my @l = grep {
	    #- or even if a package requires a specific locales which
	    #- is already selected.
	    find {
		/locales-/ && do {
		    my $p = packageByName($urpm, $_);
		    $p && $p->flag_available;
		};
	    } $_->requires_nosense;
	} @$choices;
	if (!@l) {
	    push @l, $choices->[0];
	    log::l("packageCallbackChoices: default choice from ", join(",", map { $urpm->{depslist}[$_]->name } keys %{$state->{selected}}), " in ", join(",", map { $_->name } @$choices));
	}
	#-log::l("packageCallbackChoices: chosen " . join(" ", map { $_->name } @l));
	@l;
    }
}

#- selection, unselection of package.
sub selectPackage {
    my ($packages, $pkg, $b_base, $o_otherOnly) = @_;

    #- select package and dependancies, o_otherOnly may be a reference
    #- to a hash to indicate package that will strictly be selected
    #- when value is true, may be selected when value is false (this
    #- is only used for unselection, not selection)
    my $state = $packages->{state} ||= {};

    my @l = $packages->resolve_requested($packages->{rpmdb}, $state, packageRequest($packages, $pkg) || {},
					 callback_choices => \&packageCallbackChoices);

    if ($b_base || $o_otherOnly) {
	foreach (@l) {
	    $b_base and $_->set_flag_base;Windows name\" is the letter of your hard drive under Windows (the first
disk or partition is called \"C:\").");
}
sub selectCountry() {
    N("\"%s\": check the current country selection. If you're not in this country,
click on the \"%s\" button and choose another. If your country isn't in the
list shown, click on the \"%s\" button to get the complete country list.", N("Country / Region"), N("Configure"), N("More"));
}
sub selectInstallClass() {
    N("This step is activated only if an existing GNU/Linux partition has been
found on your machine.

DrakX now needs to know if you want to perform a new installation or an
upgrade of an existing Mandrakelinux system:

 * \"%s\". For the most part, this completely wipes out the old system.
However, depending on your partitioning scheme, you can prevent some of
your existing data (notably \"home\" directories) from being over-written.
If you wish to change how your hard drives are partitioned, or to change
the file system, you should use this option.

 * \"%s\". This installation class allows you to update the packages
currently installed on your Mandrakelinux system. Your current partitioning
scheme and user data won't be altered. Most of the other configuration
steps remain available and are similar to a standard installation.

Using the ``Upgrade'' option should work fine on Mandrakelinux systems
running version \"8.1\" or later. Performing an upgrade on versions prior
to Mandrakelinux version \"8.1\" is not recommended.", N("Install"), N("Upgrade"));
}
sub selectKeyboard() {
    N("Depending on the language you chose (), DrakX will automatically select a
particular type of keyboard configuration. Check that the selection suits
you or choose another keyboard layout.

Also, you may not have a keyboard which corresponds exactly to your
language: for example, if you are an English-speaking Swiss native, you may
have a Swiss keyboard. Or if you speak English and are located in Quebec,
you may find yourself in the same situation where your native language and
country-set keyboard don't match. In either case, this installation step
will allow you to select an appropriate keyboard from a list.

Click on the \"%s\" button to be shown a list of supported keyboards.

If you choose a keyboard layout based on a non-Latin alphabet, the next
dialog will allow you to choose the key binding which will switch the
keyboard between the Latin and non-Latin layouts.", N("More"));
}
sub selectLanguage() {
    N("The first step is to choose your preferred language.

Your choice of preferred language will affect the installer, the
documentation, and the system in general. First select the region you're
located in, then the language you speak.

Clicking on the \"%s\" button will allow you to select other languages to
be installed on your workstation, thereby installing the language-specific
files for system documentation and applications. For example, if Spanish
users are to use your machine, select English as the default language in
the tree view and \"%s\" in the Advanced section.

About UTF-8 (unicode) support: Unicode is a new character encoding meant to
cover all existing languages. However full support for it in GNU/Linux is
still under development. For that reason, Mandrakelinux's use of UTF-8 will
depend on the user's choices:

 * If you choose a language with a strong legacy encoding (latin1
languages, Russian, Japanese, Chinese, Korean, Thai, Greek, Turkish, most
iso-8859-2 languages), the legacy encoding will be used by default;

 * Other languages will use unicode by default;

 * If two or more languages are required, and those languages are not using
the same encoding, then unicode will be used for the whole system;

 * Finally, unicode can also be forced for use throughout the system at a
user's request by selecting the \"%s\" option independently of which
languages were been chosen.

Note that you're not limited to choosing a single additional language. You
may choose several, or even install them all by selecting the \"%s\" box.
Selecting support for a language means translations, fonts, spell checkers,
etc. will also be installed for that language.

To switch between the various languages installed on your system, you can
launch the \"localedrake\" command as \"root\" to change the language used
by the entire system. Running the command as a regular user will only
change the language settings for that particular user.", N("Advanced"), N("Espanol"), N("Use Unicode by default"), N("All languages"));
}
sub selectMouse() {
    N("Usually, DrakX has no problems detecting the number of buttons on your
mouse. If it does, it assumes you have a two-button mouse and will
configure it for third-button emulation. The third-button mouse button of a
two-button mouse can be obtained by simultaneously clicking the left and
right mouse buttons. DrakX will automatically know whether your mouse uses
a PS/2, serial or USB interface.

If you have a 3-button mouse without a wheel, you can choose a \"%s\"
mouse. DrakX will then configure your mouse so that you can simulate the
wheel with it: to do so, press the middle button and move your mouse
pointer up and down.

If for some reason you wish to specify a different type of mouse, select it
from the list provided.

You can select the \"%s\" entry to chose a ``generic'' mouse type which
will work with nearly all mice.

If you choose a mouse other than the default one, a test screen will be
displayed. Use the buttons and wheel to verify that the settings are
correct and that the mouse is working correctly. If the mouse is not
working well, press the space bar or [Return] key to cancel the test and
you will be returned to the mouse list.

Occasionally wheel mice are not detected automatically, so you will need to
select your mouse from a list. Be sure to select the one corresponding to
the port that your mouse is attached to. After selecting a mouse and
pressing the \"%s\" button, a mouse image will be displayed on-screen.
Scroll the mouse wheel to ensure that it is activating correctly. As you
scroll your mouse wheel, you will see the on-screen scroll wheel moving.
Test the buttons and check that the mouse pointer moves on-screen as you
move your mouse about.", N("with Wheel emulation"), N("Universal | Any PS/2 & USB mice"), N("Next"));
}
sub selectSerialPort() {
    N("Please select the correct port. For example, the \"COM1\" port under
Windows is named \"ttyS0\" under GNU/Linux.");
}
sub setRootPassword() {
    N("This is the most crucial decision point for the security of your GNU/Linux
system: you must enter the \"root\" password. \"Root\" is the system
administrator and is the only user authorized to make updates, add users,
change the overall system configuration, and so on. In short, \"root\" can
do everything! That's why you must choose a password which is difficult to
guess: DrakX will tell you if the password you chose is too simple. As you
can see, you're not forced to enter a password, but we strongly advise
against this. GNU/Linux is just as prone to operator error as any other
operating system. Since \"root\" can overcome all limitations and
unintentionally erase all data on partitions by carelessly accessing the
partitions themselves, it is important that it be difficult to become
\"root\".

The password should be a mixture of alphanumeric characters and at least 8
characters long. Never write down the \"root\" password -- it makes it far
too easy to compromise your system.

One caveat: don't make the password too long or too complicated because you
must be able to remember it!

The password won't be displayed on screen as you type it. To reduce the
chance of a blind typing error you'll need to enter the password twice. If
you do happen to make the same typing error twice, you'll have to use this
``incorrect'' password the first time you'll try to connect as \"root\".

If you want an authentication server to control access to your computer,
click on the \"%s\" button.

If your network uses either LDAP, NIS, or PDC Windows Domain authentication
services, select the appropriate one for \"%s\". If you don't know which
one to use, you should ask your network administrator.

If you happen to have problems with remembering passwords, or if your
computer will never be connected to the Internet and you absolutely trust
everybody who uses your computer, you can choose to have \"%s\".", N("Advanced"), N("authentication"), N("No password"));
}
sub setupBootloaderBeginner() {
    N("A boot loader is a little program which is started by the computer at boot
time. It's responsible for starting up the whole system. Normally, the boot
loader installation is totally automated. DrakX will analyze the disk boot
sector and act according to what it finds there:

 * if a Windows boot sector is found, it will replace it with a GRUB/LILO
boot sector. This way you'll be able to load either GNU/Linux or any other
OS installed on your machine.

 * if a GRUB or LILO boot sector is found, it'll replace it with a new one.

If DrakX can't determine where to place the boot sector, it'll ask you
where it should place it. Generally, the \"%s\" is the safest place.
Choosing \"%s\" won't install any boot loader. Use this option only if you
know what you're doing.", N("First sector of drive (MBR)"), N("Skip"));
}
sub setupDefaultSpooler() {
    N("Now, it's time to select a printing system for your computer. Other
operating systems may offer you one, but Mandrakelinux offers two. Each of
the printing systems is best suited to particular types of configuration.

 * \"%s\" -- which is an acronym for ``print, don't queue'', is the choice
if you have a direct connection to your printer, you want to be able to
panic out of printer jams, and you don't have networked printers. (\"%s\"
will handle only very simple network cases and is somewhat slow when used
within networks.) It's recommended that you use \"pdq\" if this is your
first experience with GNU/Linux.

 * \"%s\" stands for `` Common Unix Printing System'' and is an excellent
choice for printing to your local printer or to one halfway around the
planet. It's simple to configure and can act as a server or a client for
the ancient \"lpd\" printing system, so it's compatible with older
operating systems which may still need print services. While quite
powerful, the basic setup is almost as easy as \"pdq\". If you need to
emulate a \"lpd\" server, make sure you turn on the \"cups-lpd\" daemon.
\"%s\" includes graphical front-ends for printing or choosing printer
options and for managing the printer.

If you make a choice now, and later find that you don't like your printing
system you may change it by running PrinterDrake from the Mandrakelinux
Control Center and clicking on the \"%s\" button.", N("pdq"), N("pdq"), N("CUPS"), N("CUPS"), N("Expert"));
}
sub setupSCSI() {
    N("DrakX will first detect any IDE devices present in your computer. It will
also scan for one or more PCI SCSI cards on your system. If a SCSI card is
found, DrakX will automatically install the appropriate driver.

Because hardware detection is not foolproof, DrakX may fail in detecting
your hard drives. If so, you'll have to specify your hardware by hand.

If you had to manually specify your PCI SCSI adapter, DrakX will ask if you
want to configure options for it. You should allow DrakX to probe the
hardware for the card-specific options which are needed to initialize the
adapter. Most of the time, DrakX will get through this step without any
issues.

If DrakX is not able to probe for the options to automatically determine
which parameters need to be passed to the hardware, you'll need to manually
configure the driver.");
}
sub sound_config() {
    N("\"%s\": if a sound card is detected on your system, it'll be displayed
here. If you notice the sound card isn't the one actually present on your
system, you can click on the button and choose a different driver.", N("Sound card"));
}
sub summary() {
    N("As a review, DrakX will present a summary of information it has gathered
about your system. Depending on the hardware installed on your machine, you
may have some or all of the following entries. Each entry is made up of the
hardware item to be configured, followed by a quick summary of the current
configuration. Click on the corresponding \"%s\" button to make the change.

 * \"%s\": check the current keyboard map configuration and change it if
necessary.

 * \"%s\": check the current country selection. If you're not in this
country, click on the \"%s\" button and choose another. If your country
isn't in the list shown, click on the \"%s\" button to get the complete
country list.

 * \"%s\": by default, DrakX deduces your time zone based on the country
you have chosen. You can click on the \"%s\" button here if this is not
correct.

 * \"%s\": verify the current mouse configuration and click on the button
to change it if necessary.

 * \"%s\": clicking on the \"%s\" button will open the printer
configuration wizard. Consult the corresponding chapter of the ``Starter
Guide'' for more information on how to set up a new printer. The interface
presented in our manual is similar to the one used during installation.

 * \"%s\": if a sound card is detected on your system, it'll be displayed
here. If you notice the sound card isn't the one actually present on your
system, you can click on the button and choose a different driver.

 * \"%s\": if you have a TV card, this is where information about its
configuration will be displayed. If you have a TV card and it isn't
detected, click on \"%s\" to try to configure it manually.

 * \"%s\": you can click on \"%s\" to change the parameters associated with
the card if you feel the configuration is wrong.

 * \"%s\": by default, DrakX configures your graphical interface in
\"800x600\" or \"1024x768\" resolution. If that doesn't suit you, click on
\"%s\" to reconfigure your graphical interface.

 * \"%s\": if you wish to configure your Internet or local network access,
you can do so now. Refer to the printed documentation or use the
Mandrakelinux Control Center after the installation has finished to benefit
from full in-line help.

 * \"%s\": allows to configure HTTP and FTP proxy addresses if the machine
you're installing on is to be located behind a proxy server.

 * \"%s\": this entry allows you to redefine the security level as set in a
previous step ().

 * \"%s\": if you plan to connect your machine to the Internet, it's a good
idea to protect yourself from intrusions by setting up a firewall. Consult
the corresponding section of the ``Starter Guide'' for details about
firewall settings.

 * \"%s\": if you wish to change your bootloader configuration, click this
button. This should be reserved to advanced users. Refer to the printed
documentation or the in-line help about bootloader configuration in the
Mandrakelinux Control Center.

 * \"%s\": through this entry you can fine tune which services will be run
on your machine. If you plan to use this machine as a server it's a good
idea to review this setup.", N("Configure"), N("Keyboard"), N("Country / Region"), N("Configure"), N("More"), N("Timezone"), N("Configure"), N("Mouse"), N("Printer"), N("Configure"), N("Sound card"), N("TV card"), N("Configure"), N("ISDN card"), N("Configure"), N("Graphical Interface"), N("Configure"), N("Network"), N("Proxies"), N("Security Level"), N("Firewall"), N("Bootloader"), N("Services"));
}
sub takeOverHdChoose() {
    N("Choose the hard drive you want to erase in order to install your new
Mandrakelinux partition. Be careful, all data on this drive will be lost
and will not be recoverable!");
}
sub takeOverHdConfirm() {
    N("Click on \"%s\" if you want to delete all data and partitions present on
this hard drive. Be careful, after clicking on \"%s\", you will not be able
to recover any data and partitions present on this hard drive, including
any Windows data.

Click on \"%s\" to quit this operation without losing data and partitions
present on this hard drive.", N("Next ->"), N("Next ->"), N("<- Previous"));
}