From ef1e913b32c01d82aced47f5d5a6da23fd2d1a28 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 28 Mar 2008 10:38:05 +0000 Subject: - gurpmi.addmedia: o handle --mirrorlist o drop 'with' parameter, it didn't work properly anymore (Anssi) --- gurpmi.addmedia | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'gurpmi.addmedia') diff --git a/gurpmi.addmedia b/gurpmi.addmedia index 77b09361..993891e5 100755 --- a/gurpmi.addmedia +++ b/gurpmi.addmedia @@ -40,6 +40,7 @@ and [options] are from --distrib install a set of media from a distribution --silent-success don't show popup window on success --update create an update medium. + --mirrorlist is a mirror list "; exit(0); }; @@ -64,11 +65,13 @@ if (@ARGV == 1 && $ARGV[0] =~ /\.urpmi-media$/) { } my ($update, $distrib, $silent_success) = (0, 0, 0); +my ($mirrorlist, $with_dir); GetOptions( 'update' => \$update, 'distrib' => \$distrib, 'silent-success' => \$silent_success, + 'mirrorlist=s' => \$mirrorlist, ); # compatibility with -update: @@ -82,7 +85,10 @@ my @names; while (@ARGV) { my ($name, $url) = @ARGV; - if ($url !~ m,^(([^:]*):/)?/,) { + + if ($mirrorlist) { + ($with_dir, $url) = ($url, undef); + } elsif ($url !~ m,^(([^:]*):/)?/,) { interactive_msg('gurpmi.addmedia', N("bad (for local directory, the path must be absolute)") . "\n\n$url"); myexit(-1); @@ -119,6 +125,8 @@ foreach (@addmedia_args) { $_->[1], if_(!$distrib, undef), if_($update, update => $update), + mirrorlist => $mirrorlist, + 'with-dir' => $with_dir, ); } if ($success) { -- cgit v1.2.1