diff options
| -rw-r--r-- | gurpmi | 265 | ||||
| -rwxr-xr-x | gurpmi2 | 373 |
2 files changed, 379 insertions, 259 deletions
@@ -6,7 +6,7 @@ use strict; use warnings; BEGIN { #- set up a safe path and environment - $ENV{PATH} = "/sbin:/usr/sbin:/bin:/usr/bin:/usr/X11R6/bin"; + $ENV{PATH} = "/bin:/usr/bin:/usr/X11R6/bin"; delete @ENV{qw(ENV BASH_ENV IFS CDPATH)}; } @@ -47,11 +47,8 @@ sub quit () { Gtk2->main_quit } sub but ($) { " $_[0] " } #- globals -my $urpm; -my $state; my (@all_rpms, $srpms, $rpms); my ($mainw, $mainbox); -my @ask_unselect; #- Gtk2 helper functions @@ -93,16 +90,6 @@ sub new_label { } } -#- sets the window to a please-wait message -sub wait_label { - my $wait_vbox = Gtk2::VBox->new(0, 5); - my $wait_label = Gtk2::Label->new($_[0] || N("Please wait...")); - $wait_label->set_alignment(0.5, 0.5); - $wait_vbox->pack_start($wait_label, 1, 1, 0); - change_mainw($wait_vbox); - sync(); -} - #- Parse command line foreach (@ARGV) { if (/^-/) { @@ -113,10 +100,6 @@ foreach (@ARGV) { } @all_rpms or fatal N("No packages specified"); -#- TODO switch to root only if we want to install, not save -#- Verify we are root -- normally set via consolehelper -$> and fatal N("Must be root"); - #- Now, the graphical stuff. Gtk2->init; @@ -170,7 +153,7 @@ Proceed?", join "\n", @all_rpms) my $file_dialog = Gtk2::FileSelection->new(N("Choose location to save file")); $file_dialog->set_modal(1); $file_dialog->set_position('center'); - $file_dialog->set_filename($rpms->[0]); + $file_dialog->set_filename($rpms->[0]); #- TODO must work for srpms too $file_dialog->hide_fileop_buttons; $file_dialog->ok_button->signal_connect(clicked => sub { my $location = $file_dialog->get_filename; @@ -187,246 +170,10 @@ Proceed?", join "\n", @all_rpms) $mainw->show_all; Gtk2->main; -#- Creates and configure an urpm object for this application to use. -sub configure_urpm { - my $urpm = new urpm; - $urpm->{fatal} = sub { - Gtk2::MessageDialog->new($mainw, [qw(modal destroy-with-parent)], 'error', 'ok', $_[1])->run; - quit; - exit $_[0]; - }; - $urpm->{error} = sub { - my $w = Gtk2::MessageDialog->new($mainw, [qw(modal destroy-with-parent)], 'warning', 'ok', $_[0]); - $w->run; - $w->destroy; - }; - $urpm->exlock_rpm_db; - $urpm->shlock_urpmi_db; - $urpm->configure; - #- default options values - exists $urpm->{options}{$_} or $urpm->{options}{$_} = 1 foreach qw(post-clean verify-rpm split-length); - $urpm->{options}{'split-level'} = 20 unless exists $urpm->{options}{'split-level'}; - $urpm; -} - -#- Callback for choices -sub ask_choice { - my (undef, undef, undef, $choices) = @_; - my $radio; - my @radios = map { - $radio = Gtk2::RadioButton->new_with_label( - $radio ? $radio->get_group : undef, - (scalar $_->fullname) . "\n" . $_->summary - . ($_->flag_installed ? N(" (to upgrade)") : '') - . ($_->flag_upgrade ? N(" (to install)") : '') - ); - } @$choices; - my $vbox = Gtk2::VBox->new(0, 5); - my $label = Gtk2::Label->new(N("One of the following packages is needed:")); - $label->set_alignment(0.5, 0.5); - $vbox->pack_start($label, 1, 1, 0); - $vbox->pack_start($_, 1, 1, 0) foreach @radios; - my $cancel_button = Gtk2::Button->new(but N("_Cancel")); - my $choice_button = Gtk2::Button->new(but N("_Ok")); - $cancel_button->signal_connect(clicked => \&quit); - $choice_button->signal_connect(clicked => sub { - my $n = 0; - foreach (@radios) { last if $_->get_active; ++$n } - $choices->[$n]; - }); - add_button_box($vbox, $cancel_button, $choice_button); - change_mainw($vbox); - $radios[0]->set_active(1); -} - -sub ask_continue { - my ($msg, $nextclosure) = @_; - my $vbox = Gtk2::VBox->new(0, 5); - $vbox->pack_start(new_label($msg), 1, 1, 0); - my $continue_button = Gtk2::Button->new(but N("_Ok")); - my $quit_button = Gtk2::Button->new(but N("_Abort")); - $quit_button->signal_connect(clicked => \&quit); - $continue_button->signal_connect(clicked => sub { goto &$nextclosure }); - add_button_box($vbox, $quit_button, $continue_button); - change_mainw($vbox); -} - -sub ask_continue_blocking { - my ($msg) = @_; - my $w = Gtk2::MessageDialog->new($mainw, [qw(modal destroy-with-parent)], 'question', 'yes-no', $msg); - my $answer = $w->run; - $w->destroy; - quit if $answer eq 'no'; -} - #- Performs installation. sub do_install { - wait_label; - $urpm = configure_urpm; - $state = {}; - my %requested = $urpm->register_rpms(@all_rpms); - $urpm->resolve_dependencies( - $state, - \%requested, - callback_choices => \&ask_choice, - ); - @ask_unselect = $urpm->unselected_packages($state); - @ask_unselect - ? ask_continue(N( - "Some package requested cannot be installed:\n%s\nContinue?", - join "\n", $urpm->translate_why_unselected($state, sort @ask_unselect) - ), \&do_install_2) - : goto &do_install_2; -} - -sub do_install_2 { - wait_label; - my @ask_remove = $urpm->removed_packages($state); - @ask_remove - ? ask_continue(N( - "The following packages have to be removed for others to be upgraded:\n%s\nContinue?", - join "\n", $urpm->translate_why_removed($state, sort @ask_remove) - ), \&do_install_3) - : goto &do_install_3; -} - -sub do_install_3 { - my @to_install; - foreach my $pkg (sort { $a->name cmp $b->name } @{$urpm->{depslist}}[keys %{$state->{selected}}]) { - $pkg->arch ne 'src' and push @to_install, scalar $pkg->fullname; - } - $urpm->{nb_install} = @to_install; - @to_install > 1 - ? ask_continue(N( - "To satisfy dependencies, the following %d packages are going to be installed:\n%s\n", - scalar(@to_install), join "\n", @to_install - ), \&do_install_4) - : goto \&do_install_4; -} - -sub do_install_4 { - wait_label(N("Package installation...")); - my ($local_sources, $list) = $urpm->get_source_packages($state->{selected}); - $local_sources || $list or $urpm->{fatal}(3, N("unable to get source packages, aborting")); - my %sources = %$local_sources; - my %error_sources; - my $vbox = Gtk2::VBox->new(0, 5); - my $progress_label = Gtk2::Label->new('-'); - $vbox->pack_start($progress_label, 1, 1, 0); - my $progressbar = Gtk2::ProgressBar->new; - $progressbar->set_size_request(300, -1); - $vbox->pack_start($progressbar, 0, 0, 0); - change_mainw($vbox); - $urpm->copy_packages_of_removable_media($list, \%sources, - force_local => 1, - ask_for_medium => sub { - my $w = Gtk2::MessageDialog->new($mainw, [qw(modal destroy-with-parent)], 'warning', 'ok', - N("Please insert the medium named \"%s\" on device [%s]", $_[0], $_[1]) - ); - $w->run; - $w->destroy; - } - ); - $urpm->create_transaction( - $state, - split_level => $urpm->{options}{'split-level'}, - split_length => $urpm->{options}{'split-length'}, - ); - my ($nok, @errors); - foreach my $set (@{$state->{transaction} || []}) { - my (@transaction_list, %transaction_sources); - $urpm->prepare_transaction($set, $list, \%sources, \@transaction_list, \%transaction_sources); - $urpm->download_packages_of_distant_media( - \@transaction_list, - \%transaction_sources, - \%error_sources, - limit_rate => $urpm->{options}{'limit-rate'}, - compress => $urpm->{options}{compress}, - resume => $urpm->{options}{resume}, - force_local => 1, - callback => sub { - my ($mode, $file, $percent) = @_; - if ($mode eq 'start') { - $file =~ s|/*\s*$||; $file =~ s|.*/||; - $progress_label->set_label(N("Downloading package `%s'...", $file)); - select(undef, undef, undef, 0.1); #- hackish - } elsif ($mode eq 'progress') { - $progressbar->set_fraction($percent / 100); - } elsif ($mode eq 'end') { - $progressbar->set_fraction(1); - } - sync(); - }, - ); - my %transaction_sources_install = %{$urpm->extract_packages_to_install(\%transaction_sources) || {}}; - if (!$urpm->{options}{'verify-rpm'} || grep { $_->{'verify-rpm'} } @{$urpm->{media}}) { - my @bad_signatures = $urpm->check_sources_signatures(\%transaction_sources_install, \%transaction_sources, translate => 1); - if (@bad_signatures) { - ask_continue_blocking(N( - "The following packages have bad signatures:\n%s\n\nDo you want to continue installation ?", - (join "\n", @bad_signatures) - )); - } - } - #- check for local files. - if (my @missing = grep { m|^/| && ! -e $_ } values %transaction_sources_install, values %transaction_sources) { - $urpm->{error}(N("Installation failed, some files are missing:\n%s\nYou may want to update your urpmi database", - join "\n", map { s|([^:]*://[^/:\@]*:)[^/:\@]*(\@.*)|$1xxxx$2|; " $_" } @missing)); - ++$nok; - next; - } - if (keys(%transaction_sources_install) || keys(%transaction_sources)) { - @{$set->{remove} || []} and - $progress_label->set_label(N("removing %s", join(' ', @{$set->{remove} || []}))); - my $progress_nb; - my $total_nb = scalar grep { m|^/| } values %transaction_sources_install, values %transaction_sources; - my $callback_inst = sub { - my ($urpm, $type, $id, $subtype, $amount, $total) = @_; - my $pkg = defined $id && $urpm->{depslist}[$id]; - if ($subtype eq 'start') { - if ($type eq 'trans') { - $progress_label->set_label(N("Preparing...")); - } else { - $progress_label->set_label(N("Installing package `%s' (%s/%s)...", $pkg->name, ++$progress_nb, $urpm->{nb_install})); - } - } elsif ($subtype eq 'progress') { - $progressbar->set_fraction($amount / $total); - } - sync(); - }; - my @l = $urpm->install( - $set->{remove} || [], - \%transaction_sources_install, - \%transaction_sources, - 'fork' => @{$state->{transaction} || []} > 1, #- fork if multiple transaction - translate_message => 1, - oldpackage => $state->{oldpackage}, - callback_inst => $callback_inst, - callback_trans => $callback_inst, - ); - if (@l) { - $progress_label->set_label(N("Installation failed") . ":\n" . join("\n", map { "\t$_" } @l)); - ++$nok; - push @errors, @l; - } - } - } - $vbox = Gtk2::VBox->new(0, 5); - $progress_label = Gtk2::Label->new('-'); - $vbox->pack_start($progress_label, 1, 1, 0); - my $quit_button = Gtk2::Button->new(but N("_Done")); - $quit_button->signal_connect(clicked => \&quit); - add_button_box($vbox, $quit_button); - change_mainw($vbox); - if (values %error_sources) { - $progress_label->set_label(N("Installation failed, some files are missing:\n%s\nYou may want to update your urpmi database", - join "\n", map { s|([^:]*://[^/:\@]*:)[^/:\@]*(\@.*)|$1xxxx$2|; " $_" } values %error_sources)); - } elsif (@{$state->{transaction} || []} == 0 && @ask_unselect == 0) { - $progress_label->set_label(N("The package(s) are already installed")); - } else { - $progress_label->set_label(N("Installation finished")); - } - $urpm->unlock_urpmi_db; - $urpm->unlock_rpm_db; - $urpm->try_umounting_removables; + quit; + #- we need to switch to root if we're not already (via consolehelper) + #- yes. hardcoded paths. safe. + exec $> ? '/usr/bin/gurpmi2' : '/usr/sbin/gurpmi2', @ARGV; } diff --git a/gurpmi2 b/gurpmi2 new file mode 100755 index 00000000..04f6b13a --- /dev/null +++ b/gurpmi2 @@ -0,0 +1,373 @@ +#!/usr/bin/perl + +#- Copyright (C) 2005 Mandrakesoft + +use strict; +use warnings; + +BEGIN { #- set up a safe path and environment + $ENV{PATH} = "/sbin:/usr/sbin:/bin:/usr/bin:/usr/X11R6/bin"; + delete @ENV{qw(ENV BASH_ENV IFS CDPATH)}; +} + +#- This is needed because text printed by Gtk2 will always be encoded +#- in UTF-8; we first check if LC_ALL is defined, because if it is, +#- changing only LC_COLLATE will have no effect. +use POSIX qw(setlocale LC_ALL LC_COLLATE); +use locale; +BEGIN { + my $collation_locale = $ENV{LC_ALL}; + if ($collation_locale) { + $collation_locale =~ /UTF-8/ or setlocale(LC_ALL, "$collation_locale.UTF-8"); + } else { + $collation_locale = setlocale(LC_COLLATE); + $collation_locale =~ /UTF-8/ or setlocale(LC_COLLATE, "$collation_locale.UTF-8"); + } +} + +use urpm; +use urpm::msg qw(N); +use Gtk2; + +sub usage () { + print STDERR <<USAGE; +gurpmi version $urpm::VERSION +Usage : + gurpmi <rpm> [ <rpm>... ] +USAGE + exit 0; +} + +#- fatal gurpmi initialisation error (*not* fatal urpmi errors) +sub fatal { print STDERR "$_[0]\n"; exit 1 } + +sub quit () { Gtk2->main_quit } + +sub but ($) { " $_[0] " } + +#- GUI globals +my ($mainw, $mainbox); + +#- Gtk2 helper functions + +#- Replaces the contents of the main window with the specified box +#- (avoids popup multiplication) +sub change_mainw { + $mainw->remove($mainbox); + ($mainbox) = @_; + $mainw->add($mainbox); + $mainw->show_all; +} + +sub add_button_box { + my ($vbox, @buttons) = @_; + my $hbox = Gtk2::HButtonBox->new; + $vbox->pack_start($hbox, 0, 0, 0); + $hbox->set_layout('edge'); + $_->set_alignment(0.5, 0.5), $hbox->add($_) foreach @buttons; +} + +sub sync { + $mainw->show; + Gtk2->main_iteration while Gtk2->events_pending; +} + +sub new_label { + my ($msg) = @_; + my $label = Gtk2::Label->new($msg); + $label->set_line_wrap(1); + $label->set_alignment(0.5, 0.5); + if (($msg =~ tr/\n/\n/) > 5) { + my $sw = Gtk2::ScrolledWindow->new; + $sw->set_policy('never', 'automatic'); + $sw->add_with_viewport($label); + $sw->set_size_request(-1,200); + return $sw; + } else { + return $label; + } +} + +#- sets the window to a please-wait message +sub wait_label { + my $wait_vbox = Gtk2::VBox->new(0, 5); + my $wait_label = Gtk2::Label->new($_[0] || N("Please wait...")); + $wait_label->set_alignment(0.5, 0.5); + $wait_vbox->pack_start($wait_label, 1, 1, 0); + change_mainw($wait_vbox); + sync(); +} + +#- Parse command line +my (@all_rpms); +foreach (@ARGV) { + if (/^-/) { + /^--?[hv?]/ and usage; + fatal N("Unknown option %s", $_); + } + push @all_rpms, $_; +} +@all_rpms or fatal N("No packages specified"); + +$> and fatal N("Must be root"); + +#- Now, the graphical stuff. + +Gtk2->init; + +#- Create main window + +$mainw = Gtk2::Window->new('toplevel'); +$mainw->set_border_width(3); +$mainw->set_title(N("RPM installation")); +$mainw->signal_connect(destroy => \&quit); +$mainw->set_position('center'); +$mainw->set_modal(0); +$mainbox = Gtk2::VBox->new(0, 5); +$mainw->add($mainbox); + +#- Performs installation + +my $urpm = configure_urpm(); +my $state = {}; +my %requested = $urpm->register_rpms(@all_rpms); +$urpm->resolve_dependencies( + $state, + \%requested, + callback_choices => \&ask_choice, +); +my @ask_unselect = $urpm->unselected_packages($state); +@ask_unselect +? ask_continue(N( + "Some package requested cannot be installed:\n%s\nContinue?", + join "\n", $urpm->translate_why_unselected($state, sort @ask_unselect) + ), \&do_install) +: do_install(); + + +$mainw->show_all; +Gtk2->main; + +#- Creates and configure an urpm object for this application to use. +sub configure_urpm { + my $urpm = new urpm; + $urpm->{fatal} = sub { + Gtk2::MessageDialog->new($mainw, [qw(modal destroy-with-parent)], 'error', 'ok', $_[1])->run; + quit; + exit $_[0]; + }; + $urpm->{error} = sub { + my $w = Gtk2::MessageDialog->new($mainw, [qw(modal destroy-with-parent)], 'warning', 'ok', $_[0]); + $w->run; + $w->destroy; + }; + $urpm->exlock_rpm_db; + $urpm->shlock_urpmi_db; + $urpm->configure; + #- default options values + exists $urpm->{options}{$_} or $urpm->{options}{$_} = 1 foreach qw(post-clean verify-rpm split-length); + $urpm->{options}{'split-level'} = 20 unless exists $urpm->{options}{'split-level'}; + $urpm; +} + +#- Callback for choices +sub ask_choice { + my (undef, undef, undef, $choices) = @_; + my $radio; + my @radios = map { + $radio = Gtk2::RadioButton->new_with_label( + $radio ? $radio->get_group : undef, + (scalar $_->fullname) . "\n" . $_->summary + . ($_->flag_installed ? N(" (to upgrade)") : '') + . ($_->flag_upgrade ? N(" (to install)") : '') + ); + } @$choices; + my $vbox = Gtk2::VBox->new(0, 5); + my $label = Gtk2::Label->new(N("One of the following packages is needed:")); + $label->set_alignment(0.5, 0.5); + $vbox->pack_start($label, 1, 1, 0); + $vbox->pack_start($_, 1, 1, 0) foreach @radios; + my $cancel_button = Gtk2::Button->new(but N("_Cancel")); + my $choice_button = Gtk2::Button->new(but N("_Ok")); + $cancel_button->signal_connect(clicked => \&quit); + $choice_button->signal_connect(clicked => sub { + my $n = 0; + foreach (@radios) { last if $_->get_active; ++$n } + $choices->[$n]; + }); + add_button_box($vbox, $cancel_button, $choice_button); + change_mainw($vbox); + $radios[0]->set_active(1); +} + +sub ask_continue { + my ($msg, $nextclosure) = @_; + my $vbox = Gtk2::VBox->new(0, 5); + $vbox->pack_start(new_label($msg), 1, 1, 0); + my $continue_button = Gtk2::Button->new(but N("_Ok")); + my $quit_button = Gtk2::Button->new(but N("_Abort")); + $quit_button->signal_connect(clicked => \&quit); + $continue_button->signal_connect(clicked => sub { goto &$nextclosure }); + add_button_box($vbox, $quit_button, $continue_button); + change_mainw($vbox); +} + +sub ask_continue_blocking { + my ($msg) = @_; + my $w = Gtk2::MessageDialog->new($mainw, [qw(modal destroy-with-parent)], 'question', 'yes-no', $msg); + my $answer = $w->run; + $w->destroy; + quit if $answer eq 'no'; +} + +sub do_install { + wait_label; + my @ask_remove = $urpm->removed_packages($state); + @ask_remove + ? ask_continue(N( + "The following packages have to be removed for others to be upgraded:\n%s\nContinue?", + join "\n", $urpm->translate_why_removed($state, sort @ask_remove) + ), \&do_install_2) + : goto &do_install_2; +} + +sub do_install_2 { + my @to_install; + foreach my $pkg (sort { $a->name cmp $b->name } @{$urpm->{depslist}}[keys %{$state->{selected}}]) { + $pkg->arch ne 'src' and push @to_install, scalar $pkg->fullname; + } + $urpm->{nb_install} = @to_install; + @to_install > 1 + ? ask_continue(N( + "To satisfy dependencies, the following %d packages are going to be installed:\n%s\n", + scalar(@to_install), join "\n", @to_install + ), \&do_install_3) + : goto \&do_install_3; +} + +sub do_install_3 { + wait_label(N("Package installation...")); + my ($local_sources, $list) = $urpm->get_source_packages($state->{selected}); + $local_sources || $list or $urpm->{fatal}(3, N("unable to get source packages, aborting")); + my %sources = %$local_sources; + my %error_sources; + my $vbox = Gtk2::VBox->new(0, 5); + my $progress_label = Gtk2::Label->new('-'); + $vbox->pack_start($progress_label, 1, 1, 0); + my $progressbar = Gtk2::ProgressBar->new; + $progressbar->set_size_request(300, -1); + $vbox->pack_start($progressbar, 0, 0, 0); + change_mainw($vbox); + $urpm->copy_packages_of_removable_media($list, \%sources, + force_local => 1, + ask_for_medium => sub { + my $w = Gtk2::MessageDialog->new($mainw, [qw(modal destroy-with-parent)], 'warning', 'ok', + N("Please insert the medium named \"%s\" on device [%s]", $_[0], $_[1]) + ); + $w->run; + $w->destroy; + } + ); + $urpm->create_transaction( + $state, + split_level => $urpm->{options}{'split-level'}, + split_length => $urpm->{options}{'split-length'}, + ); + my ($nok, @errors); + foreach my $set (@{$state->{transaction} || []}) { + my (@transaction_list, %transaction_sources); + $urpm->prepare_transaction($set, $list, \%sources, \@transaction_list, \%transaction_sources); + $urpm->download_packages_of_distant_media( + \@transaction_list, + \%transaction_sources, + \%error_sources, + limit_rate => $urpm->{options}{'limit-rate'}, + compress => $urpm->{options}{compress}, + resume => $urpm->{options}{resume}, + force_local => 1, + callback => sub { + my ($mode, $file, $percent) = @_; + if ($mode eq 'start') { + $file =~ s|/*\s*$||; $file =~ s|.*/||; + $progress_label->set_label(N("Downloading package `%s'...", $file)); + select(undef, undef, undef, 0.1); #- hackish + } elsif ($mode eq 'progress') { + $progressbar->set_fraction($percent / 100); + } elsif ($mode eq 'end') { + $progressbar->set_fraction(1); + } + sync(); + }, + ); + my %transaction_sources_install = %{$urpm->extract_packages_to_install(\%transaction_sources) || {}}; + if (!$urpm->{options}{'verify-rpm'} || grep { $_->{'verify-rpm'} } @{$urpm->{media}}) { + my @bad_signatures = $urpm->check_sources_signatures(\%transaction_sources_install, \%transaction_sources, translate => 1); + if (@bad_signatures) { + ask_continue_blocking(N( + "The following packages have bad signatures:\n%s\n\nDo you want to continue installation ?", + (join "\n", @bad_signatures) + )); + } + } + #- check for local files. + if (my @missing = grep { m|^/| && ! -e $_ } values %transaction_sources_install, values %transaction_sources) { + $urpm->{error}(N("Installation failed, some files are missing:\n%s\nYou may want to update your urpmi database", + join "\n", map { s|([^:]*://[^/:\@]*:)[^/:\@]*(\@.*)|$1xxxx$2|; " $_" } @missing)); + ++$nok; + next; + } + if (keys(%transaction_sources_install) || keys(%transaction_sources)) { + @{$set->{remove} || []} and + $progress_label->set_label(N("removing %s", join(' ', @{$set->{remove} || []}))); + my $progress_nb; + my $total_nb = scalar grep { m|^/| } values %transaction_sources_install, values %transaction_sources; + my $callback_inst = sub { + my ($urpm, $type, $id, $subtype, $amount, $total) = @_; + my $pkg = defined $id && $urpm->{depslist}[$id]; + if ($subtype eq 'start') { + if ($type eq 'trans') { + $progress_label->set_label(N("Preparing...")); + } else { + $progress_label->set_label(N("Installing package `%s' (%s/%s)...", $pkg->name, ++$progress_nb, $urpm->{nb_install})); + } + } elsif ($subtype eq 'progress') { + $progressbar->set_fraction($amount / $total); + } + sync(); + }; + my @l = $urpm->install( + $set->{remove} || [], + \%transaction_sources_install, + \%transaction_sources, + 'fork' => @{$state->{transaction} || []} > 1, #- fork if multiple transaction + translate_message => 1, + oldpackage => $state->{oldpackage}, + callback_inst => $callback_inst, + callback_trans => $callback_inst, + ); + if (@l) { + $progress_label->set_label(N("Installation failed") . ":\n" . join("\n", map { "\t$_" } @l)); + ++$nok; + push @errors, @l; + } + } + } + $vbox = Gtk2::VBox->new(0, 5); + $progress_label = Gtk2::Label->new('-'); + $vbox->pack_start($progress_label, 1, 1, 0); + my $quit_button = Gtk2::Button->new(but N("_Done")); + $quit_button->signal_connect(clicked => \&quit); + add_button_box($vbox, $quit_button); + change_mainw($vbox); + if (values %error_sources) { + $progress_label->set_label(N("Installation failed, some files are missing:\n%s\nYou may want to update your urpmi database", + join "\n", map { s|([^:]*://[^/:\@]*:)[^/:\@]*(\@.*)|$1xxxx$2|; " $_" } values %error_sources)); + } elsif (@{$state->{transaction} || []} == 0 && @ask_unselect == 0) { + $progress_label->set_label(N("The package(s) are already installed")); + } else { + $progress_label->set_label(N("Installation finished")); + } + $urpm->unlock_urpmi_db; + $urpm->unlock_rpm_db; + $urpm->try_umounting_removables; +} |