diff options
author | Olivier Thauvin <nanardon@mandriva.org> | 2006-06-11 18:40:45 +0000 |
---|---|---|
committer | Olivier Thauvin <nanardon@mandriva.org> | 2006-06-11 18:40:45 +0000 |
commit | e611acef4e04ec5a84a967fef1da4d48a7d0bbb9 (patch) | |
tree | 857591b50f88084e878335bff2eaa347bcf45f39 /urpmi.addmedia | |
parent | 1d648c332e21d8fac81b0fc442ffbaac27638902 (diff) | |
download | urpmi-e611acef4e04ec5a84a967fef1da4d48a7d0bbb9.tar urpmi-e611acef4e04ec5a84a967fef1da4d48a7d0bbb9.tar.gz urpmi-e611acef4e04ec5a84a967fef1da4d48a7d0bbb9.tar.bz2 urpmi-e611acef4e04ec5a84a967fef1da4d48a7d0bbb9.tar.xz urpmi-e611acef4e04ec5a84a967fef1da4d48a7d0bbb9.zip |
- restore old behavior of urpmi.addmedia, add --all-media and --interactive options
Diffstat (limited to 'urpmi.addmedia')
-rwxr-xr-x | urpmi.addmedia | 24 |
1 files changed, 15 insertions, 9 deletions
diff --git a/urpmi.addmedia b/urpmi.addmedia index 24e8bd46..dec67346 100755 --- a/urpmi.addmedia +++ b/urpmi.addmedia @@ -56,6 +56,8 @@ and [options] are from hdlist file. ") . N(" --distrib - automatically create all media from an installation medium. +") . N(" --interactive - with --distrib, ask confirmation for each media before addition +") . N(" --all-media - with --distrib, add all medium include not automatic one ") . N(" --from - use specified url for list of mirrors, the default is %s ", $urpm::cfg::mirrors) . N(" --virtual - create virtual media wich are always up-to-date, @@ -123,6 +125,18 @@ if ($options{distrib}) { $with || $relative_hdlist and usage N("no need to give <relative path of hdlist> with --distrib"); + my $add_media_callback = $options{interactive} || $options{allmedia} ? + sub { + my ($medianame, $default) = @_; + my $yesexpr = N("Yy"); + my $answer = message_input( + N("\nDo you want to add media '%s'", $medianame) . ($default ? N(" (Y/n) ") : N(" (y/N) ")), + $options{allmedia} ? $yesexpr : undef, + boolean => 1 + ); + return($answer ? $answer =~ /[$yesexpr]/ : $default); + } : undef; + $urpm->add_distrib_media( $name, $url, @@ -130,15 +144,7 @@ if ($options{distrib}) { update => $options{update}, probe_with => $options{probe_with}, nolock => $options{nolock}, - ask_media => sub { - my ($medianame, $default) = @_; - my $yesexpr = N("Yy"); - my $answer = message_input( - N("\nDo you want to add media '%s'", $medianame) . ($default ? N(" (Y/n) ") : N(" (y/N) ")), - undef, boolean => 1 - ); - return($answer ? $answer =~ /[$yesexpr]/ : $default); - }, + ask_media => $add_media_callback, ); local $SIG{INT} = sub { remove_failed($urpm, grep { $_->{modified} } @{$urpm->{media}}); |