aboutsummaryrefslogtreecommitdiffstats
path: root/Rpmdrake/pkg.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Rpmdrake/pkg.pm')
-rwxr-xr-xRpmdrake/pkg.pm169
1 files changed, 111 insertions, 58 deletions
diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm
index 35eff4d3..5a95efd8 100755
--- a/Rpmdrake/pkg.pm
+++ b/Rpmdrake/pkg.pm
@@ -458,12 +458,12 @@ sub perform_installation { #- (partially) duplicated from /usr/sbin/urpmi :-(
my $_lock = urpm::lock::urpmi_db($urpm);
my $_rpm_lock = urpm::lock::rpm_db($urpm, 'exclusive');
- my %pkgs = map { $_->id => undef } grep { $_->flag_selected } @{$urpm->{depslist}};
+ my $state = $urpm->{rpmdrake_state};
my ($local_sources, $list, $local_to_removes) = urpm::get_pkgs::selected2list($urpm,
- \%pkgs,
+ $state->{selected},
clean_all => 0
);
- my $distant_number = scalar keys %pkgs;
+ my $distant_number = scalar keys %$state;
if (!$local_sources && (!$list || !@$list)) {
interactive_msg(
N("Unable to get source packages."),
@@ -498,21 +498,67 @@ sub perform_installation { #- (partially) duplicated from /usr/sbin/urpmi :-(
return 'canceled';
};
+ my $_guard = before_leaving { urpm::removable::try_umounting_removables($urpm) };
+
Rpmdrake::gurpm::init(1 ? N("Please wait") : N("Package installation..."), N("Initializing..."), transient => $::w->{real_window});
my $distant_progress;
my $canceled;
- my %sources = urpm::download_source_packages(
- $urpm,
- $local_sources,
- $list,
- force_local => 1, # removed in urpmi 4.8.7
- ask_for_medium => sub {
+ my (@errors, @missing_errors);
+ my $something_installed;
+
+
+ my %sources = %$local_sources;
+ my %error_sources;
+
+ urpm::removable::copy_packages_of_removable_media($urpm,
+ $list, \%sources,
+ sub {
interactive_msg(
N("Change medium"),
N("Please insert the medium named \"%s\" on device [%s]", $_[0], $_[1]),
yesno => 1, text => { no => N("Cancel"), yes => N("Ok") },
);
},
+ );
+
+ urpm::install::create_transaction($urpm, $state,
+ nodeps => $urpm->{options}{'allow-nodeps'} || $urpm->{options}{'allow-force'},
+ split_level => $urpm->{options}{'split-level'} || 20,
+ split_length => $urpm->{options}{'split-length'} || 1,
+ );
+
+ my $progress_nb;
+ my $total_nb = 0; #scalar grep { m|^/| } @rpms_install, @rpms_upgrade;
+
+ my $transaction;
+ my $callback_inst = sub {
+ my ($urpm, $type, $id, $subtype, $amount, $total) = @_;
+ my $pkg = defined $id ? $urpm->{depslist}[$id] : undef;
+ if ($subtype eq 'start') {
+ if ($type eq 'trans') {
+ Rpmdrake::gurpm::label(@rpms_install ? N("Preparing packages installation...") : N("Preparing..."));
+ } elsif (defined $pkg) {
+ $something_installed = 1;
+ Rpmdrake::gurpm::label(N("Installing package `%s' (%s/%s)...", $pkg->name, ++$progress_nb, scalar(@{$transaction->{upgrade}})));
+ }
+ } elsif ($subtype eq 'progress') {
+ Rpmdrake::gurpm::progress($total ? $amount/$total : 1);
+ }
+ };
+
+ my ($nok, @rpms_install, @rpms_upgrade);
+ foreach my $set (@{$state->{transaction} || []}) {
+ my (@transaction_list, %transaction_sources);
+ $transaction = $set;
+ $progress_nb = 0;
+ #- prepare transaction...
+ urpm::install::prepare_transaction($urpm, $set, $list, \%sources, \@transaction_list, \%transaction_sources);
+my $j;
+ #- first, filter out what is really needed to download for this small transaction.
+ urpm::get_pkgs::download_packages_of_distant_media($urpm,
+ \@transaction_list,
+ \%transaction_sources,
+ \%error_sources,
callback => sub {
my ($mode, $file, $percent) = @_;
if ($mode eq 'start') {
@@ -531,16 +577,16 @@ sub perform_installation { #- (partially) duplicated from /usr/sbin/urpmi :-(
$canceled and goto return_with_error;
Rpmdrake::gurpm::invalidate_cancel_forever();
- my %sources_install = %{urpm::extract_packages_to_install($urpm, \%sources, $urpm->{rpmdrake_state}) || {}};
- my @rpms_install = grep { !/\.src\.rpm$/ } values %sources_install;
- my @rpms_upgrade = grep { !/\.src\.rpm$/ } values %sources;
+ my %transaction_sources_install = %{$urpm->extract_packages_to_install(\%transaction_sources, $state) || {}};
+ push @rpms_install, grep { !/\.src\.rpm$/ } values %transaction_sources_install;
+ push @rpms_upgrade, grep { !/\.src\.rpm$/ } values %transaction_sources;
if (!$::options{'no-verify-rpm'}) {
Rpmdrake::gurpm::label(N("Verifying package signatures..."));
- my $total = @rpms_install + @rpms_upgrade;
+ my $total = keys(%transaction_sources_install) + keys %transaction_sources;
my $progress;
my @invalid_sources = urpm::signature::check($urpm,
- \%sources_install, \%sources,
+ \%transaction_sources_install, \%transaction_sources,
translate => 1, basename => 1,
callback => sub {
Rpmdrake::gurpm::progress(++$progress/$total);
@@ -556,60 +602,67 @@ sub perform_installation { #- (partially) duplicated from /usr/sbin/urpmi :-(
}
}
- my $_guard = before_leaving { urpm::removable::try_umounting_removables($urpm) };
+ #- check for local files.
+ if (my @missing = grep { m|^/| && ! -e $_ } values %transaction_sources_install, values %transaction_sources) {
+ push @missing_errors, @missing;
+ next;
+ }
+
+ if (keys(%transaction_sources_install) || keys(%transaction_sources)) {
+
+ if ($verbose >= 0) {
+ my @packnames = (values %transaction_sources_install, values %transaction_sources);
+ (my $common_prefix) = $packnames[0] =~ m!^(.*)/!;
+ if (length($common_prefix) && @packnames == grep { m!^\Q$common_prefix/! } @packnames) {
+ #- there's a common prefix, simplify message
+ print N("installing %s from %s", join(' ', map { s!.*/!!; $_ } @packnames), $common_prefix), "\n";
+ } else {
+ print N("installing %s", join "\n", @packnames), "\n";
+ }
+ }
+ my $to_remove = $urpm->{options}{'allow-force'} ? [] : $set->{remove} || [];
+ @$to_remove and print N("removing %s", "@$to_remove"), "\n";
+ print join('', scalar localtime(), " ", join(' ', values %transaction_sources_install, values %transaction_sources), "\n");
+ $urpm->{log}("starting installing packages");
+ my %install_options_common = (
+ excludepath => $urpm->{options}{excludepath},
+ excludedocs => $urpm->{options}{excludedocs},
+ repackage => $urpm->{options}{repackage},
+ post_clean_cache => $urpm->{options}{'post-clean'},
+ oldpackage => $state->{oldpackage},
+ nosize => $urpm->{options}{ignoresize},
+ ignorearch => $urpm->{options}{ignorearch},
+ noscripts => $urpm->{options}{noscripts},
+ callback_inst => $callback_inst,
+ callback_trans => $callback_inst,
+ );
+ my @l = urpm::install::install($urpm,
+ $to_remove,
+ \%transaction_sources_install, \%transaction_sources,
+ %install_options_common,
+ );
+ if (@l) {
+ if ($urpm->{options}{auto} || !$urpm->{options}{'allow-nodeps'} && !$urpm->{options}{'allow-force'}) {
+ ++$nok;
+ ++$urpm->{logger_id};
+ push @errors, @l;
+ }
+ }
+ }
+ }
- my $something_installed;
if (@rpms_install || @rpms_upgrade || @to_remove) {
- if (my @missing = grep { m|^/| && ! -e $_ } @rpms_install, @rpms_upgrade) {
+ if (@missing_errors) {
interactive_msg(
N("Installation failed"),
N("Installation failed, some files are missing:\n%s\n\nYou may want to update your media database.",
- join "\n", map { " $_" } @missing) .
+ join "\n", map { " $_" } @missing_errors) .
(@error_msgs ? N("\n\nError(s) reported:\n%s", join("\n", @error_msgs)) : ''),
if_(@error_msgs > 1, scroll => 1),
);
goto return_with_error;
}
- my $progress_nb;
- my $total_nb = scalar grep { m|^/| } @rpms_install, @rpms_upgrade;
- my $callback_inst = sub {
- my ($urpm, $type, $id, $subtype, $amount, $total) = @_;
- my $pkg = defined $id ? $urpm->{depslist}[$id] : undef;
- if ($subtype eq 'start') {
- if ($type eq 'trans') {
- Rpmdrake::gurpm::label(@rpms_install ? N("Preparing packages installation...") : N("Preparing..."));
- } elsif (defined $pkg) {
- $something_installed = 1;
- Rpmdrake::gurpm::label(N("Installing package `%s' (%s/%s)...", $pkg->name, ++$progress_nb, $total_nb));
- }
- } elsif ($subtype eq 'progress') {
- Rpmdrake::gurpm::progress($total ? $amount/$total : 1);
- }
- };
- my $fh;
- my @errors = urpm::install::install($urpm,
- \@to_remove,
- \%sources_install,
- \%sources,
- post_clean_cache => $urpm->{options}{'post-clean'},
- callback_open => sub {
- my ($_data, $_type, $id) = @_;
- my $f = $sources_install{$id} || $sources{$id};
- open $fh, $f or $urpm->{error}(N("unable to access rpm file [%s]", $f));
- return fileno $fh;
- },
- callback_inst => $callback_inst,
- callback_trans => $callback_inst,
- callback_close => sub {
- my ($urpm, undef, $pkgid) = @_;
- return unless defined $pkgid;
- my $pkg = $urpm->{depslist}[$pkgid];
- my $fullname = $pkg->fullname;
- my $trtype = (any { /\Q$fullname/ } values %sources_install) ? 'install' : '(update|upgrade)';
- foreach ($pkg->files) { /\bREADME(\.$trtype)?\.urpmi$/ and $Readmes{$_} = $fullname }
- close $fh;
- },
- );
+
Rpmdrake::gurpm::end();
if (@errors || @error_msgs) {