summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/any.pm3
-rw-r--r--perl-install/install/NEWS2
-rw-r--r--perl-install/install/steps_interactive.pm3
3 files changed, 6 insertions, 2 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index edcb64f77..768005993 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -873,7 +873,8 @@ sub urpmi_add_all_media {
log::l("URPMI_ADDMEDIA_REASON $reason");
local $ENV{URPMI_ADDMEDIA_REASON} = $reason;
- run_program::rooted($::prefix, $binary, @options);
+ my $log_file = '/root/drakx/updates.log';
+ run_program::rooted($::prefix, $binary, '>>', $log_file, '2>>', $log_file, @options);
}
sub autologin {
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 4549e6853..1f12ac33b 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,5 @@
+- log (g|)urpmi.addmedia and (g|)urpmi output (#47107)
+
Version 12.21 - 30 March 2009
- fix writing urpmi.cfg as cdrom:// for NFS (#49316)
diff --git a/perl-install/install/steps_interactive.pm b/perl-install/install/steps_interactive.pm
index d43753420..d67a7a1c8 100644
--- a/perl-install/install/steps_interactive.pm
+++ b/perl-install/install/steps_interactive.pm
@@ -749,7 +749,8 @@ Do you want to install the updates?")),
install::pkgs::clean_rpmdb_shared_regions();
if (any::urpmi_add_all_media($o, $o->{previous_release})) {
my $binary = find { whereis_binary($_, $::prefix) } 'gurpmi2', 'urpmi' or return;
- run_program::rooted($::prefix, $binary, '--auto-select', '--update');
+ my $log_file = '/root/drakx/updates.log';
+ run_program::rooted($::prefix, $binary, '>>', $log_file, '2>>', $log_file, '--auto-select', '--update');
}
install::pkgs::clean_rpmdb_shared_regions();