From 993298373dff165f46fe6a6c26e549da411239f9 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 30 Mar 2009 17:38:11 +0000 Subject: (urpmi_add_all_media,installUpdates) log (g|)urpmi.addmedia and (g|)urpmi output (#47107) --- perl-install/any.pm | 3 ++- perl-install/install/NEWS | 2 ++ perl-install/install/steps_interactive.pm | 3 ++- 3 files changed, 6 insertions(+), 2 deletions(-) (limited to 'perl-install') 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(); -- cgit v1.2.1